anchor.diff:      character(len=200) :: name, valuestr
   
       if (len_trim(form) > len(lf%form)) then
  -       write(0,*) 'laser field form too long in read_laserfield, form =', form
  +       write(0,*) 'laser field form too long in read_laserfield_parameters, form =', form
          STOP 951
       end if
   
  
positive.code:     end do readparams
    end subroutine read_parameters_from_unit
    !---------------------------------------------------------------------------
    subroutine read_laserfield(unit, form)
      use misc_fileops
      use laserfields_module
      integer, intent(in) :: unit
  
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
  