Searched refs:hpttot (Results 1 – 2 of 2) sorted by relevance
1696 common /comhsp/ hpttot(176) local1746 write(outq(12:15),'(f4.1)')hpttot(ihs)19613 common /comhsp/ hpttot(176)19989 c compute additional pts and store them in hpttot(1...nhstot). Finally in20267 hpttot(nhstot) = max(hpts(ia)-hesk(ia)*poe,0.)21055 hpttot(nhstot) = max(hpts(ia)-hesk(ia)*poe,0.)
250 real hpttot[176]; member3301 do_fio(&c__1, (char *)&comhsp_1.hpttot[ihs - 1], (ftnlen)sizeof(real)) in askfig_()31191 comhsp_1.hpttot[nhstot - 1] = dmax(r__1,0.f); in pmxb_()32841 comhsp_1.hpttot[nhstot - 1] = dmax(r__1,0.f); in pmxb_()