/*
C**NOTICE
C  THIS SOFTWARE IS THE PROPERTY OF CISIGRAPH.
C  THIS CODE MUST NOT BE DISTRIBUTED OR COPIED WITHOUT THE PRIOR
C  WRITTEN PERMISSION OF CISIGRAPH AND IS ONLY TO BE USED ON THE
C  SITE WHERE IT IS INSTALLED BY CISIGRAPH
C**NOTICE
C
C*****************************************************************************
C
C     FONCTION : CALL MVRIRAZ(NBELT,DTAB)
C     ---------- 
C     Effectue une remise a zero d'un tableau de DOUBLE PRECISION
C
C     MOTS CLES :
C     -----------
C     MVRMIRAZ DOUBLE
C
C     ARGUMENTS D'ENTREE :
C     ------------------
C     NBELT  : Nombre d'elements du tableau
C     DTAB   : Tableau a initialiser a zero
C
C     ARGUMENTS DE SORTIE :
C     --------------------
C     DTAB   : Tableau remis a zero
C
C     COMMONS UTILISES   :
C     ----------------
C
C     REFERENCES APPELEES   :
C     -----------------------
C
C     DEMSCRIPTION/REMARQUES/LIMITATIONS :
C     -----------------------------------
C
C           
C
C$    HISTORIQUE DES MODIFICATIONS   :
C     --------------------------------
C     21-11-95 : JMF ; Creation a partir de miraz
C
C>
C***********************************************************************
*/
#ifdef VMS
#include <string.h>
#else
#include <memory.h>
#include  <stdio.h>
#endif

#include <Data_f2c.h>
#include <SysBase.h>
#ifdef VMS
void mvriraz(taille,adt)
#else
__SysBase_API void mvriraz_(taille,adt)
#endif

integer *taille;
char *adt;
{
    integer offset;
    offset = *taille * 8 ;
/*    printf(" adt %d  long %d\n",adt,offset); */
    memset(adt , '\0' , offset) ;
}
