Doxygen Source Code Documentation
Main Page Alphabetical List Data Structures File List Data Fields Globals Search
r_cos.c
Go to the documentation of this file.00001 #include "f2c.h"
00002
00003 #ifdef KR_headers
00004 double cos();
00005 double r_cos(x) real *x;
00006 #else
00007 #undef abs
00008 #include "mathh.h"
00009 double r_cos(real *x)
00010 #endif
00011 {
00012 return( cos(*x) );
00013 }