＜END MODULE Example Program＞

Module set
  Integer :: node
  Real :: coord = 10.
End Module
Program end_module_example
  Use set
  Call sub1()
  Print *, node,coord
  Call sub2()
  Print *,node,coord
End Program
Subroutine Sub1()
  Use set
  node = 5
  coord = 20.
End Subroutine
Subroutine sub2()
  node = 7
  coord = 30.
End Subroutine

■ Execution Results

 5  20.0000000
 5  20.0000000