if ( kapredi_errfile .NE. ' ' ) then
call MDSREADFIELD( kapredi_errfile, cost_iprec, cost_yftype,
& kapredi_errfile,
character*(MAX_LEN_FNAM) kapredi_errfile
& kapgm_errfile,kapredi_errfile,diffkr_errfile,
kapredi_errfile = ' '