Esope source files

   1 : C DYNE23    SOURCE    CHAT      05/01/12    23:15:45     5004           
   2 :       SUBROUTINE DYNE23(ICHP,KTPAS,I1)                                          
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8(A-H,O-Z)                                                  
   5 : *--------------------------------------------------------------------*          
   6 : *                                                                    *          
   7 : *     Opérateur DYNE : algorithme de Fu - de Vogelaere               *          
   8 : *     ________________________________________________               *          
   9 : *                                                                    *          
  10 : *     Remplissage du tableau des variables généralisées.             *          
  11 : *                                                                    *          
  12 : *     Paramètres:                                                    *          
  13 : *                                                                    *          
  14 : * e   ICHP  : CHPOINT dans lequel on va chercher les valeurs         *          
  15 : * es  KTPAS : Segment des variables au cours d'un pas de temps       *          
  16 : * e   I1    : Indice du pas                                          *          
  17 : *                                                                    *          
  18 : *     Auteur, date de création:                                      *          
  19 : *                                                                    *          
  20 : *     Lionel VIVAN, le 18 Septembre 1989.                            *          
  21 : *                                                                    *          
  22 : *--------------------------------------------------------------------*          
  23 : -INC SMCHPOI                                                                    
  24 : *                                                                               
  25 :       SEGMENT,MTPAS                                                             
  26 :          REAL*8 FTOTA(NA1,4),FTOTB(NPLB,IDIMB),FTOTBA(NA1)                      
  27 :          REAL*8 XPTB(NPLB,4,IDIMB),FINERT(NA1,4)
  28 :          REAL*8 XVALA(NLIAA,4,NTVAR),XVALB(NLIAB,4,NTVAR)  
  29 :          REAL*8 FEXB(NPLB,2,IDIM),XCHPFB(2,NLIAB,4,NPLB)                                                     
  30 :       ENDSEGMENT                                                                
  31 : *                                                                               
  32 :       MTPAS = KTPAS                                                             
  33 :       IA = 0                                                                    
  34 :       MCHPOI = ICHP                                                             
  35 :       SEGACT,MCHPOI                                                             
  36 :       NSOUPO = IPCHP(/1)                                                        
  37 :       DO 10 II1=1,NSOUPO                                                        
  38 :          MSOUPO = IPCHP(II1)                                                    
  39 :          SEGACT,MSOUPO                                                          
  40 :          NC = NOCOMP(/2)                                                        
  41 :          MPOVAL = IPOVAL                                                        
  42 :          SEGACT,MPOVAL                                                          
  43 :          N = VPOCHA(/1)                                                         
  44 :          DO 20 J=1,N                                                            
  45 :             DO 20 K=1,NC                                                        
  46 :                IA = IA+1                                                        
  47 :                FTOTA(IA,I1) = VPOCHA(J,K)                                       
  48 :  20         CONTINUE                                                            
  49 : *        END DO                                                                 
  50 :          SEGDES,MPOVAL,MSOUPO                                       
  51 :  10      CONTINUE                                                               
  52 : *     END DO                                                                    
  53 :       SEGDES,MCHPOI                                                       
  54 : *                                                                               
  55 :       RETURN                                                                    
  56 :       END                                                                       
  57 :  
  58 :