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:   use nrtype
    implicit none
    public :: laserfields_read_parameters, laserfields_write_parameters
    private :: read_laserfield
  
    !> read laserfield parameters and put into global all_laser_fields array
  
  
negative.code:     character(len=200) :: name, valuestr
  
      if (len_trim(form) > len(lf%form)) then
         write(0,*) 'laser field form too long in read_laserfield_parameters, form =', form
         STOP 951
      end if
  
  