Hi Jan: Two quick observations: -- It seems that the routine is sometimes spelled dgsev and sometimes dgesv. Should these be consistent?
-- In your code, you sometimes do not use $ in front of variables: $A = zeroes(double ,n,n); (the n should be $n) Regards, Doug [email protected] Software Engineer UCAR - COSMIC, Tel. (303) 497-2611 On Sun, 31 May 2009, Jan Hoogenraad wrote: > Please help me with starting an interface to lapack. > Chris Marshall (marshallch) requested that I'll put my progress and questions > onto this list. > > I've come as far as installing PDL and starting to use inlpp_link.pl as a > template. > > I set up attached .pl file. This does not compile, as line 64 does not parse. > I've attached out.pdlpp, as this contains the error code: Invalid pdl > def int n (regex byte|short|ushort|int|longlong|float|double) at (eval 16) > line 7 > PDL::PP::PdlParObj::new('PDL::PP::PdlParObj', 'int n', > 'PDL_UNDEF_NUMBER', 0) called at (eval 13) line 7 > > I've tried to match what was done at Slatec, but there a different parser is > included. > > The header for the specific function I am trying to call is: > extern void dgesv_(int *n, int *nrhs, double *a, int *lda, int *ipiv, double > *b, int *ldb, int *info); > > > > _______________________________________________ Perldl mailing list [email protected] http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
