＜MODULE Example Program＞

Module set
  Integer :: node = 0
  Real :: coord = 10.
End Module
Program module_example
  Use set
  Print *, node,coord
  Call sub()
  Print *, node,coord
End Program
Subroutine sub()
  Use set
  node = 5
  coord = 20.
End Subroutine

■ Execution Results

 0  10.0000000
 5  20.0000000