Searched refs:ptsndg (Results 1 – 2 of 2) sorted by relevance
24189 static real eskndg[24], ptsndg[24]; in make2bar_() local26443 ptsndg[commvl_1.ivx - 1] = 0.f; in make2bar_()26445 ptsndg[commvl_1.ivx - 1] = ptsneed; in make2bar_()26743 all_1.nn[commvl_1.ivx - 1] * 24 - 25],31)) && ptsndg[ in make2bar_()26746 if (ptsndg[commvl_1.ivx - 1] > comnsp_2.ptsgnd) { in make2bar_()26747 comnsp_2.ptsgnd = ptsndg[commvl_1.ivx - 1]; in make2bar_()
15804 real*4 ptgr(37),ptclef(nm),ptsndg(nm),eskndg(nm),tstart(80),17212 ptsndg(ivx) = 0.17214 ptsndg(ivx) = ptsneed17397 * .and. ptsndg(ivx).gt.0.) then17399 if (ptsndg(ivx) .gt. ptsgnd) then17400 ptsgnd = ptsndg(ivx)