45 lines
1.1 KiB
Fortran
45 lines
1.1 KiB
Fortran
MODULE MAIN1
|
|
INTEGER , PARAMETER :: MXGLVL = 87
|
|
CHARACTER(8) :: SRCTYP
|
|
REAL :: GRIDWS(MXGLVL)
|
|
REAL :: ZI, HS
|
|
END MODULE MAIN1
|
|
|
|
PROGRAM TEST
|
|
USE MAIN1
|
|
IF (HS >= ZI) THEN
|
|
ELSEIF ( SRCTYP == 'AREA' &
|
|
.OR. SRCTYP == 'AREAPOLY' &
|
|
.OR. SRCTYP == 'AREACIRC' &
|
|
.OR. SRCTYP == 'OPENPIT' ) THEN
|
|
CALL ANYAVG (MXGLVL, GRIDWS)
|
|
CALL ANYAVG (MXGLVL, GRIDWS)
|
|
ELSE
|
|
IF ( HS > 0.0 ) THEN
|
|
CALL ANYAVG (MXGLVL, GRIDWS)
|
|
CALL ANYAVG (MXGLVL, GRIDWS)
|
|
CALL ANYAVG (MXGLVL, GRIDWS)
|
|
ENDIF
|
|
ENDIF
|
|
IF (HS.LT.ZI) THEN
|
|
ZI = HS
|
|
ENDIF
|
|
contains
|
|
SUBROUTINE ANYAVG(NLVLS,HTS)
|
|
INTEGER NLVLS
|
|
REAL HTS(NLVLS)
|
|
IF (5.LT.NLVLS) THEN
|
|
CALL GINTRP (HTS(5),HTS(5+1))
|
|
ENDIF
|
|
CALL GINTRP (HTS(5-1), HTS(5))
|
|
END SUBROUTINE ANYAVG
|
|
|
|
subroutine gintrp (x1, x2)
|
|
print *, x1, x2
|
|
end subroutine
|
|
|
|
END PROGRAM TEST
|
|
! { dg-final { cleanup-modules "main1" } }
|
|
|
|
|