Télécharger dechpo.eso

Retour à la liste

Numérotation des lignes :

  1. C DECHPO SOURCE CHAT 05/01/12 22:39:13 5004
  2. SUBROUTINE DECHPO(IRET)
  3. C=====================================================================
  4. C DESTRUCTION D'UN CHPOINT: ON TUE LES VALEURS
  5. C LE CHAPEAU ET LES MSOUPO S ILS SONT NON NULS IGEOC CONSERVE
  6. C===================================================================
  7. IMPLICIT INTEGER(I-N)
  8. -INC SMCHPOI
  9. MCHPOI=IRET
  10. SEGACT MCHPOI
  11. NSOUPO=IPCHP(/1)
  12. DO 100 I=1,NSOUPO
  13. MSOUPO=IPCHP(I)
  14. IF(MSOUPO.EQ.0) GOTO 100
  15. SEGACT MSOUPO
  16. MPOVAL=IPOVAL
  17. SEGSUP MPOVAL
  18. SEGSUP MSOUPO
  19. 100 CONTINUE
  20. SEGSUP MCHPOI
  21. C
  22. RETURN
  23. END
  24.  
  25.  

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