/* XVSAVE.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 <SysBase.h>
/* Subroutine */ __SysBase_API int mxvsave_(iercod)
integer *iercod;
{

/* < */

/* **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 : */
/*     ---------- */
/*        SAUVEGARDE DES VARIABLES LOCALES */

/*     MOTS CLES : */
/*     ----------- */
/*        SAUVEGARDE, VARIABLE */

/*     ARGUMENTS D'ENTREE : */
/*     -------------------- */
/*        CF DESCRIPTION */

/*     ARGUMENTS DE SORTIE : */
/*     --------------------- */
/*        IERCOD = 0 : DONNEES SAUVEES */
/*               = 4 : PAS DE DONNEES PRECEDEMMENT SAUVEGARDEES */
/*               = 8 : LONGUEURS INCORRECTES OU INCOHERENTES */
/*               = 12 : PLUS DE MEMOIRE DISPONIBLE */

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

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

/*     DESCRIPTION/REMARQUES/LIMITATIONS : */
/*     ----------------------------------- */
/*        SPECIFIQUE VAX : ROUTINE A NOMBRE D'ARGUMENTS VARIABLE */

/*        L'appel DOIT SE FAIRE AVEC LA SYNTAXE : */
/*        CALL MXVSAVE (IERCOD,"TYPE1",NOMBR1,VAR1,"TYPE1",NOMBR1,VAR1...)
 */
/*        "TYPEN",NOMBRN,VARN   sont les arguments definissant */
/*                           la variable N a sauvegarder */
/*              TYPE : type de la variable, syntaxe identique a celle des 
*/
/*                     declarations (chaine de caracteres). Par exemple, 
*/
/*                     INTEGER, REAL, DOUBLE PRECISION, CHARACTER*7 */
/*              NOMBR : nombre d'elements (1:variable simple, m:tableau) 
*/
/*              VAR : nom de la variable */

/*         Pour plus de details consulter l'annexe 2 du document */
/*         "REGLES DE PROGRAMMATION CISIGRAPH" */

/* $    HISTORIQUE DES MODIFICATIONS   : */
/*     -------------------------------- */
/*        11.02.88 : AB ; INIT IERCOD */
/*        03.11.87 : AB ; COMMENTAIRES */
/*        06.04.87 : PP ; ECRITURE VERSION ORIGINALE */
/* > */
/* ***********************************************************************
 */

    *iercod = 0;
    return 0;
} /* mxvsave_ */

