2
0
新人
program Console1 implicit none Integer,parameter::nm=100 call start(nm) end !这是子例行程序 SUBROUTINE start(nm) implicit real*8 ( a-h,o-z ) integer*4 tv0001 common/area1/x0(nm) end
使用道具 举报
本版积分规则 发表回复 回帖后跳转到最后一页
捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )
GMT+8, 2024-11-1 07:16
Powered by Tencent X3.4
© 2013-2024 Tencent