1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
|
module class_circle2
implicit none
private
public :: main
real :: pi = 3.1415926535897931d0 ! Class-wide private constant
type, public :: Circle
real :: radius
contains
procedure :: circle_area !=> circle_area ! Can you point to implementation in diff module?
procedure :: circle_print
end type Circle
contains
real function circle_area(this)
class(Circle), intent(in) :: this
circle_area = pi * this%radius**2
end function circle_area
subroutine circle_print(this)
class(Circle), intent(in) :: this
real :: area
area = this%circle_area() ! Call the type-bound function
print *, 'Circle: r = ', this%radius, ' area = ', area
end subroutine circle_print
subroutine main()
type(Circle) :: c ! Declare a variable of type Circle.
c = Circle(1.0) ! Use the implicit constructor, radius = 1.5.
c%radius = 1.5
call c%circle_print ! Call the type-bound subroutine
end subroutine
end module
program circle_test
use class_circle2, only: main
implicit none
call main()
end program
|
