Télécharger la plaquette Cast3M


fr en

Télécharger norma3.eso

Retour à la liste

Numérotation des lignes : 

norma3

  1. C NORMA3    SOURCE    CB215821  20/11/25    13:35:03     10792          
  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.  
  50. -INC PPARAM
  51. -INC CCOPTIO
  52. -INC SMCHPOI
  53. *
  54.       REAL*8      PGRAND,COEFP,COEFPI
  55.       CHARACTER*(*) MOTCLE
  56. *
  57. *    --- NORMALISATION DU FLUIDE
  58.       IF(IFLUI.NE.0) CALL MAXIM4 (ICHPOI,COEFP,COEFPI)
  59. *
  60. *     -- RECHERCHE DU MAXIMUM --
  61.       IPLAC1=0
  62.       CALL MAXIM1 (ICHPOI,IPLMOT,MOTCLE,IPLAC1,PGRAND)
  63.       IF (IERR .NE. 0) RETURN
  64.       IF (PGRAND .EQ. 0.D0) THEN
  65.          CALL ERREUR (150)
  66.          RETURN
  67.       ENDIF
  68.  
  69. C     Division du CHPOINT par le FLOTTANT PGRAND
  70.       IOPERA=5
  71.       IARGU =2
  72.       I1    =0
  73.       CALL OPCHP1(ICHPOI,IOPERA,IARGU,I1,PGRAND,ICHP1,IRET)
  74.       IF (IRET.EQ.0) CALL ERREUR(5)
  75.       ICHPOI=ICHP1
  76.       RETURN
  77.       END
  78.  
  79.  
  80.  
  81.  

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