Télécharger cochpt.eso

Retour à la liste

Numérotation des lignes :

  1. C COCHPT SOURCE GOUNAND 14/05/28 21:15:04 8056
  2. SUBROUTINE COCHPT(NC,MCHP)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8 (A-H,O-Z)
  5. -INC SMCHPOI
  6. -INC SMELEME
  7. CHARACTER*8 TYPE
  8.  
  9. NBNN=1
  10. NBELEM=1
  11. NBSOUS=0
  12. NBREF=0
  13. SEGINI MELEME
  14. ITYPEL=1
  15. NUM(1,1)=1
  16. SEGDES MELEME
  17. TYPE=' '
  18. CALL CRCHPT(TYPE,MELEME,NC,MCHP)
  19. RETURN
  20. END
  21.  
  22.  
  23.  
  24.  
  25.  

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