windows平台下fortran编程使用子程序subroutine

1、关于codeblocks IDE的极速安装请参考百度经验<<Windows下极速搭建fortran开发环境>>

2、子程序的一般形式：subroutine xxxx（参数1，参数2.....) implicit none 参数1类型 参数2类型 xxxxxx代码endsubroutine 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的关键字containscontains是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