Searched refs:spl_tck (Results 1 – 11 of 11) sorted by relevance
/dports/science/berkeleygw/BGW-2.0.0/BSE/ |
H A D | inread.f90 | 76 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 D | haydock.f90 | 618 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 D | diag.f90 | 799 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 D | input_co.f90 | 132 call scissors_shift(kp_co, eqp%scis, eqp%spl_tck)
|
H A D | input_q.f90 | 112 call scissors_shift(kpq, eqp%scis, eqp%spl_tck)
|
H A D | input_fi.f90 | 501 call scissors_shift(kp, eqp%scis, eqp%spl_tck)
|
/dports/science/berkeleygw/BGW-2.0.0/Common/ |
H A D | scissors.f90 | 36 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 D | typedefs.f90 | 301 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 D | inread.f90 | 102 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 D | sigma_main.f90 | 2189 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 D | input.f90 | 266 call scissors_shift(kp, sig%scis, sig%spl_tck)
|