Re: interface definitions of BLAS

"Joost" <jv244@xxxxxxxxx> wrote in message
news:1139427332.928994.91380@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

I've looked at it now, but as you say, it won't really do what I need
(i.e. explicit interface blocks). It is interesting though, any plans
to do something similar for LAPACK :-) ?

Just thinking about it, I think you could get it to do what
you want in about 10 minutes: just go to each *.f file that
defines the BLAS procedures (they are significantly reduced
in number due to the genericity) and wipe out all executable
statements, perhaps renaming each file to *.inc in the process.
Then go back to the module files and change the CONTAINS
statement to an INTERFACE statement and put an END INTERFACE
statement just before the END MODULE statement. Well, maybe
20 minutes, but somewhat easier than starting from scratch,
I think.

Oh, about LAPACK: f95's rules about TKR matching and LAPACK's
usage of sequence association across subroutine calls means
that this approach is unworkable. Maybe you could run a little
test to see if

!DEC$ ATTRIBUTES REFERENCE

allows the 'R' in TKR to be ignored. I think

!DEC$ ATTRIBUTES NO_ARG_CHECK

(or however it's spelled) is too heavy-handed to work in this
context.

--
write(*,*) transfer((/17.392111325966148d0,6.5794487871554595D-85, &
6.0134700243160014d-154/),(/'x'/)); end


.

Relevant Pages

  • Re: Who uses clapack?
    ... At netlib there is cblas and there is clapack. ... developers not knowing how to interface C and Fortran ... ATLAS offers a few lapack functions so you can extend ...
    (sci.math.num-analysis)
  • Re: complex symmetric matrices
    ... other lisp packages that interface with lapack/blas (blapack comes to ... interface, independent of LLA. ... LLA is a high-level linear algebra package based on LAPACK (and ... In relation to other libraries: I find that none are sufficiently ...
    (comp.lang.lisp)
  • Re: Symmetric matrices only!
    ... Ada programming --http://www.mysunrise.ch/users/gdm/gsoft.htm ... What you can do is write an interface to the LAPACK routine _GEEV (or ... Duncan Sands produced bindings to BLAS and I extended some to cover ...
    (comp.lang.ada)
  • Re: APL versu MatLab
    ... In a quick read I didnt see any mention of J. ... J has a good interface to LAPACK, ... much more of interest for engineering computing. ...
    (comp.lang.apl)