Index: BOL/trunk/IPCC/ts2IPCC.F90
===================================================================
--- BOL/trunk/IPCC/ts2IPCC.F90	(revision 572)
+++ BOL/trunk/IPCC/ts2IPCC.F90	(revision 605)
@@ -88,7 +88,8 @@
   endif
 
-  do while (iostat == 0)
+  config: do 
     READ(20,'(A)',iostat=iostat)line_read
-    line_read = trim(line_read)
+    IF (iostat /= 0) exit
+    line_read = TRIM(line_read)
     IF (INDEX(line_read, '#') /= 1) THEN
       first_part = trim(line_read(1:INDEX(line_read, '=')-1))
@@ -125,5 +126,5 @@
       end select
     endif
-  enddo
+  enddo config
   if (iostat > 0) then
     WRITE(lunout,*)'Probleme de lecture du fichier config.def, iostat = ',iostat
@@ -140,7 +141,8 @@
   endif
   indice = 0
-  do while (iostat == 0)
+  table: do
     READ(20,'(A)',iostat=iostat)line_read
-    line_read = trim(line_read)
+    IF (iostat /= 0) exit 
+    line_read = TRIM(line_read)
     IF (INDEX(line_read, '#') /= 1) THEN
       indice = indice + 1
@@ -154,5 +156,5 @@
       ipcc_table(indice) = trim(line_read(INDEX(line_read, '|')+1:))
     endif
-  enddo
+  enddo table
   indice = indice - 1
   close(20)