C PREXN     SOURCE    CHAT      05/01/13    02:26:10     5004
      SUBROUTINE PREXN(MELEME,IEL,IZNOEU)
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
C************************************************************************
C
C
C************************************************************************

-INC PPARAM
-INC CCOPTIO
-INC SMELEME
-INC SMCOORD
      SEGMENT  IZNOEU
            REAL*8 XELE(IDIM,NOEL)
            INTEGER NOEGLO(NOEL)
      ENDSEGMENT
C
C
      NOEL=NUM(/1)
C
      DO 20 I=1,NOEL
      INO=NUM(I,IEL)
      NOEGLO(I)=INO
      DO 10 J=1,IDIM
      XELE(J,I)=XCOOR((INO-1)*(IDIM+1)+J)
  10  CONTINUE
  20  CONTINUE
C
C
      RETURN
      END