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: 
    end if
   
    call aper_postInput
    
    call elens_postInput
  
    if(idp == 0 .or. ition == 0 .or. nbeam < 1) then
  
negative.code: !  END OF INPUT PARSING
  ! ================================================================================================ !
  
  9997 continue
    write(lout,"(a)") "INPUT> ERROR Header could not be read from fort.3"
    call prror
    return
  
  9998 continue
    write(lout,"(a,i0,a)") "INPUT> ERROR fort.",nUnit," is missing or empty, or end was reached without an ENDE flag."
    call prror
    return
  
  9999 continue
  