home *** CD-ROM | disk | FTP | other *** search
/ Enter 2004 January / enter-2004-01.iso / files / maxima-5.9.0.exe / {app} / share / maxima / 5.9.0 / src / numerical / slatec / j4save.lisp < prev    next >
Encoding:
Text File  |  2003-02-09  |  1.3 KB  |  33 lines
  1. ;;; Compiled by f2cl version 2.0 beta 2002-05-06
  2. ;;; 
  3. ;;; Options: ((:prune-labels nil) (:auto-save t) (:relaxed-array-decls t)
  4. ;;;           (:coerce-assigns :as-needed) (:array-type ':simple-array)
  5. ;;;           (:array-slicing nil) (:declare-common nil)
  6. ;;;           (:float-format double-float))
  7.  
  8. (in-package "SLATEC")
  9.  
  10.  
  11. (let ((iparam (make-array 9 :element-type 'f2cl-lib:integer4)))
  12.   (declare (type (simple-array f2cl-lib:integer4 (9)) iparam))
  13.   (f2cl-lib:fset (f2cl-lib:fref iparam (1) ((1 9))) 0)
  14.   (f2cl-lib:fset (f2cl-lib:fref iparam (2) ((1 9))) 2)
  15.   (f2cl-lib:fset (f2cl-lib:fref iparam (3) ((1 9))) 0)
  16.   (f2cl-lib:fset (f2cl-lib:fref iparam (4) ((1 9))) 10)
  17.   (f2cl-lib:fset (f2cl-lib:fref iparam (5) ((1 9))) 1)
  18.   (f2cl-lib:fset (f2cl-lib:fref iparam (6) ((1 9))) 0)
  19.   (f2cl-lib:fset (f2cl-lib:fref iparam (7) ((1 9))) 0)
  20.   (f2cl-lib:fset (f2cl-lib:fref iparam (8) ((1 9))) 0)
  21.   (f2cl-lib:fset (f2cl-lib:fref iparam (9) ((1 9))) 0)
  22.   (defun j4save (iwhich ivalue iset)
  23.     (declare (type f2cl-lib:logical iset)
  24.              (type f2cl-lib:integer4 ivalue iwhich))
  25.     (prog ((j4save 0))
  26.       (declare (type f2cl-lib:integer4 j4save))
  27.       (setf j4save (f2cl-lib:fref iparam (iwhich) ((1 9))))
  28.       (if iset (f2cl-lib:fset (f2cl-lib:fref iparam (iwhich) ((1 9))) ivalue))
  29.       (go end_label)
  30.      end_label
  31.       (return (values j4save nil nil nil)))))
  32.  
  33.