Home
last modified time | relevance | path

Searched refs:Gridwk (Results 1 – 4 of 4) sorted by relevance

/dports/science/atompaw/atompaw-4.1.1.0/src/
H A Dldagga_mod.F9024 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 Dexx_mod.F9070 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 Dexx_pseudo.F9038 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 Dhf_mod.F9039 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 …]