From: Raymond T. <rt...@us...> - 2002-04-26 16:22:07
|
Update of /cvsroot/maxima/maxima/src/numerical/slatec In directory usw-pr-cvs1:/tmp/cvs-serv7165/src/numerical/slatec Modified Files: README Log Message: Update the script for building the Lisp files. Clean up notes. Index: README =================================================================== RCS file: /cvsroot/maxima/maxima/src/numerical/slatec/README,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- README 26 Apr 2002 14:13:57 -0000 1.2 +++ README 26 Apr 2002 16:22:03 -0000 1.3 @@ -9,6 +9,7 @@ Here is a simple script used to convert the Fortran code from the SLATEC library to Lisp. +---------------------------------------------------------------------- (dolist (f (directory "numerical/slatec/fortran/*.f")) (let ((lisp-path (make-pathname :directory (remove "fortran" (pathname-directory f) @@ -19,21 +20,34 @@ :array-slicing nil :package "SLATEC" :float-format 'double-float))) -However, dbesj needs to be compiled as follows: - (f2cl::f2cl "numerical/slatec/fortran/dbesj.f" :output-file "numerical/slatec/dbesj.lisp" :array-slicing t :package "SLATEC" :float-format 'double-float) -because it slices an array for use by DASYJY. Therefore, DASYJY needs -to be compiled like: - (f2cl::f2cl "numerical/slatec/fortran/dasyjy.f" :output-file "numerical/slatec/dasyjy.lisp" :array-slicing nil :array-type :array :package "SLATEC" :float-format 'double-float) + +(f2cl::f2cl "numerical/slatec/fortran/dasyik.f" + :output-file "numerical/slatec/dasyik.lisp" + :array-slicing nil + :array-type :array + :package "SLATEC" :float-format 'double-float) + +(f2cl::f2cl "numerical/slatec/fortran/dbesi.f" + :output-file "numerical/slatec/dbesi.lisp" + :array-slicing t + :package "SLATEC" :float-format 'double-float) + +---------------------------------------------------------------------- + +However, dbesj needs to be compiled as above because it slices an +array for use by DASYJY. Therefore, DASYJY needs to be compiled as +above since it's not given a simple-array. Same thing holds for +dasyik and dbesi. It is important that the options given above to f2cl are used, especially the array-slicing, package, and float-format options. If |