Searched refs:KSOURCES (Results 1 – 1 of 1) sorted by relevance
| /dports/science/dalton/dalton-66052b3af5ea7225e31178bf9a8b031913c72190/DALTON/rsp/ |
| H A D | rspief.F | 977 CALL PCM_READ_MM_INDIP(NOSIMMM, KXMM, KYMM, KZMM, KSOURCES,
983 JSOURCES = KSOURCES + 3 * (I-1) * NSOURCES
1039 SUBROUTINE PCM_READ_MM_INDIP(NOSIMMM, KXMM, KYMM, KZMM, KSOURCES, argument
1059 KSOURCES = KZMM + NSOURCES * NOSIMMM
1060 KFREE = KSOURCES + 3 * NSOURCES * NOSIMMM
1070 & WORK(KSOURCES + 3 * L - 3 ),
1071 & WORK(KSOURCES + 3 * L - 2 ),
1072 & WORK(KSOURCES + 3 * L - 1 )
|