nRecords = 0
O nRecords, fileIter,
IF ( nRecords.EQ.0 .AND.
READ(lineBuf(15:iL),'(I5)') nRecords
INTEGER nRecords
INTEGER nRecords, fileIter
& .AND. nFlds.LT.nRecords ) THEN
IF ( MOD( nRecords-nFlds , thirdDim-1 ) .EQ. 0 )
& nFl3D = (nRecords-nFlds)/(thirdDim-1)
IF ( nFlds.NE.nRecords .AND. nFl3D.EQ.0 ) THEN
& 'READ_MFLDS_SET: Pb with Nb of records=', nRecords,
& ' nRecords =', nRecords, ' ; filePrec =', filePrec,