anchor.diff:      write(lerr,"(a)") "INPUT> ERROR Could not read from "//trim(fort3)
       call prror
     end if
  -  pLines(5) = cCheck//cPad//iHead
  -  lineNo3 = lineNo3+1
  +  pLines3(5) = cCheck//cPad//iHead
  +  lineNo3    = lineNo3+1
     if(cCheck(1:1) == "/") goto 90
     if(cCheck(1:1) == "!") goto 90
   
  
positive.code:     do i=1,5
        if(lineNo3-5+i <= 0) cycle
        if(i == 5) then
          write(lerr,"(a,i5,a)") ">>",lineNo3-5+i," | "//trim(pLines(i))
        else
          write(lerr,"(a,i5,a)") "  ",lineNo3-5+i," | "//trim(pLines(i))
        end if
      end do
      write(lerr,"(a)")      "========O"//repeat("=",91)
  
negative.code: 9999 continue
    if(nUnit == 2) then
      write(lerr,"(a)")      ""
      write(lerr,"(a,i0)")   " ERROR in "//trim(fort2)//" on line ",lineNo2
      write(lerr,"(a)")      "========O"//repeat("=",91)
      do i=1,5
        if(lineNo2-5+i <= 0) cycle
        if(i == 5) then
          write(lerr,"(a,i5,a)") ">>",lineNo2-5+i," | "//trim(pLines2(i))
        else
          write(lerr,"(a,i5,a)") "  ",lineNo2-5+i," | "//trim(pLines2(i))
        end if
      end do
      write(lerr,"(a)")      "========O"//repeat("=",91)
    else
      write(lerr,"(a)")      ""
      write(lerr,"(a,i0)")   " ERROR in "//trim(fort3)//" on line ",lineNo3
  