Open64: osprey/libU77/dbes.c Source File

00001 /*
00002  * Copyright 2004, 2005 PathScale, Inc.  All Rights Reserved.
00003  */
00004 
00005 /* Copyright (C) 1995, 1996 Free Software Foundation, Inc.
00006 This file is part of GNU Fortran libU77 library.
00007 
00008 This library is free software; you can redistribute it and/or modify it
00009 under the terms of the GNU Library General Public License as published
00010 by the Free Software Foundation; either version 2 of the License, or
00011 (at your option) any later version.
00012 
00013 GNU Fortran is distributed in the hope that it will be useful,
00014 but WITHOUT ANY WARRANTY; without even the implied warranty of
00015 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
00016 Library General Public License for more details.
00017 
00018 You should have received a copy of the GNU Library General Public
00019 License along with GNU Fortran; see the file COPYING.LIB.  If
00020 not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
00021 Boston, MA 02111-1307, USA.  */
00022 
00023 #include "f2c.h"
00024 #include <math.h>
00025 
00026 double
00027 G77_dbesj0_0 (const double *x)
00028 {
00029   return j0 (*x);
00030 }
00031 
00032 double
00033 G77_dbesj1_0 (const double *x)
00034 {
00035   return j1 (*x);
00036 }
00037 
00038 double
00039 G77_dbesjn_0 (const integer * n, double *x)
00040 {
00041   return jn (*n, *x);
00042 }
00043 
00044 double
00045 G77_dbesy0_0 (const double *x)
00046 {
00047   return y0 (*x);
00048 }
00049 
00050 double
00051 G77_dbesy1_0 (const double *x)
00052 {
00053   return y1 (*x);
00054 }
00055 
00056 double
00057 G77_dbesyn_0 (const integer * n, double *x)
00058 {
00059   return yn (*n, *x);
00060 }