anchor.diff:      call prror
     end if
   
  -  ! Keep the last few lines for error output, but only fort fort.3
  +  ! Keep the last few lines for error output
  +  if(nUnit == 2) then
  +    pLines2(1:4) = pLines2(2:5)
  +    pLines2(5)   = inLine
  +  end if
     if(nUnit == 3) then
  -    do i=1,4
  -      pLines(i) = pLines(i+1)
  -    end do
  -    pLines(5) = inLine
  +    pLines3(1:4) = pLines3(2:5)
  +    pLines3(5)   = inLine
     end if
   
     if(len_trim(inLine) == 0) goto 110 ! Empty line, ignore
  
positive.code:   nGeom       = 0
    lineNo2     = 0
    lineNo3     = 0
    pLines(:)   = " "
  
  ! ================================================================================================ !
  !  READ FORT.3 HEADER
  
negative.code:     write(lerr,"(a)") "INPUT> ERROR Could not read from "//trim(fort3)
      call prror
    end if
    pLines3(5) = cCheck//cPad//iHead
    lineNo3    = lineNo3+1
    if(cCheck(1:1) == "/") goto 90
    if(cCheck(1:1) == "!") goto 90
  
  