Télécharger chidbd.eso

Retour à la liste

Numérotation des lignes :

  1. C CHIDBD SOURCE CHAT 05/01/12 21:57:04 5004
  2. SUBROUTINE CHIDBD(IOCHI,CHA)
  3. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  4. C DEFINITION ET OUVERTURE D'UN FICHIER BASE DE DONNEES
  5. C IOCHI NUMERO DU FICHIER
  6. C CHA NOM DU FICHIER
  7. C ON VERIFIE QUE LE NO IOCHI N'EST PAS DEJA ATRIBUE
  8. C SINON ON INCREMENTE DE 1
  9. CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
  10. IMPLICIT INTEGER(I-N)
  11. IMPLICIT REAL*8(A-H,O-Z)
  12. LOGICAL*4 IEX
  13. CHARACTER*72 CHA
  14. external long
  15. -INC CCOPTIO
  16. 10 CONTINUE
  17. IEX=.FALSE.
  18. INQUIRE(UNIT=IOCHI,OPENED=IEX)
  19. IF(IEX)THEN
  20. IOCHI=IOCHI+1
  21. IF(IOCHI.GT.100)THEN
  22. INTERR(1)=IOCHI
  23. CALL ERREUR(424)
  24. RETURN
  25. ENDIF
  26. GO TO 10
  27. ENDIF
  28. L=LONG(CHA)
  29. OPEN(UNIT=IOCHI,FILE=CHA(1:L),ERR=100)
  30. RETURN
  31. 100 CONTINUE
  32. INTERR(1)=IOCHI
  33. L1=MIN(L,40)
  34. MOTERR(1:40)=' '
  35. MOTERR(1:L1)= CHA(1:L1)
  36. CALL ERREUR(424)
  37. RETURN
  38. END
  39.  
  40.  
  41.  
  42.  
  43.  

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