my $fi = gsl_fopen( 'infile','r');