anchor.diff:      rewind(92)
   13  continue
       read(92,"(a)",err=14,end=15,iostat=ierro) inLine
  -    write(6,'(a)',iostat=ierro) trim(inLine)
  +    write(output_unit,'(a)',iostat=ierro) trim(inLine)
       goto 13
     end if
   
  
positive.code: ! ================================================================================================ !
  subroutine abend(cstring)
  
    use, intrinsic :: iso_fortran_env, only : error_unit
  
    use crcoall
    use parpro
  
negative.code:   write(lerr,"(a,i0)") "ABEND> ERROR Reading fort.92, iostat = ",ierro
  
  15 continue
    write(output_unit,"(a)",iostat=ierro) "SIXTRACR> Stop "//cstring
    rewind(92) ! Get rid of fort.92
    endfile(92,iostat=ierro)
    call f_close(92)
  