[Maxima-commits] CVS: maxima/src/numerical/slatec quadpack.system,NONE,1.1

[Raymond T. <rt...@us...>]

Update of /cvsroot/maxima/maxima/src/numerical/slatec
In directory sc8-pr-cvs1:/tmp/cvs-serv25367/src/numerical/slatec

Added Files:
	quadpack.system 
Log Message:
Initial revision.


--- NEW FILE: quadpack.system ---
;;; -*- Mode: lisp -*-
;;;
;;; This system file is used to convert the Fortran files to Lisp
;;; files for use with Maxima.


;; You might have to bind *default-pathname-defaults* to #p"" when
;; running this.  It seems that some part of defsystem wants to merge
;; a pathname with *default-pathname-defaults* to produce the output
;; file name, and that ends up going to the wrong place.

(eval-when (load eval compile)
  ;; You need to define a logical pathname translation for maxima for
  ;; this to work.
  (setf (logical-pathname-translations "slatec")
	`(("**;*.*.*" ,(translate-logical-pathname "maxima:src;numerical;slatec;**;*.*")))))

(mk:define-language :f2cl
    :compiler #'f2cl:f2cl
    :loader #'identity
    :source-extension "f")

(mk:defsystem quadpack
    :source-extension "f"
    :binary-extension "lisp"
    :source-pathname (translate-logical-pathname "slatec:")
    :binary-pathname (translate-logical-pathname "slatec:")
    :components
    ((:module fortran
	      :language :f2cl
	      :compiler-options (:float-format double-float :package "SLATEC")
	      :compile-only t
	      :binary-pathname (translate-logical-pathname "slatec:")
	      :components
	      (
	       ;; Support
	       (:file "dqwgtf")
	       (:file "dqcheb")
	       (:file "dqk15w")
	       (:file "dqwgts")
	       (:file "dqwgtc")
	       (:file "dgtsl")
	       ;;(:file "xerror")
	       
	       ;; Core integration routines
	       (:file "dqk15")
	       (:file "dqk31")
	       (:file "dqk41")
	       (:file "dqk51")
	       (:file "dqk61")
	       (:file "dqk21")
	       (:file "dqk15i")
	       (:file "dqelg")
	       (:file "dqpsrt")
	       (:file "dqc25s"
		      :depends-on ("dqcheb" "dqk15w"))
	       (:file "dqmomo")
	       (:file "dqc25c"
		      :depends-on ("dqcheb"
				   "dqk15w"))
	       (:file "dqc25f"
		      :depends-on ("dgtsl"
				   "dqcheb"
				   "dqk15w"
				   "dqwgtf"))
	       ;; Basic integrators
	       (:file "dqage"
		      :depends-on ("dqk15"
				   "dqk31"
				   "dqk41"
				   "dqk51"
				   "dqk61"
				   "dqk21"
				   "dqpsrt"))
	       (:file "dqagie"
		      :depends-on ("dqelg"
				   "dqk15i"
				   "dqpsrt"))
	       (:file "dqagpe"
		      :depends-on ("dqelg"
				   "dqpsrt"
				   "dqk21"
				   ))
	       (:file "dqagse"
		      :depends-on ("dqk21"
				   "dqelg"
				   "dqpsrt"))
	       (:file "dqawfe"
		      :depends-on ("dqagie"
				   "dqawoe"
				   "dqelg")
		      ;; If your defsystem doesn't support :compiler-options, use this:
		      ;; :language :f2cl-no-slice
		      ;; If your defsystem does support :compiler-options, use this:
		      :compiler-options (:array-slicing nil :array-type :array)
		      )
	       (:file "dqawoe"
		      :depends-on ("dqc25f"
				   "dqpsrt"
				   "dqelg"))
	       (:file "dqawse"
		      :depends-on ("dqc25s"
				   "dqmomo"
				   "dqpsrt"))
	       (:file "dqawce"
		      :depends-on ("dqc25c"
				   "dqpsrt"))
	       ;; Simplified interface routines
	       (:file "dqng")
	       (:file "dqag"
		      :depends-on ("dqage"
				   #+nil "xerror"))
	       (:file "dqags"
		      :depends-on ("dqagse"
				   #+nil "xerror"))
	       (:file "dqagi"
		      :depends-on ("dqagie"
				   #+nil "xerror"))
	       (:file "dqawf"
		      :depends-on ("dqawfe"
				   #+nil "xerror"))
	       (:file "dqawo"
		      :depends-on ("dqawoe"
				   #+nil "xerror"))
	       (:file "dqaws"
		      :depends-on ("dqawse"
				   #+nil "xerror"))
	       (:file "dqawc"
		      :depends-on ("dqawce"
				   #+nil "xerror"))))))