Module Mymodule
  Implicit None
  Private          ! ¸ðµçº¯¼öµéÀ» Áö¿ªº¯¼ö·Î ¼±¾ð
  Real :: a, b, c
  Public :: a,b    ! a, b ¸¸ Àü¿ªº¯¼ö·Î ¼±¾ð 
End Module Mymodule

Program Main
  Use Mymodule
  Implicit None

  a=1 ; b=2
  Call Sub
  Print *, "a, b in Main ", a, b
End Program Main

Subroutine Sub
  Use Mymodule
  Implicit None
  Real :: c=3
  Print *, "a, b, c in Main ", a, b, c
End Subroutine Sub