Searched refs:stemshort (Results 1 – 2 of 2) sorted by relevance
24134 static real stemshort; in make2bar_() local26091 stemshort = 4.66f - (igetbits_(&all_1.mult[ in make2bar_()26101 do_fio(&c__1, (char *)&stemshort, (ftnlen)sizeof(real) in make2bar_()
16955 stemshort = 4.66-.667*(igetbits(mult(ivx,ip),3,28)+1)*.516957 write(notexq,'(f4.2)')stemshort