Searched refs:ipxt1 (Results 1 – 2 of 2) sorted by relevance
35786 static integer ipxt1; in setupb_() local35833 ipxt1 = 0; in setupb_()35862 if (ipxt1 == 0 && all_1.nodur[commvl_1.ivx + ip * 24 - 25] == 0) { in setupb_()35867 ipxt1 = ip; in setupb_()35873 } else if (ipxt1 > 0 && all_1.nodur[commvl_1.ivx + ip * 24 - 25] > 0) in setupb_()35879 * 24 - 25] = ip + 1 - ipxt1; in setupb_()35889 ipxtmid = (ip + ipxt1) / 2; in setupb_()35892 24 - 25] - comeskz2_1.eskz2[commvl_1.ivx + ipxt1 * 24 - in setupb_()35901 ipxt1 = 0; in setupb_()
22715 ipxt1 = 022740 if (ipxt1.eq.0 .and. nodur(ivx,ip).eq.0) then22745 ipxt1 = ip22751 else if (ipxt1.gt.0 .and. nodur(ivx,ip).gt.0) then22755 ntupv(ivx,nxtinbm(ivx)) = ip+1-ipxt122763 ipxtmid = (ip+ipxt1)/222764 eloff(ivx,nxtinbm(ivx)) = eskz2(ivx,ipxtmid)-eskz2(ivx,ipxt1)22768 ipxt1 = 0