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.  
  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