Esope source files

   1 : C KINBU2    SOURCE    CHAT      05/01/13    00:56:30     5004           
   2 :       SUBROUTINE KINBU2 (SKBUF2,SKRESO)
   3 :       IMPLICIT INTEGER(I-N)
   4 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
   5 : C                                                                               
   6 : C     INITIALISATION DU BUFFER                                                  
   7 : C     ------------------------                                                  
   8 : C                                                                               
   9 : C-----------------------------------------------------------------------
  10 :       SEGMENT SKRESO
  11 :       INTEGER KFC,NRES,KES,KIMP
  12 :       ENDSEGMENT
  13 : C     KFC : NOMBRE DE FACES H.C                                                 
  14 : C     NRES: RESOLUTION                                                          
  15 : C     KES : DIM ESPACE                                                          
  16 : C     KIMP: IMPRESSION                                                          
  17 : C-----------------------------------------------------------------------
  18 : C-----------------------------------------------------------------------
  19 :       SEGMENT SKBUF2                                                            
  20 :       INTEGER  NUMF(NFC,NOC,NR),NTYP(NFC,NR)                                    
  21 :       REAL*8   ZB(NFC,NR),PSC(NFC,NR)                                           
  22 :       ENDSEGMENT                                                                
  23 : C                                                                               
  24 : C     BUFFER ASSOCIE AU H.C                                                     
  25 : C     ---------------------                                                     
  26 : C     NUMF : INDICE DE LE DERNIERE FACE RENCONTREE                              
  27 : C     NTYP :  TYPES ASSOCIES                                                    
  28 : C     ZB  : PROFONDEUR                                                          
  29 : C     PSC  :  PRODUIT SCALAIRE (NORMALE.DIRECTION CELLULE)                      
  30 : C-----------------------------------------------------------------------
  31 : C                                                                               
  32 :       DO 1 NF = 1,KFC                                                           
  33 :       DO 2  I =  1,NRES                                                         
  34 :           ZB(NF,I) = 1000.                                                      
  35 :           NUMF(NF,1,I) = 0                                                      
  36 :           NTYP(NF,I) = 0                                                        
  37 :  2    CONTINUE                                                                  
  38 :  1    CONTINUE                                                                  
  39 :       RETURN                                                                    
  40 :       END                                                                       
  41 :