Télécharger zdfm.eso

Retour à la liste

Numérotation des lignes :

  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.  
  30.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales