代码运行在simply fortran2下，复制，粘贴可直接运行看效果
!!!!!-------------------
! Fortran中函数分两类：子程序（subroutine）和自定义函数（function）。
! 自定义函数本质上就是一般数学上的函数，一般要传递自变量给自定义函数，返回函数值。
! 子程序不一定是这样，可以没有返值也可以多个返回值。
! func能做到的事，sub一定能做到。
! 传递参数要注意类型的对应，这跟C是一样的。
!!!!!-------------------
!!!!!!!!!
! Module不是函数。它用于封装程序模块，一般是把具有相关功能的函数及变量封装在一起
! 。用法很单，但能提供很多方便，使程序变得简洁，比如使用全局变量不必每次都声明一长串，
! 写在odule里调用就行了。Module一般写在主程序开始之前。
!!!!!!!!!
program helloworld
use opModule
! 在主程序或函数中使用时，需要在声明之前先写上一行：
! use module_name.
implicit none
real(kind = 4):: a = 2.0, b = 3.0, add_result = 0.0
interface ! 声明函数调用接口，sub无需声明可直接调用
real(kind=4) function add_func(a, b)
implicit none
real(kind=4) :: a, b
end function add_func
end interface
! 注意sub的调用方式 call subname(╬aram1, ...)
call add_sub(a, b, add_result)
Print *, "Hello World!", add_result, add_func(a, b)
call prtHi()
print*, M_add_func(2.3, 4.3), M_result
end program helloworld
subroutine add_sub(a, b, add_result)
implicit none
real(kind=4) :: a, b, add_result
add_result = a + b;
end subroutine add_sub
real(kind=4) function add_func(a, b)
implicit none
real(kind=4) :: a, b
add_func = a + b
end function add_func
!!!!!!
! Module中有函数时必须在contains命令之后（即在某一行写上contains然后下
! 面开始写函数）。并且module中定义过的变量在module里的
! 函数中可直接使用，函数之间也可以直接相互调用(包括主程序或其他包含module的子函数中)，
! 连module中的自定义函数在被调用时也不用先声明。
!!!!!!
module opModule
real(kind = 4) :: M_result
contains
subroutine prtHi()
implicit none
print *, 'hello fortran, hello 2016.11.16 10:55'
end subroutine prtHi
real(kind=4) function M_add_func(a, b)
implicit none
real(kind=4) :: a, b
M_result = a + b
M_add_func = M_result
end function M_add_func
end module opModule
a) 可分配数组
数组可以是静态的也可以是动态的。如果数组是静态的，则在编译时就被分配了固定的储存空间，并且直到程序退出时才被释放。程序运行时静态数组的大小不能改变。静态数组的缺陷是，即使数组已经
使用
完毕，它仍占据着内存空间，浪费了系统资源。在给定的计算机内存资源情况下，耗费了其他数组可以利用的内存，并且超过资源的数组将导致程序执行错误。因此，F90增加了动态的数
Fortran
程序需要用到
module
，
使用
的是VS2008 + Intel
Fortran
组合。程序在这个组合下面能够完美运行，但是用ifort编译的时候就遇到各种错误，说什么： Error in opening the compiled
module
file. Check INCLUDE paths. [LO]
这里的LO是我的一个
module
。我个人猜测原因可能是
module
一开始就声明了...
https://www.cnblogs.com/qianjiashi/articles/13667334.html
二者均是被program调用，完成一定的任务，但是二者有明显的不同:
1.
subroutine
不需要在program
中
声明，但是在调用时必须用Call命令；与此相反，
function
必须在program
中
声明，在调用时不用任何命令，因为函数名本身就是命令；
2.
subroutine
可以不返回什么结果，但是
function
必须返回计算结果。
function
声明格式， rea...
吐槽：作为一个
Fortran
语言的初学者，本人深刻体会到
fortran
对于像我这样母语是C 的编程小白的强烈不友好！几天不碰，想要实现一个小小的功能就举步维艰。所以我觉得还是要多总结，今天闲来无事，就对 moudle/
subroutine
/
function
这些用法做一个
简单
的小结8！
知识点什么的，书上，网上一大堆，所以就不在这里多费笔墨了，这里主要讲一个
简单
的例子。
在优化程序的过程
中
发现其
中
存在大量的派生类型变量(type)，同时发现
Fortran
子程序可以接受type类型数组
中
元素，即将type类型
中
元素当作独立的数组传递。传递过程如下所示:...
为了测试派生类型数组传递的速度，编写如下程序进行对比
module
更改不同的num值可以得到程序耗时结果，从表格
中
可以看出传递type数组
中
元素所耗时间是直接传递数组所需时间的3倍，当然两种数组的大小应该在10...
