Télécharger ecdes.eso

Retour à la liste

Numérotation des lignes :

  1. C ECDES SOURCE PV 05/04/13 21:15:08 5073
  2. SUBROUTINE ECDES (NBAND,ITAB,IFORM)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. -INC CCFXDR
  6. C---------------------------------------
  7. C BUT ECRIRE LE DESCRIPTEUR IQUOI
  8. C APPELE PAR WRPIL
  9. C---------------------------------------
  10. IF (IFORM.EQ.1)WRITE(NBAND,700) ITAB
  11. IF (IFORM.EQ.0)WRITE(NBAND) ITAB
  12. if (iform.eq.2) ios=IXDRINT( ixdrw, itab)
  13. RETURN
  14. C---------------------------------------
  15. 700 FORMAT(' ENREGISTREMENT DE TYPE',I4)
  16. END
  17.  
  18.  
  19.  
  20.  

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