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 36 : CALL ACCTAB(IBAS,'ENTIER',IN,X0,' ',L0,IP0, 37 : & 'TABLE',I1,X1,' ',L1,ITMOD) 38 : IF (ICONT.EQ.0) THEN 38 : CALL ACCTAB(ITMOD,'MOT',I0,X0,'DEFORMEE_MODALE',L0,IP0, 39 : & 'CHPOINT',I1,X1,' ',L1,ICDEP) 40 : ELSE IF (ICONT.EQ.2) THEN 40 : CALL ACCTAB(ITMOD,'MOT',I0,X0,'REACTION_MODALE',L0,IP0, 41 : & 'CHPOINT',I1,X1,' ',L1,ICDEP) 42 : ELSE 42 : CALL ACCTAB(ITMOD,'MOT',I0,X0,'CONTRAINTE_MODALE',L0,IP0, 43 : & 'MCHAML',I1,X1,' ',L1,ICHAM) 44 : IF (IERR.NE.0) RETURN 44 : CALL CHAMPO(ICHAM,1,ICDEP,IRET) 45 : IF ( IRET .NE. 1) RETURN 46 : ENDIF 47 : MLENT1.LECT(IN) = ICDEP 47 : CALL ACCTAB(ITMOD,'MOT',I0,X0,'POINT_REPERE',L0,IP0, 48 : & 'POINT',I1,X1,' ',L1,IPTR) 49 : MLENT2.LECT(IN) = IPTR 50 : 100 CONTINUE 51 : SEGDES MLENT1 52 : SEGDES MLENT2 53 : * 54 : END 55 :
© Cast3M 2003 - All rights reserved.
Disclaimer