| 查看: 450 | 回复: 1 | ||
[求助]
关于说明语句和执行语句的顺序问题
|
|
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之后。请大家帮我想想办法。 |
回复此楼
snoopyzhao
至尊木虫 (职业作家)
- 程序强帖: 16
- 应助: 157 (高中生)
- 贵宾: 0.02
- 金币: 18844.7
- 红花: 29
- 帖子: 3803
- 在线: 1422.4小时
- 虫号: 183750
- 注册: 2006-02-13
- 专业: 污染生态化学
2楼2012-06-25 18:23:26
30