Télécharger infdpg.eso

Retour à la liste

Numérotation des lignes :

  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