c_drape.F File Reference

#include "implicit_f.inc"
#include "mvsiz_p.inc"

Go to the source code of this file.

Functions/Subroutines
subroutine	c_drape (indx, cep, p, numel, neldrp_l)

Function/Subroutine Documentation

c_drape()

subroutine c_drape	(	integer, dimension(numel)	indx,
		integer, dimension(*)	cep,
		integer	p,
		integer	numel,
		integer	neldrp_l )

Definition at line 28 of file c_drape.F.

C---------------------------------------------
C   I m p l i c i t   T y p e s
C-----------------------------------------------
#include      "implicit_f.inc"
#include      "mvsiz_p.inc"
C-----------------------------------------------
C   C o m m o n   B l o c k s
C-----------------------------------------------
C-----------------------------------------------
C   D u m m y   A r g u m e n t s
C-----------------------------------------------
      INTEGER CEP(*), P, NUMEL, NUMEL_L
      INTEGER, DIMENSION(NUMEL) :: INDX
C-----------------------------------------------
C   F u n c t i o n
C-----------------------------------------------
C-----------------------------------------------
C   L o c a l   V a r i a b l e s
C-----------------------------------------------
      INTEGER I, EL, J,NPT,NDIM,IDX,NUMELDRP_L,NDIM_SLICE,
     .        NDIM_INDX_PLY,K,II,IS,NEL,NSLICE,NELDRP_L,NPT_DRP
      my_real, DIMENSION(:,:), ALLOCATABLE :: rtmp
      INTEGER, DIMENSION(:,:), ALLOCATABLE :: ITMP
      INTEGER, DIMENSION(:)  , ALLOCATABLE :: NPTDRP_ELT,ISLICE,INDX_PLY,
     .                                        NPT_ELT,INDEX
C-----------------------------------------------
!     allocate 2d array
! --------------------------------------
C    
      neldrp_l = 0
      DO i = 1, numel
        IF(cep(i)== p) THEN
          ii = indx(i)
          IF(ii > 0) THEN
            neldrp_l = neldrp_l + 1 
          ENDIF  
         ENDIF 
      ENDDO           
! --------------------------------------
      RETURN