Sources Esope | Cast3M

ecnoms
C ECNOMS    SOURCE    JC220346  18/12/04    21:15:14     9991           
      SUBROUTINE ECNOMS(NBAND,LMAX,SEGTAB,IFORM)
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-INC CCOPTIO
-INC CCNOYAU
-INC CCFXDR
      SEGMENT SEGTAB
        CHARACTER*(LONOM) ITAB(NTOTO)
      END SEGMENT
C     SEGTA8 => pour compatibilite avec NIVE &lt; 22
      SEGMENT SEGTA8
        CHARACTER*8 ITAB8(NTOTO8)
      END SEGMENT
C     ITAA => pour compatibilite avec NIVE &lt; 3
      SEGMENT,ITAA(N)
C
      IF (LMAX.NE.0) THEN
         DIMATT=DIMATT+ LMAX*2 +1
         IF (IONIVE.LE.2) THEN
            N=LMAX*2
            SEGINI ITAA
            DO 2 I=1,LMAX
               II=2*I
               READ(ITAB(I),FMT='(2A4)')ITAA(II-1),ITAA(II)
   2        CONTINUE
            IF(IFORM.EQ.0) WRITE(NBAND)(ITAA (I),I=1,N)
            IF(IFORM.EQ.1) WRITE(NBAND,801)(ITAA(I),I=1,N)
 801        FORMAT(16(1X,A4))
            if (iform.eq.2) ios= IXDRIMAT( ixdrw, n, itaa(1))
            SEGSUP ITAA
         ELSEIF (IONIVE.LE.21) THEN
            IF (IFORM.EQ.0) WRITE(NBAND) (ITAB(I)(1:8),I=1,LMAX)
            IF (IFORM.EQ.1) WRITE(NBAND,8001) (ITAB(I)(1:8),I=1,LMAX)
 8001       FORMAT(8(1X,A8))
            if (iform.eq.2) then
               NTOTO8=LMAX
               SEGINI,SEGTA8
               DO K=1,LMAX
                  ITAB8(K)=ITAB(K)(1:8)
               ENDDO
               ios= IXDRSTRING(ixdrw,itab8(1)(1:8*LMAX))
            endif
         ELSE
            IF (IFORM.EQ.0) WRITE(NBAND) (ITAB(I),I=1,LMAX)
            IF (IFORM.EQ.1) WRITE(NBAND,8002) (ITAB(I),I=1,LMAX)
 8002       FORMAT(3(1X,A24))
            if (iform.eq.2)
     &         ios= IXDRSTRING(ixdrw,itab(1)(1:LONOM*lmax))
         ENDIF
      ENDIF
      RETURN
      END