Télécharger la plaquette Cast3M


fr en

Télécharger sigtab.eso

Retour à la liste

Numérotation des lignes : 

sigtab

  1. C SIGTAB    SOURCE    CB215821  20/11/25    13:39:51     10792          
  2.  
  3.       SUBROUTINE SIGTAB(TYPE,IBAS,IPCHE1,IPCHE2,IMAT,IPMODL)
  4.  
  5.       IMPLICIT INTEGER(I-N)
  6.       IMPLICIT REAL*8(A-H,O-Z)
  7.  
  8. *_____________________________________________________________________
  9. *                                                                    *
  10. *     Calcule les contraintes.                                       *
  11. *                                                                    *
  12. *     Entr{es:                                                       *
  13. *     ________                                                       *
  14. *                                                                    *
  15. *       TYPE   indique le type de la table                           *
  16. *       IBAS   table repr{sentant une base modale,ou les pseudo_modes*
  17. *       IPCHE1 pointeur sur le MCHAML de CARACTERISTIQUES            *
  18. *       IPCHE2 pointeur sur le MCHAML de HOOKE                       *
  19. *       IMAT   flag de mar{riau                                      *
  20. *       IPODL  Pointeur sur un MMODEL                                *
  21. *                                                                    *
  22. *     Sorties:                                                       *
  23. *     ________                                                       *
  24. *                                                                    *
  25. *       IBAS   table repr{sentant une base modale,ou les pseudo_modes*
  26. *                                                                    *
  27. *     Auteur, date de cr{ation:                                      *
  28. *                                                                    *
  29. *     Lionel VIVAN, le 25 avril 1990.                                *
  30. *                                                                    *
  31. *--------------------------------------------------------------------*
  32. *
  33.  
  34. -INC PPARAM
  35. -INC CCOPTIO
  36. -INC SMCHPOI
  37. *
  38.       LOGICAL L0,L1
  39.       CHARACTER*4 TYPE
  40.       CHARACTER*8 TYPRET,CHARRE
  41.       CHARACTER*72 CTEXT
  42. *
  43.       IMODE = 0
  44.  10   CONTINUE
  45.       IMODE = IMODE + 1
  46.       TYPRET = ' '
  47.       CALL ACCTAB(IBAS,'ENTIER',IMODE,X0,' ',L0,IP0,
  48.      &                   TYPRET,I1,X1,CHARRE,L1,ITBMOD)
  49.       IF (ITBMOD.NE.0 .AND. TYPRET.EQ.'TABLE   ') THEN
  50.          IF (TYPE.EQ.'MODE') THEN
  51.             CALL ACCTAB(ITBMOD,'MOT',I0,X0,'DEFORMEE_MODALE',L0,IP0,
  52.      &                     'CHPOINT',I1,X1,' ',L1,ICDM)
  53.          ELSE IF (TYPE.EQ.'PSMO') THEN
  54.             CALL ACCTAB(ITBMOD,'MOT',I0,X0,'DEPLACEMENT',L0,IP0,
  55.      &                     'CHPOINT',I1,X1,' ',L1,ICDM)
  56.          ELSE
  57.            RETURN
  58.          ENDIF
  59.          IPOI1 = ICDM
  60.          CALL ACTOBJ('CHPOINT ',IPOI1,1)
  61.          MCHPOI = IPOI1
  62.          CTEXT = MOCHDE
  63.          inoer=0
  64.          CALL SIGMAP(0,IPMODL,IPOI1,IPCHE1,IPCHE2,IMAT,IPOI8,IRET,inoer)
  65.          IF (IRET.NE.0) THEN
  66.               IF (TYPE.EQ.'MODE') THEN
  67.                  CALL ECCTAB(ITBMOD,'MOT',I0,X0,'CONTRAINTE_MODALE',L0,
  68.      &                       IP0,'MCHAML',I1,X1,' ',L1,IPOI8)
  69.               ELSE IF (TYPE.EQ.'PSMO') THEN
  70.                  CALL ECCTAB(ITBMOD,'MOT',I0,X0,'CONTRAINTE',L0,IP0,
  71.      &                       'MCHAML',I1,X1,' ',L1,IPOI8)
  72.               ELSE
  73.                 RETURN
  74.               ENDIF
  75.          ENDIF
  76.          GOTO 10
  77.       ENDIF
  78.       END
  79.  
  80.  
  81.  
  82.  
  83.  

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