anchor.diff:      end do readparams
     end subroutine read_parameters_from_unit
     !---------------------------------------------------------------------------
  -  subroutine read_laserfield(unit, form)
  +  subroutine read_laserfield_parameters(unit, form)
       use misc_fileops
       use laserfields_module
       integer, intent(in) :: unit
  
positive.code:        status = get_next_param(unit,name,valuestr)
         if (status /= 0) exit readparams
         if (name == 'laserfield') then
            call read_laserfield(unit,valuestr)
         else
            write(0,'(4A)') 'ERROR: unknown parameter encountered, name = ', trim(adjustl(name)), &
                 & ' value = ', trim(adjustl(valuestr))
  
negative.code:     call laserfield_set_dependent(lf)
      if (lf%E0 /= 0.d0) call add_laserfield(lf)
  
    end subroutine read_laserfield_parameters
    !---------------------------------------------------------------------------
  end module laserfields_fileops
  