Commit bb1158b6 authored by rtoy's avatar rtoy
Browse files

o Add CDABS and DCONJG functions.

o Add some type declarations for DIMAG
parent 4876816c
......@@ -607,7 +607,7 @@ is not included")
(defun fchar (i) ;intrinsic function char
(char-int i))
(declaim (inline iabs dabs cabs amod dmod))
(declaim (inline iabs dabs cabs cdabs amod dmod))
#-aclpc
(defun iabs (x)
(declare (type integer4 x))
......@@ -618,6 +618,9 @@ is not included")
(defun cabs (x)
(declare (type complex x))
(abs x))
(defun cdabs (x)
(declare (type (complex double-float) x))
(abs x))
(defun amod (x y)
(declare (type single-float x y))
......@@ -785,13 +788,17 @@ is not included")
;; AIMAG: imaginary part of a complex number
;; CONJG: conjugate of a complex number
(declaim (inline aimag conjg dimag))
(declaim (inline aimag conjg dconjg dimag))
(defun aimag (c)
(imagpart c))
(defun dimag (c)
(declare (type (complex double-float) c))
(imagpart c))
(defun conjg (c)
(conjugate c))
(defun dconjg (c)
(declare (type (complex double-float) c))
(conjugate c))
(declaim (inline fsqrt flog))
(defun fsqrt (x)
......@@ -1393,8 +1400,12 @@ causing all pending operations to be flushed"
;;;-------------------------------------------------------------------------
;;; end of macros.l
;;;
;;; $Id: macros.l,v 42095165a0c9 2006/05/02 22:12:02 rtoy $
;;; $Id: macros.l,v 7c1e29f1e192 2006/11/21 18:21:37 rtoy $
;;; $Log$
;;; Revision 1.72 2006/11/21 18:21:37 rtoy
;;; o Add CDABS and DCONJG functions.
;;; o Add some type declarations for DIMAG
;;;
;;; Revision 1.71 2006/05/02 22:12:02 rtoy
;;; src/f2cl5.l:
;;; o Try to make better declarations for variables defined in parameter
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment