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

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

     ctrasc =  controle d'existence d'un fichier ascii.

     parametres =
         e      zfiasc  = nom du fichier ascii.

     retourne =
            kerr        = indicateur d'erreur :
                         -1 = le fichier n'existe pas,
                          0 = absence d'erreur.

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

     auteur = marimai.henaff    iut.orsay
     version 1.4 du 6/18/92

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

int ctrasc ( zfiasc)
char    *zfiasc;

{

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

        FILE    *fdfic;
        int     kerr;

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

        kerr = 0 ;


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

        fdfic = fopen ( zfiasc, "r") ;
        if ( fdfic == NULL ) {
           kerr = -1 ;
        }
        fclose ( fdfic) ;

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

        return ( kerr) ;

}