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, 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(inout)	lwamp_l,
		integer, intent(inout)	lwanmp_l,
		integer, intent(in)	itherm )

Definition at line 29 of file setlenwa.F.

C Attention les dummy peuvent etre soit locaux soit globaux suivant appel
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 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, NWASPH, 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))   ! en toute rigueur NAIRWA0 et IBAGSURF locaux
C Interface
      nintwa  = nmnt0+l_mul_lag1                                    ! en toute rigueur NMNT local
C
C Assemblage SPMD : tout en dynamique
      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                                         ! en toute rigueur MAXNX local
C lenwa parallele
      lwamp_l    = max(nairwa,nintwa,nfluwa+nbholwa,nassmp,nxelwa,nsphwa,
     +               nidelwa,lenvoiswa)
C
C MSPR utilise dans le starter
      mspr    = max(4*numelr0,nparg*ngroup)
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 : parametre servant a allouer les buffer de comm interface 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