主题:list-directed I/O syntax error
constance18
[专家分:0] 发布于 2009-01-18 16:28:00
compile 和 build 都通过了,编译时有警告,运行时就出现上面的错误了。程序要贴出来吗?很长啊
最后更新于:2009-01-18 16:29:00
板凳
constance18 [专家分:0] 发布于 2009-01-18 20:51:00
program ifd2
PARAMETER MXLYR=101,MXN=10000,MXSVP=101,MXTRK=101,NIU=1, NOU=2,
C NPU=6 ,PI=3.141592654,DEG=57.29578
COMPLEX ACOFX,ACOFY,BCOF,BOTX,BOTY,BTA,HNX,HNKL,SURX,SURY,TEMP
C U,X,Y
COMMON /IFDCOM/ACOFX,ACOFT,ALPHA,BCOF,BETA(MXLYR),BOTX,BOTY,
C BTA(MXN),C0,CSVP(MXSVP),DR,DR1,DZ,FRQ,IHNK,ISF,ITYPEB,
C ITYPES,IXSVP(MXLYR),KSVP,N,Nl,NLYR,NSVP,NWSVP,MM,R0,R12(MXN),RA,
C RHO(MXLYR),RSVP,SURX,SURY,THETA,TRACK(MXTRK,2),U(MXN),M,
C X(MXN),XXO,Y(MXN),ZA,ZLYR(MXLYR),ZP,ZS,ZSVP(MXSVP)
C *** READ INPUT PARAMETERS
OPEN (NIU,file='IFD.IN',action='read')
READ(NIU,*) FRQ,ZS,C0,ISF,RA,ZA,N,IHNK,ITYPEB,ITYPES
READ(NIU,*) RMAX,DR,WDR,WDZ,PDR,PDZ,ISFLD,ISVP,IBOT
END
IFD.IN文件是
100,30,0,0,0,240,500,0,3,0
20000,2,50,10,10,50,0,0,0
错误是
forrtl:severe<59>:list-directer I/O syntax error,unit 1,file D:\mywork\example\test ifd\IFD.IN