c
c =========================================================
subroutine flx1(maxmx,meqn,mbc,mx,q,maux,aux,f)
c =========================================================
c
c # Copyright (C) 2002 Ralf Deiterding
c # Brandenburgische Universitaet Cottbus
c
c # Copyright (C) 2003-2007 California Institute of Technology
c # Ralf Deiterding, ralf@cacr.caltech.edu
c
implicit double precision (a-h,o-z)
dimension q(1-mbc:maxmx+mbc, meqn)
dimension aux(1-mbc:maxmx+mbc, maux)
dimension f(1-mbc:maxmx+mbc, meqn)
common /param/ gamma,gamma1,q0
c
do i=1-mbc,mx+mbc
rho = q(i,1)+q(i,2)
u = q(i,3)/rho
p = gamma1*(q(i,4) - q(i,2)*q0 - 0.5d0*rho*u**2)
f(i,1) = u*q(i,1)
f(i,2) = u*q(i,2)
f(i,3) = u*q(i,3)+p
f(i,4) = u*(q(i,4)+p)
enddo
c
return
end
c