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