Searched refs:nudsp (Results 1 – 2 of 2) sorted by relevance
1102 common /comudsp/udsp(50),tudsp(50),nudsp,udoff(nm,20),nudoff(nm)1108 do 1 iudsp = 1 , nudsp13191 udoff(ivx,nudoff(ivx)) = udsp(nudsp)13192 nudsp = nudsp-113708 udoff(ivx,nudoff(ivx)) = udsp(nudsp)13709 nudsp = nudsp-114424 nudsp = nudsp+114426 udsp(nudsp) = fnum14427 tudsp(nudsp) = itsofar14428 if (ntup .gt. 0) tudsp(nudsp) = tudsp(nudsp)[all …]
142 integer nudsp; member2375 i__1 = comudsp_1.nudsp; in addask_()20313 * 24 - 25] = comudsp_1.udsp[comudsp_1.nudsp - 1]; in getnote_()20314 --comudsp_1.nudsp; in getnote_()21076 * 24 - 25] = comudsp_1.udsp[comudsp_1.nudsp - 1]; in getnote_()21077 --comudsp_1.nudsp; in getnote_()22136 ++comudsp_1.nudsp; in getx_()22138 comudsp_1.udsp[comudsp_1.nudsp - 1] = fnum; in getx_()22139 comudsp_1.tudsp[comudsp_1.nudsp - 1] = (real) (*itsofar); in getx_()22141 comudsp_1.tudsp[comudsp_1.nudsp - 1] += (real) (*itup - 1 + * in getx_()[all …]