Télécharger j3loap.eso

Retour à la liste

Numérotation des lignes :

  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. -INC CCOPTIO
  14. -INC SMCOORD
  15. -INC SMELEME
  16. C
  17. SEGMENT BLOCOM
  18. INTEGER POINT(NPOINT)
  19. REAL*8 YCOOR(IDIM+1,NPOINT)
  20. INTEGER MAILL(MM1)
  21. ENDSEGMENT
  22. C
  23. MM1=MAILL(/1)
  24. NPOIN1=NPOINT
  25. NPOINT=NPOINT+NPTO
  26. SEGADJ,BLOCOM
  27. C
  28. DO IE1=1,NPTO
  29. NUME=NUM(1,IE1)
  30. POINT(NPOIN1+IE1)=NUME
  31. IREF=(NUME-1)*(IDIM+1)
  32. DO IE2=1,IDIM+1
  33. YCOOR(IE2,NPOIN1+IE1)=XCOOR(IREF+IE2)
  34. ENDDO
  35. ENDDO
  36. C
  37. RETURN
  38. END
  39.  
  40.  
  41.  

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