The R Project SVN R

Rev

Rev 68947 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 68947 Rev 72986
Line 30... Line 30...
30 
 
 30 
 
31 
static int initialized = 0;
 31 
static int initialized = 0;
32 
 
 32 
 
33 
static void La_Init(void)
 33 
static void La_Init(void)
34 
{
 34 
{
35 
    int res = R_moduleCdynload("lapack", 1, 1);
 35 
    int res = R_moduleCdynload("lapack", 1, 1); // -> ../modules/lapack/Lapack.c
36 
    initialized = -1;
 36 
    initialized = -1;
37 
    if(!res) return;
 37 
    if(!res) return;
38 
    if(!ptr->do_lapack)
 38 
    if(!ptr->do_lapack)
39 
	error(_("LAPACK routines cannot be accessed in module"));
 39 
	error(_("LAPACK routines cannot be accessed in module"));
40 
    initialized = 1;
 40 
    initialized = 1;