• R/O
  • SSH
  • HTTPS

molby:


File Info

Rev. 1
Size 7,756 bytes
Time 2010-01-22 01:56:59
Author toshinagata1964
Log Message

initial import

Content

diff --exclude=.* -Naur CLAPACK-3.1.1.1/F2CLIBS/libf2c/Makefile CLAPACK-3.1.1.1-mingw/F2CLIBS/libf2c/Makefile
--- CLAPACK-3.1.1.1/F2CLIBS/libf2c/Makefile	Thu Sep  4 04:29:25 2008
+++ CLAPACK-3.1.1.1-mingw/F2CLIBS/libf2c/Makefile	Fri Nov  7 01:58:05 2008
@@ -181,8 +181,8 @@
 xwsne.o:	fmt.h
 
 arith.h: arithchk.c
-	$(CC) $(CFLAGS) -DNO_FPINIT arithchk.c -lm ||\
-	 $(CC) -DNO_LONG_LONG $(CFLAGS) -DNO_FPINIT arithchk.c -lm
+	$(CC) $(CFLAGS) -DNO_FPINIT arithchk.c -lm -o a.out ||\
+	 $(CC) -DNO_LONG_LONG $(CFLAGS) -DNO_FPINIT arithchk.c -lm -o a.out
 	./a.out >arith.h
 	rm -f a.out arithchk.o
 
diff --exclude=.* -Naur CLAPACK-3.1.1.1/F2CLIBS/libf2c/dtime_.c CLAPACK-3.1.1.1-mingw/F2CLIBS/libf2c/dtime_.c
--- CLAPACK-3.1.1.1/F2CLIBS/libf2c/dtime_.c	Thu Sep  4 04:29:25 2008
+++ CLAPACK-3.1.1.1-mingw/F2CLIBS/libf2c/dtime_.c	Fri Nov  7 23:01:21 2008
@@ -1,6 +1,6 @@
 #include "time.h"
 
-#ifdef MSDOS
+#if defined(MSDOS) || defined(MINGW)
 #undef USE_CLOCK
 #define USE_CLOCK
 #endif
@@ -14,9 +14,10 @@
 #define _INCLUDE_XOPEN_SOURCE	/* for HP-UX */
 #include "sys/types.h"
 #include "sys/times.h"
+#endif
+
 #ifdef __cplusplus
 extern "C" {
-#endif
 #endif
 
 #undef Hz
diff --exclude=.* -Naur CLAPACK-3.1.1.1/F2CLIBS/libf2c/etime_.c CLAPACK-3.1.1.1-mingw/F2CLIBS/libf2c/etime_.c
--- CLAPACK-3.1.1.1/F2CLIBS/libf2c/etime_.c	Thu Sep  4 04:29:25 2008
+++ CLAPACK-3.1.1.1-mingw/F2CLIBS/libf2c/etime_.c	Fri Nov  7 02:07:20 2008
@@ -1,6 +1,6 @@
 #include "time.h"
 
-#ifdef MSDOS
+#if defined(MSDOS) || defined(MINGW)
 #undef USE_CLOCK
 #define USE_CLOCK
 #endif
diff --exclude=.* -Naur CLAPACK-3.1.1.1/INCLUDE/clapack.h CLAPACK-3.1.1.1-mingw/INCLUDE/clapack.h
--- CLAPACK-3.1.1.1/INCLUDE/clapack.h	Thu Sep  4 04:29:25 2008
+++ CLAPACK-3.1.1.1-mingw/INCLUDE/clapack.h	Fri Nov  7 23:41:46 2008
@@ -1,6 +1,10 @@
 #ifndef __CLAPACK_H
 #define __CLAPACK_H
- 
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
 /* Subroutine */ int cbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
 	nru, integer *ncc, real *d__, real *e, complex *vt, integer *ldvt, 
 	complex *u, integer *ldu, complex *c__, integer *ldc, real *rwork, 
@@ -1569,7 +1573,7 @@
 	doublereal *wi, doublereal *z__, integer *ldz, doublereal *work, 
 	integer *lwork, integer *info);
 
-/* Subroutine */ int dlabad_(doublereal *small, doublereal *large);
+/* Subroutine */ int dlabad_(doublereal *small__, doublereal *large__);
 
 /* Subroutine */ int dlabrd_(integer *m, integer *n, integer *nb, doublereal *
 	a, integer *lda, doublereal *d__, doublereal *e, doublereal *tauq, 
@@ -3027,7 +3031,7 @@
 	 integer *ihi, real *h__, integer *ldh, real *wr, real *wi, real *z__, 	 
 	integer *ldz, real *work, integer *lwork, integer *info);
 
-/* Subroutine */ int slabad_(real *small, real *large);
+/* Subroutine */ int slabad_(real *small__, real *large__);
 
 /* Subroutine */ int slabrd_(integer *m, integer *n, integer *nb, real *a, 
 	integer *lda, real *d__, real *e, real *tauq, real *taup, real *x, 
@@ -5429,6 +5433,10 @@
 /* Subroutine */ int zupmtr_(char *side, char *uplo, char *trans, integer *m, 
 	integer *n, doublecomplex *ap, doublecomplex *tau, doublecomplex *c__,
 	 integer *ldc, doublecomplex *work, integer *info);
+
+#ifdef __cplusplus
+}
+#endif
 
 #endif /* __CLAPACK_H */
 
diff --exclude=.* -Naur CLAPACK-3.1.1.1/INCLUDE/f2c.h CLAPACK-3.1.1.1-mingw/INCLUDE/f2c.h
--- CLAPACK-3.1.1.1/INCLUDE/f2c.h	Thu Sep  4 04:29:25 2008
+++ CLAPACK-3.1.1.1-mingw/INCLUDE/f2c.h	Fri Nov  7 23:33:56 2008
@@ -7,6 +7,10 @@
 #ifndef F2C_INCLUDE
 #define F2C_INCLUDE
 
+#ifdef __cplusplus
+extern "C" {
+#endif
+
 typedef long int integer;
 typedef unsigned long int uinteger;
 typedef char *address;
@@ -220,4 +224,9 @@
 #undef unix
 #undef vax
 #endif
+
+#ifdef __cplusplus
+}
+#endif
+
 #endif
diff --exclude=.* -Naur CLAPACK-3.1.1.1/INSTALL/dsecnd.c CLAPACK-3.1.1.1-mingw/INSTALL/dsecnd.c
--- CLAPACK-3.1.1.1/INSTALL/dsecnd.c	Thu Sep  4 04:29:25 2008
+++ CLAPACK-3.1.1.1-mingw/INSTALL/dsecnd.c	Sun Nov  9 15:22:19 2008
@@ -1,7 +1,15 @@
 #include "blaswrap.h"
 #include "f2c.h"
+
+#if defined(MSDOS) || defined(MINGW)
+#undef USE_CLOCK
+#define USE_CLOCK
+#endif
+
+#ifndef USE_CLOCK
 #include <sys/times.h>
 #include <sys/types.h>
+#endif
 #include <time.h>
 
 #ifndef CLK_TCK
@@ -10,10 +18,17 @@
 
 doublereal dsecnd_()
 {
+#ifdef USE_CLOCK
+    
+  double t = clock();
+  return (doublereal)t / CLK_TCK;
+    
+#else
   struct tms rusage;
 
   times(&rusage);
   return (doublereal)(rusage.tms_utime) / CLK_TCK;
-
+#endif
+    
 } /* dsecnd_ */
 
diff --exclude=.* -Naur CLAPACK-3.1.1.1/INSTALL/second.c CLAPACK-3.1.1.1-mingw/INSTALL/second.c
--- CLAPACK-3.1.1.1/INSTALL/second.c	Thu Sep  4 04:29:25 2008
+++ CLAPACK-3.1.1.1-mingw/INSTALL/second.c	Sun Nov  9 15:22:01 2008
@@ -1,6 +1,14 @@
 #include "f2c.h"
+
+#if defined(MSDOS) || defined(MINGW)
+#undef USE_CLOCK
+#define USE_CLOCK
+#endif
+
+#ifndef USE_CLOCK
 #include <sys/times.h>
 #include <sys/types.h>
+#endif
 #include <time.h>
 
 #ifndef CLK_TCK
@@ -9,10 +17,17 @@
 
 doublereal second_()
 {
+#ifdef USE_CLOCK
+    
+  double t = clock();
+  return (doublereal)t / CLK_TCK;
+    
+#else
   struct tms rusage;
 
   times(&rusage);
   return (doublereal)(rusage.tms_utime) / CLK_TCK;
+#endif
 
 } /* second_ */
 
diff --exclude=.* -Naur CLAPACK-3.1.1.1/make.inc CLAPACK-3.1.1.1-mingw/make.inc
--- CLAPACK-3.1.1.1/make.inc	Thu Jan  1 09:00:00 1970
+++ CLAPACK-3.1.1.1-mingw/make.inc	Sun Nov  9 14:31:50 2008
@@ -0,0 +1,61 @@
+####################################################################
+#  CLAPACK make include file.                                      #
+#  CLAPACK, Version 3.1.1.1                                        #
+#  October 2008                                                    #
+####################################################################
+#
+#  The machine (platform) identifier to append to the library names
+#
+PLAT = MinGW
+#  
+#  Modify the CC and CFLAGS definitions to refer to the
+#  compiler and desired compiler options for your machine.  NOOPT
+#  refers to the compiler options desired when NO OPTIMIZATION is
+#  selected.  Define LOADER and LOADOPTS to refer to the loader and
+#  desired load options for your machine.
+#
+#######################################################
+# This is used to compile C libary
+CC        = gcc
+# if no wrapping of the blas library is needed, uncomment next line
+#CC        = gcc -DNO_BLAS_WRAP
+CFLAGS    = -DMINGW -O2
+LOADER    = gcc
+LOADOPTS  = -Wl,--stack=33554432
+NOOPT     = -O0 
+DRVCFLAGS = $(CFLAGS)
+F2CCFLAGS = $(CFLAGS)
+#######################################################################
+#
+#  The archiver and the flag(s) to use when building archive (library)
+#  If you system has no ranlib, set RANLIB = echo.
+#
+ARCH     = ar
+ARCHFLAGS= cr
+RANLIB   = ranlib
+#
+#  The location of the libraries to which you will link.  (The 
+#  machine-specific, optimized BLAS library should be used whenever
+#  possible.)
+#
+
+# Using reference BLAS
+BLASLIB      = ../../blas$(PLAT).a
+# Using Vectib
+#BLASLIB = -framework vecLib
+# Using Fortran BLAS interface of ATLAS without wrapper (CLAPACK has to be compiled with -DNO_BLAS_WRAP)
+#BLASLIB = -lf77blas -latlas
+# Using Fortran BLAS interface of ATLAS with wrapper
+#BLASLIB = ../../libfblaswr.a -lf77blas -latlas
+# Using CBLAS interface of ATLAS with wrapper
+#BLASLIB = ../../libcblaswr.a -lcblas -latlas
+# Using Goto without wrapper (CLAPACK has to be compiled with -DNO_BLAS_WRAP)
+#BLASLIB = -lgoto -lpthread
+# Using Goto with wrapper
+#BLASLIB = ../../libfblaswr.a -lgoto -lpthread 
+LAPACKLIB    = lapack$(PLAT).a
+F2CLIB       = ../../F2CLIBS/libf2c.a
+TMGLIB       = tmglib$(PLAT).a
+EIGSRCLIB    = eigsrc$(PLAT).a
+LINSRCLIB    = linsrc$(PLAT).a
+
Show on old repository browser