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

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

     delasc =  destruction d'un fichier ascii avec une entete utilisateur

     parametres =
        e       zfiasc  = nom du fichier ascii,
        e       nser    = nombre maximal de series,
        e       nech    = nombre d'echantillons dans une serie,
        e       zcomt   = commentaires sur les donnees de l'entete,
        e       zentt   = donnees alphabetiques de l'entete,
        e       rentt   = donnees numeriques de l'entete,
        e       lent    = longueur de l'entete,

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

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

     auteur = sylvain.coudray   ifremer/diti/go/som
     version 1.1 du 02/01/95

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

int delasc ( zfiasc)
char    *zfiasc;

{

/* ... variables globales ... */

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

        int     kerr ;

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

        kerr = 0 ;

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

        /* ... destruction du fichier ... */

        printf (" *** destruction du fichier : %s *** \n", zfiasc);

        kerr = unlink ( zfiasc) ;

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

        return ( kerr) ;

}