/* SIFILL.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 msifill_(nbintg, ivecin, ivecou)
integer *nbintg, *ivecin, *ivecou;
{
    static integer nocte;
    extern /* Subroutine */ int mcrfill_();


/* < */
/* **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 : */
/*     ---------- */
/*        Effectue le transfert d'Integer d'une zone dans une autre */

/*     MOTS CLES : */
/*     ----------- */
/*        TRANSFERT , ENTIER , MEMOIRE */

/*     ARGUMENTS D'ENTREE : */
/*     ------------------ */
/*        NBINTG : Nombre d'entiers */
/*        IVECIN : vecteur d'entree */

/*     ARGUMENTS DE SORTIE : */
/*     ------------------- */
/*        IVECOU : vecteur de sortie */

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

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

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

/* $    HISTORIQUE DES MODIFICATIONS   : */
/*     -------------------------------- */
/*     26-07-89 : PCR; Declaration en * pour transfert long. nulle */
/*                          (trap sinon). */
/*     17-10-88 : HK ; Ecriture version originale. */
/* > */
/* ***********************************************************************
 */

/* ___ NOCTE : Nombre d'octets a transferer */

    /* Parameter adjustments */
    --ivecou;
    --ivecin;

    /* Function Body */
    nocte =  *nbintg * sizeof(integer);
    mcrfill_(&nocte, &ivecin[1], &ivecou[1]);
 return 0 ;
} /* msifill_ */

