Télécharger combta.eso

Retour à la liste

Numérotation des lignes :

  1. C COMBTA SOURCE CHAT 05/01/12 22:14:17 5004
  2. SUBROUTINE COMBTA
  3. ************************************************************************
  4. *
  5. * C O M B T A
  6. * -----------
  7. *
  8. * SOUS-PROGRAMME ASSOCIE A L'OPERATEUR "COMBTABLE"
  9. *
  10. * FONCTION:
  11. * ---------
  12. *
  13. * EFFECTUER LA COMBINAISON LINEAIRE DE CHPOINTS CONSIGNES DANS UNE
  14. * TABLE, INDICES PAR DES POINTS.
  15. *
  16. * PHRASE D'APPEL (EN GIBIANE):
  17. * ----------------------------
  18. *
  19. * CC = COMBTABLE (SEMBLABLE) AA BB ;
  20. *
  21. * LES PARENTHESES INDIQUANT UN ARGUMENT FACULTATIF.
  22. *
  23. * OPERANDES ET RESULTATS:
  24. * -----------------------
  25. *
  26. * SEMBLABL 'MOT ' MOT-CLE INDIQUANT QUE LES CHPOINTS A
  27. * COMBINER S'APPUIENT SUR LA MEME GEOMETRIE.
  28. * AA 'CHPOINT ' CONTIENT LES COEFFICIENTS DE PONDERATION.
  29. * BB 'TABLE ' CONTIENT LES CHPOINTS A COMBINER.
  30. * CC 'CHPOINT ' COMBINAISON DES CHPOINTS DE LA TABLE.
  31. *
  32. * MODE DE FONCTIONNEMENT:
  33. * -----------------------
  34. *
  35. * LES COEFFICIENTS DE PONDERATION DES CHPOINTS DOIVENT ETRE RANGES
  36. * DANS UN CHPOINT A 1 COMPOSANTE (QUELCONQUE) APPUYE SUR L'ENSEMBLE
  37. * OU UN SOUS-ENSEMBLE DES POINTS-INDICES DE LA TABLE.
  38. * NE DEFINIR LE CHPOINT DES COEFFICIENTS QUE SUR UN SOUS-ENSEMBLE
  39. * EQUIVAUT A ATTRIBUER DES COEFFICIENTS DE PONDERATION NULS AUX
  40. * CHPOINTS DE LA TABLE DONT LES POINTS-INDICES SONT EXCLUS DU
  41. * SOUS-ENSEMBLE.
  42. *
  43. * REMARQUES:
  44. * ----------
  45. *
  46. * L'OPTION "SEMBLABLE" ACCELERE LE CALCUL, MAIS DEMANDE AU
  47. * PROGRAMMEUR UNE BONNE MAITRISE ET UNE BONNE CONNAISSANCE DE LA
  48. * STRUCTURE DE SES CHPOINTS.
  49. *
  50. * SOUS-PROGRAMMES APPELES:
  51. * ------------------------
  52. *
  53. * COMBT1, LIRE, ECRIRE.
  54. *
  55. * AUTEUR, DATE DE CREATION:
  56. * -------------------------
  57. *
  58. * PASCAL MANIGOT 30 MAI 1985
  59. *
  60. * LANGAGE:
  61. * --------
  62. *
  63. * FORTRAN77 + EXTENSION: CARACTERES MIS DANS DES ENTIERS
  64. *
  65. ************************************************************************
  66. *
  67. IMPLICIT INTEGER(I-N)
  68. -INC CCOPTIO
  69. *
  70. EXTERNAL COMBI2,COMB02
  71. *
  72. *
  73. CHARACTER*(4) LOPTIO
  74. *
  75. ICODE = 0
  76. LOPTIO = ' '
  77. CALL LIRCHA(LOPTIO,ICODE,IRETOU)
  78. *
  79. ICODE = 1
  80. CALL LIROBJ ('CHPOINT ',IPCHP1,ICODE,IRETOU)
  81. IF (IERR .NE. 0) RETURN
  82. *
  83. ICODE = 1
  84. CALL LIROBJ ('TABLE ',IPTABL,ICODE,IRETOU)
  85. IF (IERR .NE. 0) RETURN
  86. *
  87. IF (LOPTIO .EQ. 'SEMB') THEN
  88. CALL COMBT1 (IPCHP1,IPTABL,COMBI2, IPCHP4)
  89. ELSE
  90. CALL COMBT1 (IPCHP1,IPTABL,COMB02, IPCHP4)
  91. END IF
  92. IF (IERR .NE. 0) RETURN
  93. *
  94. CALL ECROBJ ('CHPOINT ',IPCHP4)
  95. *
  96. END
  97.  
  98.  

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