主题：求大神f90程序
8013
[专家分：0] 发布于 2014-12-23 15:48:37
急需一个包含循环结构选择结构数组子程序打开文件的程序fortran，五十行左右，求助大神
回复列表 （共1个回复）
沙发
lixingwang0913 [专家分：30] 发布于 2014-12-23 20:59:08
program test
implicit none
character(8) :: cmark='read'
!数组
integer :: inod(3), i, n=7
!循环
do i=1,3
inod(i) = i
end do
!选择
select case (n)
case(0)
print*, 'zero'
case default
print*, 'non-zero'
end select
call writefile(inod,n)
end program
!子程序
subroutine writefile(inod,n)
integer inod(3), n
! 打开文件
open(11,file='1.txt')
write(11,*) inod, n
close(11)
end subroutine
我来回复
您所在位置：社区首页 — Fortran讨论区 — 求大神f90程序