SUBROUTINE DFLUX(FLUX,SOL,KSTEP,KINC,TIME,NOEL,NPT,COORDS,JLTYP, TEMP, PRESS, SNAME)
        INCLUDE 'ABA_PARAM.INC'

        DIMENSION COORDS(3),FLUX(2),TIME(2)
        CHARACTER*80 SNAME
        real U,AI,v,yita,R0,qm

        U=16.5
        AI=60.
        v=250./60.
        yita=0.75
        R0=5.

        qm=yita*U*AI*1000./3.14/R0/R0
        dx=v*TIME(1)
        dy=0.

        rr= (COORDS(1)-dx)**2 + (COORDS(2)-dy)**2
        FLUX(1)=3.*qm*exp(-3.*rr/R0/R0)

        ! write(*,*) time,dx
        ! write(*,*) COORDS,rr
        ! write(*,*) FLUX
        ! write(*,*)

        RETURN
        END