Télécharger la plaquette Cast3M


fr en

Télécharger copba4.eso

Retour à la liste

Numérotation des lignes : 

copba4

  1. C COPBA4    SOURCE    BP208322  14/09/15    21:15:19     8150
  2.       SUBROUTINE COPBA4(ITMOD,ITPSM)
  3.       IMPLICIT INTEGER(I-N)
  4.       IMPLICIT REAL*8(A-H,O-Z)
  5. ************************************************************************
  6. *                                                                      *
  7. *     Projecte le champ base B des pseudo-modes sur la base modale.    *
  8. *                                                                      *
  9. *     Param}tres:                                                      *
  10. *                                                                      *
  11. * e   ITMOD   Table des modes de sous-type BASE_DE_MODES               *
  12. * es  ITPSM   Table des pseudo-modes                                   *
  13. *                                                                      *
  14. *                                                                      *
  15. *     Auteur, date de cr{ation:                                        *
  16. *                                                                      *
  17. *     Lionel VIVAN       Aout 1990                                     *
  18. *                                                                      *
  19. ************************************************************************
  20. *
  21.       LOGICAL L0,L1
  22.       CHARACTER*8 TYPRET,CHARRE
  23.       CHARACTER*40 MONTYP
  24. *
  25.       IPSM = 0
  26.  10   CONTINUE
  27.       IPSM = IPSM + 1
  28.       TYPRET = ' '
  29.       CALL ACCTAB(ITPSM,'ENTIER',IPSM,X0,' ',L0,IP0,
  30.      &                  TYPRET,I1,X1,CHARRE,L1,ITTP)
  31.       IF (TYPRET.EQ.'TABLE   ' .AND. ITTP.NE.0) THEN
  32.          CALL ACCTAB(ITTP,'MOT',I0,X0,'SOUSTYPE',L0,IP0,
  33.      &                    'MOT',I1,X1,MONTYP,L1,IP1)
  34. *
  35. *        cas des forces concentr{es
  36. *
  37.          IF (MONTYP(1:9).EQ.'PSMO_FORC') THEN
  38.             CALL ACCTAB(ITTP,'MOT',I0,X0,'CHAMP_BASE_B',L0,IP0,
  39.      &                       'CHPOINT',I1,X1,' ',L1,ICHPT)
  40.             CALL PROJTA(ICHPT,ITMOD,0,ICHPR)
  41.             CALL ECCTAB(ITTP,'MOT',I0,X0,'CHAMP_BASE_A',L0,IP0,
  42.      &                       'CHPOINT',I1,X1,' ',L1,ICHPR)
  43. *
  44. *        cas des structures multisupport{es
  45. *
  46.          ELSE IF (MONTYP(1:9).EQ.'PSMO_DEPL') THEN
  47.             CALL ACCTAB(ITTP,'MOT',I0,X0,'CHAMP_BASE_B',L0,IP0,
  48.      &                       'CHPOINT',I1,X1,' ',L1,ICHPT)
  49.             CALL PROJTA(ICHPT,ITMOD,0,ICHPR)
  50.             CALL ECCTAB(ITTP,'MOT',I0,X0,'CHAMP_BASE_A',L0,IP0,
  51.      &                       'CHPOINT',I1,X1,' ',L1,ICHPR)
  52.          ENDIF
  53.          GOTO 10
  54.       ENDIF
  55. *
  56.       END
  57.  
  58.  
  59.  
  60.  

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