Télécharger la plaquette Cast3M


fr en

Télécharger lfnoms.eso

Retour à la liste

Numérotation des lignes : 

lfnoms

  1. C LFNOMS    SOURCE    JC220346  18/12/04    21:15:33     9991           
  2.       SUBROUTINE LFNOMS(NBAND,LMAX,ITAB,IRETOU,IFORM)
  3.       IMPLICIT INTEGER(I-N)
  4.  
  5. -INC PPARAM
  6. -INC CCOPTIO
  7. -INC CCNOYAU
  8. -INC CCFXDR
  9.       CHARACTER*(LONOM) ITAB(*)
  10.       IRETOU=0
  11.       IF (LMAX.EQ.0) GOTO 15
  12.       IF (IONIVE.LE.2) THEN
  13.         IF (IFORM.EQ.0) READ(NBAND,END=10,ERR=10)(ITAB(I),I=1,LMAX)
  14.         IF (IFORM.EQ.1) READ(NBAND,801,END=10,ERR=10)(ITAB(I),I=1,LMAX)
  15.  801    FORMAT(16(1X,A4))
  16.         if (iform.eq.2) ios=IXDRSTRING( ixdrr, itab(1)(1:8*lmax))
  17.       ELSEIF (IONIVE.LE.21) THEN
  18.         IF (IFORM.EQ.0) READ(NBAND,END=10,ERR=10)(ITAB(I),I=1,LMAX)
  19.         IF (IFORM.EQ.1) READ(NBAND,8001,END=10,ERR=10)(ITAB(I),I=1,LMAX)
  20.  8001   FORMAT(8(1X,A8))
  21.         if (iform.eq.2) ios=IXDRSTRING( ixdrr, itab(1)(1:8*lmax))
  22.       ELSE
  23.         IF (IFORM.EQ.0) READ(NBAND,END=10,ERR=10)(ITAB(I),I=1,LMAX)
  24.         IF (IFORM.EQ.1) READ(NBAND,8002,END=10,ERR=10)(ITAB(I),I=1,LMAX)
  25.  8002   FORMAT(3(1X,A24))
  26.         if (iform.eq.2) ios=IXDRSTRING( ixdrr, itab(1)(1:LONOM*lmax))
  27.       ENDIF
  28.       IF (IONIVE.LE.21.AND.IFORM.EQ.2) THEN
  29.         DO K=LMAX,1,-1
  30.           ITAB(K)(1:LONOM)=ITAB(1)(8*K-7:8*K)
  31.         ENDDO
  32.       ENDIF
  33.  15   RETURN
  34.  10   IRETOU=1
  35.       RETURN
  36.       END
  37.  
  38.  
  39.  
  40.  
  41.  

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