& mFldsFile, fldList, fldMiss
CHARACTER*(MAX_LEN_FNAM) mFldsFile
i = ILNBLNK(mFldsFile)
& 'MFLDS file-name already set to: ',mFldsFile(1:i)
mFldsFile = fName
iL = ILNBLNK(mFldsFile)
& 'field: "',fldName,'" missing in file: ',mFldsFile(1:iL)
fName = mFldsFile
mFldsFile = ' '
& 'reading from file: ', mFldsFile(1:iL)
& '- normal end ; reset MFLDS file-name: ', mFldsFile(1:iL)