Esope source files

   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
  22 :                 CALL ERREUR(424)
  23 :                 RETURN
  24 :            ENDIF
  25 :            GO TO 10
  26 :       ENDIF
  27 :       L=LONG(CHA)
  28 :       OPEN(UNIT=IOCHI,FILE=CHA(1:L),ERR=100)
  29 :       RETURN
  30 :   100 CONTINUE
  31 :       INTERR(1)=IOCHI
  32 :       L1=MIN(L,40)
  33 :       MOTERR(1:40)='                                        '
  34 :       MOTERR(1:L1)= CHA(1:L1)
  34 :       CALL ERREUR(424)
  35 :       RETURN
  36 :       END
  37 :  
  38 :  
  39 :  
  40 :