Sign in
eclipse
/
cdt
/
org.eclipse.cdt
/
73491800acb052b9e538fdf93d5f38a89dbbe56d
/
.
/
build
/
org.eclipse.cdt.managedbuilder.core.tests
/
resources
/
test30Projects
/
CDTFortranTest1
/
MAIN.F90
blob: 86bcf7a442553cdcd9934a663faa9c19b6179e9e [
file
] [
log
] [
blame
]
PROGRAM MAIN
USE AVE_CALCULATOR
INTEGER
::
AVE
INTEGER
,
DIMENSION
(
3
)
::
ENTERED
=
0
PRINT
*,
'Type three integers: '
READ
(*,
'(I10)'
)
ENTERED
AVE
=
AVERAGE
(
ENTERED
)
PRINT
*,
'Answer is: '
,
AVE
END
PROGRAM MAIN