Télécharger la plaquette Cast3M


fr en

Télécharger j3loap.eso

Retour à la liste

Numérotation des lignes : 

j3loap

  1. C J3LOAP    SOURCE    CHAT      05/01/13    00:47:02     5004
  2.       SUBROUTINE J3LOAP(MELEME,NPTO,BLOCOM,NPOINT)
  3. C----------------------------------------------------
  4. C     TRANSFERT DES POINTS INITIAUX DANS J3LOAP
  5. C
  6. C     PP 9/97
  7. C     Pierre Pegon/JRC Ispra
  8. C----------------------------------------------------
  9.       IMPLICIT INTEGER(I-N)
  10.       IMPLICIT REAL*8(A-H,O-Z)
  11.       DIMENSION P1(3)
  12. C
  13.  
  14. -INC PPARAM
  15. -INC CCOPTIO
  16. -INC SMCOORD
  17. -INC SMELEME
  18. C
  19.       SEGMENT BLOCOM
  20.         INTEGER POINT(NPOINT)
  21.         REAL*8 YCOOR(IDIM+1,NPOINT)
  22.         INTEGER MAILL(MM1)
  23.       ENDSEGMENT
  24. C
  25.       MM1=MAILL(/1)
  26.       NPOIN1=NPOINT
  27.       NPOINT=NPOINT+NPTO
  28.       SEGADJ,BLOCOM
  29. C
  30.       DO IE1=1,NPTO
  31.         NUME=NUM(1,IE1)
  32.         POINT(NPOIN1+IE1)=NUME
  33.         IREF=(NUME-1)*(IDIM+1)
  34.         DO IE2=1,IDIM+1
  35.           YCOOR(IE2,NPOIN1+IE1)=XCOOR(IREF+IE2)
  36.         ENDDO
  37.       ENDDO
  38. C
  39.       RETURN
  40.       END
  41.  
  42.  
  43.  

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