#ifndef protos_lapack__h
#define  protos_lapack__h
// prototypes pour lapack et classe d'exception associée.
namespace lapack_c
{
  //! prototypes for lapack routines.
extern "C"{
  void dgetrf_(int *n,int *m,double* a,int *lda,int *ipiv,int *info);
}
extern "C"{
  void zgetrf_(int *n,int *m,double* a,int *lda,int *ipiv,int *info);
}
extern "C"{
  void dgetrs_(const char *s,int *N,int *NRHS,double *A,int *LDA,int *IPIV,
	       double *B,int *LDB,int *INFO );

}
extern "C"{
  void zgetrs_(const char *s,int *N,int *NRHS,double *A,int *LDA,int *IPIV,
	       double *B,int *LDB,int *INFO );
}
extern "C"{
  void dgbtrf_(int *n,int *m,int *k1,int *k2,
	       double* a,int *lda,int *ipiv,int *info);
}
extern "C"{
  void zgbtrf_(int *n,int *m,int *k1,int *k2,
	       double* a,int *lda,int *ipiv,int *info);
}
extern "C"{
  void dgbtrs_(const char *s,int *N,int *k1,int *k2,
	       int *NRHS,double *A,int *LDA,int *IPIV,
	       double *B,int *LDB,int *INFO );
}
extern "C"{
  void zgbtrs_(const char *s,int *N,int *k1,int *k2,
	       int *NRHS,double *A,int *LDA,int *IPIV,
	       double *B,int *LDB,int *INFO );
}
extern "C"{
  void dlarnv_(int *idist,int iseed[],int *n,double *x);
}
extern "C"{
  void dgehrd_(int *n,int *ilo,int *ihi,double *a,int *lda,double tau[],
	       double work[],int *lwork,int *info);
}
extern "C"{
  void dorghr_(int *n,int *ilo,int *ihi,double *a,int *lda,double tau[],
	       double work[],int *lwork,int *info);
}
  extern "C"{
    void dgeev_(const char *jobvl,const char *jobvr,int * n,double *a,
		int *lda,double *WR, double *WI,double *VL,int *LDVL, 
		double *VR,int  *LDVR,
		double *WORK,int  *LWORK,int *INFO );

  }
  extern "C"{
    void dgesv_(int *n,int *nrhs,double *A,int *lda,int *ipiv, double *B,
		int *ldb,int *info);

  }
    extern "C"{
      void dgbmv_(const char *trans,int *m,int *n,int *kl,int *ku,double *alpha,
		  double *A,int *lda,double *X,int *incx,double *beta,
		  double *y, int *incy);
  }
  extern "C"{
    void dgemv_(const char *trans,int *m,int *n,double *alpha, double *A,
		int *lda,double *X,int *incx,double *beta,
		double *y, int *incy);
  }
   extern "C"{
     double dlange_(const char *norm,int *m,int *n, double *A,
		  int *lda,double *work);
  }
   extern "C"{
     void dgecon_(const char *norm,int *n,double *a,int *lda,double *lanorme,
		  double *rcond,double *work, int *iwork,int *info);
		    
  }
  struct LapackException
  {
    int Info;
    LapackException(int info):Info(info){}
    int  what(){return Info;}
  };
 
}
#endif