PLearn 0.1
|
00001 // -*- C++ -*- 00002 00003 // PLearn (A C++ Machine Learning Library) 00004 // Copyright (C) 1998 Pascal Vincent 00005 // Copyright (C) 1999-2002 Pascal Vincent, Yoshua Bengio and University of Montreal 00006 // 00007 00008 // Redistribution and use in source and binary forms, with or without 00009 // modification, are permitted provided that the following conditions are met: 00010 // 00011 // 1. Redistributions of source code must retain the above copyright 00012 // notice, this list of conditions and the following disclaimer. 00013 // 00014 // 2. Redistributions in binary form must reproduce the above copyright 00015 // notice, this list of conditions and the following disclaimer in the 00016 // documentation and/or other materials provided with the distribution. 00017 // 00018 // 3. The name of the authors may not be used to endorse or promote 00019 // products derived from this software without specific prior written 00020 // permission. 00021 // 00022 // THIS SOFTWARE IS PROVIDED BY THE AUTHORS ``AS IS'' AND ANY EXPRESS OR 00023 // IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES 00024 // OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN 00025 // NO EVENT SHALL THE AUTHORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, 00026 // SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED 00027 // TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 00028 // PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 00029 // LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 00030 // NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 00031 // SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 00032 // 00033 // This file is part of the PLearn library. For more information on the PLearn 00034 // library, go to the PLearn Web site at www.plearn.org 00035 00036 #ifndef arpack_proto_INC 00037 #define arpack_proto_INC 00038 00039 #define FORTRAN_Integer int 00040 00041 namespace PLearn { 00042 using namespace std; 00043 00044 00045 extern "C" 00046 { 00047 int dnaupd_(FORTRAN_Integer *, const char *, FORTRAN_Integer *, const char *, 00048 FORTRAN_Integer *, double *, double *, FORTRAN_Integer *, double *, 00049 FORTRAN_Integer *, FORTRAN_Integer *, FORTRAN_Integer *, double *, double *, 00050 FORTRAN_Integer *, FORTRAN_Integer *, short, short); 00051 00052 int dneupd_(FORTRAN_Integer *, const char *, FORTRAN_Integer *, double *, double *, 00053 double *, FORTRAN_Integer *, double *, double *, double *, 00054 const char *, FORTRAN_Integer *, const char *, FORTRAN_Integer *, double *, 00055 double *, 00056 FORTRAN_Integer *, double *, FORTRAN_Integer *, FORTRAN_Integer *, FORTRAN_Integer *, 00057 double *, double *, FORTRAN_Integer *, FORTRAN_Integer *, short, short, 00058 short); 00059 00060 int snaupd_(FORTRAN_Integer *, const char *, FORTRAN_Integer *, const char *, 00061 FORTRAN_Integer *, float *, float *, FORTRAN_Integer *, float *, 00062 FORTRAN_Integer *, FORTRAN_Integer *, FORTRAN_Integer *, float *, float *, 00063 FORTRAN_Integer *, FORTRAN_Integer *, short, short); 00064 00065 int sneupd_(FORTRAN_Integer *, const char *, FORTRAN_Integer *, float *, float *, 00066 float *, FORTRAN_Integer *, float *, float *, float *, 00067 const char *, FORTRAN_Integer *, const char *, FORTRAN_Integer *, float *, 00068 float *, 00069 FORTRAN_Integer *, float *, FORTRAN_Integer *, FORTRAN_Integer *, FORTRAN_Integer *, 00070 float *, float *, FORTRAN_Integer *, FORTRAN_Integer *, short, short, 00071 short); 00072 00073 int dsaupd_(FORTRAN_Integer *, const char *, FORTRAN_Integer *, const char *, 00074 FORTRAN_Integer *, double *, double *, FORTRAN_Integer *, double *, 00075 FORTRAN_Integer *, FORTRAN_Integer *, FORTRAN_Integer *, double *, double *, 00076 FORTRAN_Integer *, FORTRAN_Integer *, short, short); 00077 00078 int dseupd_(FORTRAN_Integer *, const char *, FORTRAN_Integer *, double *, 00079 double *, FORTRAN_Integer *, double *, 00080 const char *, FORTRAN_Integer *, const char *, FORTRAN_Integer *, double *, 00081 double *, 00082 FORTRAN_Integer *, double *, FORTRAN_Integer *, FORTRAN_Integer *, FORTRAN_Integer *, 00083 double *, double *, FORTRAN_Integer *, FORTRAN_Integer *, short, short, 00084 short); 00085 00086 int ssaupd_(FORTRAN_Integer *, const char *, FORTRAN_Integer *, const char *, 00087 FORTRAN_Integer *, float *, float *, FORTRAN_Integer *, float *, 00088 FORTRAN_Integer *, FORTRAN_Integer *, FORTRAN_Integer *, float *, float *, 00089 FORTRAN_Integer *, FORTRAN_Integer *, short, short); 00090 00091 int sseupd_(FORTRAN_Integer *, const char *, FORTRAN_Integer *, float *, 00092 float *, FORTRAN_Integer *, float *, 00093 const char *, FORTRAN_Integer *, const char *, FORTRAN_Integer *, float *, 00094 float *, 00095 FORTRAN_Integer *, float *, FORTRAN_Integer *, FORTRAN_Integer *, FORTRAN_Integer *, 00096 float *, float *, FORTRAN_Integer *, FORTRAN_Integer *, short, short, 00097 short); 00098 } 00099 00100 } // end of namespace PLearn 00101 00102 00103 #endif /* arpack_proto_INC */ 00104 00105 00106 /* 00107 Local Variables: 00108 mode:c++ 00109 c-basic-offset:4 00110 c-file-style:"stroustrup" 00111 c-file-offsets:((innamespace . 0)(inline-open . 0)) 00112 indent-tabs-mode:nil 00113 fill-column:79 00114 End: 00115 */ 00116 // vim: filetype=cpp:expandtab:shiftwidth=4:tabstop=8:softtabstop=4:encoding=utf-8:textwidth=79 :