Télécharger lfnoms.eso

Retour à la liste

Numérotation des lignes :

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

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