Home
last modified time | relevance | path

Searched refs:AEOrbit (Results 1 – 6 of 6) sorted by relevance

/dports/science/atompaw/atompaw-4.1.1.0/src/
H A Daeatom.F90148 AEOrbit%nps=nps;AEOrbit%npp=npp;AEOrbit%npd=npd
149 AEOrbit%npf=npf;AEOrbit%npg=npg
212 & AEOrbit%np(io),AEOrbit%l(io),AEOrbit%occ(io)
233 & AEOrbit%np(io),AEOrbit%l(io),AEOrbit%occ(io)
339 & AEOrbit%np(io),AEOrbit%l(io),AEOrbit%kappa(io),AEOrbit%occ(io)
361 & AEOrbit%np(io),AEOrbit%l(io),AEOrbit%kappa(io),AEOrbit%occ(io)
927 write(ifo,*) AEOrbit%exctype,AEOrbit%nps, AEOrbit%npp, AEOrbit%npd ,&
929 write(ifo,*) (AEOrbit%np(io),AEOrbit%l(io),AEOrbit%iscore(io),&
1015 AEOrbit%nps=nps;AEOrbit%npp=npp;AEOrbit%npd=npd;AEOrbit%npf=npf;AEOrbit%npg=npg
1016 read(ifo,*) (AEOrbit%np(io),AEOrbit%l(io),AEOrbit%iscore(io),&
[all …]
H A Datompaw_prog.F9086 Grid,AEOrbit,AEpot,AESCF,FCOrbit,FCpot,FCSCF,FC)
88 CALL Report_Atomres('AE',Grid,AEOrbit,AEPot,AESCF,ifen)
94 CALL Report_Atomres('AE',Grid,AEOrbit,AEPot,AESCF,ifen)
99 Grid,AEOrbit,AEpot,AESCF,FCOrbit,FCpot,FCSCF,FC)
183 Call DestroyOrbit(AEOrbit)
H A Dxmlinterface.F90783 do io=1,AEOrbit%norbit
784 if (AEOrbit%l(io)==pawlda12%orb_l.and.AEOrbit%np(io)==pawlda12%orb_n) then
786 AEOrbit%occ(io)=AEOrbit%occ(io)-pawlda12%ion
1549 core_size=count(AEOrbit%iscore(1:AEOrbit%norbit))
1554 do ib=1,AEOrbit%norbit
1555 if (AEOrbit%iscore(ib)) then
1571 do ib=1,AEOrbit%norbit
1572 if (AEOrbit%iscore(ib)) then
1624 do ib=1,AEOrbit%norbit
1625 if (AEOrbit%iscore(ib)) then
[all …]
H A Dgraphatom.F9039 CALL Report_Graphatom('AE',Grid,AEOrbit,AEPot,AESCF)
58 CALL Report_Graphatom('NC',Grid,AEOrbit,AEPot,AESCF)
H A Dabinitinterface.F90244 type(OrbitInfo), intent(in) :: AEOrbit local
461 do ib=1,AEOrbit%norbit
476 do ib=1,AEOrbit%norbit
477 if (AEOrbit%iscore(ib)) then
532 do ib=1,AEOrbit%norbit
533 if (AEOrbit%iscore(ib)) then
2278 type(OrbitInfo), intent(in) :: AEOrbit local
2387 do ib=1,AEOrbit%norbit
2388 if (AEOrbit%iscore(ib)) then
2430 do ib=1,AEOrbit%norbit
[all …]
H A Dreport_mod.F90149 SUBROUTINE Report_AESCF(Grid,AEPot,AEOrbit) argument
152 TYPE(OrbitInfo), INTENT(IN) :: AEOrbit local