Télécharger chcha2.eso

Retour à la liste

Numérotation des lignes :

  1. C CHCHA2 SOURCE CHAT 05/01/12 21:56:10 5004
  2. SUBROUTINE CHCHA2 (IBAS,ILEN1,ILEN2,ICONT)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. C====================================================================
  6. C SUBROUTINE POUR CHERCHER DANS UNE TABLE DE SOUSTYPE
  7. C "BASE_DE_MODES" LES DEFORMEES MODALES ET LES POINTS REPERES ASSOCIE
  8. C UTILISE PR EVRECO
  9. C IBAS (E) POINTEUR SUR LA TABLE DONT ON PART
  10. C ILEN1 (S) POINTEUR SUR LA LISTE DES DEFORMEE-MODALES
  11. C ILEN2 (S) POINTEUR SUR LA LISTE DES POINTS REPERE
  12. C======================================================================
  13. LOGICAL L0,L1
  14. -INC CCOPTIO
  15. -INC SMTABLE
  16. -INC SMLENTI
  17. *
  18. ILEN1 = 0
  19. ILEN2 = 0
  20. *
  21. MTABLE = IBAS
  22. SEGACT MTABLE
  23. * NINDIC = nombre de tables de modes.
  24. * Le premier indice est le SOUSTYPE
  25. * Le deuxi}me indice est le MAILLAGE
  26. NINDIC = MLOTAB-2
  27. SEGDES MTABLE
  28. JG = NINDIC
  29. SEGINI MLENT1
  30. ILEN1 = MLENT1
  31. SEGINI MLENT2
  32. ILEN2 = MLENT2
  33. *
  34. * on boucle sur les modes
  35. *
  36. DO 100 IN = 1 , NINDIC
  37. CALL ACCTAB(IBAS,'ENTIER',IN,X0,' ',L0,IP0,
  38. & 'TABLE',I1,X1,' ',L1,ITMOD)
  39. IF (ICONT.EQ.0) THEN
  40. CALL ACCTAB(ITMOD,'MOT',I0,X0,'DEFORMEE_MODALE',L0,IP0,
  41. & 'CHPOINT',I1,X1,' ',L1,ICDEP)
  42. ELSE IF (ICONT.EQ.2) THEN
  43. CALL ACCTAB(ITMOD,'MOT',I0,X0,'REACTION_MODALE',L0,IP0,
  44. & 'CHPOINT',I1,X1,' ',L1,ICDEP)
  45. ELSE
  46. CALL ACCTAB(ITMOD,'MOT',I0,X0,'CONTRAINTE_MODALE',L0,IP0,
  47. & 'MCHAML',I1,X1,' ',L1,ICHAM)
  48. IF (IERR.NE.0) RETURN
  49. CALL CHAMPO(ICHAM,1,ICDEP,IRET)
  50. IF ( IRET .NE. 1) RETURN
  51. ENDIF
  52. MLENT1.LECT(IN) = ICDEP
  53. CALL ACCTAB(ITMOD,'MOT',I0,X0,'POINT_REPERE',L0,IP0,
  54. & 'POINT',I1,X1,' ',L1,IPTR)
  55. MLENT2.LECT(IN) = IPTR
  56. 100 CONTINUE
  57. SEGDES MLENT1
  58. SEGDES MLENT2
  59. *
  60. END
  61.  
  62.  

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