Searched refs:Gridwk (Results 1 – 4 of 4) sorted by relevance
/dports/science/atompaw/atompaw-4.1.1.0/src/ |
H A D | ldagga_mod.F90 | 24 TYPE(GridInfo), PRIVATE, POINTER :: Gridwk variable 47 Gridwk=>Gridin 71 CALL zeropot(Gridwk,Potwk%rv,Potwk%v0,Potwk%v0p) 111 ALLOCATE(dum(Gridwk%n),stat=i) 117 n=Gridwk%n 136 j=FindGridIndex(Gridwk,x) 170 CALL Get_KinCoul(Gridwk,tmpPot,tmpOrbit,SCFwk) 172 CALL Get_EXC(Gridwk,tmpPot,tmpOrbit,SCFwk) 287 n=Gridwk%n 301 WRITE(1001,'(1p,50e15.7)') Gridwk%r(i), & [all …]
|
H A D | exx_mod.F90 | 70 Gridwk=>Gridin 78 n=Gridwk%n 278 n=Gridwk%n 607 n=Gridwk%n 928 n=Gridwk%n 999 n=Gridwk%n 1733 n=Gridwk%n 1947 n=Gridwk%n 2094 n=Gridwk%n 2196 n=Gridwk%n [all …]
|
H A D | exx_pseudo.F90 | 38 TYPE(GridInfo), POINTER, PRIVATE :: Gridwk variable 190 Gridwk=>Grid 539 tu(1)=0; tu(2:irc)=tu(2:irc)/Gridwk%r(2:irc) 540 dvx(ib,ip)=S_Vx(ib,ip)-integrator(Gridwk,tu,1,irc) 591 grad(2:irc)=-shift(2:irc)/Gridwk%r(2:irc) 646 tu(1)=0; tu(2:irc)=tu(2:irc)/Gridwk%r(2:irc) 647 dvx(ib,ip)=S_Vx(ib,ip)-integrator(Gridwk,tu,1,irc) 708 grad(2:irc)=-shift(2:irc)/Gridwk%r(2:irc) 749 arg(2:n)=-S_shift(2:n)/Gridwk%r(2:n) 804 MMM(io,jo)=integrator(Gridwk,tu) [all …]
|
H A D | hf_mod.F90 | 39 TYPE (Gridinfo) ,PRIVATE, POINTER :: Gridwk component 59 Gridwk=>Gridin 84 Gridwk=>Gridin 92 n=Gridwk%n 172 CALL GetLambda(Gridwk,Orbitwk,Potwk) 184 CALL HFVterms(Gridwk,Orbitwk,FCwk) 188 CALL GetLambda(Gridwk,Orbitwk,Potwk,FCwk,SCFwk) 265 Grid=>Gridwk 839 Grid=>Gridwk 948 Grid=>Gridwk [all …]
|