inifill.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	inifill (numels, numeltg, numelq, numnod, npart, npropmi, nummat, n2d, ngroup, ixs, ipm, ipart_, iphase, sipart_, idp, kvol, bufmat, itagnsol, isolnod, nbip, ntrace, part_fill, nbsubmat, mlw, elbuf_tab, ng, multi_fvm, ixq, ixtg, ityp, imat, siphase, numel_tot, nel, nft, sbufmat)

Function/Subroutine Documentation

inifill()

subroutine inifill	(	integer, intent(in)	numels,
		integer, intent(in)	numeltg,
		integer, intent(in)	numelq,
		integer, intent(in)	numnod,
		integer, intent(in)	npart,
		integer, intent(in)	npropmi,
		integer, intent(in)	nummat,
		integer, intent(in)	n2d,
		integer, intent(in)	ngroup,
		integer, dimension(nixs,numels), target	ixs,
		integer, dimension(npropmi,nummat)	ipm,
		integer, dimension(sipart_)	ipart_,
		integer, dimension(nbsubmat+1,siphase/(nbsubmat+1))	iphase,
		integer, intent(in)	sipart_,
		integer	idp,
			kvol,
			bufmat,
		integer, dimension(numnod)	itagnsol,
		integer	isolnod,
		integer, dimension(nbsubmat,numel_tot)	nbip,
		integer	ntrace,
		integer, dimension(npart)	part_fill,
		integer	nbsubmat,
		integer	mlw,
		type(elbuf_struct_), dimension(ngroup), intent(in), target	elbuf_tab,
		integer	ng,
		type (multi_fvm_struct), intent(in)	multi_fvm,
		integer, dimension(nixq,numelq), target	ixq,
		integer, dimension(nixtg, numeltg), target	ixtg,
		integer	ityp,
		integer	imat,
		integer	siphase,
		integer	numel_tot,
		integer	nel,
		integer	nft,
		integer, intent(in)	sbufmat )

Definition at line 31 of file inifill.F.

C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE elbufdef_mod , ONLY : elbuf_struct_
      USE multi_fvm_mod , ONLY : multi_fvm_struct
      use element_mod , only :nixs,nixq,nixtg
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-----------------------------------------------
      INTEGER,INTENT(IN) :: NUMELS,NUMELTG,NUMELQ,NUMNOD,NPART,NPROPMI,NUMMAT,N2D,NGROUP,SIPART_,SBUFMAT
      INTEGER SIPHASE,IPM(NPROPMI,NUMMAT),IPHASE(NBSUBMAT+1,SIPHASE/(NBSUBMAT+1))
      INTEGER IPART_(SIPART_),IDP,ITAGNSOL(NUMNOD),NUMEL_TOT,NBIP(NBSUBMAT,NUMEL_TOT)
      INTEGER ISOLNOD,PART_FILL(NPART),NTRACE, ITYP, IMAT, NBSUBMAT, MLW, NG, NEL, NFT
      INTEGER,TARGET :: IXS(NIXS,NUMELS),IXQ(NIXQ,NUMELQ), IXTG(NIXTG, NUMELTG)
      INTEGER,POINTER :: pIXQ,pIXTG,pIXS
      my_real kvol(nbsubmat,numel_tot),bufmat(sbufmat)
      TYPE(ELBUF_STRUCT_), TARGET, DIMENSION(NGROUP), INTENT(IN) :: ELBUF_TAB
      TYPE (MULTI_FVM_STRUCT), INTENT(IN) :: MULTI_FVM
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER NF1,IADBUF,NPAR
C-----------------------------------------------
C   S o u r c e  L i n e s
C-----------------------------------------------
 
      nf1 = nft+1
      npar = ipm(9,imat)
      iadbuf = max(1,ipm(7,imat))
      
      NULLIFY(pixs)
      NULLIFY(pixq)
      NULLIFY(pixtg)
      IF(numels>0)  pixs  => ixs(1,nf1)            
      IF(numelq>0)  pixq  => ixq(1,nf1)    
      IF(n2d>0 .AND. numeltg>0) pixtg => ixtg(1,nf1)
                   
C-----------
      CALL iniphase(n2d         ,numels        ,numeltg        ,numelq       ,
     .              numnod      ,ngroup        ,
     .              pixs        ,ipart_(nf1)   ,iphase(1,nf1)  ,idp          ,
     .              kvol(1,nf1) ,npar          ,bufmat(iadbuf) ,ntrace       ,
     .              itagnsol    ,isolnod       ,part_fill      ,nbip(1,nf1)  ,
     .              nbsubmat    ,mlw           ,elbuf_tab      ,ng           ,
     .              multi_fvm   ,pixq          ,pixtg          ,ityp         ,
     .              nel )
C-----------------------------------------------------------------
      RETURN