[Fortran] 纯文本查看 复制代码
SUBROUTINE UMATHT_MAT1(U,DUDT,DUDG,FLUX,DFDT,DFDG,
1 STATEV,TEMP,DTEMP,DTEMDX,TIME,DTIME,PREDEF,DPRED,
2 CMNAME,NTGRD,NSTATV,PROPS,NPROPS,COORDS,PNEWDT,
3 NOEL,NPT,LAYER,KSPT,KSTEP,KINC)
C
INCLUDE 'ABA_PARAM.INC'
C
CHARACTER*80 CMNAME
DIMENSION DUDG(NTGRD),FLUX(NTGRD),DFDT(NTGRD),
1 DFDG(NTGRD,NTGRD),STATEV(NSTATV),DTEMDX(NTGRD),
2 TIME(2),PREDEF(1),DPRED(1),PROPS(NPROPS),COORDS(3)
C
REAL rho_v, rho_f, phi_v, phi_f, A, E, n, R, h_s, h_g
1 rho, M, delta_rho, f, Cv, Cf, Cp, Cpg, phi, mg,m_g
2 delta_U, V, kv, kv2, kf, Qi, rho_g, rho_pro, kv1, kf1
3 miu
REAL k(3), DkDT(3), PRE(3), GAMA(3)
C -------------------------------------------
C 定义公共块
COMMON X, Z, W, B, BA
REAL X, Z, W, B, BA
C 第二个程序
SUBROUTINE UMATHT_MAT2(U,DUDT,DUDG,FLUX,DFDT,DFDG,
1 STATEV,TEMP,DTEMP,DTEMDX,TIME,DTIME,PREDEF,DPRED,
2 CMNAME,NTGRD,NSTATV,PROPS,NPROPS,COORDS,PNEWDT,
3 NOEL,NPT,LAYER,KSPT,KSTEP,KINC)
C
INCLUDE 'ABA_PARAM.INC'
C
CHARACTER*80 CMNAME
DIMENSION DUDG(NTGRD),FLUX(NTGRD),DFDT(NTGRD),
1 DFDG(NTGRD,NTGRD),STATEV(NSTATV),DTEMDX(NTGRD),
2 TIME(2),PREDEF(1),DPRED(1),PROPS(NPROPS),COORDS(3)
C
REAL rho_v, rho_f, phi_v, phi_f, A, E, n, R, m_g,
1 rho, M, delta_rho, f, Cv, Cf, Cp, Cpg, phi, delta_mg,
2 delta_U, V, kv, kf, rho_g, rho_pro, kv1, kf1,
3 miu,delta_rhog
REAL GAMA(3)
C
COMMON L, K, S, NN, BBA
REAL L, K, S, NN, BBA
