Searched defs:CDNTP (Results 1 – 2 of 2) sorted by relevance
| /dports/math/cmlib/cmlib-3.0_8/src/cdriv/ |
| H A D | cdntp.f | 1 SUBROUTINE CDNTP (H,K,N,NQ,T,TOUT,YH,Y) subroutine
20 10 Y(I) = YH(I,NQ+1)
25 20 Y(I) = YH(I,J) + R*Y(I)
29 40 FACTOR = FACTOR*REAL(NQ+1-KK)
31 50 Y(I) = FACTOR*YH(I,NQ+1)
38 60 FACTOR = FACTOR*REAL(J-KK)
40 70 Y(I) = FACTOR*YH(I,J) + R*Y(I)
41 80 CONTINUE
44 100 Y(I) = Y(I)*H**(-KUSED)
|
| /dports/math/slatec/src/ |
| H A D | cdntp.f | 2 SUBROUTINE CDNTP (H, K, N, NQ, T, TOUT, YH, Y) subroutine
28 10 Y(I) = YH(I,NQ+1)
33 20 Y(I) = YH(I,J) + R*Y(I)
38 40 FACTOR = FACTOR*(NQ+1-KK)
40 50 Y(I) = FACTOR*YH(I,NQ+1)
46 60 FACTOR = FACTOR*(J-KK)
48 70 Y(I) = FACTOR*YH(I,J) + R*Y(I)
49 80 CONTINUE
51 100 Y(I) = Y(I)*H**(-KUSED)
|