Télécharger prexn.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  10. -INC SMELEME
  11. -INC SMCOORD
  12. SEGMENT IZNOEU
  13. REAL*8 XELE(IDIM,NOEL)
  14. INTEGER NOEGLO(NOEL)
  15. ENDSEGMENT
  16. C
  17. C
  18. NOEL=NUM(/1)
  19. C
  20. DO 20 I=1,NOEL
  21. INO=NUM(I,IEL)
  22. NOEGLO(I)=INO
  23. DO 10 J=1,IDIM
  24. XELE(J,I)=XCOOR((INO-1)*(IDIM+1)+J)
  25. 10 CONTINUE
  26. 20 CONTINUE
  27. C
  28. C
  29. RETURN
  30. END
  31.  
  32.  

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