| 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 |