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:            fluka_con = fluka_connect()
             if(fluka_con.eq.-1) then
  !                no hope to properly close the run
               write(lout,'(A)') 'FLUKA> unable to connect to fluka while closing the simulation:'
               write(lout,'(A)') 'FLUKA>  please, manually kill all its instances'
               write(fluka_log_unit,'(A)') '# unable to connect to fluka while closing the simulation:'
               write(fluka_log_unit,'(A)') '#   please, manually kill all its instances'
               goto 1982
  
negative.code:            napx, xv1, xv2, yv1, yv2, sigmv, ejv, naa, nzz, nucm )
  
        if (ret.eq.-1) then
           write(lerr,'(A)')'FLUKA> ERROR -1 in Fluka communication returned by fluka_send_receive...'
           write(fluka_log_unit,'(A)')'# Error -1 in Fluka communication returned by fluka_send_receive...'
           call prror
        end if
  
  