1、关于codeblocks IDE的极速安装
请参考百度经验<<Windows下极速搭建fortran开发环境>>
2、子程序的一般形式：
subroutine xxxx（参数1，参数2.....)
implicit none
参数1类型
参数2类型
xxxxxx代码
end subroutine xxxx
3、编写子程序
传入2个参数
其中一个是字符串
另一个是整数
循环整数次，打印字符串
程序结束时改变传入的整数值
传入的参数有如下三种形式：
intent(in)：在子程序中不可改变值
intent(out)：可在子程序中改变
intent(inout)：可在子程序中改变
=====================================
!子程序
subroutine dy2003310(strFileName, times)
implicit none
character(*),intent(in)::strFileName
integer,intent(inout)::times
integer::i
do i=1,times
print *, strFileName
end do
times=times+times
end subroutine dy2003310
4、使用fortran的关键字contains
contains是Fortran 90中新增的一个语法功能
在module或者subroutine中
可以用contains来包含其他的module或者subroutine
5、编写主程序
测试子程序是否能够改变传入的参数
implicit none
character(len=255)::str
integer::n
str="168"
n=3
print *, "*****************************************"
print *, "子程序运行之前，n=",n
call dy2003310(str,n)
print *, "子程序运行之后，n=",n
print *, "*****************************************"
6、在codeblocks中编译、链接：
7、运行、测试结果如下
可以看到：
子程序调用前参数2等于3
调用后变成了6
