Esope source files

   1 : C INTVA4    SOURCE    CHAT      05/01/13    00:41:51     5004           
   2 :       SUBROUTINE INTVA4                                                         
   3 : ************************************************************************        
   4 : *                                                                               
   5 : *                             I N T V A 4                                       
   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, W2B)                                                 
  15 : *                                                                               
  16 : *     "W2I" PREND LE ROLE DE "W2A".                                             
  17 : *                                                                               
  18 : * MODE D'APPEL:                                                                 
  19 : * -------------                                                                 
  20 : *                                                                               
  20 : *     CALL INTVA4                                                               
  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 : *     INSER1, INSER2.                                                           
  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 INSER1 (IPW2,NBW2,W2I)                                               
  52 :       IF (IERR .NE. 0) RETURN                                                   
  53 :       W2A = W2I                                                                 
  54 : *                                                                               
  54 :       CALL INSER2 (IPNUM,NBW2,NUMW2I)                                           
  55 :       IF (IERR .NE. 0) RETURN                                                   
  56 :       NUMW2A = NUMW2I                                                           
  57 : *                                                                               
  58 :       NBW2 = NBW2 + 1                                                           
  59 : *                                                                               
  60 :       END                                                                       
  61 :