3 C PR rtl-optimization/25603
4 C Check if reload handles REG_INC notes correctly.
6 IMPLICIT REAL (A
-H
, O
-Z
)
11 CALL BAR1
(NX
,NY
,NZ
,NT
,NTIME
,NWINDX
,NWINDY
,NSINKS
,NFILT
,
12 *XSTART
,YSTART
,ZSTART
,TSTART
,DELTAX
,DELTAY
,DELTAZ
,DELTAT
,PHI
,DL
,
13 *DX
,DY
,DZ
,WORK
,IB
,IK
,ITY
,NCOUNT
,NPRINT
,NGRAPH
,NPSTEP
,NGSTEP
)
17 SUBROUTINE BAR2
(NX
,NY
,NZ
,NT
,NTIME
,NWINDX
,ISH
,NSMT
,NFILT
,
18 * XSTART
,YSTART
,ZSTART
,TSTART
,DELTAX
,DELTAY
,DELTAZ
,DELTAT
,PHI
,DL
,
19 * DX
,DY
,DZ
,IB
,IK
,ITY
,NCOUNT
,NPRINT
,NGRAPH
,NPSTEP
,NGSTEP
,LFINAL
,
20 * C
,STEPC
,POTT
,STEPT
,UX
,STEPU
,VY
,STEPV
,WZ
,PRES
,STEPP
,Q
,DKZM
,DKZH
,
21 * ELEV
,ELEVX
,ELEVY
,Z0
,HMIX
,STEPH
,TAVR
,OBUK
,USTR
,TSTR
,VDEP
,DEP
,
22 * ZET
,HVAR
,UM
,VM
,UG
,VG
,TM
,DKM
,DCDX
,DCDY
,AN
,BN
,CN
,HELP
,HELPA
)
23 IMPLICIT REAL (A
-H
, O
-Z
)
25 DIMENSION C
(*),STEPC
(*),POTT
(*),STEPT
(*),UX
(*),STEPU
(*),
26 * VY
(*),STEPV
(*),WZ
(*),PRES
(*),STEPP
(*),Q
(*),DKZM
(*),DKZH
(*),
27 * ELEV
(*),ELEVX
(*),ELEVY
(*),Z0
(*),HMIX
(*),STEPH
(*),TAVR
(*),
28 * OBUK
(*),USTR
(*),TSTR
(*),VDEP
(*), DEP
(*),ZET
(*),HVAR
(*),
29 * UM
(*),VM
(*),UG
(*),VG
(*),TM
(*),DKM
(*), DCDX
(*),DCDY
(*),
30 * AN
(*),BN
(*),CN
(*),HELP
(*),HELPA
(*)
36 SUBROUTINE BAR1
(NX
,NY
,NZ
,NT
,NTIME
,NWINDX
,NWINDY
,NSINKS
,NFILT
,
37 *XSTART
,YSTART
,ZSTART
,TSTART
,DELTAX
,DELTAY
,DELTAZ
,DELTAT
,PHI
,DL
,
38 *DX
,DY
,DZ
,WORK
,IB
,IK
,ITY
,NCOUNT
,NPRINT
,NGRAPH
,NPSTEP
,NGSTEP
)
40 IMPLICIT REAL (A
-H
, O
-Z
)
43 if (XSTART
.NE
. 201.0) then
89 CALL BAR2
(NX
,NY
,NZ
,NT
,NTIME
,NWINDX
,NWINDY
,NSINKS
,NFILT
,XSTART
,
90 * YSTART
,ZSTART
,TSTART
,DELTAX
,DELTAY
,DELTAZ
,DELTAT
,PHI
,DL
,
91 * DX
,DY
,DZ
,IB
,IK
,ITY
,NCOUNT
,NPRINT
,NGRAPH
,NPSTEP
,NGSTEP
,LAST
,
92 * WORK
(LC
),WORK
(LCSTEP
),WORK
(LPOT
),WORK
(LTSTEP
),WORK
(LUX
),
93 * WORK
(LUSTEP
),WORK
(LVY
),WORK
(LVSTEP
),WORK
(LWZ
),WORK
(LPI
),
94 * WORK
(LPSTEP
),WORK
(LQ
),WORK
(LDKZM
),WORK
(LDKZH
),WORK
(LELEV
),
95 * WORK
(LELEVX
),WORK
(LELEVY
),WORK
(LZ0
),WORK
(LHMIX
),WORK
(LSTEPH
),
96 * WORK
(LTAVR
),WORK
(LOBUK
),WORK
(LUSTR
),WORK
(LTSTR
),WORK
(LVDEP
),
97 * WORK
(LDEP
),WORK
(LZET
),WORK
(LHVAR
),WORK
(LUM
),WORK
(LVM
),WORK
(LUG
),
98 * WORK
(LVG
),WORK
(LTM
),WORK
(LKM
),WORK
(LDCDX
),WORK
(LDCDY
),WORK
(LAN
),
99 * WORK
(LBN
),WORK
(LCN
),WORK
(LHELP
),WORK
(LHELPA
))