Télécharger combta.eso

Retour à la liste

Numérotation des lignes :

  1. C COMBTA SOURCE CB215821 19/08/01 21:15:27 10279
  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. CALL ACTOBJ('CHPOINT ',IPCHP1,1)
  82. IF (IERR .NE. 0) RETURN
  83. *
  84. ICODE = 1
  85. CALL LIROBJ('TABLE ',IPTABL,ICODE,IRETOU)
  86. IF (IERR .NE. 0) RETURN
  87. *
  88. IF (LOPTIO .EQ. 'SEMB') THEN
  89. CALL COMBT1 (IPCHP1,IPTABL,COMBI2, IPCHP4)
  90. ELSE
  91. CALL COMBT1 (IPCHP1,IPTABL,COMB02, IPCHP4)
  92. END IF
  93. IF (IERR .NE. 0) RETURN
  94.  
  95. CALL ACTOBJ('CHPOINT ',IPCHP4,1)
  96. CALL ECROBJ('CHPOINT ',IPCHP4)
  97.  
  98. END
  99.  
  100.  
  101.  

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