马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
PROGRAM LAKIDIK
USE 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语句中别人做了省略啊?怎么回事啊?郁闷啊??????????????、 |