CHARACTER*(MAX_LEN_FNAM) STREAMICEvDirichValsFile
& STREAMICEvDirichValsFile,
IF ( STREAMICEvDirichValsFile .NE. ' ') THEN
CALL READ_FLD_XY_RL ( STREAMICEvDirichValsFile, ' ',
STREAMICEvDirichValsFile = ''