w_ithflux.F File Reference

#include "implicit_f.inc"
#include "com04_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	w_ithflux (ibfflux, cep, proc, nodlocal, nfxflux_l, len_ia, cel, ixs, numconv, numradia, nfxflux, nitflux)
subroutine	applysort2flux (ibfflux, siz1, siz2, permutations)

Function/Subroutine Documentation

applysort2flux()

subroutine applysort2flux	(	integer, dimension(siz1,siz2)	ibfflux,
		integer	siz1,
		integer	siz2,
		integer, dimension(*)	permutations )

Definition at line 100 of file w_ithflux.F.

C Apply the new numbering (given in permutations) to the elements IBFFLUX
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
 
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER SIZ1,SIZ2
      INTEGER PERMUTATIONS(*)
      INTEGER IBFFLUX(SIZ1,SIZ2)
C-----------------------------------------------
C   L o c a l  V a r i a b l e s
C-----------------------------------------------
      INTEGER  I, J
C=======================================================================
      DO i = 1,siz2
        IF(ibfflux(8,i)<= 0) cycle
        ibfflux(8,i) = permutations(ibfflux(8,i))
      END DO
      RETURN

w_ithflux()

subroutine w_ithflux	(	integer, dimension(nitflux,*)	ibfflux,
		integer, dimension(*)	cep,
		integer	proc,
		integer, dimension(*)	nodlocal,
		integer	nfxflux_l,
		integer	len_ia,
		integer, dimension(*)	cel,
		integer, dimension(nixs,*)	ixs,
		integer, intent(in)	numconv,
		integer, intent(in)	numradia,
		integer, intent(in)	nfxflux,
		integer, intent(in)	nitflux )

Definition at line 30 of file w_ithflux.F.

      use element_mod , only : nixs
C-----------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
#include      "com04_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER ,INTENT(IN) :: NUMCONV
      INTEGER ,INTENT(IN) :: NUMRADIA
      INTEGER ,INTENT(IN) :: NFXFLUX
      INTEGER ,INTENT(IN) :: NITFLUX
      INTEGER LEN_IA, PROC, NFXFLUX_L, IBFFLUX(NITFLUX,*),CEP(*)
      INTEGER NODLOCAL(*), CEL(*), IXS(NIXS,*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, J, IBTMP(NITFLUX,NFXFLUX_L), N1, N2, N3, N4, OFF, NB_L
      INTEGER N, NEL, NUSR
C-----------------------------------------------
C
      off = numelc+numeltg+numels+numelq+numelt+numelp+numelr
     +     +numelx+nconld+numconv+numradia
      nb_l = 0
C
      DO i = 1, nfxflux
        IF(cep(i+off)==proc) THEN
           nb_l = nb_l + 1
           IF(ibfflux(10,i) == 0) THEN ! SURFACE FLUX
             n1 = ibfflux(1,i)
             n2 = ibfflux(2,i)
             n3 = ibfflux(3,i)
             n4 = ibfflux(4,i)
             ibtmp(1,nb_l) = nodlocal(n1)
             ibtmp(2,nb_l) = nodlocal(n2)
             ibtmp(3,nb_l) = nodlocal(n3)
             ibtmp(4,nb_l) = 0
             IF(n4 /= 0) ibtmp(4,nb_l) = nodlocal(n4)
             DO j = 5, nitflux
               ibtmp(j,nb_l) = ibfflux(j,i)
             ENDDO
           ELSEIF(ibfflux(10,i) == 1) THEN ! VOLUMIC FLUX
             DO j = 1,nitflux
               ibtmp(j,nb_l) = ibfflux(j,i)
             ENDDO
             ibtmp(8,nb_l) = cel(ibtmp(8,nb_l)) ! id local to proc
           ENDIF
        ENDIF
      ENDDO
C
      CALL write_i_c(ibtmp,nitflux*nfxflux_l)
      len_ia = len_ia + nitflux*nfxflux_l
C
      RETURN