Sources Esope | Cast3M

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