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.  
  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