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