Searched refs:lrptpend (Results 1 – 2 of 2) sorted by relevance
29658 static logical lrptpend; in pmxb_() local30461 lrptpend = FALSE_; in pmxb_()30979 lrptpend = lrpt && comask_1.bar1syst; in pmxb_()30980 if (lrpt && ! lrptpend) { in pmxb_()32425 if (lrptpend) { in pmxb_()32439 lrptpend = FALSE_; in pmxb_()
19601 logical upslur,bar1syst,vshrink,lrpt,rrpt,lrptpend,19806 lrptpend = .false.20157 lrptpend = lrpt.and.bar1syst20158 if (lrpt .and. .not.lrptpend) then20817 if (lrptpend) then20820 lrptpend = .false.