prigram main
...... ......
call p1()
call p2()
..........
contains
subroutine p1()
............
end subroutine p1
subroutine p2()
............
end subroutine p2
end
! 子程序中的变量无需重新说明，变量值无需通过哑实结合传递。
elemental代表的是你可以传数组给这个函数，而这个函数会一个一个地处理这个数组的，并且是相互独立的（可并行）
external代表这后面声名的子程序是在别处定义的，不属于当前子程序的内部子程序
contains代表下面的子程序和函数包含在当前的“物件”里，属于当前“物件”的内部子程序或函数,而这个“物件”可以是子程序、函数或者是模块等等
