C D2VINT    SOURCE    CHAT      05/01/12    22:35:30     5004           
C DEVINT    SOURCE    PLAF      90/05/03    21:11:36                            
      SUBROUTINE D2VINT(ICHATE,ICHAFO,KTNUM,KTRAV,REPRIS)                       
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8(A-H,O-Z)                                                  
*--------------------------------------------------------------------*          
*                                                                    *          
*     Op{rateur DYNE : algorithme de Fu - de Vogelaere               *          
*     ________________________________________________               *          
*                                                                    *          
*     Interpolation d'un liste REEL.                                 *          
*     Remplissage du segment de travail KTRAV.                       *          
*                                                                    *          
*     Param}tres:                                                    *          
*                                                                    *          
* e   ICHATE  pointeur sur un LISTREEL, abscisse                     *          
* e   ICHAFO  pointeur sur un LISTREEL, ordonn{e                     *          
* e   KTNUM   segment contenant les param}tres num{riques            *          
* s   KTRAV   segment de travail                                     *          
* e   REPRIS  logique indiquant si le calcul est en reprise          *          
*                                                                    *          
*     Auteur, date de cr{ation:                                      *          
*                                                                    *          
*     Lionel VIVAN, le 17 avril 1990                                 *          
*                                                                    *          
*--------------------------------------------------------------------*          
*                                                                               
-INC CCOPTIO                                                                    
-INC SMLREEL                                                                    
*                                                                               
      SEGMENT,MTNUM                                                             
         REAL*8 XDT(NPC1),XTEMPS(NPC1)                                          
      ENDSEGMENT                                                                
      SEGMENT,MTRAV                                                             
         REAL*8 FTCHG(NPC1)                                                     
      ENDSEGMENT                                                                
      LOGICAL REPRIS                                                            
*                                                                               
      MTNUM = KTNUM                                                             
*                                                                               
      NPC1   = XDT(/1)                                                          
      PASTEM = XDT(1)                                                                                                     
      MLREE1 = ICHATE                                                           
      SEGACT MLREE1                                                             
      NF = MLREE1.PROG(/1)                                                      
      MLREE2 = ICHAFO                                                           
      SEGACT MLREE2                                                                                                                  
      SEGINI MTRAV                                                              
      KTRAV = MTRAV                                                             
*                                                                               
*     interpolation du chargement                                               
*                                                                               
      N1 = 1                                                                    
      N2 = 2                                                                    
                                                                                                                                                                                                        
      DO 10 IT = 1,NPC1                                                         
         TEMP = XTEMPS(IT)                                                      
         CALL INTLIN(TEMP,ICHATE,ICHAFO,NF,N1,N2, FTEM,IRET)                    
         IF (IRET.EQ.0) THEN                                                    
*           temps en dehors de la liste                                         
            CALL ERREUR(208)                                                    
            RETURN                                                              
         ENDIF                                                                  
                                                       
         FTCHG(IT) = FTEM                                   
                                           
 10      CONTINUE                                                               
                                           
*                                                                               
      SEGDES,MLREE1,MLREE2                                          
*                                                                               
      END