1 MODULE MAIN1
2      INTEGER , PARAMETER :: MXGLVL = 87
3      CHARACTER(8) :: SRCTYP
4      REAL :: GRIDWS(MXGLVL)
5      REAL :: ZI, HS
6    END MODULE MAIN1
7
8    PROGRAM TEST
9      USE MAIN1
10      IF (HS >= ZI) THEN
11      ELSEIF (      SRCTYP == 'AREA'     &
12               .OR. SRCTYP == 'AREAPOLY' &
13               .OR. SRCTYP == 'AREACIRC' &
14               .OR. SRCTYP == 'OPENPIT'   ) THEN
15         CALL ANYAVG (MXGLVL, GRIDWS)
16         CALL ANYAVG (MXGLVL, GRIDWS)
17      ELSE
18         IF ( HS > 0.0 ) THEN
19            CALL ANYAVG (MXGLVL, GRIDWS)
20            CALL ANYAVG (MXGLVL, GRIDWS)
21            CALL ANYAVG (MXGLVL, GRIDWS)
22         ENDIF
23      ENDIF
24      IF (HS.LT.ZI) THEN
25         ZI = HS
26      ENDIF
27    contains
28      SUBROUTINE ANYAVG(NLVLS,HTS)
29        INTEGER NLVLS
30        REAL HTS(NLVLS)
31        IF (5.LT.NLVLS) THEN
32           CALL GINTRP (HTS(5),HTS(5+1))
33        ENDIF
34        CALL GINTRP (HTS(5-1), HTS(5))
35      END SUBROUTINE ANYAVG
36
37      subroutine gintrp (x1, x2)
38        print *, x1, x2
39      end subroutine
40
41    END PROGRAM TEST
42