Searched refs:poebar0 (Results 1 – 2 of 2) sorted by relevance
936 static real poebar0; in MAIN__() local2127 poestats_(&nsyst, poe0, &poebar0, &devnorm0); in MAIN__()2153 if (poe0[isysu - 1] < poebar0) { in MAIN__()2160 1] > poebar0) { in MAIN__()2179 poebar0 = poebar; in MAIN__()
996 call poestats(nsyst,poe0,poebar0,devnorm0)1014 if (poe0(isysu).lt.poebar0) go to 11018 * .or. poe0(isysd).gt.poebar0) go to 51032 poebar0 = poebar