Searched refs:nolev1 (Results 1 – 2 of 2) sorted by relevance
4840 --comxtup_1.nolev1[commvl_1.ivx - 1]; in beamstrt_()4843 comxtup_1.nolev1[commvl_1.ivx - 1] += 4; in beamstrt_()4845 levbracket = comxtup_1.nolev1[commvl_1.ivx - 1]; in beamstrt_()5137 comxtup_1.nolev1[commvl_1.ivx - 1] += iadj; in beamstrt_()8188 static integer nolev1; in dograce_() local8695 nolev1 = i_nint(&beta); in dograce_()8765 notefq_(noteq, &lnoten, &nolev1, ncm, (ftnlen)8); in dograce_()35569 *nolev1 = i_nint(&beta); in setbm2_()35590 r__1 = *nolev1 + iul * deficit; in setbm2_()35591 *nolev1 = i_nint(&r__1); in setbm2_()[all …]
2705 if (islope(ivx) .eq. 0) nolev1(ivx) = nolev1(ivx)-12706 if (iup .eq. 1) nolev1(ivx) = nolev1(ivx)+42874 nolev1(ivx) = nolev1(ivx)+iadj2905 c level is nolev1. So beam level is nolev1 +/- 6, to be compared w/ nolev(.,.).5332 nolev1 = nint(beta)22518 nolev1 = nint(beta)22532 nolev1 = nint(nolev1+iul*deficit)22844 nolev1(ivx) = nint(beta)22854 yb1 = nolev1(ivx)22874 nolevo = nolev1(ivx)[all …]