eulro2.F File Reference

#include "implicit_f.inc"
#include "comlock.inc"
#include "com08_c.inc"
#include "vect01_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	eulro2 (rhon, flux, flu1, voln, dvol, ngl)

Function/Subroutine Documentation

eulro2()

subroutine eulro2	(		rhon,
			flux,
			flu1,
			voln,
			dvol,
		integer, dimension(*)	ngl )

Definition at line 33 of file eulro2.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE message_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
#include      "comlock.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com08_c.inc"
#include      "vect01_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      my_real rhon(*), flux(4,*), flu1(*),voln(*), dvol(*)
      INTEGER NGL(*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I
C-----------------------------------------------
      DO i=lft,llt
        rhon(i)    =rhon(i)/voln(i)
        dvol(i) = dt1*half*(flu1(i)+flux(1,i)+flux(2,i)+flux(3,i)+flux(4,i))
      ENDDO
C
      DO i=lft,llt
        IF(mtn /= 11)THEN
         IF(rhon(i) <= zero)THEN
          CALL ancmsg(msgid=12,anmode=aninfo,i1=ngl(i),r1=rhon(i))
          CALL arret(2)
         ENDIF
        ENDIF
      ENDDO  
C-----------------------------------------------
      RETURN