Searched refs:lfixstep (Results 1 – 2 of 2) sorted by relevance
97 fixed_step, lfixstep, write_proj, have_disentangled, conv_tol, num_proj, &363 if (lfixstep) lquad = .false.410 if (.not. lfixstep .and. optimisation <= 0) then452 if (lfixstep) then487 if (.not. lfixstep) &491 if (.not. lfixstep) then504 if (lfixstep .or. lquad) then510 if (.not. lfixstep) then
430 logical, public, save :: lfixstep variable811 fixed_step = -999.0_dp; lfixstep = .false.814 if (fixed_step > 0.0_dp) lfixstep = .true.818 if (found .and. lfixstep) call io_error('Error: cannot specify both fixed_step and trial_step')2790 if (lfixstep) then6314 call comms_bcast(lfixstep, 1)