/* ADBTBK.f -- translated by f2c (version 19960827).
   You must link the resulting object file with the libraries:
	-lf2c -lm   (in that order)
*/

#include "Data_f2c.h"

/* Subroutine */ int madbtbk_(indice)
integer *indice;
{
/* < */
/* **NOTICE */
/*  THIS SOFTWARE IS THE PROPERTY OF CISIGRAPH. */
/*  THIS CODE MUST NOT BE DISTRIBUTED OR COPIED WITHOUT THE PRIOR */
/*  WRITTEN PERMISSION OF CISIGRAPH AND IS ONLY TO BE USED ON THE */
/*  SITE WHERE IT IS INSTALLED BY CISIGRAPH */
/* **NOTICE */

/* ***********************************************************************
 */

/*     FONCTION : */
/*     ---------- */
/*       RENVOIE LE MODE D'AFFICHAGE DE TRACE-BACK */

/*     MOTS CLES : */
/*     ----------- */
/*       PRODUCTION, OUTILS, DEBUGGAGE, TRACE-BACK */

/*     ARGUMENTS D'ENTREE : */
/*     -------------------- */
/*       NEANT */

/*     ARGUMENTS DE SORTIE : */
/*     --------------------- */
/*       INDICE : MODE D'AFFICHAGE */
/*              = 0 : SANS TRACE-BACK */
/*              = 1 : AVEC TRACE-BACK */

/*     COMMONS UTILISES : */
/*     ------------------ */
/*       NEANT */

/*     REFERENCES APPELEES : */
/*     --------------------- */
/*       NEANT */

/*     DESCRIPTION/REMARQUES/LIMITATIONS : */
/*     ----------------------------------- */
/*       EN PHASE DE PRODUCTION, LE MODE EST AVEC TRACE-BACK */
/*       EN VERSION CLIENT, LE MODE EST SANS TRACE-BACK MAIS ON PEUT */
/*       ACTIVER LE MODE TRACE-BACK SI L'UNE DES CONDITIONS EST */
/*       VERIFIEE AVANT LE LANCEMENT DE STRIM : */
/*          . LE FICHIER STRMINIT:STRMTRBK.DAT EXISTE */
/*          . LE SYMBOLE STRMTRBK EXISTE */

/* $    HISTORIQUE DES MODIFICATIONS : */
/*     ------------------------------ */
/*     14-12-1992 : FCR ; DINSMO367 : Test de l'IER apres AGTFIC */
/*     15-11-1991 : DGZ ; AC91118Z0000: ACTI. POUR DEVELOPPEMENT(ITRBK=0) 
*/
/*     25-07-1991 : FCR ; AC91118Z0000: DESACTIVATION POUR LA 5.1 */
/*     09-07-1991 : FCR ; DM2D50105: Activation possible chez le client */
/*     13-08-1990 : DGZ ; PASSE EN MODE PHASE DE PRODUCTION */
/*     25-07-1990 : DGZ ; CREATION DE LA VERSION ORIGINALE */
/* > */
/* ***********************************************************************
 */

/*     INTEGER LONG, IER, ITRBK */
/*     LOGICAL FIRST */
/*     CHARACTER*255 NMFIC */
/*     DATA FIRST  /.TRUE./ */

/*     IF (FIRST) THEN */
/*        FIRST=.FALSE. */
/*        CALL MAIDVER(ITRBK) */
/*        IF (ITRBK.EQ.0) THEN */
/*           Si le symbole existe */
/*           CALL MATRSYM('STRMTRBK', NMFIC, LONG, IER) */
/*           IF (IER.NE.0) THEN */
/*           Si le fichier existe */
/*              CALL AGTFIC('STRMTRBK','DAT','STRMINIT',NMFIC,LONG,IER) */
/*              IF (IER.EQ.0) THEN */
/*                 CALL AGFFEX(NMFIC(1:LONG),IER) */
/*                 IF (IER.EQ.0) ITRBK=1 */
/*              ENDIF */
/*           ELSE */
/*              ITRBK=1 */
/*          ENDIF */
/*         ENDIF */
/*      ENDIF */

    *indice = 0;

 return 0 ;
} /* madbtbk_ */

