text: /************************************************************************
   * zia.c 
   ************************************************************************/
  
  #include "xvmaininc.h"
  #include "ftnbridge.h"
  #include <string.h>
  
  /************************************************************************/
  /* Fortran-Callable Version (no C-version needed -- use memset)         */
  /************************************************************************/
  
  void FTN_NAME2(zia, ZIA) (char *cbuf,int *n)
  {
    memset(cbuf,0,4*(*n));
    return;
  }
  
  
  
  