Searched refs:jkseq (Results 1 – 1 of 1) sorted by relevance
| /dports/science/xtb/xtb-6.4.1/src/ |
| H A D | symtranslib.f90 | 66 & jkseq(2,natoms),ictnr(natoms,ndi14),ictt,& local
132 jkseq(1,i)=0
133 jkseq(2,i)=0
136 if (i.eq.ict(j,k).and.jkseq(1,i).eq.0) then
137 jkseq(1,i)=j
138 jkseq(2,i)=k
146 if (jkseq(1,i).eq.0) then
|