Esope source files

   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 :