Searched refs:KINDCT (Results 1 – 1 of 1) sorted by relevance
| /dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/abacus/ |
| H A D | abandsym.F | 819 CALL FNDSTB(COOR,ATMTRA,TRAMTX,TMPTRA,TMPVEC,NSTBCT,KINDCT,IPRINT)
930 DO 2101 ICENT = 1, KINDCT
1120 SUBROUTINE FNDSTB(COOR,ATMTRA,TRAMTX,TMPTRA,TMPVEC,NSTBCT,KINDCT, argument
1213 KINDCT = 0
1219 DO 1500 IINDCT = 1, KINDCT
1225 KINDCT = KINDCT + 1
1226 NSTBCT(KINDCT) = IATOM
1269 DO IINDCT = 1, KINDCT
|