1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
SUBROUTINE FORM22 (UDDIP1, UDIPRM, UIPRM, PIPRM, IBUF)
C*******
C FORM22 GENERATES THE VECTORS NECESSARY TO CHANGE THE TIME STEP
C
C THIS ROUTINE IS SUITABLE FOR DOUBLE PRECISION OPERATION
C*******
DOUBLE PRECISION UDDIP1(1), UDIPRM(1), UIPRM(1), PIPRM(1)
C
DIMENSION IBUF(1)
C
COMMON /TRDXX / IFILK(7) ,IFILM(7) ,IFILB(7)
C*******
C FORM UDOT(I+1), UDDOT(I+1), UDOT-(I), AND U-(I)
C*******
CALL MATVC2(UDDIP1(1),PIPRM(1),IFILM(1),IBUF)
CALL MATVC2(UDIPRM(1),PIPRM(1),IFILB(1),IBUF)
CALL MATVC2(UIPRM(1),PIPRM(1),IFILK(1),IBUF)
RETURN
END
|
