Télécharger lfcdes.eso

Retour à la liste

Numérotation des lignes :

  1. C LFCDES SOURCE PV 14/06/12 21:15:00 8070
  2. SUBROUTINE LFCDES (NBAND,ITAB,IRET,IFORM)
  3. IMPLICIT INTEGER(I-N)
  4. IMPLICIT REAL*8(A-H,O-Z)
  5. -INC CCFXDR
  6. C ------------------------------------
  7. C BUT : RELIRE LE DESCRIPTEUR IQUOI ECRIT PAR ECDES
  8. C APPELE PAR LIPIL
  9. C -------------------------------------
  10. IRET=0
  11. ios=0
  12. IF (IFORM.EQ.1)READ(NBAND,700,END=1000,ERR=1000) ITAB
  13. IF (IFORM.EQ.0)READ(NBAND,END=1000,ERR=1000) ITAB
  14.  
  15. if (iform.eq.2) then
  16. if (ixdrr.ne.0) then
  17. ios=IXDRINT( ixdrr, itab )
  18. else
  19. ios=-1
  20. endif
  21. endif
  22. if (ios.lt.0) goto 1000
  23. GO TO 1
  24. 1000 IRET=1
  25. 1 RETURN
  26. C -------------------------------------
  27. 700 FORMAT(23X,I4)
  28. C 700 FORMAT(' ENREGISTREMENT DE TYPE',I4)
  29. END
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  

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