Télécharger la plaquette Cast3M


fr en

Télécharger infdpg.eso

Retour à la liste

Numérotation des lignes : 

infdpg

  1. C INFDPG    SOURCE    FANDEUR   16/01/07    21:15:29     8756
  2. C INFDPG    SOURCE
  3.  
  4. *----------------------------------------------------------------------*
  5. *  SOUS-PROGRAMME RECUPERANT LES INFORMATIONS LIEES AU MODE DE CALCUL  *
  6. *  EN DEFORMATIONS PLANES GENERALISEES SELON LA FORMULATION DU MODELE  *
  7. *----------------------------------------------------------------------*
  8. *  ENTREES :                                                           *
  9. *     MFR    (ENTIER)   Formulation du (sous-)modele etudie            *
  10. *     IFOUR  (ENTIER)   Indicateur du mode de calcul courant (OPTION)  *
  11. *                                                                      *
  12. *   SORTIES :                                                          *
  13. *     BDPGE  (LOGIQUE)  VRAI si les DEFOrmations PLANEs GENEralisees   *
  14. *                       sont a traiter pour le (sous-)modele etudie    *
  15. *                       FAUX sinon                                     *
  16. *     NDPGE  (ENTIER)   Nombre d'inconnues primales associees au mode  *
  17. *                       de calcul DPGE si BDPGE est VRAI               *
  18. *                       Nombre egal a 0 sinon                          *
  19. *----------------------------------------------------------------------*
  20.  
  21.       SUBROUTINE INFDPG (MFR,IFOUR, BDPGE,NDPGE)
  22.  
  23.       IMPLICIT INTEGER(I-N)
  24.       IMPLICIT REAL*8(A-H,O-Z)
  25.  
  26.       LOGICAL BDPGE
  27.  
  28. C====
  29. C Formulations ou on ne prend pas en compte les DPGE :
  30. C [Voir le sous-programme NUMMFR pour le descriptif des valeurs de MFR]
  31. C====
  32.       IF (MFR.NE.01 .AND. MFR.NE.03 .AND. MFR.NE.05 .AND.
  33.      &    MFR.NE.27 .AND. MFR.NE.25 .AND.
  34.      &    MFR.NE.31 .AND. MFR.NE.33 .AND. MFR.NE.57 .AND.
  35.      &    MFR.NE.59 .AND. MFR.NE.63) THEN
  36.         BDPGE = .FALSE.
  37.         NDPGE = 0
  38. C====
  39. C Les DPGE sont prises en compte si le mode de calcul est bien un
  40. C mode de calcul en DEFORMATIONS GENERALISEES.
  41. C====
  42.       ELSE
  43. C- Mode 2D (DEFO) PLAN GENE
  44.         IF (IFOUR.EQ.-3) THEN
  45.           BDPGE = .TRUE.
  46.           NDPGE = 3
  47. C- Mode 1D UNID PLAN GY et GZ
  48.         ELSE IF (IFOUR.EQ.11) THEN
  49.           BDPGE = .TRUE.
  50.           NDPGE = 2
  51. C- Mode 1D UNID PLAN GY ou GZ / AXIS GZ
  52.         ELSE IF (IFOUR.EQ. 7.OR.IFOUR.EQ. 8.OR.IFOUR.EQ. 9.OR.
  53.      &           IFOUR.EQ.10.OR.IFOUR.EQ.14) THEN
  54.           BDPGE = .TRUE.
  55.           NDPGE = 1
  56.         ELSE
  57.           BDPGE = .FALSE.
  58.           NDPGE = 0
  59.         ENDIF
  60.       ENDIF
  61. C*G      write(*,*) 'INFDPG :',MFR,IFOUR,' -> ',BDPGE,NDPGE
  62.  
  63.       RETURN
  64.       END
  65.  
  66.  
  67.  

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