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