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