/* MWPRCS.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"

/* Common Block Declarations */

extern struct {
    doublereal eps1, eps2, eps3, eps4;
    integer niterm, niterr;
} mmprcsn_;

#define mmprcsn_1 mmprcsn_

/* Subroutine */ int mmwprcs_(epsil1, epsil2, epsil3, epsil4, niter1, niter2)
doublereal *epsil1, *epsil2, *epsil3, *epsil4;
integer *niter1, *niter2;
{


/* < */
/* **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 : */
/*     ---------- */
/*     ACCES EN ECRITURE POUR LE COMMON MPRCSN */

/*     MOTS CLES : */
/*     ----------- */
/*     ECRITURE */

/*     ARGUMENTS D'ENTREE : */
/*     -------------------- */
/*     EPSIL1  : TOLERANCE DE DISTANCE 3D NULLE */
/*     EPSIL2  : TOLERANCE DE DISTANCE PARAMETRIQUE NULLE */
/*     EPSIL3  : TOLERANCE POUR EVITER LES DIVISIONS PAR 0.. */
/*     EPSIL4  : TOLERANCE ANGULAIRE */
/*     NITER1  : NB D'ITERATIONS MAXIMAL */
/*     NITER2  : NB D'ITERATIONS RAPIDES */

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

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


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


/*     DESCRIPTION/REMARQUES/LIMITATIONS : */
/*     ----------------------------------- */

/* $    HISTORIQUE DES MODIFICATIONS : */
/*     ------------------------------ */
/*     13-05-96 :  JPI; ECRITURE VERSION ORIGINALE. */
/* > */
/* ***********************************************************************
 */
/*                            DECLARATIONS */
/* ***********************************************************************
 */


/* ***********************************************************************
 */
/*                      INITIALISATIONS */
/* ***********************************************************************
 */

/* ***********************************************************************
 */
/*                      TRAITEMENT */
/* ***********************************************************************
 */

/*    ACCES EN ECRITURE AUX VARIABLES DU COMMON MPRCSN */

/*     INCLUDE MPRCSN */
/* < */
/* **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 : */
/*     ---------- */
/*          DONNE LES TOLERANCES DE NULLITE DANS STRIM */
/*          AINSI QUE LES BORNES DES PROCESSUS ITERATIFS */

/*          CONTEXTE GENERAL, MODIFIABLE PAR L'UTILISATEUR */

/*     MOTS CLES : */
/*     ----------- */
/*          PARAMETRE , TOLERANCE */

/*     DEMSCRIPTION/REMARQUES/LIMITATIONS : */
/*     ----------------------------------- */
/*       INITIALISATION   :  PROFIL , **VIA MPRFTX** A L' ENTREE DANS STRI
M*/

/*       CHARGEMENT DES VALEURS PAR DEFAUT DU PROFIL DANS MPRFTX A L'ENTRE
E*/
/*        DANS STRIM. ELLES SONT CONSERVEES DANS DES VARIABLES LOCALES */
/*        DE MPRFTX */

/*        REMISE DES VALEURS PAR DEFAUT                  : MDFINT */
/*        MODIFICATION INTERACTIVE  PAR L'UTILISATEUR    : MDBINT */

/*        FONCTION D'ACCES :  MMEPS1   ...  EPS1 */
/*                            MEPSPB  ...  EPS3,EPS4 */
/*                            MEPSLN  ...  EPS2, NITERM , NITERR */
/*                            MEPSNR  ...  EPS2 , NITERM */
/*                            MITERR  ...  NITERR */

/* $    HISTORIQUE DES MODIFICATIONS : */
/*     ------------------------------ */
/*      01-02-90 : NAK  ; ENTETE */
/* > */
/* ***********************************************************************
 */

/*     NITERM : NB D'ITERATIONS MAXIMAL */
/*     NITERR : NB D'ITERATIONS RAPIDES */
/*     EPS1   : TOLERANCE DE DISTANCE 3D NULLE */
/*     EPS2   : TOLERANCE DE DISTANCE PARAMETRIQUE NULLE */
/*     EPS3   : TOLERANCE POUR EVITER LES DIVISIONS PAR 0.. */
/*     EPS4   : TOLERANCE ANGULAIRE */



/* ***********************************************************************
 */
    mmprcsn_1.eps1 = *epsil1;
    mmprcsn_1.eps2 = *epsil2;
    mmprcsn_1.eps3 = *epsil3;
    mmprcsn_1.eps4 = *epsil4;
    mmprcsn_1.niterm = *niter1;
    mmprcsn_1.niterr = *niter2;
 return 0 ;
} /* mmwprcs_ */

