anchor.diff:        write(lout,"(i5,a)") lineNo3-5+i," | "//trim(pLines(i))
       end do
     end if
  -  call prror(-1)
  +  call prror
     return
   
   end subroutine daten
  
positive.code: ! ================================================================================================ !
  
  90 continue
    read(3,"(a4,a8,a60)",end=9998,iostat=ierro) cCheck,cPad,iHead
    if(ierro > 0) then
      write(lout,"(a)") "INPUT> ERROR Could not read from fort.3"
      call prror(-1)
  
negative.code: 
    end if
   
    call elens_postInput
  
    if(idp == 0 .or. ition == 0 .or. nbeam < 1) then
  