Sources Esope | Cast3M

zdfm
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