Lines Matching refs:imu
236 integer :: imu, ic, idx, ie, N local
244 do imu = 1, N_mu
247 do ic = 1, size(mus(imu)%Eq_seg)
248 idx = get_c_io_index(mus(imu)%Eq_seg(ic))
252 if ( abs(real(Eq_c(idx)%c(ie), dp) - mus(imu)%mu) < TOLERANCE_E ) N = N + 1
259 do ic = 1, size(mus(imu)%Eq_seg)
260 idx = get_c_io_index(mus(imu)%Eq_seg(ic))
264 if ( abs(real(Eq_c(idx)%c(ie), dp) - mus(imu)%mu) < TOLERANCE_E ) then
275 allocate(this%mus(imu)%dq(min(5,N)))
276 allocate(this%mus(imu)%eta(min(5,N)))
277 allocate(this%mus(imu)%idxE(min(5,N)))
282 this%mus(imu)%eta(ie) = aimag(cE%e)
283 this%mus(imu)%idxE(ie) = idx
357 integer :: imu, ind, N_dq local
380 do imu = 1, size(this%mus)
381 N_dq = size(this%mus(imu)%dq)
383 call MPI_Reduce(this%mus(imu)%dq(1), tmp(1), N_dq, &
386 this%mus(imu)%dq(:) = tmp(:)
403 do imu = 1, size(this%mus)
404 N_dq = size(this%mus(imu)%dq)
406 call interp_spline(N_dq, this%mus(imu)%eta, this%mus(imu)%dq, TS_DQ_FERMI_ETA, tQ)
436 function ts_dq_t_get_index(this, imu, idxE) result(index_dq)
438 integer, intent(in) :: imu, idxE local
444 do i = 1, size(this%mus(imu)%idxE)
445 if ( this%mus(imu)%idxE(i) == idxE ) then