Sources Esope | Cast3M

crelem
C CRELEM    SOURCE    BP208322  16/11/18    21:16:08     9177           
C     CONVERTIT UN POINT EN L'ELEMENT CONTENANT CE POINT
C
      SUBROUTINE CRELEM(IRANG)
      IMPLICIT INTEGER(I-N)
-INC SMELEME
-INC CCGEOME
      NBNN=1
      NBSOUS=0
      NBREF=0
      NBELEM=1
      SEGINI MELEME
      ITYPEL=1
      NUM(1,1)=IRANG
      ICOLOR(1)=IDCOUL
      IRANG=MELEME
      RETURN
      END