C ZDFM      SOURCE    MAGN      10/05/18    21:17:44     6675           
      SUBROUTINE ZDFM(NP,NPG,NES,IES,NN1,NN2,IPOIN,KA)                          
C     ---------------------------------------------------------------           
C                                                                               
C     SUBROUTINE PER INIZIALIZZARE SEGMENT DI TIPO                              
C     IZFFM E IZHR                                                              
C                                                                               
C     IF  KA.EQ.1     SEGINI IZFFM                                              
C     IF  KA.NE.1     SEGINI IZHR                                               
C                                                                               
C     IPOIN = POINTEUR SEGMENT INIZIALIZZATO                                    
C                                                                               
C     ---------------------------------------------------------------           
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)                                                 
-INC SIZFFB                                                                     
      N1=NN1                                                                    
      N2=NN2                                                                    
      IF(KA.EQ.1) THEN                                                          
      SEGINI IZFFM                                                              
      IPOIN=IZFFM                                                               
      ELSE                                                                      
      SEGINI IZHR                                                               
      IPOIN=IZHR                                                                
      ENDIF                                                                     
      RETURN                                                                    
      END