module mod
implicit none
private
integer,parameter :: natom = 10
public sub
contains
subroutine sub(a)
implicit none
real(8),intent(in) :: a
!
end subroutine sub
end module
!
program main
use mod
implicit none
!
call sub()
!
end program main
