#include "../h/licasc.h"

/*
 =======================================================================

     clsasc = fermeture d'un fichier ascii.

     parametres =
         e      fdfic   = descripteur du fichier.

     retourne =
            kerr        = indicateur d'erreur :
                         -1 = inpossible de fermer le fichier,
                          0 = absence d'erreur.

     generiques =
         err    = erreur
      P...      = pointeur
      S...      = structure
       ...t     = tableau

     auteur = marimai.henaff    iut.orsay
     version 1.1 du 02/01/95

 =======================================================================
*/

/* -------------------------------------------------------------------*/
/* ... point d'entree pour programme appelant en FORTRAN .............*/
/* -------------------------------------------------------------------*/

int clsasc_ ( Pluasc)
int     *Pluasc;
{
/* ... variables globales ... */

extern  FILE    *fdfic_g;

        /* ... variables locales ... */

        int     kerr;

        /* ... appel du point d'entree C ... */

        kerr = clsasc ( fdfic_g);

        /* ... fin du traitement .................................... */

        return ( kerr);

}


/* -------------------------------------------------------------------*/
/* ... point d'entree pour programme appelant en C ...................*/
/* -------------------------------------------------------------------*/

int clsasc ( fdfic)
FILE *fdfic;
{

        /* ... variables locales ... */

        int     kerr;

        /* ... initialisations ...................................... */


        /* ... debut du traitement .................................. */

        kerr = fclose ( fdfic) ;

        /* ... fin du traitement .................................... */

        return ( kerr) ;

}