Esope source files

   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 : *                                                                               
  17 : *     CALL NORMA4 (MSOLUT,IPLMOT,MOTCLE,IFLUI,COEFP,COEFPI)                     
  18 : *                                                                               
  19 : * ARGUMENTS:   (E)=ENTREE   (S)=SORTIE                                          
  20 : * ----------                                                                    
  21 : *                                                                               
  22 : *     MSOLUT  ENTIER    (E)  POINTEUR SUR L'OBJET 'MSOLUT' A NORMER.            
  23 : *     IPLMOT  ENTIER    (E)  VOIR LE S.P. "MAXIM1".                             
  24 : *     MOTCLE CHARACTER  (E)  VOIR LE S.P. "MAXIM1".                             
  25 : *     IFLUI   ENTIER    (E)  IL Y A DES COEF POUR P ET PI (0 SINON)             
  26 : *     COEFP   REEL      (E)  COEFFICIENT A APPLIQUER A LA COMPOSANTE P          
  27 : *     COEFPI  REEL      (E)  COEFFICIENT A APPLIQUER A LA COMPOSANTE PI         
  28 : *                                                                               
  29 : * SOUS-PROGRAMMES APPELES:                                                      
  30 : * ------------------------                                                      
  31 : *                                                                               
  32 : *     NORMA3                                                                    
  33 : *                                                                               
  34 : * AUTEUR, DATE DE CREATION:                                                     
  35 : * -------------------------                                                     
  36 : *                                                                               
  37 : *     MARTINE FARVACQUE     10 JUIN 86                                          
  38 : *                                                                               
  39 : * LANGAGE:                                                                      
  40 : * --------                                                                      
  41 : *                                                                               
  42 : *     ESOPE + FORTRAN77                                                         
  43 : *                                                                               
  44 : ************************************************************************        
  45 : *                                                                               
  46 :       IMPLICIT INTEGER(I-N)
  47 : -INC CCOPTIO                                                                    
  48 : -INC SMCHPOI                                                                    
  49 : -INC SMSOLUT                                                                    
  50 : *                                                                               
  51 :       SEGMENT/MTEMP2/ (MAXSOU,MAXN,MAXNC)                                       
  52 : *     (REMPLI DANS LE S.P. "MAXIM1")                                            
  53 :       REAL*8 PGRAND,COEFP,COEFPI                                                
  54 :       CHARACTER*4 MOTCLE                                                        
  55 : *                                                                               
  56 :       SEGACT MSOLUT*MOD                                                         
  57 :       MSOLEN=MSOLIS(5)                                                          
  58 :       MSOLE1=MSOLIS(4)                                                          
  59 :       SEGACT MSOLEN*MOD,MSOLE1*MOD                                              
  60 :       SEGINI MTEMP2                                                             
  61 :       ITEMP2=MTEMP2                                                             
  62 : *                                                                               
  63 :       DO 1 ICH=1,ISOLEN(/1)                                                     
  64 :       ICHPOI=ISOLEN(ICH)                                                        
  64 :       CALL NORMA3 (ICHPOI,IPLMOT,MOTCLE,IFLUI,COEFP,COEFPI,ITEMP2,              
  65 :      1  PGRAND)                                                                 
  66 : *                                                                               
  67 :       MMODE=MSOLE1.ISOLEN(ICH)                                                  
  68 :       SEGACT MMODE*MOD                                                         
  69 :       FMMODD(2)=FMMODD(2)/(PGRAND*PGRAND)                                       
  70 :       DO 2 I=3,5                                                                
  71 :       FMMODD(I)=FMMODD(I)/PGRAND                                                
  72 :   2   CONTINUE                                                                  
  73 :       SEGDES MMODE                                                              
  74 : *                                                                               
  75 :   1   CONTINUE                                                                  
  76 :       SEGDES MSOLEN,MSOLE1                                                      
  77 :       SEGDES MSOLUT                                                             
  78 :       SEGSUP MTEMP2                                                             
  79 :       RETURN                                                                    
  80 :       END                                                                       
  81 :  
  82 :