multi_check_psh.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

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

Function/Subroutine Documentation

multi_check_psh()

subroutine multi_check_psh	(	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_psh.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
 
      DO i = 1, nummat
         IF (ipm(2, i) == 151) THEN
            matid = ipm(21, i)
            DO j = 1, nummat
               IF (ipm(1, j) == matid) EXIT
            ENDDO
            multi_fvm%PRES_SHIFT = pm(88, j)
            DO ii = 2, ipm(20, i)
               matid = ipm(20 + ii, i)
               DO j = 1, nummat
                  IF (ipm(1, j) == matid) EXIT
               ENDDO
               IF (multi_fvm%PRES_SHIFT /= pm(88, j)) THEN
                  CALL ancmsg(msgid = 1626, anmode = aninfo, msgtype = msgerror,
     .                        i1=ipm(1, i),
     .                        i2=ii,
     .                        i3=ipm(20, i),
     .                        r1=pm(88, j),
     .                        r2=multi_fvm%PRES_SHIFT)
               ENDIF
            ENDDO
         ENDIF
      ENDDO