i22sto.F File Reference

#include "implicit_f.inc"
#include "comlock.inc"
#include "mvsiz_p.inc"
#include "lockon.inc"
#include "lockoff.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	i22sto (j_stok, irect, x, ii_stok, cand_b, cand_e, mulnsn, noint, marge, i_mem, prov_b, prov_e, eshift, itask, nc, ixs, bufbric, nbric, issto)

Function/Subroutine Documentation

i22sto()

subroutine i22sto	(	integer	j_stok,
		integer, dimension(4,*)	irect,
			x,
		integer	ii_stok,
		integer, dimension(*)	cand_b,
		integer, dimension(*)	cand_e,
		integer	mulnsn,
		integer	noint,
			marge,
		integer	i_mem,
		integer, dimension(mvsiz)	prov_b,
		integer, dimension(mvsiz)	prov_e,
		integer	eshift,
		integer	itask,
		integer	nc,
		integer, dimension(nixs,*)	ixs,
		integer, dimension(nbric)	bufbric,
		integer	nbric,
		logical	issto )

Definition at line 31 of file i22sto.F.

C============================================================================
C-----------------------------------------------
C   M o d u l e s
C-----------------------------------------------
      USE i22tri_mod !for debugging only
      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"
#include      "comlock.inc"
C-----------------------------------------------
C   G l o b a l   P a r a m e t e r s
C-----------------------------------------------
#include      "mvsiz_p.inc"
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER I_MEM, ITASK, IXS(NIXS,*), nbric
      INTEGER J_STOK,MULNSN,NOINT,ESHIFT,BUFBRIC(NBRIC)
      INTEGER IRECT(4,*),CAND_B(*),CAND_E(*),  NC
      INTEGER PROV_B(MVSIZ),PROV_E(MVSIZ),  II_STOK
      LOGICAL IsSTO
      my_real
     .        x(3,*),  marge
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I,I_STOK
C-----------------------------------------------
 
      IF(.NOT.issto)THEN         
        issto=.true.
c        if(ibug22_trivox==1)print *, "   lockon", ITASK
#include "lockon.inc" 
      END IF
 
      i_stok = ii_stok
 
      IF(i_stok + j_stok>mulnsn) THEN
        i_mem = 2 ! Not enough place allocated  
        issto = .false.
        !Ii_stok = zero made in i22buce     
c        if(ibug22_trivox==1)print *, "   lockoff", ITASK             
#include "lockoff.inc"  
        RETURN
      ENDIF
 
      DO i=1,j_stok         
        i_stok = i_stok + 1                         
        cand_b(i_stok) = prov_b(i) !brick number in the local group
        cand_e(i_stok) = prov_e(i) !is already a global number (1:NIRECT_L) no need ESHIFT    
c        if(ibug22_trivox==1)WRITE(*,FMT='(A,I8,A,I8,I8)')
c     .   "   I22sto : ecriture Bric=", 
c     .   IXS(11,BUFBRIC(PROV_B(I))), " ShellDiag= ",
c     .   NINT(IRECT_L((/1,3/),ABS(PROV_E(I))))
c        if(ibug22_trivox==1)print *, ""
      ENDDO
C-----------------------------------------------
      ii_stok = ii_stok + j_stok
         
!#include "Lockoff.inc" lockoff only losque the current brick is completely treated
 
      RETURN