Esope source files

   1 : C NBVALP    SOURCE    CHAT      05/01/13    01:56:19     5004           
   2 :       SUBROUTINE NBVALP (IPA,IPB,V0,  NOMBRE)                                   
   3 : ************************************************************************        
   4 : *                                                                               
   5 : *                             N B V A L P                                       
   6 : *                             -----------                                       
   7 : *                                                                               
   8 : * FONCTION:                                                                     
   9 : * ---------                                                                     
  10 : *                                                                               
  11 : *     DONNER, A UNE CONSTANTE PRES (FONCTION DE LA 'RIGIDITE' |A|), LE          
  12 : *     NOMBRE DE VALEURS PROPRES INFERIEURES A  V0  DANS LE PROBLEME:            
  13 : *        |A|.(X) = V.|B|.(X)                                                    
  14 : *     LE COUPLE (V,(X)) ETANT UN MODE PROPRE A CALCULER.                        
  15 : *                                                                               
  16 : * MODE D'APPEL:                                                                 
  17 : * -------------                                                                 
  18 : *                                                                               
  18 : *     CALL NBVALP (IPA,IPB,V0,  NOMBRE)                                         
  19 : *                                                                               
  20 : * PARAMETRES:   (E)=ENTREE   (S)=SORTIE                                         
  21 : * -----------                                                                   
  22 : *                                                                               
  23 : *     V0      REEL DP   (E)  DEFINI AU PARAGRAPHE "FONCTION".                   
  24 : *     IPA     ENTIER    (E)  POINTEUR DE LA RIGIDITE |A|.                       
  25 : *     IPB     ENTIER    (E)  POINTEUR DE LA RIGIDITE |B|.                       
  26 : *     NOMBRE  ENTIER    (S)  NOMBRE DE VALEURS PROPRES INFERIEURES A V0.        
  27 : *                                                                               
  28 : * SOUS-PROGRAMMES APPELES:                                                      
  29 : * ------------------------                                                      
  30 : *                                                                               
  31 : *     DECALE, DTRIGI, DIAGN1                                                    
  32 : *                                                                               
  33 : * AUTEUR, DATE DE CREATION:                                                     
  34 : * -------------------------                                                     
  35 : *                                                                               
  36 : *     PASCAL MANIGOT     16 NOVEMBRE 1984                                       
  37 : *                                                                               
  38 : * LANGAGE:                                                                      
  39 : * --------                                                                      
  40 : *                                                                               
  41 : *     FORTRAN77                                                                 
  42 : *                                                                               
  43 : ************************************************************************        
  44 : *                                                                               
  45 :       IMPLICIT INTEGER(I-N)
  46 : -INC CCOPTIO                                                                    
  47 : *                                                                               
  48 :       REAL*8 V0,V0BIS                                                           
  49 : *                                                                               
  50 :       V0BIS = V0                                                                
  50 :       CALL DECALE (IPA,IPB,V0BIS,  IPAVB)                                       
  51 :       IF (IERR .NE. 0) RETURN                                                   
  52 : *                                                                               
  52 :       CALL DIAGN1 (IPAVB,NOMBRE)                                                
  53 :       IF (IERR .NE. 0) RETURN                                                   
  54 : *                                                                               
  54 :       CALL DTRIGI (IPAVB)                                                       
  55 : *                                                                               
  56 :       END                                                                       
  57 :