setlenwa.F File Reference

#include "implicit_f.inc"
#include "com01_c.inc"
#include "com09_c.inc"
#include "sphcom.inc"
#include "param_c.inc"
#include "com04_c.inc"
#include "spmd_c.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	setlenwa (lenwa0, nthwa0, nairwa0, numels0, numelq0, numelc0, numeltg0, numelt0, numelp0, numelr0, numnod0, nmnt0, l_mul_lag1, l_mul_lag, maxnx0, lwasph0, numsph0, lwaspio, nrcvvois0, ngroup_l, lwamp_l, lwanmp_l, itherm)
subroutine	setmulti (ipari)

Function/Subroutine Documentation

setlenwa()

subroutine setlenwa	(	integer	lenwa0,
		integer	nthwa0,
		integer	nairwa0,
		integer	numels0,
		integer	numelq0,
		integer	numelc0,
		integer	numeltg0,
		integer	numelt0,
		integer	numelp0,
		integer	numelr0,
		integer	numnod0,
		integer	nmnt0,
		integer	l_mul_lag1,
		integer	l_mul_lag,
		integer	maxnx0,
		integer	lwasph0,
		integer	numsph0,
		integer	lwaspio,
		integer	nrcvvois0,
		integer, intent(in)	ngroup_l,
		integer, intent(inout)	lwamp_l,
		integer, intent(inout)	lwanmp_l,
		integer, intent(in)	itherm )

Definition at line 29 of file setlenwa.F.

C Please note the dummy can be either local or global following appeal
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      "com01_c.inc"
#include      "com09_c.inc"
#include      "sphcom.inc"
#include      "param_c.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER, INTENT(INOUT) :: LWAMP_L
      INTEGER, INTENT(INOUT) :: LWANMP_L
      INTEGER, INTENT(IN)    :: ITHERM
      INTEGER, INTENT(IN)    :: NGROUP_L
      INTEGER LENWA0,NTHWA0,NAIRWA0,
     .        NUMELS0,NUMELQ0,NUMELC0,NUMELTG0,NUMELT0,NUMELP0,
     .        NUMELR0,NUMNOD0,NMNT0,L_MUL_LAG1,L_MUL_LAG,MAXNX0,
     .        LWASPH0,NUMSPH0,LWASPIO,NRCVVOIS0
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER NFLUWA, NBHOLWA, NAIRWA, NINTWA, NXELWA, NSPHWA,
     .        NASSNMP, NASSMP, NIDELWA, MSPR,
     .        IUN,LENVOISWA
C-----------------------------------------------
      iun = 1
C---------------------------------------------------------------------
C SPH
      nsphwa = max(2*kvoisph,4*kvoisph,
     .             16*numsph0,lwaspio)   ! 19*NUMSPH0 enleve (tri en auto)
C work array WASPH, prive au SPH.
      lwasph0=17*numsph0+min(iun,nsphio)*3*numsph0
     .                            +min(iun,nsphsol)*numsph0
C---------------------------------------------------------------------
C ALE / CFD
      nfluwa  = max(iale,itherm,ieuler) * max(1,nmult) * 
     .          max(7 * (numels0+numelq0),3 * numnod0)
      nbholwa = max(iale,itherm,ieuler) * nmult * numelq0
      lenvoiswa = 3 * ( numnod0 + nrcvvois0 ) 
C AirBag 
      nairwa  = max(nairwa0, 4 * (numelc0 + numeltg0 + ibagsurf))   ! In all nairwa0 and local Ibagsurf
C Interface
      nintwa  = nmnt0+l_mul_lag1                                    ! Rigorously local nmnt
C
C SPMD assembly: all in dynamics
      nassnmp = 0
      nassmp  = 0
C shooting nodes
      nidelwa = 3*numnod0
C lenwa non parallele
      lwanmp_l   = max(nthwa0,nassnmp,l_mul_lag)
C---------------------------------------------------------------------
      nxelwa   = 22*maxnx0                                         ! Rigorously Maxnx Local
C lenwa parallele
      lwamp_l    = max(nairwa,nintwa,nfluwa+nbholwa,nassmp,nxelwa,nsphwa,
     +               nidelwa,lenvoiswa)
C MSPR used in the starter
      mspr    = max(4*numelr0,nparg*ngroup_l)
C
      lenwa0  = max(lwamp_l,lwanmp_l,mspr)
C
      RETURN

setmulti()

subroutine setmulti

(

integer, dimension(npari,*)

ipari

)

Definition at line 109 of file setlenwa.F.

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"
#include      "spmd_c.inc"
#include      "param_c.inc"
#include      "sphcom.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER IPARI(NPARI,*)
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, MULTIMP, ICONT, ITY
C-----------------------------------------------
C
C MultiMAX: parameter used to allocate the Buffer of Comm Engine (SPMD)
C
      multimax = 0
      icont = 0
      DO i = 1, ninter
        multimp = ipari(23,i)
          IF(multimp<=4) THEN
            multimax = max(multimax,4*multimp)
          ELSEIF(multimp<=12)THEN
            multimax= max(multimax,3*multimp)
          ELSEIF(multimp>12)THEN
            multimax= max(multimax,2*multimp)
          END IF
        ity = ipari(7,i)
        IF(ity==7.OR.ity==10.OR.ity==11.OR. ity==22)icont=1
      END DO
      IF(numsph/=0.AND.multimax==0)multimax=1
      IF(numelx/=0.AND.multimax==0)multimax=4
      IF(ninter>0.AND.icont==0)multimax=100
 
C
      RETURN