Télécharger la plaquette Cast3M


fr en

Télécharger norma4.eso

Retour à la liste

Numérotation des lignes : 

norma4

  1. C NORMA4    SOURCE    CB215821  20/11/25    13:35:04     10792          
  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.  
  49. -INC PPARAM
  50. -INC CCOPTIO
  51. -INC SMCHPOI
  52. -INC SMSOLUT
  53. *
  54.       SEGMENT/MTEMP2/ (MAXSOU,MAXN,MAXNC)
  55. *     (REMPLI DANS LE S.P. "MAXIM1")
  56.       REAL*8 PGRAND,COEFP,COEFPI
  57.       CHARACTER*(*) MOTCLE
  58. *
  59.       SEGACT MSOLUT*MOD
  60.       MSOLEN=MSOLIS(5)
  61.       MSOLE1=MSOLIS(4)
  62.       SEGACT MSOLEN*MOD,MSOLE1*MOD
  63.       SEGINI MTEMP2
  64.       ITEMP2=MTEMP2
  65. *
  66.       DO 1 ICH=1,ISOLEN(/1)
  67.       ICHPOI=ISOLEN(ICH)
  68.       CALL NORMA3 (ICHPOI,IPLMOT,MOTCLE,IFLUI,COEFP,COEFPI,PGRAND)
  69. *
  70.       MMODE=MSOLE1.ISOLEN(ICH)
  71.       SEGACT MMODE*MOD
  72.       FMMODD(2)=FMMODD(2)/(PGRAND*PGRAND)
  73.       DO 2 I=3,5
  74.       FMMODD(I)=FMMODD(I)/PGRAND
  75.   2   CONTINUE
  76.       SEGDES MMODE
  77. *
  78.   1   CONTINUE
  79.       SEGDES MSOLEN,MSOLE1
  80.       SEGDES MSOLUT
  81.       SEGSUP MTEMP2
  82.       RETURN
  83.       END
  84.  
  85.  
  86.  
  87.  

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