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

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

     opuasc =  ouverture d'un fichier ascii en mise a jour.

     parametres =
        e       zfiasc  = nom du fichier ascii,
         s      fdfic   = descripteur du fichier.

     retourne =
                kerr    = indicateur d'erreur :
                         -1 = impossible d'ouvrir le fichier,
                          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 opuasc ( fdfic, zfiasc)
FILE    **fdfic;
char    *zfiasc;

{

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

        int     kerr;

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

        kerr = 0 ;


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

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

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

        return ( kerr) ;

}