anchor.diff:      call f_open(net_nfo_unit, file=net_nfo_file, formatted=.true., mode="rw", status='old')
       read(unit=net_nfo_unit, fmt=*, iostat=ios) host
       if(ios .ne. 0) then
  -      write(lout,'(A)')
  -      write(lout,'(A)') 'FLUKA> Could not read the host name from network.nfo'
  -      write(lout,'(A)')
  +      write(lerr,'(A)') 'FLUKA> ERROR Could not read the host name from network.nfo'
         call prror
       end if
   
       read(unit=net_nfo_unit, fmt=*, iostat=ios) port
       if(ios .ne. 0) then
  -      write(lout,'(A)')
  -      write(lout,'(A)') 'FLUKA> Could not read the port number from network.nfo'
  -      write(lout,'(A)') 'FLUKA> Is the FLUKA server running and has it had time to write the port number?'
  -      write(lout,'(A)')
  +      write(lerr,'(A)') 'FLUKA> ERROR Could not read the port number from network.nfo'
  +      write(lerr,'(A)') 'FLUKA>       Is the FLUKA server running and has it had time to write the port number?'
         call prror
       end if
   
  
positive.code:      
       integer fluka_con
       
       if (fluka_enable) then
         if (fluka_last_sent_mess==FLUKA_EOB .and. fluka_last_rcvd_mess.eq.-1) then
           ! FLUKA is still crunching stuff
  
negative.code:     integer(kind=int16)         :: flaa, flzz
      integer(kind=int8)          :: mtype
  
      write(lout,'(A)') 'FLUKA> call to fluka_end'
      write(fluka_log_unit,*) "# FlukaIO: sending End of Computation signal"
  
      ! Send end of computation
  