Searched refs:naccg (Results 1 – 2 of 2) sorted by relevance
5202 if (naccg(ngs) .gt. 0) then5213 call accsym(naccg(ngs),acsymq,lacc)5417 if (naccg(ngs) .eq. 0) then5482 if (naccg(ing).gt.0) then10745 naccg(ing) = 010761 if (naccg(ing) .eq. 0) then10762 naccg(ing) = index('fsn',durq)10767 naccg(ing) = ibset(naccg(ing),2)12708 c naccg(ing) = 012724 c if (naccg(ing) .eq. 0) then[all …]
537 integer naccg[74]; member8461 if (comgrace_1.naccg[ngs - 1] > 0) { in dograce_()8528 if (isgaft && comgrace_1.naccg[ngs - 1] == 0) { in dograce_()8674 if (ing > ngs && comgrace_1.naccg[ing - 1] > 0) { in dograce_()8877 if (comgrace_1.naccg[ngs - 1] == 0) { in dograce_()8913 if (comgrace_1.naccg[ing - 1] > 0) { in dograce_()9019 if (comgrace_1.naccg[ing - 1] > 0) { in dograce_()16924 comgrace_1.naccg[ing - 1] = 0; in getgrace_()16944 if (comgrace_1.naccg[ing - 1] == 0) { in getgrace_()16951 comgrace_1.naccg[ing - 1] = bit_set(comgrace_1.naccg[ing in getgrace_()[all …]