Searched defs:EA09C (Results 1 – 2 of 2) sorted by relevance
204 SUBROUTINE EA09C(A,B,VALUE,M,OFF) subroutine213 10 OFF(I)=B(I)223 20 CONTINUE225 30 IF(N2.NE.N1) GO TO 50226 40 CONTINUE231 50 BB=(VALUE(N2)-VALUE(N2-1))*0.5237 60 A22=VALUE(N1)257 70 A22=A22*CO-A21*SI258 80 VALUE(N2)=A22260 90 FORMAT(39H1LOOPING DETECTED IN EA09-STOPPING NOW )
933 SUBROUTINE EA09C(A,B,VALUE,M,OFF) subroutine962 10 CONTINUE967 20 CONTINUE973 30 CONTINUE975 40 IF (N2.NE.N1) THEN1008 50 CONTINUE