Searched refs:WORK2 (Results 1 – 3 of 3) sorted by relevance
8 REAL FUNCTION WORK2(I) function10 WORK2 = 2.0 * I12 END FUNCTION WORK222 Y(I) = Y(I) + WORK2(I)
4 SUBROUTINE WORK2() subroutine5 END SUBROUTINE WORK218 CALL WORK2()
44 INTEGER WORK1, WORK2, WORK3 local45 EXTERNAL WORK1, WORK2, WORK348 CALL INCR_PAIR(P, WORK1(), WORK2())