[Fortran] 纯文本查看 复制代码
PROGRAM MAIN
INTEGER I,J,K,FLAG
REAL*8 T,N,TH,TE,SITA,KB,P,R0,NA,CMA,CME,CJE,E1,E2,H,PAI,CK,CEE,X(4),KP1,KP2,AS,EXLEFT(4,4),B(4),DX(4),CUP1,CUP2,ZF(4),TOTAL,DENS,EE(4),HAN,\
CPT,CUP3,CET,CEC,CED,CHV,CHT,DEBYE,B0,B1,ST,ST2,SQT,SQTH,Z0,Z1,ALB0,ALB1,CS,CON1,COL,COL1,COLL11(4,4),COLL12(4,4),COLL13(4,4),\
COLL22(4,4),COLL14(4,4),COLL15(4,4),TS(298),XAA11(298),XAA12(298),XAA13(298),XAA22(298),XAA_111(298),XAA_112(298),XAA_113(298),\
XAA_122(298),TS1(48),XEA11(48),XEA12(48),XEA22(48),XEA13(48),XIP,YIP11,YIP12,YIP13,XEE22,XEE23,XEE24,C00,C01,C02,C11,C12,C22,C10,\
C20,C21,DETE,CC,ECDC,M(4),AHK(3,3),AHK1(4,4),DAHK,DAHK1,HVIC,BHK00(3,3),BHK01(3,3),BHK10(3,3),BHK11(3,3),BHK(6,6),BHK1(7,7),DBHK,\
DBHK1,TDETH,DETHP,HTHC,THCE,RATA,RATG,BIDC(4,4),F(4,4),FT(4,4),DF,DFC(3,3),DDFC(4,4),ORDC(4,4),Z(4),TEMP(4),ALPHA(4),BATA,APDC(4,4),\
FF(4,4),FF1(4,4),B33(4),B44(4),Y1(4),Y2(4),DDH1,DDH2,FAH1,FAH2,FAH3,FAE1,FAE2,FAE3,THCRH,THCRE,THCR,TTHC,P0,td
kb=1.38e-23
Na=6.02e23
CMA=6.628e-26
CME=9.1085e-31
CJE=1.602e-19
E1=15.76
E2=27.62
H=6.6e-34
PAI=3.1415926
CK=1.38e-23
CEE=8.854D-12
OPEN(1,FILE='MOLE FRACTION.DAT')
OPEN(2,FILE='COMP.DAT')
OPEN(3,FILE='DENS.DAT')
OPEN(4,FILE='HAN.DAT')
OPEN(5,FILE='CPT.DAT')
OPEN(6,FILE='DATA/HFD Ar-Ar.DAT')
DO I=1,298
READ(6,*) TS(i),XAA11(i),XAA12(i),XAA13(i),XAA22(i)
ENDDO
close(6)
17 FORMAT(1024E15.7)
WRITE(*,*)pai
END PROGRAM
HFD AR-AR closed.DAT
(22.41 KB, 下载次数: 2)