Télécharger dcomp1.eso

Retour à la liste

Numérotation des lignes :

  1. C DCOMP1 SOURCE CHAT 05/01/12 22:37:37 5004
  2. SUBROUTINE DCOMP1 (NUMPO1,LNUMPO,XCOOR, SUITX,SUITY,SUITZ)
  3. ************************************************************************
  4. *
  5. * D C O M P 1
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * DECOMPOSER UNE SUITE DE POINTS EN 2 OU 3 SUITES DE REELS (SELON LA
  12. * DIMENSION DE L'ESPACE).
  13. *
  14. * MODULES UTILISES:
  15. * -----------------
  16. *
  17. IMPLICIT INTEGER(I-N)
  18.  
  19. -INC PPARAM
  20. -INC CCOPTIO
  21. *
  22. * PARAMETRES: (E)=ENTREE (S)=SORTIE (+ = CONTENU DANS UN COMMUN)
  23. * -----------
  24. *
  25. * +IDIM (E) VOIR LE COMMUN "COPTIO".
  26. * NUMPO1 (E) LISTE DE NUMEROS DE POINTS.
  27. * LNUMPO (E) LONGUEUR DE LA LISTE "NUMPO1".
  28. * XCOOR (E) ANALOGUE AU CONTENU DU SEGMENT "MCOORD".
  29. * SUITX (S) TABLE DES ABSCISSES ASSOCIEES AUX POINTS DE "NUMPO1".
  30. * SUITY (S) TABLE DES ORDONNESS ASSOCIEES AUX POINTS DE "NUMPO1".
  31. * SUITZ (S) TABLE DES COTES ASSOCIEES AUX POINTS DE "NUMPO1".
  32. * (SI DIMENSION 3)
  33. *
  34. INTEGER NUMPO1(*),LNUMPO
  35. REAL*8 XCOOR(*),SUITX(*),SUITY(*),SUITZ(*)
  36. *
  37. * AUTEUR, DATE DE CREATION:
  38. * -------------------------
  39. *
  40. * PASCAL MANIGOT 24 FEVRIER 1987
  41. *
  42. * LANGAGE:
  43. * --------
  44. *
  45. * FORTRAN77 + EXTENSION: DECLARATION "REAL*8".
  46. *
  47. ************************************************************************
  48. *
  49. IDIMP1 = IDIM + 1
  50. DO 100 IB=1,LNUMPO
  51. NN = (NUMPO1(IB) - 1) * IDIMP1
  52. SUITX(IB) = XCOOR(NN+1)
  53. SUITY(IB) = XCOOR(NN+2)
  54. IF (IDIM .EQ. 3) SUITZ(IB) = XCOOR(NN+3)
  55. 100 CONTINUE
  56. * END DO
  57. *
  58. END
  59.  
  60.  

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