| module mod | |
| implicit none | |
| type point | |
| double precision x, y, z | |
| end type | |
| type(point) :: variable !8,18,8 | |
| private :: variable | |
| contains | |
| subroutine setVariable(value) | |
| implicit none | |
| type(point), intent(in) :: value | |
| variable = value | |
| end subroutine | |
| type(point) function getVariable() | |
| implicit none | |
| getVariable = variable | |
| end function | |
| end module | |
| program encap1 | |
| use mod | |
| implicit none | |
| print *,getVariable() | |
| call setVariable(point(1.0, 2.0, 3.0)) | |
| print *,getVariable() | |
| end program encap1 |