Searched refs:ibasis_add (Results 1 – 1 of 1) sorted by relevance
| /dports/science/atompaw/atompaw-4.1.1.0/src/ |
| H A D | pseudo.F90 | 1103 INTEGER :: i,j,k,io,ok,nbl,nr,nodes,ib,loop,niter,iter,ibasis_add local
1154 nbase=0 ; ibasis_add=1
1194 IF (ibasis_add>input_dataset%nbasis_add) EXIT generalizedloop
1195 IF (input_dataset%basis_add_l(ibasis_add)/=l) EXIT generalizedloop
1196 energy=input_dataset%basis_add_energy(ibasis_add)
1228 ibasis_add=ibasis_add+1
|