ini_inimap2d.F File Reference

#include "implicit_f.inc"
#include "param_c.inc"
#include "scr17_c.inc"
#include "com01_c.inc"
#include "com04_c.inc"
#include "mvsiz_p.inc"
#include "units_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	ini_inimap2d (inimap2d, elbuf_tab, ipart, iparg, iparts, ipartq, xgrid, vel, ixs, ixq, ixtg, pm, ipm, bufmat, multi_fvm, func2d, igrbric, igrquad, igrsh3n, npc, pld, mat_param)

Function/Subroutine Documentation

ini_inimap2d()

subroutine ini_inimap2d	(	type(inimap2d_struct), dimension(ninimap2d), intent(inout)	inimap2d,
		type(elbuf_struct_), dimension(ngroup), intent(inout), target	elbuf_tab,
		integer, dimension(lipart1, *), intent(in)	ipart,
		integer, dimension(nparg, ngroup), intent(in)	iparg,
		integer, dimension(*), intent(in)	iparts,
		integer, dimension(*), intent(in)	ipartq,
		dimension(3, *), intent(in)	xgrid,
		dimension(3, *), intent(inout)	vel,
		integer, dimension(nixs, *), intent(in)	ixs,
		integer, dimension(nixq, *), intent(in)	ixq,
		integer, dimension(nixtg, *), intent(in)	ixtg,
		dimension(npropm, *), intent(in)	pm,
		integer, dimension(npropmi, *), intent(in)	ipm,
		dimension(*), intent(in)	bufmat,
		type(multi_fvm_struct), intent(inout)	multi_fvm,
		type(func2d_struct), dimension(nfunc2d), intent(in)	func2d,
		type (group_), dimension(ngrbric)	igrbric,
		type (group_), dimension(ngrquad)	igrquad,
		type (group_), dimension(ngrsh3n)	igrsh3n,
		integer, dimension(*), intent(in)	npc,
		dimension(*), intent(inout)	pld,
		type (matparam_struct_), dimension(nummat), intent(inout)	mat_param )

Definition at line 33 of file ini_inimap2d.F.

C-----------------------------------------------
C     M o d u l e s
C-----------------------------------------------
      USE elbufdef_mod            
      USE inimap2d_mod  
      USE func2d_mod
      USE multi_fvm_mod
      USE groupdef_mod
      USE message_mod
      USE matparam_def_mod
      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     C o m m o n   B l o c k s
C-----------------------------------------------
#include      "param_c.inc"
#include      "scr17_c.inc"
!     NGROUP
#include      "com01_c.inc"
!     NFUNCT
#include      "com04_c.inc"
!     MVSIZ
#include      "mvsiz_p.inc"
!     IOUT
#include      "units_c.inc"
C-----------------------------------------------
C     D u m m y   A r g u m e n t s
C-----------------------------------------------
      TYPE(INIMAP2D_STRUCT), DIMENSION(NINIMAP2D), INTENT(INOUT) :: INIMAP2D
      TYPE(ELBUF_STRUCT_), DIMENSION(NGROUP), INTENT(INOUT), TARGET :: ELBUF_TAB
      TYPE (MATPARAM_STRUCT_) ,DIMENSION(NUMMAT) ,INTENT(INOUT) :: MAT_PARAM
 
      INTEGER, INTENT(IN) :: IPART(LIPART1, *),NPC(*)
      INTEGER, INTENT(IN) :: IPARTS(*), IPARTQ(*),IPM(NPROPMI, *), 
     .     IPARG(NPARG, NGROUP), IXS(NIXS, *), IXQ(NIXQ, *), IXTG(NIXTG, *)
      my_real, INTENT(IN) :: xgrid(3, *), pm(npropm, *), bufmat(*)
      my_real, INTENT(INOUT) :: vel(3, *), pld(*)
      TYPE(MULTI_FVM_STRUCT), INTENT(INOUT) :: MULTI_FVM
      TYPE(FUNC2D_STRUCT), DIMENSION(NFUNC2D), INTENT(IN) :: FUNC2D
      my_real, POINTER, DIMENSION(:) :: theta
      CHARACTER*2 :: Str1, Str2
C-----------------------------------------------
      TYPE (GROUP_)  , DIMENSION(NGRBRIC) :: IGRBRIC
      TYPE (GROUP_)  , DIMENSION(NGRQUAD) :: IGRQUAD
      TYPE (GROUP_)  , DIMENSION(NGRSH3N) :: IGRSH3N
C-----------------------------------------------
C     L o c a l   V a r i a b l e s
C-----------------------------------------------