Esope source files

   1 : C ZDFM      SOURCE    MAGN      10/05/18    21:17:44     6675           
   2 :       SUBROUTINE ZDFM(NP,NPG,NES,IES,NN1,NN2,IPOIN,KA)                          
   3 : C     ---------------------------------------------------------------           
   4 : C                                                                               
   5 : C     SUBROUTINE PER INIZIALIZZARE SEGMENT DI TIPO                              
   6 : C     IZFFM E IZHR                                                              
   7 : C                                                                               
   8 : C     IF  KA.EQ.1     SEGINI IZFFM                                              
   9 : C     IF  KA.NE.1     SEGINI IZHR                                               
  10 : C                                                                               
  11 : C     IPOIN = POINTEUR SEGMENT INIZIALIZZATO                                    
  12 : C                                                                               
  13 : C     ---------------------------------------------------------------           
  14 :       IMPLICIT INTEGER(I-N)
  15 :       IMPLICIT REAL*8 (A-H,O-Z)                                                 
  16 : -INC SIZFFB                                                                     
  17 :       N1=NN1                                                                    
  18 :       N2=NN2                                                                    
  19 :       IF(KA.EQ.1) THEN                                                          
  20 :       SEGINI IZFFM                                                              
  21 :       IPOIN=IZFFM                                                               
  22 :       ELSE                                                                      
  23 :       SEGINI IZHR                                                               
  24 :       IPOIN=IZHR                                                                
  25 :       ENDIF                                                                     
  26 :       RETURN                                                                    
  27 :       END                                                                       
  28 :  
  29 :