Searched refs:GRLJ03 (Results 1 – 1 of 1) sorted by relevance
648 INTEGER NB2(25), RNUM, RONUM, GRLJ03 local756 NBNUM2 = GRLJ03 (NBNUM)769 RNUM = GRLJ03 (ABS (RNUM)) + 1770 CNUM = GRLJ03 (ABS (CNUM)) + 1777 RNUM = GRLJ03 (ABS (RNUM)) + 1793 NBNUM2 = GRLJ03 (NBNUM)819 INTEGER FUNCTION GRLJ03 (I) function834 GRLJ03 = 4836 GRLJ03 = 3839 GRLJ03 = 2[all …]