The Meson Build System
http://mesonbuild.com/
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
215 B
19 lines
215 B
5 years ago
|
MODULE geom
|
||
|
|
|
||
|
|
type :: circle
|
||
|
|
REAL :: Pi = 4.*atan(1.)
|
||
|
|
REAL :: radius
|
||
|
|
end type circle
|
||
|
|
END MODULE geom
|
||
|
|
|
||
|
|
PROGRAM prog
|
||
|
|
|
||
|
|
use geom, only : circle
|
||
|
|
IMPLICIT NONE
|
||
|
|
|
||
|
|
type(circle) :: ell
|
||
|
|
|
||
|
|
ell%radius = 3.
|
||
|
|
|
||
|
|
END PROGRAM prog
|