Télécharger norma3.eso

Retour à la liste

Numérotation des lignes :

  1. C NORMA3 SOURCE CHAT 05/01/13 01:59:59 5004
  2. SUBROUTINE NORMA3(ICHPOI,IPLMOT,MOTCLE,IFLUI,COEFP,COEFPI,IPLAC1,
  3. 1 PGRAND)
  4. ************************************************************************
  5. *
  6. * N O R M A 3
  7. * -----------
  8. *
  9. * FONCTION:
  10. * ---------
  11. *
  12. * NORMER UN 'CHPOINT EN RAMENANT SA PLUS GRANDE VALEUR A 1
  13. * ON NE CREE PAS UN NOUVEAU CHPOINT
  14. *
  15. * MODE D'APPEL:
  16. * -------------
  17. *
  18. * CALL NORMA3 (ICHPOI,IPLMOT,MOTCLE,IFLUI,COEFP,COEFPI,IPLAC1,PGRAND
  19. *
  20. * ARGUMENTS: (E)=ENTREE (S)=SORTIE
  21. * ----------
  22. *
  23. * ICHPOI ENTIER (E) POINTEUR SUR L'OBJET 'CHPOINT' 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. * IPLAC1 ENTIER (E) POINTEUR SUR SEGMENT MTEMP2 OU ZERO(0)
  30. * PGRAND REEL (S) COEFFICIENT DE NORMALISATION
  31. *
  32. * SOUS-PROGRAMMES APPELES:
  33. * ------------------------
  34. *
  35. * MAXIM4,MAXIM1, ERREUR.
  36. *
  37. * AUTEUR, DATE DE CREATION:
  38. * -------------------------
  39. *
  40. * MARTINE FARVACQUE 10 JUIN 86
  41. *
  42. * LANGAGE:
  43. * --------
  44. *
  45. * ESOPE + FORTRAN77
  46. *
  47. ************************************************************************
  48. *
  49. IMPLICIT INTEGER(I-N)
  50. -INC CCOPTIO
  51. -INC SMCHPOI
  52. *
  53. SEGMENT/MTEMP2/ (MAXSOU,MAXN,MAXNC)
  54. * (REMPLI DANS LE S.P. "MAXIM1")
  55. *
  56. REAL*8 PGRAND,COEFP,COEFPI
  57. CHARACTER*4 MOTCLE
  58. *
  59. * --- NORMALISATION DU FLUIDE
  60. IF(IFLUI.NE.0) CALL MAXIM4 (ICHPOI,COEFP,COEFPI)
  61. *
  62. * -- RECHERCHE DU MAXIMUM --
  63. IF(IPLAC1.EQ.0) THEN
  64. SEGINI MTEMP2
  65. ELSE
  66. MTEMP2=IPLAC1
  67. SEGACT MTEMP2*MOD
  68. MAXSOU=0
  69. MAXN=0
  70. MAXNC=0
  71. ENDIF
  72. *
  73. CALL MAXIM1 (ICHPOI,IPLMOT,MOTCLE,MTEMP2, PGRAND)
  74. IF (IERR .NE. 0) RETURN
  75. IF (PGRAND .EQ. 0.D0) THEN
  76. NUMERR = 150
  77. CALL ERREUR (NUMERR)
  78. RETURN
  79. END IF
  80. *
  81. * -- NORMALISATION --
  82. *
  83.  
  84. SEGACT,MTEMP2
  85. *
  86. MCHPOI=ICHPOI
  87. SEGACT MCHPOI
  88. NSOUPO = IPCHP(/1)
  89. *
  90. DO 100 IB100=1,NSOUPO
  91. *
  92. MSOUPO = IPCHP(IB100)
  93. SEGACT MSOUPO
  94. NC = NOCOMP(/2)
  95. MPOVAL = IPOVAL
  96. SEGACT MPOVAL*MOD
  97. N = VPOCHA(/1)
  98. *
  99. DO 120 IB120=1,NC
  100. DO 130 IB130=1,N
  101. VPOCHA(IB130,IB120) = VPOCHA(IB130,IB120) / PGRAND
  102. 130 CONTINUE
  103. 120 CONTINUE
  104. IF(IB100 .EQ. MAXSOU) VPOCHA(MAXN,MAXNC) = 1.D0
  105. *
  106. SEGDES,MPOVAL,MSOUPO
  107. *
  108. 100 CONTINUE
  109. *
  110. IF(IPLAC1.EQ.0) SEGSUP MTEMP2
  111. SEGDES,MCHPOI
  112. RETURN
  113. END
  114.  
  115.  
  116.  

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