Home
last modified time | relevance | path

Searched refs:spl_tck (Results 1 – 11 of 11) sorted by relevance

/dports/science/berkeleygw/BGW-2.0.0/BSE/
H A Dinread.f9076 eqp%spl_tck%n=0
216 read(20,*) eqp%spl_tck%n
217 SAFE_ALLOCATE(eqp%spl_tck%t, (eqp%spl_tck%n))
218 SAFE_ALLOCATE(eqp%spl_tck%c, (eqp%spl_tck%n))
219 read(20,*) (eqp%spl_tck%t(ii), ii=1,eqp%spl_tck%n)
220 read(20,*) (eqp%spl_tck%c(ii), ii=1,eqp%spl_tck%n)
221 read(20,*) eqp%spl_tck%k
688 SAFE_ALLOCATE(eqp%spl_tck%t, (eqp%spl_tck%n))
689 SAFE_ALLOCATE(eqp%spl_tck%c, (eqp%spl_tck%n))
691 call MPI_BCAST(eqp%spl_tck%t, eqp%spl_tck%n, MPI_REAL_DP, 0, MPI_COMM_WORLD, mpierr)
[all …]
H A Dhaydock.f90618 if (eqp%spl_tck%n>0) then
619 SAFE_DEALLOCATE_P(eqp%spl_tck%t)
620 SAFE_DEALLOCATE_P(eqp%spl_tck%c)
H A Ddiag.f90799 if (eqp%spl_tck%n>0) then
800 SAFE_DEALLOCATE_P(eqp%spl_tck%t)
801 SAFE_DEALLOCATE_P(eqp%spl_tck%c)
H A Dinput_co.f90132 call scissors_shift(kp_co, eqp%scis, eqp%spl_tck)
H A Dinput_q.f90112 call scissors_shift(kpq, eqp%scis, eqp%spl_tck)
H A Dinput_fi.f90501 call scissors_shift(kp, eqp%scis, eqp%spl_tck)
/dports/science/berkeleygw/BGW-2.0.0/Common/
H A Dscissors.f9036 subroutine scissors_shift(kp, scis, spl_tck) argument
39 type(spline_tck), optional, intent(in) :: spl_tck local
48 if (present(spl_tck)) then
49 if (spl_tck%n>0) then
51 spline_emin = spl_tck%t(1)/ryd
52 spline_emax = spl_tck%t(spl_tck%n)/ryd
70 call splev_shift( spl_tck, kp%el(ib,irk,is) )
H A Dtypedefs.f90301 type(spline_tck) :: spl_tck !< scissors b-spline coefficients component
570 type(spline_tck) :: spl_tck !< scissors spline coefficients component
/dports/science/berkeleygw/BGW-2.0.0/Sigma/
H A Dinread.f90102 sig%spl_tck%n=0
228 read(20,*) sig%spl_tck%n
229 SAFE_ALLOCATE(sig%spl_tck%t, (sig%spl_tck%n))
230 SAFE_ALLOCATE(sig%spl_tck%c, (sig%spl_tck%n))
231 read(20,*) (sig%spl_tck%t(ii), ii=1,sig%spl_tck%n)
232 read(20,*) (sig%spl_tck%c(ii), ii=1,sig%spl_tck%n)
233 read(20,*) sig%spl_tck%k
898 SAFE_ALLOCATE(sig%spl_tck%t, (sig%spl_tck%n))
899 SAFE_ALLOCATE(sig%spl_tck%c, (sig%spl_tck%n))
901 call MPI_BCAST(sig%spl_tck%t, sig%spl_tck%n, MPI_REAL_DP, 0, MPI_COMM_WORLD, mpierr)
[all …]
H A Dsigma_main.f902189 if (sig%spl_tck%n>0) then
2190 SAFE_DEALLOCATE_P(sig%spl_tck%t)
2191 SAFE_DEALLOCATE_P(sig%spl_tck%c)
H A Dinput.f90266 call scissors_shift(kp, sig%scis, sig%spl_tck)