guanjihuan/guanjihuan.com
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update example.f90

Browse Source
This commit is contained in:
guanjihuan 2023-07-20 16:05:01 +08:00
parent 11852442db
commit e8b8723abd
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
language_learning/2023.07.19_include_and_use_in_fortran/example.f90
View File

@ -1,8 +1,8 @@
!this code is supported by the website: https://www.guanjihuan.com ! This code is supported by the website: https://www.guanjihuan.com
!the newest version of this code is on the web page: https://www.guanjihuan.com/archives/34966 ! The newest version of this code is on the web page: https://www.guanjihuan.com/archives/34966
module module_1 module module_1 ! 第一个模块
implicit none implicit none
contains ! 模块中包含以下子程序和函数 contains ! 模块中包含以下子程序和函数
@ -19,7 +19,7 @@ module module_1
end module module_1 end module module_1
include 'example_include_1.f90' include 'example_include_1.f90' ! include文件中包含第二个模块
program main program main
@ -51,9 +51,9 @@ write(*,*) 'test_3'
end subroutine subroutine_3 end subroutine subroutine_3
function function_3(x) result(y) ! 模块中的函数 function function_3(x) result(y)
double precision x, y double precision x, y
y = 8.d0*x y = 8.d0*x
end function function_3 end function function_3
include 'example_include_2.f90' include 'example_include_2.f90' ! include文件中包含第四个子程序和第四个函数