Télécharger norma4.eso

Retour à la liste

Numérotation des lignes :

  1. C NORMA4 SOURCE CHAT 05/01/13 02:00:04 5004
  2. SUBROUTINE NORMA4(MSOLUT,IPLMOT,MOTCLE,IFLUI,COEFP,COEFPI)
  3. ************************************************************************
  4. *
  5. * N O R M A 4
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * NORMER UN 'MSOLUT' EN RAMENANT SA PLUS GRANDE VALEUR A 1
  12. * ON NE CREE PAS UN NOUVEAU MSOLUT. LA NORMALISATION EST FAITE
  13. * SUR LES CHAMPS DE DEPLACEMENT UNIQUEMENT (MSOLIS(5))
  14. *
  15. * MODE D'APPEL:
  16. * -------------
  17. *
  18. * CALL NORMA4 (MSOLUT,IPLMOT,MOTCLE,IFLUI,COEFP,COEFPI)
  19. *
  20. * ARGUMENTS: (E)=ENTREE (S)=SORTIE
  21. * ----------
  22. *
  23. * MSOLUT ENTIER (E) POINTEUR SUR L'OBJET 'MSOLUT' A NORMER.
  24. * IPLMOT ENTIER (E) VOIR LE S.P. "MAXIM1".
  25. * MOTCLE CHARACTER (E) VOIR LE S.P. "MAXIM1".
  26. * IFLUI ENTIER (E) IL Y A DES COEF POUR P ET PI (0 SINON)
  27. * COEFP REEL (E) COEFFICIENT A APPLIQUER A LA COMPOSANTE P
  28. * COEFPI REEL (E) COEFFICIENT A APPLIQUER A LA COMPOSANTE PI
  29. *
  30. * SOUS-PROGRAMMES APPELES:
  31. * ------------------------
  32. *
  33. * NORMA3
  34. *
  35. * AUTEUR, DATE DE CREATION:
  36. * -------------------------
  37. *
  38. * MARTINE FARVACQUE 10 JUIN 86
  39. *
  40. * LANGAGE:
  41. * --------
  42. *
  43. * ESOPE + FORTRAN77
  44. *
  45. ************************************************************************
  46. *
  47. IMPLICIT INTEGER(I-N)
  48. -INC CCOPTIO
  49. -INC SMCHPOI
  50. -INC SMSOLUT
  51. *
  52. SEGMENT/MTEMP2/ (MAXSOU,MAXN,MAXNC)
  53. * (REMPLI DANS LE S.P. "MAXIM1")
  54. REAL*8 PGRAND,COEFP,COEFPI
  55. CHARACTER*4 MOTCLE
  56. *
  57. SEGACT MSOLUT*MOD
  58. MSOLEN=MSOLIS(5)
  59. MSOLE1=MSOLIS(4)
  60. SEGACT MSOLEN*MOD,MSOLE1*MOD
  61. SEGINI MTEMP2
  62. ITEMP2=MTEMP2
  63. *
  64. DO 1 ICH=1,ISOLEN(/1)
  65. ICHPOI=ISOLEN(ICH)
  66. CALL NORMA3 (ICHPOI,IPLMOT,MOTCLE,IFLUI,COEFP,COEFPI,ITEMP2,
  67. 1 PGRAND)
  68. *
  69. MMODE=MSOLE1.ISOLEN(ICH)
  70. SEGACT MMODE*MOD
  71. FMMODD(2)=FMMODD(2)/(PGRAND*PGRAND)
  72. DO 2 I=3,5
  73. FMMODD(I)=FMMODD(I)/PGRAND
  74. 2 CONTINUE
  75. SEGDES MMODE
  76. *
  77. 1 CONTINUE
  78. SEGDES MSOLEN,MSOLE1
  79. SEGDES MSOLUT
  80. SEGSUP MTEMP2
  81. RETURN
  82. END
  83.  
  84.  
  85.  

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