The R Project SVN R

Rev

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

Rev 60413 Rev 60844
Line 34... Line 34...
34 
{
 34 
{
35 
    int res = R_moduleCdynload("lapack", 1, 1);
 35 
    int res = R_moduleCdynload("lapack", 1, 1);
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;
41 
    return;
 41 
    return;
42 
}
 42 
}
43 
 
 43 
 
44 
 
 44 
 
Line 48... Line 48...
48 
    checkArity(op, args);
 48 
    checkArity(op, args);
49 
    if(!initialized) La_Init();
 49 
    if(!initialized) La_Init();
50 
    if(initialized > 0)
 50 
    if(initialized > 0)
51 
	return (*ptr->do_lapack)(call, op, args, env);
 51 
	return (*ptr->do_lapack)(call, op, args, env);
52 
    else {
 52 
    else {
53 
	error(_("lapack routines cannot be loaded"));
 53 
	error(_("LAPACK routines cannot be loaded"));
54 
	return R_NilValue;
 54 
	return R_NilValue;
55 
    }
 55 
    }
56 
}
 56 
}
57 
 
 57 
 
58 
 
 58