36 |
C ORIGINAL : 88-12-15 |
C ORIGINAL : 88-12-15 |
37 |
C |
C |
38 |
C----------------------------------------------------------------------- |
C----------------------------------------------------------------------- |
39 |
REAL*8 O1H, O2H |
DOUBLE PRECISION O1H, O2H |
40 |
PARAMETER (O1H=2230.) |
PARAMETER (O1H=2230.) |
41 |
PARAMETER (O2H=100.) |
PARAMETER (O2H=100.) |
42 |
REAL*8 RPIALF0 |
DOUBLE PRECISION RPIALF0 |
43 |
PARAMETER (RPIALF0=2.0) |
PARAMETER (RPIALF0=2.0) |
44 |
C |
C |
45 |
C* ARGUMENTS: |
C* ARGUMENTS: |
46 |
C |
C |
47 |
REAL*8 PUU(KDLON,NUA) |
DOUBLE PRECISION PUU(KDLON,NUA) |
48 |
REAL*8 PTT(KDLON,NTRA) |
DOUBLE PRECISION PTT(KDLON,NTRA) |
49 |
REAL*8 PGA(KDLON,8,2) |
DOUBLE PRECISION PGA(KDLON,8,2) |
50 |
REAL*8 PGB(KDLON,8,2) |
DOUBLE PRECISION PGB(KDLON,8,2) |
51 |
C |
C |
52 |
C* LOCAL VARIABLES: |
C* LOCAL VARIABLES: |
53 |
C |
C |
54 |
REAL*8 zz, zxd, zxn |
DOUBLE PRECISION zz, zxd, zxn |
55 |
REAL*8 zpu, zpu10, zpu11, zpu12, zpu13 |
DOUBLE PRECISION zpu, zpu10, zpu11, zpu12, zpu13 |
56 |
REAL*8 zeu, zeu10, zeu11, zeu12, zeu13 |
DOUBLE PRECISION zeu, zeu10, zeu11, zeu12, zeu13 |
57 |
REAL*8 zx, zy, zsq1, zsq2, zvxy, zuxy |
DOUBLE PRECISION zx, zy, zsq1, zsq2, zvxy, zuxy |
58 |
REAL*8 zaercn, zto1, zto2, zxch4, zych4, zxn2o, zyn2o |
DOUBLE PRECISION zaercn, zto1, zto2, zxch4, zych4, zxn2o, zyn2o |
59 |
REAL*8 zsqn21, zodn21, zsqh42, zodh42 |
DOUBLE PRECISION zsqn21, zodn21, zsqh42, zodh42 |
60 |
REAL*8 zsqh41, zodh41, zsqn22, zodn22, zttf11, zttf12 |
DOUBLE PRECISION zsqh41, zodh41, zsqn22, zodn22, zttf11, zttf12 |
61 |
REAL*8 zuu11, zuu12, za11, za12 |
DOUBLE PRECISION zuu11, zuu12, za11, za12 |
62 |
INTEGER jl, ja |
INTEGER jl, ja |
63 |
C ------------------------------------------------------------------ |
C ------------------------------------------------------------------ |
64 |
C |
C |