网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
fortran吧 关注：8,634贴子：19,698
  • 2回复贴，共1页

求助关于function子程序调用的问题

FUNCTION N()N=10END
*********************PROGRAM MAINREAL P(1:N（）)DO 10 I=1,N()P(I)=I+110 CONTINUEWRITE(*,100)P100 FORMAT(1X,5I3)END
我的意图就是提前设置一个参数，因为那个参数在很多程序中要用到，所以想设置了直接调用，可是上边的程序不能调用啊，不知道该咋办，谢谢高手们了


已经替你搞定，研究生qq群86089634


program main
integer p(10)
do 10 i=1,N()
p(i)=i+1
10 continue
write(*,100) p
100 format(1X,5I3)
contains
function N()
N=10
endfunction
endprogram


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 2回复贴，共1页
分享到: