00001
00002 C
00003 C
00004 C Copyright (C) 2000, 2001 Silicon Graphics, Inc. All Rights Reserved.
00005 C
00006 C This program is free software; you can redistribute it and/or modify it
00007 C under the terms of version 2.1 of the GNU Lesser General Public License
00008 C as published by the Free Software Foundation.
00009 C
00010 C This program is distributed in the hope that it would be useful, but
00011 C WITHOUT ANY WARRANTY; without even the implied warranty of
00012 C MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
00013 C
00014 C Further, this software is distributed without any warranty that it is
00015 C free of the rightful claim of any third person regarding infringement
00016 C or the like. Any license provided herein, whether implied or
00017 C otherwise, applies only to this software file. Patent licenses, if
00018 C any, provided herein do not apply to combinations of this program with
00019 C other software, or any other product whatsoever.
00020 C
00021 C You should have received a copy of the GNU Lesser General Public
00022 C License along with this program; if not, write the Free Software
00023 C Foundation, Inc., 59 Temple Place - Suite 330, Boston MA 02111-1307,
00024 C USA.
00025 C
00026 C Contact information: Silicon Graphics, Inc., 1600 Amphitheatre Pky,
00027 C Mountain View, CA 94043, or:
00028 C
00029 C http://www.sgi.com
00030 C
00031 C For further information regarding this notice, see:
00032 C
00033 C http://oss.sgi.com/projects/GenInfo/NoticeExplan
00034 C
00035 C
00036
00037 C $Header: /proj/osprey/CVS/open64/osprey1.0/libF77/z_expf.F,v 1.1.1.1 2005/10/21 19:00:00 marcel Exp $
00038
00039 double complex function z_exp(z)
00040 double precision z(2), expx, r, i
00041 expx = exp(z(1))
00042 r = expx * cos(z(2))
00043 i = expx * sin(z(2))
00044 z_exp = dcmplx(r, i)
00045 return
00046 end
