mirror of https://github.com/CGAL/cgal
47 lines
1.2 KiB
C++
47 lines
1.2 KiB
C++
// Copyright (c) 2007 INRIA Sophia-Antipolis (France).
|
|
// All rights reserved.
|
|
//
|
|
// This file is part of CGAL (www.cgal.org); you can redistribute it and/or
|
|
// modify it under the terms of the GNU Lesser General Public License as
|
|
// published by the Free Software Foundation; either version 3 of the License,
|
|
// or (at your option) any later version.
|
|
//
|
|
// Licensees holding a valid commercial license may use this file in
|
|
// accordance with the commercial license agreement provided with the software.
|
|
//
|
|
// This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
|
|
// WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
|
|
//
|
|
// $URL$
|
|
// $Id$
|
|
//
|
|
// Author(s) : Laurent Saboret
|
|
|
|
// Test if the LAPACK subset in ATLAS is available
|
|
|
|
|
|
#include <iostream>
|
|
|
|
extern "C" {
|
|
// Fortran interface taken from ATLAS/interfaces/lapack/F77/src/dpotrf.f
|
|
extern void dpotrf_(char *uplo, int *n, double *a, int *lda, int *info);
|
|
}
|
|
|
|
|
|
int main()
|
|
{
|
|
// Call dpotrf_() Lapack routine (Cholesky factorization)
|
|
int sn_size = 0;
|
|
int lda = 1;
|
|
int info;
|
|
dpotrf_((char*)"LOWER",
|
|
&sn_size,
|
|
NULL,
|
|
&lda,
|
|
&info);
|
|
|
|
std::cout << "ok for ATLAS" << std::endl;
|
|
|
|
return 0;
|
|
}
|