您所在位置：主题：[原创]fortran程序启动后，按提示输入，为什么输入完resu3后自动离开提示界面了呢？
bettyfortran
[专家分：0] 发布于 2010-11-23 20:48:00
开始部分源程序如下：
write(*,*) 'INPUT-N-THE NUMBERS OF STORIES'
READ(*,*) N
write(*,*) 'INPUT-KM,KM=1-DO NOT RECORD TIME-HISTORY'
READ(*,*) KM
write(*,*) 'input--FILE NAME OF EARTHQUAKE RECORD'
read(*,1) acce
write(*,*) 'INPUT-FILE NAME OF STRUCTURE PARAMAMTER DATA'
READ(*,1) SPDF
write(*,*) 'INPUT--FILE NAME OF CALCULATION RESULTS'
READ(*,1) RESU1
READ(*,1) RESU2
READ(*,1) RESU3
1 format(a80)
open(4,file=SPDF,status='old')
open(5,file=acce,status='old')
open(9,file=RESU1,status='NEW')
open(11,file=RESU2,status='NEW')
OPEN(12,FILE=RESU3,STATUS='NEW')
自己研究好长时间了，就是没头绪，请各位大侠帮忙看一下。
write(*,*) 'INPUT-N-THE NUMBERS OF STORIES'
READ(*,*) N
write(*,*) 'INPUT-KM,KM=1-DO NOT RECORD TIME-HISTORY'
READ(*,*) KM
write(*,*) 'input--FILE NAME OF EARTHQUAKE RECORD'
read(*,1) acce
write(*,*) 'INPUT-FILE NAME OF STRUCTURE PARAMAMTER DATA'
READ(*,1) SPDF
write(*,*) 'INPUT--FILE NAME OF CALCULATION RESULTS'
READ(*,1) RESU1
READ(*,1) RESU2
READ(*,1) RESU3
1 format(a80)
open(4,file=SPDF,status='old')
open(5,file=acce,status='old')
open(9,file=RESU1,status='NEW')
open(11,file=RESU2,status='NEW')
OPEN(12,FILE=RESU3,STATUS='NEW')
自己研究好长时间了，就是没头绪，请各位大侠帮忙看一下。