multi_check_eos.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	multi_check_eos (multi_fvm, nummat, npropmi, npropm, ipm, pm)

Function/Subroutine Documentation

multi_check_eos()

subroutine multi_check_eos	(	type(multi_fvm_struct), intent(inout)	multi_fvm,
		integer, intent(in)	nummat,
		integer, intent(in)	npropmi,
		integer, intent(in)	npropm,
		integer, dimension(npropmi, *), intent(in)	ipm,
		dimension(npropm, *), intent(in)	pm )

Definition at line 32 of file multi_check_eos.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE message_mod
      USE multi_fvm_mod
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      TYPE(MULTI_FVM_STRUCT), INTENT(INOUT) :: MULTI_FVM
      INTEGER, INTENT(IN) :: NUMMAT, NPROPM, NPROPMI, IPM(NPROPMI, *)
      my_real, INTENT(IN) :: pm(npropm, *)
C-----------------------------------------------
C     L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER :: I, II, J, MATID, IEOS
 
      DO i = 1, nummat
         IF (ipm(2, i) == 151) THEN
            DO ii = 1, ipm(20, i)
               matid = ipm(20 + ii, i)
               DO j = 1, nummat
                  IF (ipm(1, j) == matid) EXIT
               ENDDO
               IF (ipm(4,j)==0 .AND. pm(32, j)<=zero) THEN
                  CALL ancmsg(msgid = 1645, anmode = aninfo, msgtype = msgerror,
     .                        i1=ipm(1, i),
     .                        i2=ii,
     .                        i3=ipm(20, i)  )
               ENDIF
            ENDDO
         ENDIF
      ENDDO