Searched defs:RC6J (Results 1 – 1 of 1) sorted by relevance
212 CALL XERMSG('SLATEC','RC6J','Dimension of result array for 6j '// argument219 23 L1 = L1MIN226 30 LSTEP = LSTEP + 1245 31 C1OLD = ABS(C1)252 1 / NEWFAC305 100 CONTINUE329 110 LSTEP = LSTEP + 1388 200 Y3 = Y406 211 NLIM = NLIM + 1413 220 SUMUNI = SUM1[all …]