Esope source files

   1 : C INTVA5    SOURCE    JC220346  12/05/16    21:15:04     7372           
   2 :       SUBROUTINE INTVA5                                                         
   3 : ************************************************************************        
   4 : *                                                                               
   5 : *                             I N T V A 5                                       
   6 : *                             -----------                                       
   7 : *                                                                               
   8 : * FONCTION:                                                                     
   9 : * ---------                                                                     
  10 : *                                                                               
  11 : *     ON A LA PARTITION D'INTERVALLE:                                           
  12 : *        ( ... , W2A,      W2B)                                                 
  13 : *     ON CREE LA PARTITION D'INTERVALLE:                                        
  14 : *        ( ... , W2A, W2I)                                                      
  15 : *                                                                               
  16 : *     "W2I" PREND LE ROLE DE "W2B" ET L'INTERVALLE EST REDUIT.                  
  17 : *                                                                               
  18 : * MODE D'APPEL:                                                                 
  19 : * -------------                                                                 
  20 : *                                                                               
  20 : *     CALL INTVA5                                                               
  21 : *                                                                               
  22 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE                                         
  23 : * -----------                                                                   
  24 : *                                                                               
  25 : *     VOIR LE COMMUN "CINTVA" DANS LE SOUS-PROGRAMME "INTVA2".                  
  26 : *                                                                               
  27 : * SOUS-PROGRAMMES APPELES:                                                      
  28 : * ------------------------                                                      
  29 : *                                                                               
  30 : *     REMPL1, REMPL2.                                                           
  31 : *                                                                               
  32 : * AUTEUR, DATE DE CREATION:                                                     
  33 : * -------------------------                                                     
  34 : *                                                                               
  35 : *     PASCAL MANIGOT     24 DECEMBRE 1984                                       
  36 : *                                                                               
  37 : * LANGAGE:                                                                      
  38 : * --------                                                                      
  39 : *                                                                               
  40 : *     FORTRAN77                                                                 
  41 : *                                                                               
  42 : ************************************************************************        
  43 : *                                                                               
  44 :       IMPLICIT INTEGER(I-N)
  45 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
  46 : -INC CCOPTIO                                                                    
  47 : *                                                                               
  48 : *     REGROUPEMENT DES INFORMATIONS SUR LA SUITE DE PULSATIONS AU CARRE:        
  49 :       COMMON/CINTVA/IMULTP,IPW2,W2A,W2I,W2B,NBW2,IPNUM,NUMW2A,NUMW2I,           
  50 :      &     NUMW2B   ,IUN                                                        
  51 : *                                                                               
  51 :       CALL REMPL1 (IPW2,NBW2,W2I,0,0)                                               
  52 :       IF (IERR .NE. 0) RETURN                                                   
  53 :       W2B = W2I                                                                 
  54 : *                                                                               
  54 :       CALL REMPL2 (IPNUM,NBW2,NUMW2I,0,0)                                           
  55 :       IF (IERR .NE. 0) RETURN                                                   
  56 :       NUMW2B = NUMW2I                                                           
  57 : *                                                                               
  58 :       END                                                                       
  59 :  
  60 :