Télécharger la plaquette Cast3M


fr en

Télécharger combta.eso

Retour à la liste

Numérotation des lignes : 

combta

  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.  
  69. -INC PPARAM
  70. -INC CCOPTIO
  71. *
  72.       EXTERNAL COMBI2,COMB02
  73. *
  74. *
  75.       CHARACTER*(4) LOPTIO
  76. *
  77.       ICODE = 0
  78.       LOPTIO = ' '
  79.       CALL LIRCHA(LOPTIO,ICODE,IRETOU)
  80. *
  81.       ICODE = 1
  82.       CALL LIROBJ('CHPOINT ',IPCHP1,ICODE,IRETOU)
  83.       CALL ACTOBJ('CHPOINT ',IPCHP1,1)
  84.       IF (IERR .NE. 0) RETURN
  85. *
  86.       ICODE = 1
  87.       CALL LIROBJ('TABLE   ',IPTABL,ICODE,IRETOU)
  88.       IF (IERR .NE. 0) RETURN
  89. *
  90.       IF (LOPTIO .EQ. 'SEMB') THEN
  91.          CALL COMBT1 (IPCHP1,IPTABL,COMBI2,  IPCHP4)
  92.       ELSE
  93.          CALL COMBT1 (IPCHP1,IPTABL,COMB02,  IPCHP4)
  94.       END IF
  95.       IF (IERR .NE. 0) RETURN
  96.  
  97.       CALL ACTOBJ('CHPOINT ',IPCHP4,1)
  98.       CALL ECROBJ('CHPOINT ',IPCHP4)
  99.  
  100.       END
  101.  
  102.  
  103.  

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