Télécharger la plaquette Cast3M


fr en

Télécharger prexn.eso

Retour à la liste

Numérotation des lignes : 

prexn

  1. C PREXN     SOURCE    CHAT      05/01/13    02:26:10     5004
  2.       SUBROUTINE PREXN(MELEME,IEL,IZNOEU)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8 (A-H,O-Z)
  5. C************************************************************************
  6. C
  7. C
  8. C************************************************************************
  9.  
  10. -INC PPARAM
  11. -INC CCOPTIO
  12. -INC SMELEME
  13. -INC SMCOORD
  14.       SEGMENT  IZNOEU
  15.             REAL*8 XELE(IDIM,NOEL)
  16.             INTEGER NOEGLO(NOEL)
  17.       ENDSEGMENT
  18. C
  19. C
  20.       NOEL=NUM(/1)
  21. C
  22.       DO 20 I=1,NOEL
  23.       INO=NUM(I,IEL)
  24.       NOEGLO(I)=INO
  25.       DO 10 J=1,IDIM
  26.       XELE(J,I)=XCOOR((INO-1)*(IDIM+1)+J)
  27.   10  CONTINUE
  28.   20  CONTINUE
  29. C
  30. C
  31.       RETURN
  32.       END
  33.  
  34.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales