Télécharger norma5.eso

Retour à la liste

Numérotation des lignes :

  1. C NORMA5 SOURCE CHAT 05/01/13 02:00:08 5004
  2. SUBROUTINE NORMA5(ITBAS,IPLMOT,MOTCLE,IFLUI,COEFP,COEFPI)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. ************************************************************************
  6. *
  7. * N O R M A 5
  8. * -----------
  9. *
  10. * FONCTION:
  11. * ---------
  12. *
  13. * NORMER UNE 'TABLE' EN RAMENANT SA PLUS GRANDE VALEUR A 1
  14. * ON NE CREE PAS UNE NOUVELL TABLE. LA NORMALISATION EST FAITE
  15. * SUR LES CHAMPS DE DEPLACEMENT UNIQUEMENT.
  16. *
  17. * MODE D'APPEL:
  18. * -------------
  19. *
  20. * CALL NORMA5 (ITBAS,IPLMOT,MOTCLE,IFLUI,COEFP,COEFPI)
  21. *
  22. * ARGUMENTS: (E)=ENTREE (S)=SORTIE
  23. * ----------
  24. *
  25. * ITBAS ENTIER (E) POINTEUR SUR L'OBJET 'TABLE' A NORMER.
  26. * IPLMOT ENTIER (E) VOIR LE S.P. "MAXIM1".
  27. * MOTCLE CHARACTER (E) VOIR LE S.P. "MAXIM1".
  28. * IFLUI ENTIER (E) IL Y A DES COEF POUR P ET PI (0 SINON)
  29. * COEFP REEL (E) COEFFICIENT A APPLIQUER A LA COMPOSANTE P
  30. * COEFPI REEL (E) COEFFICIENT A APPLIQUER A LA COMPOSANTE PI
  31. *
  32. * SOUS-PROGRAMMES APPELES:
  33. * ------------------------
  34. *
  35. * NORMA3
  36. *
  37. * AUTEUR, DATE DE CREATION:
  38. * -------------------------
  39. *
  40. * LIONEL VIVAN 2 AOUT 90
  41. *
  42. * LANGAGE:
  43. * --------
  44. *
  45. * ESOPE + FORTRAN77
  46. *
  47. ************************************************************************
  48. *
  49. -INC CCOPTIO
  50. -INC SMTABLE
  51. *
  52. SEGMENT/MTEMP2/ (MAXSOU,MAXN,MAXNC)
  53. * (REMPLI DANS LE S.P. "MAXIM1")
  54. CHARACTER*4 MOTCLE
  55. CHARACTER*8 TYPRET,CHARRE
  56. LOGICAL L0,L1
  57. *
  58. SEGINI MTEMP2
  59. ITEMP2 = MTEMP2
  60. *
  61. IM = 0
  62. 10 CONTINUE
  63. IM = IM + 1
  64. TYPRET = ' '
  65. CALL ACCTAB(ITBAS,'ENTIER',IM,X0,' ',L0,IP0,
  66. & TYPRET,I1,X1,CHARRE,L1,ITMOD)
  67.  
  68. IF (ITMOD.NE.0 .AND. TYPRET.EQ.'TABLE ') THEN
  69.  
  70. CALL ACCTAB(ITMOD,'MOT',I0,X0,'DEFORMEE_MODALE',L0,IP0,
  71. & 'CHPOINT',I1,X1,' ',L1,ICHPOI)
  72. CALL NORMA3(ICHPOI,IPLMOT,MOTCLE,IFLUI,COEFP,COEFPI,
  73. & ITEMP2,PGRAND)
  74. IF (IERR.NE.0) RETURN
  75. CALL ECCTAB(ITMOD,'MOT',I0,X0,'DEFORMEE_MODALE',L0,IP0,
  76. & 'CHPOINT',I1,X1,' ',L1,ICHPOI)
  77. *
  78. CALL ACCTAB(ITMOD,'MOT',I0,X0,'MASSE_GENERALISEE',L0,IP0,
  79. & 'FLOTTANT',I1,XMGEN,' ',L1,IP1)
  80. XMGEN = XMGEN / ( PGRAND * PGRAND )
  81. CALL ECCTAB(ITMOD,'MOT',I0,X0,'MASSE_GENERALISEE',L0,IP0,
  82. & 'FLOTTANT',I1,XMGEN,' ',L1,IP1)
  83. *
  84. CALL ACCTAB(ITMOD,'MOT',I0,X0,'DEPLACEMENTS_GENERALISES',L0,
  85. & IP0,'TABLE',I1,X1,' ',L1,ITDG)
  86. DO 12 IN = 1,3
  87. CALL ACCTAB(ITDG,'ENTIER',IN,X0,' ',L0,IP0,
  88. & 'FLOTTANT',I1,XQ,' ',L1,IP1)
  89. XQ = XQ / PGRAND
  90. CALL ECCTAB(ITDG,'ENTIER',IN,X0,' ',L0,IP0,
  91. & 'FLOTTANT',I1,XQ,' ',L1,IP1)
  92. 12 CONTINUE
  93.  
  94. TYPRET = ' '
  95. CALL ACCTAB(ITMOD,'MOT',I0,X0,'CONTRAINTE_MODALE',L0,IP0,
  96. & TYPRET,I1,X1,CHARRE,L1,ICHML)
  97. IF (ICHML.NE.0 .AND. TYPRET.EQ.'MCHAML ') THEN
  98. CALL MUCHEL (ICHML,PGRAND,ICHML2,-1)
  99. CALL ECCTAB(ITMOD,'MOT',I0,X0,'CONTRAINTE_MODALE',L0,IP0,
  100. & 'MCHAML',I1,X1,' ',L1,ICHML2)
  101. ENDIF
  102. *
  103.  
  104. GOTO 10
  105. ENDIF
  106. *
  107. END
  108.  
  109.  
  110.  

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