& thirdDim, nFl3D, nFlds, nMissFld
INTEGER nMissFld
nMissFld = 0
nMissFld = nMissFld + 1
j = MIN(nMissFld,sizFldList)
IF ( nMissFld.GE.1 ) THEN
& nMissFld, ' field(s) is/are missing :'
nj = MIN( nMissFld, sizFldList )
IF ( nMissFld.GT.sizFldList ) THEN
nj = MIN( nMissFld, nbErr )
nbErr = nMissFld