Searched refs:levmidacc (Results 1 – 2 of 2) sorted by relevance
6575 static integer i__, j, k, levmidacc, ip, ir, is, it, maxmanshft, icrd; in crdaccs_() local6823 levmidacc = nolev; in crdaccs_()6827 if (*levmaxacc != levmidacc + 1 && levmidacc != *levminacc + 1) { in crdaccs_()
4135 levmidacc = nolev 4138 if (levmaxacc.ne.levmidacc+1 .and. 4139 * levmidacc.ne.levminacc+1) then