Searched refs:isgaft (Results 1 – 2 of 2) sorted by relevance
8189 static logical isgaft; in dograce_() local8226 isgaft = bit_test(*ipl,29); in dograce_()8228 normsp = ! isgaft; in dograce_()8467 if (isgaft) { in dograce_()8611 if (isgaft) { in dograce_()8916 if (isgaft && ! iswaft) { in dograce_()9066 if (isgaft && ! iswaft) { in dograce_()9117 if (isgaft && ! iswaft) { in dograce_()24637 isgaft = FALSE_; in make2bar_()24644 isgrace = isgrace || isgaft; in make2bar_()[all …]
5052 isgaft = btest(ipl,29)5054 normsp = .not. isgaft5207 if (isgaft) then5238 if (isgaft .and. naccg(ngs).eq.0) then5250 if (slurg(ig) .and. (iswaft.or.isgaft)) then5284 if (isgaft) then5508 if (isgaft .and. .not.iswaft) then15802 * isgaft,isarp,isrshft,isaccs,iscacc,16060 isgaft = .false.16064 isgrace = isgrace .or. isgaft[all …]