FORTRAN程序求助
PROGRAM LAKIDIKUSE MSIMSL,ONLY:SDOT,SNRM2,LINRG
CHARACTER ARQ*7
REAL C,EUR,EPVOL,TEPVOL,
* PSI2,FP,FPS,FPA,FPP,GMOCT,H,
* J2,FPM,PREPVOL,
* ETA1,ALFA,PSI1,FPIX,FPMX,FPKX,FPK,
* MF,MI,NI,P,PRATM,
* SOCT,TOCT,M,LAMBDA,R,CALFA,FXX,FP1,WP,RO,DD
REAL D(3),LL(3),MM(3),NN(3),
* SG(3),EE(4),EP(4),ET(4),TG(3),SGSC(4),
* DS(3),PSG(3),PRSG(3),PREE(3),PREP(3),PRET(3),
* PRDS(3),PPRSG(3),DEE(4),DEP(4),SGRETURN(3),
* DPREE(4),DPREP(3),PARAM(13),II(3),SGA(3),SGB(3),
* SGC(3),
* tet(4),tep(3),tee(3),SGBC(3),SC(4),SD(4),DDS(4),
* DP(3),DEPR(3),SCZ(3)
REAL OMEGA1(3,3),OMEGA2(3,3)
INTEGER NS,I,NT,NUMICR,NR,LP,IP,NC,NP,JLAG
INTEGER NINCR(200),IMPR(200)
C*******************************************************************************
C INPUT PARAMETERS AND STRESS PATH
C*******************************************************************************
WRITE(*,*)' INPUT FILE(EXTENSION .INP) WITH SEVEN CHARACTERS:'
READ (*,'(A7)') ARQ
OPEN (5,FILE='ARQ//.INP')
OPEN (6,FILE='ARQ//.OUT')
OPEN (1,FILE='ARQ//.WK1')
OPEN (4,FILE='ARQ//.WK2')
OPEN (8,FILE='ARQ//.WK3')
OPEN (3,FILE='ARQ//.WK4')
请问一下，上面的程序有没有错误啊？在FORTRAN中，有没有这样的输入和输出格式啊？而且在程序编译后有警告，但是在连接后却是0个错误，0个警告，在执行时只能执行到“ INPUT FILE(EXTENSION .INP) WITH SEVEN CHARACTERS”时再无法向下执行了，怎么回事啊？
还有，在OPEN语句中的//是什么意思啊？在READ中的（7）又是什么意思啊？是不是它的格式有错误啊？假如是又该如何类修正，使它与FORTRAN规则相一致啊？还是程序本身又错误啊？
还有在输入5号文件时其格式应该是怎样的啊？
是不是在OPEN语句中别人做了省略啊？怎么回事啊？郁闷啊？？？？？？？？？？？？？？、
页:
[1]