/* AOSTRD.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 maostrd_()
{
    static integer imod;
    extern /* Subroutine */ int madbtbk_(), maostrb_();

/* < */
/* **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 : */
/*     ---------- */
/*       AFFICHAGE DU TRACE-BACK EN PHASE DE PRODUCTION */

/*     MOTS CLES : */
/*     ----------- */
/*       FONCTION, SYSTEME, TRACE-BACK, AFFICHAGE, DEBUGGAGE */

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

/*     ARGUMENTS DE SORTIE : */
/*     --------------------- */
/*       NEANT */

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

/*     REFERENCES APPELEES : */
/*     --------------------- */
/*       MADBTBK */

/*     DESCRIPTION/REMARQUES/LIMITATIONS : */
/*     ----------------------------------- */
/*       CETTE ROUTINE DOIT ETRE APPELE POUR REALISER UN AFFICHAGE */
/*       DE TRACE-BACK EN PHASE DE PRODUCTION ET LAISSER QUAND MEME */
/*       LA POSSIBILITE AUX TESTEURS D'OBTENIR CES TRACE-BACK DANS */
/*       LES VERSIONS CLIENTS SI UNE DES CONTIONS SUIVANTES EST */
/*       VERIFIEE : */
/*       - EXISTENCE DU SYMBOLE 'STRMTRBK' */
/*       - EXISTENCE DU FICHIER 'STRMINIT:STRMTRBK.DAT' */

/* $    HISTORIQUE DES MODIFICATIONS : */
/*     ------------------------------ */
/*       26-07-90 : DGZ ; CREATION DE LA VERSION ORIGINALE */
/* > */
/* ***********************************************************************
 */
    madbtbk_(&imod);
    if (imod == 1) {
	maostrb_();
    }
 return 0 ;
} /* maostrd_ */

