w_crkxfem.F File Reference

#include "implicit_f.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	w_crkxfem (ielc_l, ieltg_l, inod_l, numelc_l, numeltg_l, numnod_l, len_ia, numnodcrk_l, nodlevxf_l)

Function/Subroutine Documentation

w_crkxfem()

subroutine w_crkxfem	(	integer, dimension(*)	ielc_l,
		integer, dimension(*)	ieltg_l,
		integer, dimension(*)	inod_l,
		integer	numelc_l,
		integer	numeltg_l,
		integer	numnod_l,
		integer	len_ia,
		integer	numnodcrk_l,
		integer, dimension(*)	nodlevxf_l )

Definition at line 29 of file w_crkxfem.F.

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 IELC_L(*),IELTG_L(*),INOD_L(*),LEN_IA,
     .        NUMELC_L,NUMELTG_L,NUMNOD_L,NUMNODCRK_L,NODLEVXF_L(*)
C=======================================================================
      CALL write_i_c(inod_l,numnod_l)     ! nodes std
      len_ia = len_ia + numnod_l
C      
      CALL write_i_c(ielc_l,numelc_l)     ! shell 4N std
      len_ia = len_ia + numelc_l
C
      CALL write_i_c(ieltg_l,numeltg_l)   ! shell 3N std 
      len_ia = len_ia + numeltg_l
C
      CALL write_i_c(nodlevxf_l,numnodcrk_l)  ! NLEV de chaque noeud local
      len_ia = len_ia + numnodcrk_l
c-----------         
      RETURN