00001 /*-----------------------------------------------------------------------------------*/ 00002 /* INRIA */ 00003 /*-----------------------------------------------------------------------------------*/ 00004 /* 00005 * MACHINE CONSTANTS 00006 * These numbers must be updated when the program is ported to a new machine. 00007 * Using spConfig.h to get the largest int 00008 */ 00009 /*-----------------------------------------------------------------------------------*/ 00010 #define spINSIDE_SPARSE 00011 #include "../../sparse/includes/spConfig.h" 00012 #include "machine.h" 00013 /*-----------------------------------------------------------------------------------*/ 00014 int C2F(largestint)() 00015 { 00016 static int first=0,large=0; 00017 if ( first == 0) 00018 { 00019 if (sizeof(int)==sizeof(long)) large = LARGEST_LONG_INTEGER ; 00020 else if (sizeof(int)==sizeof(short)) large = LARGEST_SHORT_INTEGER; 00021 else large = 2147483647 ; 00023 first++; 00024 return large ; 00025 } 00026 return large; 00027 } 00028 /*-----------------------------------------------------------------------------------*/
1.5.1