anchor.diff:    nGeom       = 0
     lineNo2     = 0
     lineNo3     = 0
  -  pLines(:)   = " "
  +  pLines2(:)  = " "
  +  pLines3(:)  = " "
   
   ! ================================================================================================ !
   !  READ FORT.3 HEADER
  
positive.code:     call prror
    end if
  
    ! Keep the last few lines for error output, but only fort fort.3
    if(nUnit == 3) then
      do i=1,4
        pLines(i) = pLines(i+1)
      end do
      pLines(5) = inLine
    end if
  
    if(len_trim(inLine) == 0) goto 110 ! Empty line, ignore
  
negative.code: 
    implicit none
  
    character(len=mInputLn) inLine, pLines2(5), pLines3(5)
    character(len=mNameLen) ic0(10)
    character(len=60)       iHead
    character(len=8)        cPad
  