SUBROUTINE DFLUX(FLUX, SOL, KSTEP, KINC, TIME, NOEL, NPT, COORDS, JLTYP,     1    TEMP, PRESS, SNAME)    INCLUDE ‘ABA_PARAM.INC’    DIMENSION COORDS(3), FLUX(2), TIME(2)    real*8 Am, Bm, Cm, Dm, dmm, An, Bn, Cn, Dn, disn, Aw, Bw, Cw, Dw, dww    real*8 p1x, p1y, p1z, p2x, p2y, p2z, p3x, p3y, p3z    CHARACTER*80 SNAME        a = 3    b = 3    c = 3    c2 = 6    ratio = 0.5    ff = 0.66666667    fr = 1.33333333    CI = 280    U = 20    vel = 7    yita = 0.85    power = 1000*yita*U*CI     User coding to define FLUX(1) and FLUX(2)    RETURN    END