Philippe 08/03/2018: IO: add NLFININAR field to TFILEDATA (needed by LFI2CDF)

src/LIB/SURCOUCHE/src/modd_io.f90

@@ -86,6 +86,7 @@ TYPE TFILEDATA
   TYPE(TFILE_ELT),DIMENSION(:),ALLOCATABLE :: TFILES_IOZ !Corresponding Z-splitted files
   !
   ! Fields for LFI files
+  INTEGER(KIND=LFI_INT) :: NLFININAR = 0  !Number of articles of the LFI file (only accurate if file opened in read mode)
   INTEGER(KIND=LFI_INT) :: NLFINPRAR = 0  !Number of predicted articles of the LFI file (non crucial)
   INTEGER               :: NLFITYPE  = -1 !Type of the file (used to generate list of files to transfers)
   INTEGER               :: NLFIVERB  = 1  !LFI verbosity level

src/LIB/SURCOUCHE/src/mode_fm.f90

@@ -252,7 +252,7 @@ INTEGER :: IERR
 !JUAN
 INTEGER(KIND=LFI_INT) :: IRESOU,INUMBR8
 INTEGER(KIND=LFI_INT) :: IMELEV,INPRAR
-INTEGER(KIND=LFI_INT) :: ININAR ! Number of articles present in LFI file (unused here)
+INTEGER(KIND=LFI_INT) :: ININAR ! Number of articles present in LFI file
 LOGICAL               :: GNAMFI8,GFATER8,GSTATS8
 INTEGER               :: INB_PROCIO
 !JUAN
@@ -370,7 +370,7 @@ IF (TPFILE%LMASTER) THEN
           IMELEV,            &
           INPRAR,            &
           ININAR)
-     
+     TPFILE%NLFININAR = ININAR
   IF (IRESOU /= 0 ) THEN
         IRESP = IRESOU
      ENDIF

src/LIB/SURCOUCHE/src/mode_io.f90

@@ -708,7 +708,7 @@ CONTAINS
                         IMELEV,            &
                         INPRAR,            &
                         ININAR8)
-                   !KNINAR = ININAR8
+                   TZSPLITFILE%NLFININAR = ININAR8
                 END IF
              ENDIF
              !