Télécharger norma3.eso

Retour à la liste

Numérotation des lignes :

  1. C NORMA3 SOURCE CB215821 18/04/04 21:15:07 9798
  2. SUBROUTINE NORMA3(ICHPOI,IPLMOT,MOTCLE,IFLUI,COEFP,COEFPI,PGRAND)
  3. ************************************************************************
  4. *
  5. * N O R M A 3
  6. * -----------
  7. *
  8. * FONCTION:
  9. * ---------
  10. *
  11. * NORMER UN 'CHPOINT EN RAMENANT SA PLUS GRANDE VALEUR A 1
  12. *
  13. * MODE D'APPEL:
  14. * -------------
  15. *
  16. * CALL NORMA3 (ICHPOI,IPLMOT,MOTCLE,IFLUI,COEFP,COEFPI,IPLAC1,PGRAND
  17. *
  18. * ARGUMENTS: (E)=ENTREE (S)=SORTIE
  19. * ----------
  20. *
  21. * ICHPOI ENTIER (E) POINTEUR SUR L'OBJET 'CHPOINT' A NORMER.
  22. * IPLMOT ENTIER (E) VOIR LE S.P. "MAXIM1".
  23. * MOTCLE CHARACTER (E) VOIR LE S.P. "MAXIM1".
  24. * IFLUI ENTIER (E) IL Y A DES COEF POUR P ET PI (0 SINON)
  25. * COEFP REEL (E) COEFFICIENT A APPLIQUER A LA COMPOSANTE P
  26. * COEFPI REEL (E) COEFFICIENT A APPLIQUER A LA COMPOSANTE PI
  27. *
  28. * PGRAND REEL (S) COEFFICIENT DE NORMALISATION
  29. * ICHPOI ENTIER (S) POINTEUR SUR L'OBJET 'CHPOINT' NORME.
  30. *
  31. * SOUS-PROGRAMMES APPELES:
  32. * ------------------------
  33. *
  34. * MAXIM4,MAXIM1, ERREUR.
  35. *
  36. * AUTEUR, DATE DE CREATION:
  37. * -------------------------
  38. *
  39. * MARTINE FARVACQUE 10 JUIN 86
  40. *
  41. * LANGAGE:
  42. * --------
  43. *
  44. * ESOPE + FORTRAN77
  45. *
  46. ************************************************************************
  47. *
  48. IMPLICIT INTEGER(I-N)
  49. -INC CCOPTIO
  50. -INC SMCHPOI
  51. *
  52. REAL*8 PGRAND,COEFP,COEFPI
  53. CHARACTER*4 MOTCLE
  54. *
  55. * --- NORMALISATION DU FLUIDE
  56. IF(IFLUI.NE.0) CALL MAXIM4 (ICHPOI,COEFP,COEFPI)
  57. *
  58. * -- RECHERCHE DU MAXIMUM --
  59. IPLAC1=0
  60. CALL MAXIM1 (ICHPOI,IPLMOT,MOTCLE,IPLAC1,PGRAND)
  61. IF (IERR .NE. 0) RETURN
  62. IF (PGRAND .EQ. 0.D0) THEN
  63. CALL ERREUR (150)
  64. RETURN
  65. ENDIF
  66.  
  67. C Division du CHPOINT par le FLOTTANT PGRAND
  68. IOPERA=5
  69. IARGU =2
  70. I1 =0
  71. CALL OPCHP1(ICHPOI,IOPERA,IARGU,I1,PGRAND,ICHP1,IRET)
  72. IF (IRET.EQ.0) CALL ERREUR(5)
  73. ICHPOI=ICHP1
  74. RETURN
  75. END
  76.  
  77.  
  78.  

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