/* AOVSR8.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"
#include <Data_Data.h>
#include <SysBase.h>
/* Common Block Declarations */

/*extern __Data_API struct {(*/
extern struct {
    doublereal r8und, r8ovr, x4und, x4ovr;
    real r4und, r4ovr;
    integer r4nbe, r8nbm, r8nbe, i4ovr, i4ovn, r4exp, r8exp, r4exn, r8exn, 
	    r4ncs, r8ncs, r4nbm;
    shortint i2ovr, i2ovn;
} maovpar_;

#define maovpar_1 maovpar_

extern struct {
    char cnmmac[16], frmr4[8], frmr8[8], cdcode[8];
} maovpch_;

#define maovpch_1 maovpch_

/* Subroutine */ __SysBase_API int maovsr8_(ivalcs)
integer *ivalcs;
{


/* < */
/* **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 "NOMBRE DE CHIFFRES SIGNIFICATIFS" POUR UN DOUBLE */
/*       PRECISION */

/*     MOTS CLES : */
/*     ----------- */
/*       SYSTEME, LIMITES, CHIFFRES SIGNIFICATIFS, DOUBLE PRECISION */

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

/*     ARGUMENTS DE SORTIE : */
/*     --------------------- */
/*       IVALCS : "NOMBRE DE CHIFFRES SIGNIFICATIFS" POUR UN DOUBLE */
/*                 PRECISION */

/*     COMMONS UTILISES : */
/*     ------------------ */
/*       MAOVPAR */

/*     REFERENCES APPELEES : */
/*     --------------------- */
/*       AFTDGF */

/*     DESCRIPTION/REMARQUES/LIMITATIONS : */
/*     ----------------------------------- */
/*     *** CETTE ROUTINE EXPLOITE LE FICHIER MAOVPAR.INC SPECIFIQUE */
/*         MACHINE. */

/*     *** ON APPELLE "NOMBRE DE CHIFFRES SIGNIFICATIFS" D'UN REEL LE */
/*         NOMBRE MAXIMAL DE CHIFFRES AUTORISES DANS LA REPRESENTATION */
/*         DECIMALE POUR DEFINIR LA VALEUR DE CE REEL. */

/*         IL EST IDENTIQUE POUR LES VALEURS POSITIVES ET NEGATIVES. */

/* $    HISTORIQUE DES MODIFICATIONS : */
/*     ------------------------------ */
/*       02-02-93 : JMB : Suppression appel a agtdgf */
/*       04-07-90 : CS/DGZ ; CREATION VERSION ORIGINALE */
/* > */
/* ***********************************************************************
 */

/*     JMB */
/*       v */
/*      INTEGER IFLT,IBID */

/* RECUPERATION DU TYPE D_FLOAT/G_FLOAT */
/*      CALL AFTDGF(IFLT,IBID) */

/* RETOUR DU RESULTAT */
/*      IF (IFLT.EQ.1) THEN */
/*         IVALCS=R8NCSG */
/*      ELSE */
/*         IVALCS=R8NCS */
/*      ENDIF */
/*      ^ */
/*      JMB */
/*     INCLUDE MAOVPAR */


/* < */
/* **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 : */
/*     ---------- */
/*       DEFINIT LES VALEURS LIMITES SPECIFIQUES MACHINE. */

/*     MOTS CLES : */
/*     ----------- */
/*       SYSTEME, LIMITES, VALEURS, SPECIFIQUE */

/*     DEMSCRIPTION/REMARQUES/LIMITATIONS : */
/*     ----------------------------------- */
/*     *** ELLES NE PEUVENT PAS ETRE ECRASEES EN COURS D'EXECUTION. */

/*     *** LES VALEURS D'UNDERFLOW ET D'OVERFLOW NE PEUVENT PAS ETRE */
/*     DEFINIES EN VALEUR DECIMALES (ERREUR A LA COMPILATION D_FLOAT) */
/*     ON LES DEFINIT DONC EN VALEUR HEXADECIMALES */

/* $    HISTORIQUE DES MODIFICATIONS : */
/*     ------------------------------ */
/*     02-02-1993 : JMB ; SUPPRESSION DE LA SPECIFICITE DE L'INCLUDE */
/*     29-08-1990 : DGZ ; AJOUT DES REELS X4OVR ET X4UND */
/*     10-08-1990 : DGZ ; AJOUT DES FORMATS FRMR4,FRMR8,FRMR8G */
/*     18-06-1990 : CS/DGZ ; CREATION VERSION ORIGINALE */
/* > */
/* ***********************************************************************
 */


/*    DECLARATION DU COMMON POUR LES TYPES NUMERIQUES */


/*    DECLARATION DU COMMON POUR LES TYPES CARACTERES */


    *ivalcs = maovpar_1.r8ncs;
 return 0 ;
} /* maovsr8_ */

