臭石头雪球
1963
12
5
论坛跑堂
program test1 implicit none integer ,allocatable:: a(:,:) allocate(a(2,2)) a=3 write(*,'(*(2(g0,1x),/))') a read(*,*) end program test1
使用道具 举报
program test3 implicit none integer :: a(3,3) = reshape([5,7,6,5,3,7,6,2,0],[3,3]) write(*,*)a read(*,*) end program test3
subroutine opq(a,c) implicit none real::a(2,1),c !//c要定义 c=a(1,1)+a(2,1) end subroutine opq program test6 implicit none real::mat(2,1) real::ss mat(1,1)=3 mat(2,1)=4 call opq(mat,ss) !//不需要 subroutine write(*,*)ss read(*,*) end program test6
本版积分规则 发表回复 回帖后跳转到最后一页
颁发给在娱乐版上传了真实照片的女性网友
颁发给论坛热心帮助他人的网友
颁发给经认证的具有特殊贡献和地位的名人
颁发给注册后积极发言的新人
颁发给对本站有突出贡献的朋友
颁发给本站版主和管理
颁发给在娱乐版上传了真实照片的男性网友
颁发给为Fcode网站捐赠的网友
颁发给完成“有规有矩”任务的网友
颁发给论坛注册3年以上的网友
颁发给发帖量超过一定数量的坛友
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-5-4 01:29
Powered by Tencent X3.4
© 2013-2024 Tencent