1 * =watson11
.f in Burley
's g77 test suite.
2 * Probably originally submitted by Ian Watson.
3 * Too small to worry about copyright issues, IMO, since it
4 * doesn't
do anything substantive
.
5 SUBROUTINE OUTDNS
(A
,B
,LCONV
)
6 IMPLICIT REAL*8(A
-H
,O
-Z
),INTEGER*4
(I
-N
)
7 COMMON/ARRAYS
/Z
(64,8),AB
(30,30),PAIRS
(9,9),T
(9,9),TEMP
(9,9),C1
(3),
9 EQUIVALENCE
(X1
,C1
(1)),(Y1
,C1
(2)),(Z1
,C1
(3))
10 EQUIVALENCE
(X2
,C2
(1)),(Y2
,C2
(2)),(Z2
,C2
(3))
12 > SHIFT
,CONV
,SCION
,DIVERG
,
13 > IOPT
,KCNDO
,KINDO
,KMINDO
,I2EINT
,KOHNO
,KSLATE
,
14 > N
,NG
,NUMAT
,NSEK
,NELECS
,NIT
,OCCA
,OCCB
,NOLDAT
,NOLDFN
16 DIMENSION W
(N
),A
(N
,N
),B
(N
,N
)