Télécharger ecdifp.eso

Retour à la liste

Numérotation des lignes :

  1. C ECDIFP SOURCE CHAT 09/05/05 21:15:10 6385
  2. SUBROUTINE ECDIFP(NBAND,LMAX,ITAB,IFORM)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. DIMENSION ITAB(1)
  6.  
  7. -INC CCOPTIO
  8. -INC CCFXDR
  9.  
  10. * T.C
  11. * FORMAT MODIFIE LE 19 MAI 89 AFIN DE PERMETTRE LE PASSAGE EN
  12. * I5 EN SUPPRIMANT LE BLANC QUI PRECEDE I4
  13. * LA MODIF DEFINITIVE A LIEU LE 23 MAI 90. LES FICHIERS ANTERIEURS
  14. * AU 19 MAI 89 NE SONT PLUS LISIBLE.
  15. *
  16. C M.B.
  17. C Format modifié le 4/1/95 pour pouvoir gérer les piles contenant
  18. C plus que 100000 objets
  19. C
  20. IF (LMAX.EQ.0) GO TO 1
  21. DIMATT=DIMATT+LMAX+1
  22. do 10 j=0,0
  23. IF (IFORM.EQ.1) THEN
  24. IF(IONIVE.LE.7) THEN
  25. WRITE(NBAND,8004) (ITAB(I+j),I=1,LMAX)
  26. ELSE
  27. WRITE(NBAND,8008) (ITAB(I+j),I=1,LMAX)
  28. ENDIF
  29. ENDIF
  30. 10 continue
  31. IF (IFORM.EQ.0) WRITE(NBAND) (ITAB(I),I=1,LMAX)
  32. if (iform.eq.2) ios= IXDRIMAT( ixdrw, lmax,itab(1))
  33.  
  34. 8004 FORMAT(' PILE NUMERO',I4,'NBRE OBJETS NOMMES' ,I5,'NBRE OBJETS' ,
  35. & I5)
  36. 8008 FORMAT(' PILE NUMERO',I4,'NBRE OBJETS NOMMES' ,I8,'NBRE OBJETS' ,
  37. & I8)
  38. C
  39. 1 RETURN
  40. END
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  

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