ilo = ifnblnk(data_errfile)
ihi = ilnblnk(data_errfile)
I data_errfile(ilo:ihi),
& data_errfile,
character*(MAX_LEN_FNAM) data_errfile
data_errfile = ' '