|
Blender
V2.59
|
00001 00005 /* 00006 00007 * 00008 * Template Numerical Toolkit (TNT): Linear Algebra Module 00009 * 00010 * Mathematical and Computational Sciences Division 00011 * National Institute of Technology, 00012 * Gaithersburg, MD USA 00013 * 00014 * 00015 * This software was developed at the National Institute of Standards and 00016 * Technology (NIST) by employees of the Federal Government in the course 00017 * of their official duties. Pursuant to title 17 Section 105 of the 00018 * United States Code, this software is not subject to copyright protection 00019 * and is in the public domain. The Template Numerical Toolkit (TNT) is 00020 * an experimental system. NIST assumes no responsibility whatsoever for 00021 * its use by other parties, and makes no guarantees, expressed or implied, 00022 * about its quality, reliability, or any other characteristic. 00023 * 00024 * BETA VERSION INCOMPLETE AND SUBJECT TO CHANGE 00025 * see http://math.nist.gov/tnt for latest updates. 00026 * 00027 */ 00028 00029 00030 00031 // Header file to define C/Fortran conventions (Platform specific) 00032 00033 #ifndef FORTRAN_H 00034 #define FORTRAN_H 00035 00036 // help map between C/C++ data types and Fortran types 00037 00038 typedef int Fortran_integer; 00039 typedef float Fortran_float; 00040 typedef double Fortran_double; 00041 00042 00043 typedef Fortran_double *fda_; // (in/out) double precision array 00044 typedef const Fortran_double *cfda_; // (in) double precsion array 00045 00046 typedef Fortran_double *fd_; // (in/out) single double precision 00047 typedef const Fortran_double *cfd_; // (in) single double precision 00048 00049 typedef Fortran_float *ffa_; // (in/out) float precision array 00050 typedef const Fortran_float *cffa_; // (in) float precsion array 00051 00052 typedef Fortran_float *ff_; // (in/out) single float precision 00053 typedef const Fortran_float *cff_; // (in) single float precision 00054 00055 typedef Fortran_integer *fia_; // (in/out) single integer array 00056 typedef const Fortran_integer *cfia_; // (in) single integer array 00057 00058 typedef Fortran_integer *fi_; // (in/out) single integer 00059 typedef const Fortran_integer *cfi_; // (in) single integer 00060 00061 typedef char *fch_; // (in/out) single character 00062 typedef char *cfch_; // (in) single character 00063 00064 00065 #ifndef TNT_SUBSCRIPT_TYPE 00066 #define TNT_SUBSCRIPT_TYPE TNT::Fortran_integer 00067 #endif 00068 00069 #endif // FORTRAN_H 00070