Changeset 1375

Timestamp:

04/20/11 11:26:31 (14 years ago)

Author:

mmaipsl

Message:

Because of undefined value on test at line 811 on compline (line compression
parameter), I add this property on the whole values of a vector parameter
readed by getincom.

File:

• IOIPSL/trunk/src/getincom.f90 (modified) (2 diffs)

IOIPSL/trunk/src/getincom.f90

@@ -1389 +1389 @@
         nbve = nbve+1
         WRITE(UNIT=cnt,FMT=c_i_fmt) nbve
+        compline(nb_lines)=compline(nb_lines-1)
 !-
       ENDDO
@@ -1409 +1410 @@
 
   IF (l_dbg) THEN
-     WRITE(*,*) "getin_decrypt ->",TRIM(NEW_str), " : ", &
+     WRITE(*,*) "getin_decrypt ->",TRIM(NEW_str), " : "
+     WRITE(*,*) "getin_decrypt ->", nb_lines,&
+          & SIZE(fichier), &
+          & SIZE(fromfile), &
+          & SIZE(filelist)
+     IF (nb_lines > 0) THEN
+        WRITE(*,*) "getin_decrypt ->",TRIM(NEW_str), " : ", &
           & TRIM(fichier(nb_lines)), &
           & fromfile(nb_lines), &
           & TRIM(filelist(fromfile(nb_lines)))
-     WRITE(*,*) "                compline : ",compline(nb_lines)
-     WRITE(*,*) "                targetlist : ",TRIM(targetlist(nb_lines))
+        WRITE(*,*) "                compline : ",compline(nb_lines)
+        WRITE(*,*) "                targetlist : ",TRIM(targetlist(nb_lines))
+     ENDIF
      WRITE(*,*) "                last_key : ",last_key
   ENDIF