Changeset 611 for BOL/trunk

Timestamp:

Mar 24, 2005, 6:27:23 PM (20 years ago)

Author:

Laurent Fairhead

Message:

Pb avec la lecture du fichier config et un deallocate qui manquait
LF

File:

• BOL/trunk/Class_Reg/geo2reg.F90 (modified) (3 diffs)

BOL/trunk/Class_Reg/geo2reg.F90

@@ -89 +89 @@
   endif
 
-  do while (iostat == 0)
-    READ(20,'(A)',iostat=iostat)line_read
+  config: do
+    read(20,'(A)',iostat=iostat)line_read
+    if (iostat /= 0) exit
     line_read = trim(line_read)
     IF (INDEX(line_read, '#') /= 1) THEN
@@ -106 +107 @@
       end select
     endif
-  enddo
+  enddo config
   if (iostat > 0) then
     write(lunout,*) &
@@ -244 +245 @@
     enddo
   enddo
-  write(*,*) 'sfce totale = 4? ',surftest/pi
+  write(*,*) 'sfce totale = 4pi ',surftest/pi
 
 !---------------------------------------------------------------