Trailing-Edge
-
PDP-10 Archives
-
decus_20tap1_198111
-
decus/20-0025/rkpbx.for
There is 1 other file named rkpbx.for in the archive. Click here to see a list.
C THE PROGRAM RKPBD.F4 IS A SAMPLE PROGRAM,WHEN USED IN
C CONJUNCTION WITH RKPBX(LOADED AND SAVED AS RKPBD.SAV)
C WILL PRODUCE A RUNNING EXAMPLE OF THE USE OF RKPBX.
SUBROUTINE RKPB2 ( TEMP,X,DX,Y,F,N)
DIMENSION TEMP(1),Y(1),F(1),RKCON(4)
401 M=N+1
RKCON(1)=1.0
RKCON(2)=2.0
RKCON(3)=2.0
RKCON(4)=1.0
X=TEMP(2*M+1)
DO 421 I=2,M
IP2M=I+2*M
Y(I-1)=TEMP(IP2M)
IP3M=IP2M+M
F(I-1)=TEMP(IP3M)
421 TEMP(I)=0.0
DO 491 J=1,4
DO 441 I=2,M
IPM=I+M
TEMP(IPM)=F(I-1)*DX
441 TEMP(I)=TEMP(I)+TEMP(IPM)*RKCON(J)
IF(J-4) 451,501,5001
451 X=TEMP(2*M+1)+DX/RKCON(J+1)
DO 461 I=2,M
IPM=I+M
IP2M=IPM+M
461 Y(I-1)=TEMP(IP2M)+TEMP(IPM)/RKCON(J+1)
CALL DERIV
491 CONTINUE
501 X=TEMP(2*M+1)+DX
DO 521 I=2,M
IP2M=I+2*M
521 Y(I-1)=TEMP(IP2M)+TEMP(I)/6.0
5001 RETURN
END
SUBROUTINE RKPB1 ( TEMP,X,DX,Y,F,N)
DIMENSION TEMP(1),Y(1),F(1)
101 M=N+1
TEMP(2*M+1)=X
DO 121 I=2,M
IP2M=I+2*M
121 TEMP(IP2M)=Y(I-1)
CALL DERIV
TEMP(3*M+1)=DX
DO 141 I=2,M
IP3M=I+3*M
141 TEMP(IP3M)=F(I-1)
5001 RETURN
END
CCCCCCCCCCCCCCCCCCCCCCCCCC