【これ、中学1年が理解できると思いますか?】
program main ! 主プログラム(プログラム単位)
implicit none
integer i ! 宣言部
i = 99 ! 実行部
call mysub(i) ! 内部副プログラムを呼び出している
contains ! contains 文で区切る
subroutine mysub(a) ! 内部副プログラム
integer a
print *, a
end subroutine mysub
subroutine my2ndSub(a) ! 複数定義する場合はこのように続ければ良い
integer a
print *, a*2
end subroutine my2ndSub
end program main