integer errio
& status = 'old', iostat = errio)
if ( errio .lt. 0 ) then
& , iostat = errio
read(inunit, fmt='(a)', iostat=errio) record
if ( errio .ne. 0 ) then