24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 451  |  回复: 1

行云流水cs

金虫 (小有名气)

[求助] 关于说明语句和执行语句的顺序问题

PROGRAM MAIN

          INTEGER A(M,N)

          WRITE(*,*) 'ENTER TWO NUMBERS M AND N'

          READ(*,*) M,N       

          OPEN(UNIT=1,FILE='F1.DAT',STATUS='OLD',ACCESS='SEQUENTIAL',FORM='FORMATTED')

          READ(1,*) ((A(I,J),J=1,N),I=1,M)

20      CONTINUE

我是个菜鸟,刚学fortran。我想编写一个程序,需要根据文件中的数据多少来确定读取二维数A(M,N)的M,N值。按上面的程序的说明是不可行的,因为M,N不确定。但是又不能把说明语句放在READ之后。请大家帮我想想办法。
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

为无为,事无事,味无味。大小,多少,抱怨以德。图难乎其易也,为大乎其细也。
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

snoopyzhao

至尊木虫 (职业作家)

【答案】应助回帖

★ ★ ★ ★ ★
感谢参与,应助指数 +1
行云流水cs: 金币+5, ★★★很有帮助 2012-06-27 15:42:57
你可以用动态数组的功能。Fortran 90 后应该都支持。
2楼2012-06-25 18:23:26
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 行云流水cs 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 349求调剂 +7 zwjjjjjj 2026-03-31 7/350 2026-04-02 16:49 by zzsw+
[考研] 312 化工或制药调剂 +4 小小墨123 2026-04-02 5/250 2026-04-02 16:04 by 小touming
[考研] 336求调剂 +6 kiyy 2026-04-01 6/300 2026-04-02 15:51 by Jaylen.
[考研] 321求调剂 一志愿 浙江工业大学生物医药 +5 嘿嘿HC 2026-04-01 6/300 2026-04-02 15:23 by sophie2180
[考研] 282求调剂 +13 呼吸都是减肥 2026-04-01 13/650 2026-04-02 14:10 by baoball
[考研] 0710生物学336分求调剂 +3 kiyy 2026-04-01 3/150 2026-04-02 10:54 by w虫虫123
[考研] 279求调剂 +7 莫xiao 2026-04-01 7/350 2026-04-01 22:05 by 客尔美德
[考研] 285求调剂 +5 FZAC123 2026-03-30 5/250 2026-04-01 15:50 by 韩雨涵
[考研] 求调剂,一志愿北林食品与营养095500,301分,已过六级,有科研经历 +4 快乐储蓄罐 2026-03-31 4/200 2026-04-01 09:26 by JourneyLucky
[考研] 一志愿北京科技大学085601材料工程英一数二初试总分335求调剂 +5 双马尾痞老板2 2026-03-31 5/250 2026-04-01 09:04 by oooqiao
[考研] 282求调剂 不挑专业 求收留 +4 Yam. 2026-03-30 5/250 2026-03-31 14:41 by 王亮_大连医科大
[考研] 266分,求材料冶金能源化工等调剂 +8 哇呼哼呼哼 2026-03-27 10/500 2026-03-31 13:35 by Huaxue_Wang
[考研] 083000环境科学与工程调剂,总分281 +4 橙子(胜意) 2026-03-30 4/200 2026-03-31 00:44 by Linzejun
[考研] 0703 化学 求调剂,一志愿山东大学 342 分 +7 Shern—- 2026-03-28 7/350 2026-03-30 16:31 by nothing投稿中
[考研] 283求调剂(080500) +14 A child 2026-03-27 14/700 2026-03-30 12:06 by 探123
[考研] 一志愿中南大学化学0703总分337求调剂 +6 niko- 2026-03-27 6/300 2026-03-30 10:25 by herarysara
[考研] 295求调剂 +5 wei-5 2026-03-26 5/250 2026-03-30 08:34 by 探123
[考研] 291求调剂 +5 Y-cap 2026-03-29 6/300 2026-03-29 13:18 by mumin1990
[考研] 调剂考研 +3 王杰一 2026-03-29 3/150 2026-03-29 08:09 by fmesaito
[考研] 11408软件工程求调剂 +3 Qiu学ing 2026-03-28 3/150 2026-03-28 21:50 by zhq0425
信息提示
请填处理意见