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

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

     opiasc = ouverture d'un fichier ascii en lecture.

     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.1 du 02/01/95

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

FILE    *fdfic_g;

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

int opiasc_ ( Pluasc, zfiasc, lzfi)
int     *Pluasc;
char    zfiasc[];
int     lzfi;

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

extern  FILE    *fdfic_g;

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

        int     kerr;
        int     ichr1, ichr2 ;
        char    zfiasc_w[64];

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

        kerr = 0 ;

        /* ... traitement des chaines de caracteres ................. */

/*debug
        lenchr_ ( zfiasc, &ichr1, &ichr2, lzfi) ;
        strcpy ( zfiasc_w, fortoc ( zfiasc, ichr2)) ;
enddebug*/

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

        kerr = opiasc ( &fdfic_g, zfiasc_w);

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

        return ( kerr);
}

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

int opiasc ( 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) ;

}