/*
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 MIRAZ(LENGTH,ITAB)
C     ---------- 
C
C     EFFECTUE UNE REMISE A ZERO D'UN TABLEAU DE LOGICAL OU D'INTEGER.
C
C     MOTS CLES :
C     -----------
C        RAZ INTEGER
C
C     ARGUMENTS D'ENTREE :
C     ------------------
C               LENGTH : NOMBRE D'OCTETS A TRANSFERER
C               ITAB   : NOM DU TABLEAU
C
C     ARGUMENTS DE SORTIE :
C     --------------------
C               ITAB   : NOM DU TABLEAU REMIS A ZERO
C
C     COMMONS UTILISES   :
C     ----------------
C
C     REFERENCES APPELEES   :
C     -----------------------
C
C     DEMSCRIPTION/REMARQUES/LIMITATIONS :
C     -----------------------------------
C
C           Portable VAX-SGI
C
C$    HISTORIQUE DES MODIFICATIONS   :
C     --------------------------------
C
C     05-04-93 : JMB ; portabilite VAX SGI
C     06-01-86 : FS,GFa; CREATION (ADAPTATION VAX)
CSGI_H 16-02-89 : FS ; Optimisation en C en utilisant memset
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 miraz(taille,adt)
#else
__SysBase_API void miraz_(taille,adt)
#endif
integer *taille;
char *adt;
{
    integer offset;
    offset = *taille;
/*    printf(" adt %d  long %d\n",adt,offset); */
    memset(adt , '\0' , *taille) ;
}
