C DECALE    SOURCE    CHAT      05/01/12    22:38:45     5004           
      SUBROUTINE DECALE (IPA,IPB,V,IPAVB)                                       
************************************************************************        
*                                                                               
*                             D E C A L E                                       
*                             -----------                                       
*                                                                               
* FONCTION:                                                                     
* ---------                                                                     
*                                                                               
*     EFFECTUER UN DECALAGE ("SHIFTING") SUR UNE 'RIGIDITE' |A|, A              
*     L'AIDE D'UN 'FLOTTANT'  V  ET D'UNE 'RIGIDITE' |B| :                      
*     |A|  -->  |A|-V.|B|                                                       
*                                                                               
* PARAMETRES:   (E)=ENTREE   (S)=SORTIE                                         
* -----------                                                                   
*                                                                               
*     IPA     ENTIER    (E)  POINTEUR DE LA 'RIGIDITE' |A|.                     
*     IPB     ENTIER    (E)  POINTEUR DE LA 'RIGIDITE' |B|.                     
*     V       REEL DP   (E)  DEFINI AU PARAGRAPHE "FONCTION".                   
*     IPAVB   ENTIER    (S)  POINTEUR DE LA 'RIGIDITE'  |A|-V.|B|               
*                                                                               
* AUTEUR, DATE DE CREATION:                                                     
* -------------------------                                                     
*                                                                               
*     PASCAL MANIGOT     16 NOVEMBRE 1984                                       
*                                                                               
* LANGAGE:                                                                      
* --------                                                                      
*                                                                               
*     FORTRAN77                                                                 
*                                                                               
************************************************************************        
*                                                                               
      IMPLICIT INTEGER(I-N)
-INC CCOPTIO                                                                    
*                                                                               
      REAL*8 V,VMOINS                                                           
*                                                                               
*     PRODUIT  -V.|B|                                                           
      VMOINS = -1.D0 * V                                                        
      MULTPL = 1                                                                
      CALL MUFLRI (IPB,VMOINS,  IPVB,MULTPL)                                    
      IF (IERR .NE. 0) RETURN                                                   
*                                                                               
*     DECALAGE DE LA MATRICE |A|                                                
      CALL FUSRIG (IPA,IPVB,  IPAVB)                                            
      IF (IERR .NE. 0) RETURN                                                   
      CALL DTRIGI (IPVB)                                                        
*                                                                               
      END