Télécharger ecdifc.eso

Retour à la liste

Numérotation des lignes :

  1. C ECDIFC SOURCE PV 05/04/13 21:15:16 5073
  2. SUBROUTINE ECDIFC(NBAND,ITAB,IFORM)
  3. IMPLICIT INTEGER(I-N)
  4. -INC CCFXDR
  5. CHARACTER ITAB*(*)
  6. LMAX=LEN(ITAB)
  7. IF (LMAX.EQ.0) GO TO 1
  8. IN=MOD(LMAX,71)
  9. NF=(LMAX+70)/71
  10. LI=1
  11. DO 2 I=1,NF
  12. LN=LI+70
  13. IF(I.EQ.NF)LN=LMAX
  14. IF (IFORM.EQ.1)WRITE(NBAND,8001) ITAB(LI:LN)
  15. IF (IFORM.EQ.0)WRITE(NBAND) ITAB(LI:LN)
  16. if (iform.eq.2)ios=IXDRSTRING( ixdrw, itab(li:ln))
  17. LI=LN+1
  18. 2 CONTINUE
  19. 8001 FORMAT(1X,A71)
  20. 1 RETURN
  21. END
  22.  
  23.  
  24.  
  25.  

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