Searched refs:nscmid (Results 1 – 2 of 2) sorted by relevance
35795 static integer nscmid; in setupb_() local35939 nscmid = nsc / 2 + 1; in setupb_()35940 i__2 = nscmid; in setupb_()35952 *smed = slope[nscmid - 1]; in setupb_()35957 if ((r__2 = slope[nscmid - 2], dabs(r__2)) < (r__1 = slope[nscmid in setupb_()35962 *smed = slope[nscmid - 2]; in setupb_()35963 } else if ((r__1 = slope[nscmid - 2] + slope[nscmid - 1], dabs( in setupb_()
22798 nscmid = nsc/2+122799 do 7 i = 1 , nscmid22807 smed = slope(nscmid)22812 if (abs(slope(nscmid-1)) .lt. abs(slope(nscmid))-tol) then22816 smed=slope(nscmid-1)22817 else if (abs(slope(nscmid-1)+slope(nscmid)) .lt. tol) then