Searched refs:ixrest (Results 1 – 2 of 2) sorted by relevance
1844 if (ixrest(ivx) .eq. 4) then1850 ixrest(ivx) = 02751 if (ixrest(ivx) .eq. 1) then2816 ixrest(ivx) = 02823 if (ixrest(ivx) .eq. 1) then2844 ixrest(ivx) = 22865 ixrest(ivx) = 42943 if (ixrest(ivx).eq.2) nolev1(ivx) = 3090 if (ixrest(ivx) .eq. 2) ixrest(ivx) = 016980 ixrest(ivx) = 0[all …]
325 integer ixrest[24]; member3495 strtmid_1.ixrest[commvl_1.ivx - 1] = 0; in beamend_()4665 strtmid_1.ixrest[commvl_1.ivx - 1]); in beamstrt_()4679 strtmid_1.ixrest[commvl_1.ivx - 1] != 2) { in beamstrt_()5070 strtmid_1.ixrest[commvl_1.ivx - 1] = 0; in beamstrt_()5077 if (strtmid_1.ixrest[commvl_1.ivx - 1] == 1) { in beamstrt_()5103 strtmid_1.ixrest[commvl_1.ivx - 1] = 2; in beamstrt_()5127 strtmid_1.ixrest[commvl_1.ivx - 1] = 4; in beamstrt_()5485 strtmid_1.ixrest[commvl_1.ivx - 1] = 0; in beamstrt_()30487 strtmid_1.ixrest[commvl_1.ivx - 1] = 0; in pmxb_()[all …]