deploy: 65382d22d4

.gitignore

@@ -1,89 +0,0 @@
-*.obj
-*.lib
-*.dll
-*.dylib
-*.def
-*.o
-*.out
-lapack-3.1.1
-lapack-3.1.1.tgz
-lapack-3.4.1
-lapack-3.4.1.tgz
-lapack-3.4.2
-lapack-3.4.2.tgz
-lapack-netlib/make.inc
-lapack-netlib/lapacke/include/lapacke_mangling.h
-lapack-netlib/TESTING/testing_results.txt
-lapack-netlib/INSTALL/test*
-lapack-netlib/TESTING/xeigtstc
-lapack-netlib/TESTING/xeigtstd
-lapack-netlib/TESTING/xeigtsts
-lapack-netlib/TESTING/xeigtstz
-lapack-netlib/TESTING/xlintstc
-lapack-netlib/TESTING/xlintstd
-lapack-netlib/TESTING/xlintstds
-lapack-netlib/TESTING/xlintstrfc
-lapack-netlib/TESTING/xlintstrfd
-lapack-netlib/TESTING/xlintstrfs
-lapack-netlib/TESTING/xlintstrfz
-lapack-netlib/TESTING/xlintsts
-lapack-netlib/TESTING/xlintstz
-lapack-netlib/TESTING/xlintstzc
-*.so
-*.so.*
-*.a
-.svn
-*~
-lib.grd
-nohup.out
-config.h
-config_kernel.h
-Makefile.conf
-Makefile.conf_last
-Makefile_kernel.conf
-config_last.h
-getarch
-getarch_2nd
-utest/openblas_utest
-ctest/xccblat1
-ctest/xccblat2
-ctest/xccblat3
-ctest/xdcblat1
-ctest/xdcblat2
-ctest/xdcblat3
-ctest/xscblat1
-ctest/xscblat2
-ctest/xscblat3
-ctest/xzcblat1
-ctest/xzcblat2
-ctest/xzcblat3
-exports/linktest.c
-exports/linux.def
-kernel/setparam_*.c
-kernel/kernel_*.h
-test/CBLAT2.SUMM
-test/CBLAT3.SUMM
-test/DBLAT2.SUMM
-test/DBLAT3.SUMM
-test/SBLAT2.SUMM
-test/SBLAT3.SUMM
-test/ZBLAT2.SUMM
-test/ZBLAT3.SUMM
-test/cblat1
-test/cblat2
-test/cblat3
-test/dblat1
-test/dblat2
-test/dblat3
-test/sblat1
-test/sblat2
-test/sblat3
-test/zblat1
-test/zblat2
-test/zblat3
-build
-build.*
-*.swp
-benchmark/*.goto
-benchmark/smallscaling
-

.travis.yml

@@ -1,38 +0,0 @@
-language: c
-
-notifications:
-  webhooks:
-    urls:
-      - https://webhooks.gitter.im/e/8a6e4470a0cebd090344
-    on_success: change  # options: [always|never|change] default: always
-    on_failure: always  # options: [always|never|change] default: always
-    on_start: never     # options: [always|never|change] default: always
-
-compiler:
-  - gcc
-
-env:
-  - TARGET_BOX=LINUX64 BTYPE="BINARY=64"
-  - TARGET_BOX=LINUX64 BTYPE="BINARY=64 USE_OPENMP=1"
-  - TARGET_BOX=LINUX64 BTYPE="BINARY=64 INTERFACE64=1"
-  - TARGET_BOX=LINUX32 BTYPE="BINARY=32"
-  - TARGET_BOX=WIN64 BTYPE="BINARY=64 HOSTCC=gcc CC=x86_64-w64-mingw32-gcc FC=x86_64-w64-mingw32-gfortran"
-
-before_install:
- - sudo apt-get update -qq
- - sudo apt-get install -qq gfortran
- - if [[ "$TARGET_BOX" == "WIN64" ]]; then sudo apt-get install -qq binutils-mingw-w64-x86-64 gcc-mingw-w64-x86-64 gfortran-mingw-w64-x86-64; fi
- - if [[ "$TARGET_BOX" == "LINUX32" ]]; then sudo apt-get install -qq  gcc-multilib gfortran-multilib; fi
-
-script: 
- - set -e
- - make QUIET_MAKE=1 DYNAMIC_ARCH=1 TARGET=NEHALEM NUM_THREADS=32 $BTYPE
- - if [ "$TARGET_BOX" == "LINUX32" ] || [ "$TARGET_BOX" == "LINUX64" ]; then make -C test DYNAMIC_ARCH=1 TARGET=NEHALEM NUM_THREADS=32 $BTYPE; fi
- - if [ "$TARGET_BOX" == "LINUX32" ] || [ "$TARGET_BOX" == "LINUX64" ]; then make -C ctest DYNAMIC_ARCH=1 TARGET=NEHALEM NUM_THREADS=32 $BTYPE; fi
- - if [ "$TARGET_BOX" == "LINUX32" ] || [ "$TARGET_BOX" == "LINUX64" ]; then make -C utest DYNAMIC_ARCH=1 TARGET=NEHALEM NUM_THREADS=32 $BTYPE; fi
-
-# whitelist
-branches:
-  only:
-    - master
-    - develop

BACKERS.md

@@ -1,39 +0,0 @@
-Thank you for the support.
-
-### [2013.8] [Testbed for OpenBLAS project](https://www.bountysource.com/fundraisers/443-testbed-for-openblas-project)
-
-https://www.bountysource.com/fundraisers/443-testbed-for-openblas-project/pledges
-
-In chronological order:
-
-* aeberspaecher
-* fmolina
-* saullocastro
-* xianyi
-* cuda
-* carter
-* StefanKarpinski
-* staticfloat
-* sebastien-villemot
-* JeffBezanson
-* ihnorton
-* simonp0420
-* andrioni
-* Tim Holy
-* ivarne
-* johnmyleswhite
-* traz
-* Jean-Francis Roy
-* bkalpert
-* Anirban
-* pgermain
-* alexandre.lacoste.18
-* foges
-* ssam
-* WestleyArgentum
-* daniebmariani
-* pjpuglia
-* albarrentine
-* Alexander Vogt
-
-

CMakeLists.txt

@@ -1,293 +0,0 @@
-##
-## Author: Hank Anderson <hank@statease.com>
-##
-
-cmake_minimum_required(VERSION 2.8.5)
-project(OpenBLAS)
-set(OpenBLAS_MAJOR_VERSION 0)
-set(OpenBLAS_MINOR_VERSION 2)
-set(OpenBLAS_PATCH_VERSION 20)
-set(OpenBLAS_VERSION "${OpenBLAS_MAJOR_VERSION}.${OpenBLAS_MINOR_VERSION}.${OpenBLAS_PATCH_VERSION}")
-
-enable_language(ASM)
-enable_language(C)
-
-# Adhere to GNU filesystem layout conventions
-include(GNUInstallDirs)
-
-if(MSVC)
-set(OpenBLAS_LIBNAME libopenblas)
-else()
-set(OpenBLAS_LIBNAME openblas)
-endif()
-
-#######
-if(MSVC)
-option(BUILD_WITHOUT_LAPACK "Without LAPACK and LAPACKE (Only BLAS or CBLAS)" ON)
-endif()
-option(BUILD_WITHOUT_CBLAS "Without CBLAS" OFF)
-option(BUILD_DEBUG "Build Debug Version" OFF)
-#######
-if(BUILD_WITHOUT_LAPACK)
-set(NO_LAPACK 1)
-set(NO_LAPACKE 1)
-endif()
-
-if(CMAKE_CONFIGURATION_TYPES) # multiconfig generator?
-        set(CMAKE_CONFIGURATION_TYPES "Debug;Release" CACHE STRING "" FORCE)
-        set(CMAKE_BUILD_TYPE
-	        Debug Debug
-		Release Release
-	)
-else()
-	if( NOT CMAKE_BUILD_TYPE )
-		if(BUILD_DEBUG)
-			set(CMAKE_BUILD_TYPE Debug)
-		else()
-			set(CMAKE_BUILD_TYPE Release)
-		endif()
-	endif()
-endif()
-
-if(BUILD_WITHOUT_CBLAS)
-set(NO_CBLAS 1)
-endif()
-
-#######
-
-
-message(WARNING "CMake support is experimental. This will not produce the same Makefiles that OpenBLAS ships with. Only x86 support is currently available.")
-
-include("${PROJECT_SOURCE_DIR}/cmake/utils.cmake")
-include("${PROJECT_SOURCE_DIR}/cmake/system.cmake")
-
-set(BLASDIRS interface driver/level2 driver/level3 driver/others)
-
-if (NOT DYNAMIC_ARCH)
-  list(APPEND BLASDIRS kernel)
-endif ()
-
-if (DEFINED SANITY_CHECK)
-  list(APPEND BLASDIRS reference)
-endif ()
-
-set(SUBDIRS	${BLASDIRS})
-if (NOT NO_LAPACK)
-  list(APPEND SUBDIRS lapack)
-endif ()
-
-# set which float types we want to build for
-if (NOT DEFINED BUILD_SINGLE AND NOT DEFINED BUILD_DOUBLE AND NOT DEFINED BUILD_COMPLEX AND NOT DEFINED BUILD_COMPLEX16)
-  # if none are defined, build for all
-  set(BUILD_SINGLE true)
-  set(BUILD_DOUBLE true)
-  set(BUILD_COMPLEX true)
-  set(BUILD_COMPLEX16 true)
-endif ()
-
-set(FLOAT_TYPES "")
-if (BUILD_SINGLE)
-  message(STATUS "Building Single Precision")
-  list(APPEND FLOAT_TYPES "SINGLE") # defines nothing
-endif ()
-
-if (BUILD_DOUBLE)
-  message(STATUS "Building Double Precision")
-  list(APPEND FLOAT_TYPES "DOUBLE") # defines DOUBLE
-endif ()
-
-if (BUILD_COMPLEX)
-  message(STATUS "Building Complex Precision")
-  list(APPEND FLOAT_TYPES "COMPLEX") # defines COMPLEX
-endif ()
-
-if (BUILD_COMPLEX16)
-  message(STATUS "Building Double Complex Precision")
-  list(APPEND FLOAT_TYPES "ZCOMPLEX") # defines COMPLEX and DOUBLE
-endif ()
-
-set(SUBDIRS_ALL ${SUBDIRS} test ctest utest exports benchmark ../laswp ../bench)
-
-# all :: libs netlib tests shared
-
-# libs :
-if (NOT DEFINED CORE OR "${CORE}" STREQUAL "UNKNOWN")
-  message(FATAL_ERROR "Detecting CPU failed. Please set TARGET explicitly, e.g. make TARGET=your_cpu_target. Please read README for details.")
-endif ()
-
-if (${NO_STATIC} AND ${NO_SHARED})
-  message(FATAL_ERROR "Neither static nor shared are enabled.")
-endif ()
-
-#Set default output directory
-set( CMAKE_LIBRARY_OUTPUT_DIRECTORY ${PROJECT_BINARY_DIR}/lib)
-set( CMAKE_ARCHIVE_OUTPUT_DIRECTORY ${PROJECT_BINARY_DIR}/lib)
-if(MSVC)
-set( CMAKE_LIBRARY_OUTPUT_DIRECTORY_DEBUG ${PROJECT_BINARY_DIR}/lib/Debug)
-set( CMAKE_ARCHIVE_OUTPUT_DIRECTORY_RELEASE ${PROJECT_BINARY_DIR}/lib/Release)
-endif ()
-# get obj vars into format that add_library likes: $<TARGET_OBJS:objlib> (see http://www.cmake.org/cmake/help/v3.0/command/add_library.html)
-set(TARGET_OBJS "")
-foreach (SUBDIR ${SUBDIRS})
-  add_subdirectory(${SUBDIR})
-  string(REPLACE "/" "_" subdir_obj ${SUBDIR})
-  list(APPEND TARGET_OBJS "$<TARGET_OBJECTS:${subdir_obj}>")
-endforeach ()
-
-# netlib:
-
-# Can't just use lapack-netlib's CMake files, since they are set up to search for BLAS, build and install a binary. We just want to build a couple of lib files out of lapack and lapacke.
-# Not using add_subdirectory here because lapack-netlib already has its own CMakeLists.txt. Instead include a cmake script with the sources we want.
-if (NOT NOFORTRAN AND NOT NO_LAPACK)
-  include("${PROJECT_SOURCE_DIR}/cmake/lapack.cmake")
-if (NOT NO_LAPACKE)
-  include("${PROJECT_SOURCE_DIR}/cmake/lapacke.cmake")
-endif ()
-endif ()
-
-# Only generate .def for dll on MSVC and always produce pdb files for debug and release
-if(MSVC)
-set(OpenBLAS_DEF_FILE "${PROJECT_BINARY_DIR}/openblas.def")
-set(CMAKE_CXX_FLAGS_RELEASE "${CMAKE_CXX_FLAGS_RELEASE} /Zi")
-set(CMAKE_C_FLAGS_RELEASE "${CMAKE_C_FLAGS_RELEASE} /Zi")
-set(CMAKE_SHARED_LINKER_FLAGS_RELEASE "${CMAKE_SHARED_LINKER_FLAGS_RELEASE} /DEBUG /OPT:REF /OPT:ICF")
-endif()
-
-# add objects to the openblas lib
-add_library(${OpenBLAS_LIBNAME} SHARED ${LA_SOURCES} ${LAPACKE_SOURCES} ${TARGET_OBJS} ${OpenBLAS_DEF_FILE})
-
-include("${PROJECT_SOURCE_DIR}/cmake/export.cmake")
-
-# Set output for libopenblas
-set_target_properties( ${OpenBLAS_LIBNAME} PROPERTIES RUNTIME_OUTPUT_DIRECTORY ${PROJECT_BINARY_DIR}/lib)
-set_target_properties( ${OpenBLAS_LIBNAME} PROPERTIES LIBRARY_OUTPUT_NAME_DEBUG "${OpenBLAS_LIBNAME}_d")
-
-foreach (OUTPUTCONFIG ${CMAKE_CONFIGURATION_TYPES})
-  string( TOUPPER ${OUTPUTCONFIG} OUTPUTCONFIG )
-  
-  set_target_properties( ${OpenBLAS_LIBNAME} PROPERTIES RUNTIME_OUTPUT_DIRECTORY_${OUTPUTCONFIG} ${PROJECT_BINARY_DIR}/lib/${OUTPUTCONFIG} )
-  set_target_properties( ${OpenBLAS_LIBNAME} PROPERTIES LIBRARY_OUTPUT_DIRECTORY_${OUTPUTCONFIG} ${PROJECT_BINARY_DIR}/lib/${OUTPUTCONFIG} )
-  set_target_properties( ${OpenBLAS_LIBNAME} PROPERTIES ARCHIVE_OUTPUT_DIRECTORY_${OUTPUTCONFIG} ${PROJECT_BINARY_DIR}/lib/${OUTPUTCONFIG} )
-endforeach()
-
-enable_testing()
-add_subdirectory(utest)
-
-if (NOT MSVC)
-	#only build shared library for MSVC
-
-	add_library(${OpenBLAS_LIBNAME}_static STATIC ${LA_SOURCES} ${LAPACKE_SOURCES} ${TARGET_OBJS})
-	set_target_properties(${OpenBLAS_LIBNAME}_static PROPERTIES OUTPUT_NAME ${OpenBLAS_LIBNAME})
-	set_target_properties(${OpenBLAS_LIBNAME}_static PROPERTIES CLEAN_DIRECT_OUTPUT 1)
-
-	if(SMP)
-	target_link_libraries(${OpenBLAS_LIBNAME} pthread)
-	target_link_libraries(${OpenBLAS_LIBNAME}_static pthread)
-endif()
-
-#build test and ctest
-add_subdirectory(test)
-if(NOT NO_CBLAS)
-add_subdirectory(ctest)
-endif()
-endif()
-
-set_target_properties(${OpenBLAS_LIBNAME} PROPERTIES 
-  VERSION ${OpenBLAS_MAJOR_VERSION}.${OpenBLAS_MINOR_VERSION}
-  SOVERSION ${OpenBLAS_MAJOR_VERSION}
-)
-
-
-# TODO: Why is the config saved here? Is this necessary with CMake?
-#Save the config files for installation
-#	@cp Makefile.conf Makefile.conf_last
-#	@cp config.h config_last.h
-#ifdef QUAD_PRECISION
-#	@echo "#define QUAD_PRECISION">> config_last.h
-#endif
-#ifeq ($(EXPRECISION), 1)
-#	@echo "#define EXPRECISION">> config_last.h
-#endif
-###
-#ifeq ($(DYNAMIC_ARCH), 1)
-#	@$(MAKE) -C kernel commonlibs || exit 1
-#	@for d in $(DYNAMIC_CORE) ; \
-#	do  $(MAKE) GOTOBLAS_MAKEFILE= -C kernel TARGET_CORE=$$d kernel || exit 1 ;\
-#	done
-#	@echo DYNAMIC_ARCH=1 >> Makefile.conf_last
-#endif
-#ifdef USE_THREAD
-#	@echo USE_THREAD=$(USE_THREAD) >>  Makefile.conf_last
-#endif
-#	@touch lib.grd
-
-# Install project
-
-# Install libraries
-install(TARGETS ${OpenBLAS_LIBNAME}
-	RUNTIME DESTINATION ${CMAKE_INSTALL_BINDIR}
-	ARCHIVE DESTINATION ${CMAKE_INSTALL_LIBDIR}
-	LIBRARY DESTINATION ${CMAKE_INSTALL_LIBDIR} )
-
-# Install include files
-	set (GENCONFIG_BIN ${CMAKE_BINARY_DIR}/gen_config_h${CMAKE_EXECUTABLE_SUFFIX})
-	ADD_CUSTOM_COMMAND(
-	OUTPUT ${CMAKE_BINARY_DIR}/openblas_config.h
-	DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/config.h
-	COMMAND ${GENCONFIG_BIN} ${CMAKE_CURRENT_SOURCE_DIR}/config.h ${CMAKE_CURRENT_SOURCE_DIR}/openblas_config_template.h > ${CMAKE_BINARY_DIR}/openblas_config.h
-	)
-
-	ADD_CUSTOM_TARGET(genconfig
-	ALL
-	DEPENDS openblas_config.h
-	)
-	add_dependencies(genconfig ${OpenBLAS_LIBNAME})
-
-	install (FILES ${CMAKE_BINARY_DIR}/openblas_config.h DESTINATION ${CMAKE_INSTALL_INCLUDEDIR})
-
-	message(STATUS "Generating f77blas.h in ${CMAKE_INSTALL_INCLUDEDIR}")
-
-	ADD_CUSTOM_TARGET(genf77blas
-	ALL
-	COMMAND ${AWK} 'BEGIN{print \"\#ifndef OPENBLAS_F77BLAS_H\" \; print \"\#define OPENBLAS_F77BLAS_H\" \; print \"\#include \\"openblas_config.h\\" \"}; NF {print}; END{print \"\#endif\"}' ${CMAKE_CURRENT_SOURCE_DIR}/common_interface.h > ${CMAKE_BINARY_DIR}/f77blas.h
-	DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/config.h
-	)
-	add_dependencies(genf77blas ${OpenBLAS_LIBNAME})
-
-	install (FILES ${CMAKE_BINARY_DIR}/f77blas.h DESTINATION ${CMAKE_INSTALL_INCLUDEDIR})
-
-if(NOT NO_CBLAS)
-	message (STATUS "Generating cblas.h in ${CMAKE_INSTALL_INCLUDEDIR}")
-
-	ADD_CUSTOM_TARGET(gencblas
-	ALL
-	COMMAND ${SED} 's/common/openblas_config/g' ${CMAKE_CURRENT_SOURCE_DIR}/cblas.h > "${CMAKE_BINARY_DIR}/cblas.tmp"
-	COMMAND cp "${CMAKE_BINARY_DIR}/cblas.tmp" "${CMAKE_BINARY_DIR}/cblas.h"
-	DEPENDS ${CMAKE_CURRENT_SOURCE_DIR}/cblas.h
-	)
-	add_dependencies(gencblas ${OpenBLAS_LIBNAME})
-
-	install (FILES ${CMAKE_BINARY_DIR}/cblas.h DESTINATION ${CMAKE_INSTALL_INCLUDEDIR})
-endif()
-
-if(NOT NO_LAPACKE)
-	message (STATUS "Copying LAPACKE header files to ${CMAKE_INSTALL_INCLUDEDIR}")
-	add_dependencies( ${OpenBLAS_LIBNAME} genlapacke)
-	FILE(GLOB_RECURSE INCLUDE_FILES "${CMAKE_CURRENT_SOURCE_DIR}/lapack-netlib/LAPACKE/*.h")
-	install (FILES ${INCLUDE_FILES} DESTINATION ${CMAKE_INSTALL_INCLUDEDIR})
- 
-	ADD_CUSTOM_TARGET(genlapacke
-	COMMAND cp ${CMAKE_CURRENT_SOURCE_DIR}/lapack-netlib/LAPACKE/include/lapacke_mangling_with_flags.h.in "${CMAKE_BINARY_DIR}/lapacke_mangling.h"
-	)
-	install (FILES ${CMAKE_BINARY_DIR}/lapacke_mangling.h DESTINATION ${CMAKE_INSTALL_INCLUDEDIR})
-endif()
- 
-if(NOT MSVC)
-	install (TARGETS ${OpenBLAS_LIBNAME}_static DESTINATION ${CMAKE_INSTALL_LIBDIR})
-endif()
-
-include(FindPkgConfig QUIET)
-if(PKG_CONFIG_FOUND)
-	configure_file(${PROJECT_SOURCE_DIR}/cmake/openblas.pc.in ${PROJECT_BINARY_DIR}/openblas.pc @ONLY)
-	install (FILES ${PROJECT_BINARY_DIR}/openblas.pc DESTINATION ${CMAKE_INSTALL_LIBDIR}/pkgconfig/)
-endif()

CNAME

@@ -0,0 +1 @@
+openmathlib.org

CONTRIBUTORS.md

@@ -1,170 +0,0 @@
-# Contributions to the OpenBLAS project
-
-## Creator & Maintainer
-
-* Zhang Xianyi <traits.zhang@gmail.com>
-
-## Active Developers
-
-* Wang Qian <traz0824@gmail.com>
-  * Optimize BLAS3 on ICT Loongson 3A.
-  * Optimize BLAS3 on Intel Sandy Bridge.
-
-* Werner Saar <wernsaar@googlemail.com>
-  * [2013-03-04] Optimize AVX and FMA4 DGEMM on AMD Bulldozer
-  * [2013-04-27] Optimize AVX and FMA4 TRSM on AMD Bulldozer
-  * [2013-06-09] Optimize AVX and FMA4 SGEMM on AMD Bulldozer
-  * [2013-06-11] Optimize AVX and FMA4 ZGEMM on AMD Bulldozer
-  * [2013-06-12] Optimize AVX and FMA4 CGEMM on AMD Bulldozer
-  * [2013-06-16] Optimize dgemv_n kernel on AMD Bulldozer
-  * [2013-06-20] Optimize ddot, daxpy kernel on AMD Bulldozer
-  * [2013-06-21] Optimize dcopy kernel on AMD Bulldozer
-  * Porting and Optimization on ARM Cortex-A9
-  * Optimization on AMD Piledriver
-  * Optimization on Intel Haswell
-
-## Previous Developers
-
-* Zaheer Chothia <zaheer.chothia@gmail.com>
-  * Improve the compatibility about complex number
-  * Build LAPACKE: C interface to LAPACK
-  * Improve the windows build.
-
-* Chen Shaohu <huhumartinwar@gmail.com>
-  * Optimize GEMV on the Loongson 3A processor.
-
-* Luo Wen
-  * Intern. Test Level-2 BLAS.
-
-## Contributors
-
-In chronological order:
-
-* pipping <http://page.mi.fu-berlin.de/pipping>
-  * [2011-06-11] Make USE_OPENMP=0 disable openmp.
-
-* Stefan Karpinski <stefan@karpinski.org>
-  * [2011-12-28] Fix a bug about SystemStubs on Mac OS X.
-
-* Alexander Eberspächer <https://github.com/aeberspaecher>
-  * [2012-05-02] Add note on patch for segfaults on Linux kernel 2.6.32.
-
-* Mike Nolta <mike@nolta.net>
-  * [2012-05-19] Fix building bug on FreeBSD and NetBSD.
-
-* Sylvestre Ledru <https://github.com/sylvestre>
-  * [2012-07-01] Improve the detection of sparc. Fix building bug under
-    Hurd and kfreebsd.
-
-* Jameson Nash <https://github.com/vtjnash>
-  * [2012-08-20] Provide support for passing CFLAGS, FFLAGS, PFLAGS, FPFLAGS to
-    make on the command line.
-
-* Alexander Nasonov <alnsn@yandex.ru>
-  * [2012-11-10] Fix NetBSD build.
-
-* Sébastien Villemot <sebastien@debian.org>
-  * [2012-11-14] Fix compilation with TARGET=GENERIC. Patch applied to Debian package.
-  * [2013-08-28] Avoid failure on qemu guests declaring an Athlon CPU without 3dnow!
-
-* Kang-Che Sung <Explorer09@gmail.com>
-  * [2013-05-17] Fix typo in the document. Re-order the architecture list in getarch.c.
-
-* Kenneth Hoste <kenneth.hoste@gmail.com>
-  * [2013-05-22] Adjust Makefile about downloading LAPACK source files.
-
-* Lei WANG <https://github.com/wlbksy>
-  * [2013-05-22] Fix a bug about wget.
-
-* Dan Luu <http://www.linkedin.com/in/danluu>
-  * [2013-06-30] Add Intel Haswell support (using sandybridge optimizations).
-
-* grisuthedragon <https://github.com/grisuthedragon>
-  * [2013-07-11] create openblas_get_parallel to retrieve information which parallelization
-    model is used by OpenBLAS.
-
-* Elliot Saba <staticfloat@gmail.com>
-  * [2013-07-22] Add in return value for `interface/trtri.c`
-
-* Sébastien Fabbro <bicatali@gentoo.org>
-  * [2013-07-24] Modify makefile to respect user's LDFLAGS
-  * [2013-07-24] Add stack markings for GNU as arch-independent for assembler files
-
-* Viral B. Shah <viral@mayin.org>
-  * [2013-08-21] Patch LAPACK XLASD4.f as discussed in JuliaLang/julia#2340
-
-* Lars Buitinck <https://github.com/larsmans>
-  * [2013-08-28] get rid of the generated cblas_noconst.h file
-  * [2013-08-28] Missing threshold in gemm.c
-  * [2013-08-28] fix default prefix handling in makefiles
-
-* yieldthought <https://github.com/yieldthought>
-  * [2013-10-08] Remove -Wl,--retain-symbols-file from dynamic link line to fix tool support
-
-* Keno Fischer <https://github.com/loladiro>
-  * [2013-10-23] Use FC instead of CC to link the dynamic library on OS X
-
-* Christopher Meng <cickumqt@gmail.com>
-  * [2013-12-09] Add DESTDIR support for easier building on RPM based distros.
-                 Use install command instead of cp to install files with permissions control.
-
-* Lucas Beyer <lucasb.eyer.be@gmail.com>
-  * [2013-12-10] Added support for NO_SHARED in make install.
-
-* carlkl <https://github.com/carlkl>
-  * [2013-12-13] Fixed LAPACKE building bug on Windows
-
-* Isaac Dunham <https://github.com/idunham>
-  * [2014-08-03] Fixed link error on Linux/musl
-
-* Dave Nuechterlein
-  * [2014-10-10] trmm and sgemm kernels (optimized for APM's X-Gene 1).
-                 ARMv8 support.
-
-* Jerome Robert <jeromerobert@gmx.com>
-  * [2015-01-01] Speed-up small `ger` and `gemv` using stack allocation (bug #478)
-  * [2015-12-23] `stack_check` in `gemv.c` (bug #722)
-  * [2015-12-28] Allow to force the number of parallel make job
-  * [2015-12-28] Fix detection of AMD E2-3200 detection
-  * [2015-12-31] Let `make MAX_STACK_ALLOC=0` do what expected
-  * [2016-01-19] Disable multi-threading in `ger` and `swap` for small matrices (bug #731)
-  * [2016-01-24] Use `GEMM_MULTITHREAD_THRESHOLD` as a number of ops (bug #742)
-  * [2016-01-26] Let `openblas_get_num_threads` return the number of active threads (bug #760)
-  * [2016-01-30] Speed-up small `zger`, `zgemv`, `ztrmv` using stack allocation (bug #727)
-
-* Dan Kortschak
-  * [2015-01-07] Added test for drotmg bug #484.
-
-* Ton van den Heuvel <https://github.com/ton>
-  * [2015-03-18] Fix race condition during shutdown causing a crash in gotoblas_set_affinity().
-
-* Martin Koehler <https://github.com/grisuthedragon/>
-  * [2015-09-07] Improved imatcopy
-
-* Ashwin Sekhar T K <https://github.com/ashwinyes/>
-  * [2015-11-09] Assembly kernels for Cortex-A57 (ARMv8)
-  * [2015-11-20] lapack-test fixes for Cortex-A57
-  * [2016-03-14] Additional functional Assembly Kernels for Cortex-A57
-  * [2016-03-14] Optimize Dgemm 4x4 for Cortex-A57
-
-* theoractice <https://github.com/theoractice/>
-  * [2016-03-20] Fix compiler error in VisualStudio with CMake
-  * [2016-03-22] Fix access violation on Windows while static linking
-
-* Paul Mustière <https://github.com/buffer51/>
-  * [2016-02-04] Fix Android build on ARMV7
-  * [2016-04-26] Android build with LAPACK for ARMV7 & ARMV8
-
-* Shivraj Patil <https://github.com/sva-img/>
-  * [2016-05-03] DGEMM optimization for MIPS P5600 and I6400 using MSA
-
-* Kaustubh Raste <https://github.com/ksraste/>
-  * [2016-05-09] DTRSM optimization for MIPS P5600 and I6400 using MSA
-  * [2016-05-20] STRSM optimization for MIPS P5600 and I6400 using MSA
-
-* Abdelrauf  <https://github.com/quickwritereader>
-  * [2017-01-01] dgemm and dtrmm kernels for IBM z13
-  * [2017-02-26] ztrmm kernel for IBM z13
-  * [2017-03-13] strmm and ctrmm kernel for IBM z13
-
-

Changelog.txt

@@ -1,615 +0,0 @@
-OpenBLAS ChangeLog
-====================================================================
-Version 0.2.20
-24-Jul-2017
-
-common:
-        * Improved CMake support
-        * Fixed several thread race and locking bugs
-        * Fixed default LAPACK optimization level
-        * Updated LAPACK to 3.7.0
-        * Added ReLAPACK (https://github.com/HPAC/ReLAPACK, make BUILD_RELAPACK=1)
-
-POWER:
-        * Optimizations for Power9
-        * Fixed several Power8 assembly bugs
-
-ARM:
-        * New optimized Vulcan and ThunderX2T99 targets
-        * Support for ARMV7 SOFT_FP ABI (make ARM_SOFTFP_ABI=1)
-        * Detect all cpu cores including offline ones
-        * Fix compilation with CLANG
-        * Support building a shared library for Android
-
-MIPS:
-        * Fixed several threading issues
-        * Fix compilation with CLANG
-
-x86_64:
-        * Detect Intel Bay Trail and Apollo Lake
-        * Detect Intel Sky Lake and Kaby Lake
-        * Detect Intel Knights Landing
-        * Detect AMD A8, A10, A12 and Ryzen
-        * Support 64bit builds with Visual Studio
-        * Fix building with Intel and PGI compilers
-        * Fix building with MINGW and TDM-GCC
-        * Fix cmake builds for Haswell and related cpus
-        * Fix building for Sandybridge with CLANG 3.9
-	* Add support for the FLANG compiler
-
-IBM Z:
-        * New target z13 with BLAS3 optimizations
-
-====================================================================
-Version 0.2.19
-1-Sep-2016
-common:
-	* Improved cross compiling.
-	* Fix the bug on musl libc.
-
-POWER:
-	* Optimize BLAS on Power8
-	* Fixed Julia+OpenBLAS bugs on Power8
-
-MIPS:
-	* Optimize BLAS on MIPS P5600 and I6400 (Thanks, Shivraj Patil, Kaustubh Raste)
-
-ARM:
-	* Improved on ARM Cortex-A57. (Thanks, Ashwin Sekhar T K)
-
-
-====================================================================
-Version 0.2.18
-12-Apr-2016
-common:
-	* If you set MAKE_NB_JOBS flag less or equal than zero,
-	  make will be without -j.
-
-x86/x86_64:
-	* Support building Visual Studio static library. (#813, Thanks, theoractice)
-	* Fix bugs to pass buidbot CI tests (http://build.openblas.net)
-
-ARM:
-	* Provide DGEMM 8x4 kernel for Cortex-A57 (Thanks, Ashwin Sekhar T K)
-
-POWER:
-	* Optimize S and C BLAS3 on Power8
-	* Optimize BLAS2/1 on Power8
-
-====================================================================
-Version 0.2.17
-20-Mar-2016
-common:
-	* Enable BUILD_LAPACK_DEPRECATED=1 by default.
-
-====================================================================
-Version 0.2.16
-15-Mar-2016
-common:
-	* Avoid potential getenv segfault. (#716)
-	* Import LAPACK svn bugfix #142-#147,#150-#155
-
-x86/x86_64:
-	* Optimize c/zgemv for AMD Bulldozer, Piledriver, Steamroller
-	* Fix bug with scipy linalg test.
-
-ARM:
-	* Improve DGEMM for ARM Cortex-A57. (Thanks, Ashwin Sekhar T K)
-
-POWER:
-	* Optimize D and Z BLAS3 functions for Power8.
-
-====================================================================
-Version 0.2.16.rc1
-23-Feb-2016
-common:
-	* Upgrade LAPACK to 3.6.0 version.
-	  Add BUILD_LAPACK_DEPRECATED option in Makefile.rule to build
-	  LAPACK deprecated functions.
-	* Add MAKE_NB_JOBS option in Makefile.
-	  Force number of make jobs.This is particularly
-	  useful when using distcc. (#735. Thanks, Jerome Robert.)
-	* Redesign unit test. Run unit/regression test at every build (Travis-CI and Appveyor).
-	* Disable multi-threading for small size swap and ger. (#744. Thanks, Jerome Robert)
-	* Improve small zger, zgemv, ztrmv using stack alloction (#727. Thanks, Jerome Robert)
-	* Let openblas_get_num_threads return the number of active threads. 
-	  (#760. Thanks, Jerome Robert)
-	* Support illumos(OmniOS). (#749. Thanks, Lauri Tirkkonen)
-	* Fix LAPACK Dormbr, Dormlq bug. (#711, #713. Thanks, Brendan Tracey)
-	* Update scipy benchmark script. (#745. Thanks, John Kirkham)
-
-x86/x86_64:
-	* Optimize trsm kernels for AMD Bulldozer, Piledriver, Steamroller.
-	* Detect Intel Avoton.
-	* Detect AMD Trinity, Richland, E2-3200.
-	* Fix gemv performance bug on Mac OSX Intel Haswell.
-	* Fix some bugs with CMake and Visual Studio
-
-ARM:
-	* Support and optimize Cortex-A57 AArch64.
-	  (#686. Thanks, Ashwin Sekhar TK)
-	* Fix Android build on ARMV7 (#778. Thanks, Paul Mustiere)
-	* Update ARMV6 kernels.
-
-POWER:
-	* Fix detection of POWER architecture
-	  (#684. Thanks, Sebastien Villemot)
-
-====================================================================
-Version 0.2.15
-27-Oct-2015
-common:
-	* Support cmake on x86/x86-64. Natively compiling on MS Visual Studio.
-	  (experimental. Thank Hank Anderson for the initial cmake porting work.)
-	  
-	  On Linux and Mac OSX, OpenBLAS cmake supports assembly kernels.
-	  e.g. cmake .
-	       make
-	       make test (Optional)
-
-	  On Windows MS Visual Studio, OpenBLAS cmake only support C kernels.
-	  (OpenBLAS uses AT&T style assembly, which is not supported by MSVC.)
-	  e.g. cmake -G "Visual Studio 12 Win64" .
-	       Open OpenBLAS.sln and build.
-	  
-	* Enable MAX_STACK_ALLOC flags by default.
-	  Improve ger and gemv for small matrices.
-	* Improve gemv parallel with small m and large n case.
-	* Improve ?imatcopy when lda==ldb (#633. Thanks, Martin Koehler)
-	* Add vecLib benchmarks (#565. Thanks, Andreas Noack.)
-	* Fix LAPACK lantr for row major matrices (#634. Thanks, Dan Kortschak)
-	* Fix LAPACKE lansy (#640. Thanks, Dan Kortschak)
-	* Import bug fixes for LAPACKE s/dormlq, c/zunmlq 
-	* Raise the signal when pthread_create fails (#668. Thanks, James K. Lowden)
-	* Remove g77 from compiler list.
-	* Enable AppVeyor Windows CI.
-
-x86/x86-64:
-	* Support pure C generic kernels for x86/x86-64.
-	* Support Intel Boardwell and Skylake by Haswell kernels.
-	* Support AMD Excavator by Steamroller kernels.
-	* Optimize s/d/c/zdot for Intel SandyBridge and Haswell.
-	* Optimize s/d/c/zdot for AMD Piledriver and Steamroller.
-	* Optimize s/d/c/zapxy for Intel SandyBridge and Haswell.
-	* Optimize s/d/c/zapxy for AMD Piledriver and Steamroller.
-	* Optimize d/c/zscal for Intel Haswell, dscal for Intel SandyBridge.
-	* Optimize d/c/zscal for AMD Bulldozer, Piledriver and Steamroller.
-	* Optimize s/dger for Intel SandyBridge.
-	* Optimize s/dsymv for Intel SandyBridge.
-	* Optimize ssymv for Intel Haswell.
-	* Optimize dgemv for Intel Nehalem and Haswell.
-	* Optimize dtrmm for Intel Haswell.
-
-ARM:
-	* Support Android NDK armeabi-v7a-hard ABI (-mfloat-abi=hard)
-	  e.g. make HOSTCC=gcc CC=arm-linux-androideabi-gcc NO_LAPACK=1 TARGET=ARMV7
-	* Fix lock, rpcc bugs (#616, #617. Thanks, Grazvydas Ignotas)
-POWER:
-	* Support ppc64le platform (ELF ABI v2. #612. Thanks, Matthew Brandyberry.)
-	* Support POWER7/8 by POWER6 kernels. (#612. Thanks, Fábio Perez.)
-
-====================================================================
-Version 0.2.14
-24-Mar-2015
-common:
-	* Improve OpenBLASConfig.cmake. (#474, #475. Thanks, xantares.)
-	* Improve ger and gemv for small matrices by stack allocation.
-	  e.g. make -DMAX_STACK_ALLOC=2048 (#482. Thanks, Jerome Robert.)
-	* Introduce openblas_get_num_threads and openblas_get_num_procs.
-	  (#497. Thanks, Erik Schnetter.)
-	* Add ATLAS-style ?geadd function. (#509. Thanks, Martin Köhler.)
-	* Fix c/zsyr bug with negative incx. (#492.)
-	* Fix race condition during shutdown causing a crash in
-	  gotoblas_set_affinity(). (#508. Thanks, Ton van den Heuvel.)
-
-x86/x86-64:
-	* Support AMD Streamroller.
-
-ARM:
-	* Add Cortex-A9 and Cortex-A15 targets.
-
-====================================================================
-Version 0.2.13
-3-Dec-2014
-common:
-	* Add SYMBOLPREFIX and SYMBOLSUFFIX makefile options
-	  for adding a prefix or suffix to all exported symbol names
-	  in the shared library.(#459, Thanks Tony Kelman)
-	* Provide OpenBLASConfig.cmake at installation.
-	* Fix Fortran compiler detection on FreeBSD.
-	  (#470, Thanks Mike Nolta)
-
-
-x86/x86-64:
-	* Add generic kernel files for x86-64. make TARGET=GENERIC
-	* Fix a bug of sgemm kernel on Intel Sandy Bridge.
-	* Fix c_check bug on some amd64 systems. (#471, Thanks Mike Nolta)
-
-ARM:
-	* Support APM's X-Gene 1 AArch64 processors.
-	  Optimize trmm and sgemm. (#465, Thanks Dave Nuechterlein)
-
-====================================================================
-Version 0.2.12
-13-Oct-2014
-common:
-	* Added CBLAS interface for ?omatcopy and ?imatcopy.
-	* Enable ?gemm3m functions.
-	* Added benchmark for ?gemm3m.
-	* Optimized multithreading lower limits.
-	* Disabled SYMM3M and HEMM3M functions 
-	  because of segment violations.
-
-x86/x86-64:
-	* Improved axpy and symv performance on AMD Bulldozer.
-	* Improved gemv performance on modern Intel and AMD CPUs.
-
-====================================================================
-Version 0.2.11
-18-Aug-2014
-common:
-	* Added some benchmark codes.
-	* Fix link error on Linux/musl.(Thanks Isaac Dunham)
-
-x86/x86-64:
-	* Improved s/c/zgemm performance for Intel Haswell.
-	* Improved s/d/c/zgemv performance.
-	* Support the big numa machine.(EXPERIMENT)
-
-ARM:
-	* Fix detection when cpuinfo uses "Processor". (Thanks Isaiah)
-
-====================================================================
-Version 0.2.10
-16-Jul-2014
-common:
-	* Added BLAS extensions as following.
-	  s/d/c/zaxpby, s/d/c/zimatcopy, s/d/c/zomatcopy.
-	* Added OPENBLAS_CORETYPE environment for dynamic_arch. (a86d34)
-	* Added NO_AVX2 flag for old binutils. (#401)
-	* Support outputing the CPU corename on runtime.(#407)
-	* Patched LAPACK to fix bug 114, 117, 118. 
-	  (http://www.netlib.org/lapack/bug_list.html)
-	* Disabled ?gemm3m for a work-around fix. (#400)
-x86/x86-64:
-	* Fixed lots of bugs for optimized kernels on sandybridge,Haswell, 
-	  bulldozer, and piledriver.
-	  https://github.com/xianyi/OpenBLAS/wiki/Fixed-optimized-kernels-To-do-List
-
-ARM:
-	* Improved LAPACK testing.
-
-====================================================================
-Version 0.2.9
-10-Jun-2014
-common:
-	* Improved the result for LAPACK testing. (#372)
-	* Installed DLL to prefix/bin instead of prefix/lib. (#366)
-	* Build import library on Windows.(#374)
-x86/x86-64:
-	* To improve LAPACK testing, we fallback some kernels. (#372)
-	https://github.com/xianyi/OpenBLAS/wiki/Fixed-optimized-kernels-To-do-List
-
-====================================================================
-Version 0.2.9.rc2
-06-Mar-2014
-common:
-	* Added OPENBLAS_VERBOSE environment variable.(#338)
-	* Make OpenBLAS thread-pool resilient to fork via pthread_atfork.
-	  (#294, Thank Olivier Grisel)
-	* Rewrote rotmg
-	* Fixed sdsdot bug.
-x86/x86-64:
-	* Detect Intel Haswell for new Macbook.
-
-====================================================================
-Version 0.2.9.rc1
-13-Jan-2013
-common:
-	* Update LAPACK to 3.5.0 version
-	* Fixed compatiable issues with Clang and Pathscale compilers.
-
-x86/x86-64:
-	* Optimization on Intel Haswell.
-	* Enable optimization kernels on AMD Bulldozer and Piledriver.
-
-ARM:
-	* Support ARMv6 and ARMv7 ISA.
-	* Optimization on ARM Cortex-A9.
-
-====================================================================
-Version 0.2.8
-01-Aug-2013
-common:
-	* Support Open64 5.0. (#266)
-	* Add executable stack markings. (#262, Thank Sébastien Fabbro)
-	* Respect user's LDFLAGS (Thank Sébastien Fabbro)
-
-x86/x86-64:
-	* Rollback bulldozer and piledriver kernels to barcelona kernels (#263)
-	  We will fix the compuational error bug in bulldozer and piledriver kernels.
-
-====================================================================
-Version 0.2.7
-20-Jul-2013
-common:
-	* Support LSB (Linux Standard Base) 4.1.
-          e.g. make CC=lsbcc
-	* Include LAPACK 3.4.2 source codes to the repo.
-          Avoid downloading at compile time.
-	* Add NO_PARALLEL_MAKE flag to disable parallel make.
-        * Create openblas_get_parallel to retrieve information which
-          parallelization model is used by OpenBLAS. (Thank grisuthedragon)
-	* Detect LLVM/Clang compiler. The default compiler is Clang on Mac OS X.
-        * Change LIBSUFFIX from .lib to .a on windows.
-	* A work-around for dtrti_U single thread bug. Replace it with LAPACK codes. (#191)
-
-x86/x86-64:
-	* Optimize c/zgemm, trsm, dgemv_n, ddot, daxpy, dcopy on
-          AMD Bulldozer. (Thank Werner Saar)
-        * Add Intel Haswell support (using Sandybridge optimizations).
-          (Thank Dan Luu)
-	* Add AMD Piledriver support (using Bulldozer optimizations).
-        * Fix the computational error in zgemm avx kernel on
-          Sandybridge. (#237)
-        * Fix the overflow bug in gemv.
-	* Fix the overflow bug in multi-threaded BLAS3, getrf when NUM_THREADS
-          is very large.(#214, #221, #246).
-MIPS64:
-        * Support loongcc (Open64 based) compiler for ICT Loongson 3A/B.
-
-Power:
-        * Support Power7 by old Power6 kernels. (#220)
-
-====================================================================
-Version 0.2.6
-2-Mar-2013
-common:
-	* Improved OpenMP performance slightly. (d744c9)
-	* Improved cblas.h compatibility with Intel MKL.(#185)
-	* Fixed the overflowing bug in single thread cholesky factorization.
-	* Fixed the overflowing buffer bug of multithreading hbmv and sbmv.(#174)
-
-x86/x86-64:
-	* Added AMD Bulldozer x86-64 S/DGEMM AVX kernels. (Thank Werner Saar)
-	  We will tune the performance in future.
-	* Auto-detect Intel Xeon E7540.
-	* Fixed the overflowing buffer bug of gemv. (#173)
-	* Fixed the bug of s/cdot about invalid reading NAN on x86_64. (#189)
-
-MIPS64:
-
-====================================================================
-Version 0.2.5
-26-Nov-2012
-common:
-	* Added NO_SHARED flag to disable generating the shared library.
-	* Compile LAPACKE with ILP64 modle when INTERFACE64=1 (#158)
-	* Export LAPACK 3.4.2 symbols in shared library. (#147)
-	* Only detect the number of physical CPU cores on Mac OSX. (#157)
-	* Fixed NetBSD build. (#155)
-	* Fixed compilation with TARGET=GENERIC. (#160)
-x86/x86-64:
-	* Restore the original CPU affinity when calling
-	  openblas_set_num_threads(1) (#153)
-	* Fixed a SEGFAULT bug in dgemv_t when m is very large.(#154)
-MIPS64:
-
-====================================================================
-Version 0.2.4
-8-Oct-2012
-common:
-	* Upgraded LAPACK to 3.4.2 version. (#145)
-	* Provided support for passing CFLAGS, FFLAGS, PFLAGS,
-	  FPFLAGS to make. (#137)
-	* f77blas.h:compatibility for compilers without C99 complex
-	  number support. (#141)
-x86/x86-64:
-	* Added NO_AVX flag. Check OS supporting AVX on runtime. (#139)
-	* Fixed zdot incompatibility ABI issue with GCC 4.7 on
-	  Windows 32-bit. (#140)
-MIPS64:
-	* Fixed the generation of shared library bug.
-	* Fixed the detection bug on the Loongson 3A server.
-====================================================================
-Version 0.2.3
-20-Aug-2012
-common:
-	* Fixed LAPACK unstable bug about ?laswp. (#130)
-	* Fixed the shared library bug about unloading the library on
-	  Linux (#132).
-	* Fixed the compilation failure on BlueGene/P (TARGET=PPC440FP2)
-	  Please use gcc and IBM xlf. (#134)
-x86/x86-64:
-	* Supported goto_set_num_threads and openblas_set_num_threads
-	  APIs in Windows. They can set the number of threads on runtime.
-
-====================================================================
-Version 0.2.2
-6-July-2012
-common:
-	* Fixed exporting DLL functions bug on Windows/MingW
-	* Support GNU Hurd (Thank Sylvestre Ledru)
-	* Support kfreebsd kernel (Thank Sylvestre Ledru)
-x86/x86-64:
-	* Support Intel Sandy Bridge 22nm desktop/mobile CPU
-SPARC:
-	* Improve the detection of SPARC (Thank Sylvestre Ledru)
-
-====================================================================
-Version 0.2.1
-30-Jun-2012
-common:
-x86/x86-64:
-	* Fixed the SEGFAULT bug about hyper-theading
-	* Support AMD Bulldozer by using GotoBLAS2 AMD Barcelona codes
-
-====================================================================
-Version 0.2.0
-26-Jun-2012
-common:
-	* Removed the limitation (64) of numbers of CPU cores.
-	  Now, it supports 256 cores at max.
-	* Supported clang compiler.
-	* Fixed some build bugs on FreeBSD
-x86/x86-64:
-	* Optimized Level-3 BLAS on Intel Sandy Bridge x86-64 by AVX instructions.
-	  Please use gcc >= 4.6 or clang >=3.1.
-	* Support AMD Bobcat by using GotoBLAS2 AMD Barcelona codes.
-
-====================================================================
-Version 0.1.1
-29-Apr-2012
-common:
-	* Upgraded LAPACK to 3.4.1 version. (Thank Zaheer Chothia)
-	* Supported LAPACKE, a C interface to LAPACKE. (Thank Zaheer Chothia)
-	* Fixed the build bug (MD5 and download) on Mac OSX.
-	* Auto download CUnit 2.1.2-2 from SF.net with UTEST_CHECK=1.
-	* Fxied the compatibility issue for compilers without C99 complex number
-	  (e.g. Visual Studio)
-x86/x86_64:
-	* Auto-detect Intel Sandy Bridge Core i7-3xxx & Xeon E7 Westmere-EX.
-	* Test alpha=Nan in dscale.
-	* Fixed a SEGFAULT bug in samax on x86 windows.
-
-====================================================================
-Version 0.1.0
-23-Mar-2012
-common:
-	* Set soname of shared library on Linux.
-	* Added LIBNAMESUFFIX flag in Makefile.rule. The user can use
-	  this flag to control the library name, e.g. libopenblas.a,
-	  libopenblas_ifort.a or libopenblas_omp.a.
-	* Added GEMM_MULTITHREAD_THRESHOLD flag in Makefile.rule.
-	  The lib use single thread in GEMM function with small matrices.
-x86/x86_64:
-	* Used GEMV SSE/SSE2 kernels on x86 32-bit.
-	* Exported CBLAS functions in Windows DLL.
-MIPS64:
-	* Completed Level-3 BLAS optimization on Loongson 3A CPU.
-	* Improved GEMV performance on Loongson 3A CPU.
-	* Improved Level-3 BLAS performance on Loongson 3B CPU. (EXPERIMENT)
-
-====================================================================
-Version 0.1 alpha2.5
-19-Feb-2012
-common:
-	* Fixed missing "#include <sched.h>" bug on Mac OS X.
-	  Thank Mike Nolta for the patch.
-	* Upgraded LAPACK to 3.4.0 version
-	* Fixed a bug on Mac OS X. Don't require SystemStubs on OS X.
-	  SystemStubs does not exist on Lion. Thank Stefan Karpinski.
-	* Improved README with using OpenMP. Check the internal threads
-	  count less than or equal to omp_get_max_threads()
-x86/x86_64:
-	* Auto-detect Intel Core i6/i7 (Sandy Bridge) CPU with Nehalem assembly kernels
-	* Fixed some bugs on MingW 64-bit including zgemv, cdot, zdot.
-
-====================================================================
-Version 0.1 alpha2.4
-18-Sep-2011
-common:
-	* Fixed a bug about installation. The header file "fblas77.h"
-	  works fine now.
-	* Fixed #61 a building bug about setting TARGET and DYNAMIC_ARCH.
-	* Try to handle absolute path of shared library in OSX. (#57)
-	  Thank Dr Kane O'Donnell.
-	* Changed the installation folder layout to $(PREFIX)/include and
-	  $(PREFIX)/lib
-
-x86/x86_64:
-	* Fixed #58 zdot/xdot SEGFAULT bug with GCC-4.6 on x86. According
-	  to i386 calling convention, The callee should remove the first
-	  hidden parameter.Thank Mr. John for this patch.
-
-====================================================================
-Version 0.1 alpha2.3
-5-Sep-2011
-
-x86/x86_64:
-	*  Added DTB_ENTRIES into dynamic arch setting parameters. Now,
-	   it can read DTB_ENTRIES on runtime. (Refs issue #55 on github)
-
-====================================================================
-Version 0.1 alpha2.2
-14-Jul-2011
-
-common:
-	* Fixed a building bug when DYNAMIC_ARCH=1 & INTERFACE64=1.
-	  (Refs issue #44 on github)
-
-====================================================================
-Version 0.1 alpha2.1
-28-Jun-2011
-
-common:
-	* Stop the build and output the error message when detecting
-	  fortran compiler failed. (Refs issue #42 on github)
-
-====================================================================
-Version 0.1 alpha2
-23-Jun-2011
-
-common:
-	* Fixed blasint undefined bug in <cblas.h> file. Other software
-	  could include this header successfully(Refs issue #13 on github)
-	* Fixed the SEGFAULT bug on 64 cores. On SMP server, the number
-	  of CPUs or cores should be less than or equal to 64.(Refs issue #14
-	  on github)
-	* Support "void goto_set_num_threads(int num_threads)" and "void
-	  openblas_set_num_threads(int num_threads)" when USE_OPENMP=1
-	* Added extern "C" to support C++. Thank Tasio for the patch(Refs
-	  issue #21 on github)
-	* Provided an error message when the arch is not supported.(Refs
-	  issue #19 on github)
-	* Fixed issue #23. Fixed a bug of f_check script about generating link flags.
-	* Added openblas_set_num_threads for Fortran.
-	* Fixed #25 a wrong result of rotmg.
-	* Fixed a bug about detecting underscore prefix in c_check.
-	* Print the wall time (cycles) with enabling FUNCTION_PROFILE
-	* Fixed #35 a build bug with NO_LAPACK=1 & DYNAMIC_ARCH=1
-	* Added install target. You can use "make install". (Refs #20)
-
-
-x86/x86_64:
-	* Fixed #28 a wrong result of dsdot on x86_64.
-	* Fixed #32 a SEGFAULT bug of zdotc with gcc-4.6.
-	* Fixed #33 ztrmm bug on Nehalem.
-	* Work-around #27 the low performance axpy issue with small imput size & multithreads.
-
-MIPS64:
-	* Fixed #28 a wrong result of dsdot on Loongson3A/MIPS64.
-	* Optimized single/double precision BLAS Level3 on Loongson3A/MIPS64. (Refs #2)
-	* Optimized single/double precision axpy function on Loongson3A/MIPS64. (Refs #3)
-
-====================================================================
-Version 0.1 alpha1
-20-Mar-2011
-
-common:
-	* Support "make  NO_LAPACK=1" to build the library without
-	  LAPACK functions.
-	* Fixed randomly SEGFAULT when nodemask==NULL with above Linux 2.6.34.
-	  Thank Mr.Ei-ji Nakama providing this patch. (Refs issue #12 on github)
-	* Added DEBUG=1 rule in Makefile.rule to build debug version.
-	* Disable compiling quad precision in reference BLAS library(netlib BLAS).
-	* Added unit testcases in utest/ subdir. Used  CUnit framework.
-	* Supported OPENBLAS_* & GOTO_* environment variables (Pleas see README)
-	* Imported GotoBLAS2 1.13 BSD version
-
-x86/x86_64:
-	* On x86 32bits, fixed a bug in zdot_sse2.S line 191. This would casue
-	  zdotu & zdotc failures. Instead, work-around it. (Refs issue #8 #9 on github)
-	* Modified ?axpy functions to return same netlib BLAS results
-	  when incx==0 or incy==0 (Refs issue #7 on github)
-	* Modified ?swap functions to return same netlib BLAS results
-	  when incx==0 or incy==0 (Refs issue #6 on github)
-	* Modified ?rot functions to return same netlib BLAS results
-	  when incx==0 or incy==0 (Refs issue #4 on github)
-	* Detect Intel Westmere,Intel Clarkdale and Intel Arrandale
-	  to use Nehalem codes.
-	* Fixed a typo bug about compiling dynamic ARCH library.
-MIPS64:
-	* Improve daxpy performance on ICT Loongson 3A.
-	* Supported ICT Loongson 3A CPU (Refs issue #1 on github)
-====================================================================

GotoBLAS_00License.txt

@@ -1,32 +0,0 @@
-
-Copyright 2009, 2010 The University of Texas at Austin.
-All rights reserved.
-
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-
-   1. Redistributions of source code must retain the above copyright
-      notice, this list of conditions and the following disclaimer.
-
-   2. Redistributions in binary form must reproduce the above copyright
-      notice, this list of conditions and the following disclaimer in
-      the documentation and/or other materials provided with the
-      distribution.
-
-THIS SOFTWARE IS PROVIDED BY THE UNIVERSITY OF TEXAS AT AUSTIN ``AS IS''
-AND ANY  EXPRESS OR IMPLIED  WARRANTIES, INCLUDING, BUT NOT  LIMITED TO,
-THE IMPLIED  WARRANTIES OF MERCHANTABILITY AND FITNESS  FOR A PARTICULAR
-PURPOSE ARE  DISCLAIMED.  IN NO EVENT  SHALL THE UNIVERSITY  OF TEXAS AT
-AUSTIN OR  CONTRIBUTORS BE LIABLE FOR ANY  DIRECT, INDIRECT, INCIDENTAL,
-SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED
-TO, PROCUREMENT OF  SUBSTITUTE GOODS OR SERVICES; LOSS  OF USE, DATA, OR
-PROFITS; OR BUSINESS  INTERRUPTION) HOWEVER CAUSED AND ON  ANY THEORY OF
-LIABILITY,  WHETHER IN  CONTRACT, STRICT  LIABILITY, OR  TORT (INCLUDING
-NEGLIGENCE  OR OTHERWISE)  ARISING IN  ANY WAY  OUT OF  THE USE  OF THIS
-SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-
-The views and conclusions contained in the software and documentation
-are those of the authors and should not be interpreted as representing
-official policies, either expressed or implied, of The University of
-Texas at Austin.

GotoBLAS_01Readme.txt

@@ -1,93 +0,0 @@
-              Optimized GotoBLAS2 libraries version 1.13
-
-                       By Kazushige Goto <kgoto@tacc.utexas.edu>
-
-# This is the last update and done on 5th Feb. 2010.
-
-0. License
-
-   See 00TACC_Research_License.txt.
-
-1. Supported OS
-
-     Linux
-     FreeBSD(Also it may work on NetBSD)
-     OSX
-     Soralis
-     Windows 2k, XP, Server 2003 and 2008(both 32bit and 64bit)
-     AIX
-     Tru64 UNIX
-
-2. Supported Architecture
-
-    X86  : Pentium3 Katmai
-                    Coppermine
-           Athlon  (not well optimized, though)
-           PentiumM Banias, Yonah
-           Pentium4 Northwood
-                    Nocona (Prescott)
-	   Core 2   Woodcrest
-	   Core 2   Penryn
-           Nehalem-EP  Corei{3,5,7}
-	   Atom
-           AMD Opteron
-	   AMD Barlcelona, Shanghai, Istanbul
-	   VIA NANO
-
-   X86_64: Pentium4 Nocona
-	   Core 2   Woodcrest
-	   Core 2   Penryn
-           Nehalem
-	   Atom
-           AMD Opteron
-	   AMD Barlcelona, Shanghai, Istanbul
-	   VIA NANO
-
-   IA64  : Itanium2
-
-   Alpha : EV4, EV5, EV6
-
-   POWER : POWER4
-           PPC970/PPC970FX
-           PPC970MP
-	   CELL (PPU only)
-           POWER5
-           PPC440   (QCDOC)
-           PPC440FP2(BG/L)
-	   POWERPC G4(PPC7450)
-           POWER6
-
-   SPARC : SPARC IV
-           SPARC VI, VII (Fujitsu chip)
-
-   MIPS64/32: Sicortex
-
-3. Supported compiler
-
-   C compiler       : GNU CC
-                      Cygwin, MinGW
-                      Other commercial compiler(especially for x86/x86_64)
-
-   Fortran Compiler : GNU G77, GFORTRAN
-		      G95
-		      Open64
-                      Compaq
-                      F2C
-                      IBM
-                      Intel
-                      PathScale
-                      PGI
-                      SUN
-                      Fujitsu
-
-4. Suported precision
-
- Now x86/x86_64 version support 80bit FP precision in addition to
-normal double presicion and single precision. Currently only
-gfortran supports 80bit FP with "REAL*10".
-
-
-5. How to build library?
-
- Please see 02QuickInstall.txt or just type "make".
-

GotoBLAS_02QuickInstall.txt

@@ -1,118 +0,0 @@
-                Quick installation for GotoBLAS2
-
-***************************************************************************
-***************************************************************************
-**                                                                       **
-**                                                                       **
-**                    Just type "make" <<return>>.                       **
-**                                                                       **
-**           If you're not satisfied with this library,                  **
-**           please read following instruction and customize it.         **
-**                                                                       **
-**                                                                       **
-***************************************************************************
-***************************************************************************
-
-
-1. REALLY REALLY quick way to build library
-
-    Type "make" or "gmake".
-
-   $shell> make
-
-   The script will detect Fortran compiler, number of cores and
-   architecture which you're using. If default gcc binary type is
-   64bit, 64 bit library will be created. Otherwise 32 bit library
-   will be created.
-
-   After finishing compile, you'll find various information about
-   generated library.
-
- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-
- GotoBLAS2 build complete.
-
-  OS               ... Linux
-  Architecture     ... x86_64
-  BINARY           ... 64bit
-  C compiler       ... GCC  (command line : gcc)
-  Fortran compiler ... PATHSCALE  (command line : pathf90)
-  Library Name     ... libgoto_barcelonap-r1.27.a (Multi threaded; Max
-  num-threads is 16)
-
- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-
-
-2. Specifying 32bit or 64bit library
-
-   If you need 32bit binary,
-
-   $shell> make BINARY=32
-
-   If you need 64bit binary,
-
-   $shell> make BINARY=64
-
-
-3. Specifying target architecture
-
-   If you need library for different architecture, you can use TARGET
-   option. You can find current available options in top of getarch.c.
-   For example, if you need library for Intel core2 architecture,
-   you'll find FORCE_CORE2 option in getarch.c. Therefore you can
-   specify TARGET=CORE2 (get rid of FORCE_) with make.
-
-   $shell> make TARGET=CORE2
-
-   Also if you want GotoBLAS2 to support multiple architecture,
-
-   $shell> make DYNAMIC_ARCH=1
-
-   All kernel will be included in the library and dynamically switched
-   the best architecutre at run time.
-
-
-4. Specifying for enabling multi-threaded
-
-   Script will detect number of cores and will enable multi threaded
-   library if number of cores is more than two. If you still want to
-   create single threaded library,
-
-   $shell> make USE_THREAD=0
-
-   Or if you need threaded library by force,
-
-   $shell> make USE_THREAD=1
-
-
-5. Specifying target OS
-
-   Target architecture will be determined by the CC. If you
-   specify cross compiler for MIPS, you can create library for
-   MIPS architecture.
-
-   $shell> make CC=mips64el-linux-gcc TARGET=SICORTEX
-
-   Or you can specify your favorite C compiler with absolute path.
-
-   $shell> make CC=/opt/intel/cc/32/10.0.026/bin/icc TARGET=BARCELONA
-
-   Binary type (32bit/64bit) is determined by checking CC, you
-   can control binary type with this option.
-
-   $shell> make CC="pathcc -m32"
-
-   In this case, 32bit library will be created.
-
-
-6. Specifying Fortran compiler
-
-   If you need to support other Fortran compiler, you can specify with
-   FC option.
-
-   $shell> make FC=gfortran
-
-
-7. Other useful options
-
-   You'll find other useful options in Makefile.rule.

GotoBLAS_03FAQ.txt

@@ -1,128 +0,0 @@
-	GotoBLAS2 FAQ
-
-1. General
-
-1.1  Q Can I find useful paper about GotoBLAS2?
-
-     A You may check following URL.
-
-     http://www.cs.utexas.edu/users/flame/Publications/index.htm
-
-    11. Kazushige Goto and Robert A. van de Geijn, " Anatomy of
-	High-Performance Matrix Multiplication," ACM Transactions on
-	Mathematical Software, accepted.
-
-    15. Kazushige Goto and Robert van de Geijn, "High-Performance
-        Implementation of the Level-3 BLAS." ACM Transactions on
-        Mathematical Software, submitted.
-
-
-1.2  Q Does GotoBLAS2 work with Hyperthread (SMT)?
-
-     A Yes, it will work. GotoBLAS2 detects Hyperthread and
-       avoid scheduling on the same core.
-
-
-1.3  Q When I type "make", following error occured. What's wrong?
-
-	$shell> make
-	"./Makefile.rule", line 58: Missing dependency operator
-	"./Makefile.rule", line 61: Need an operator
-	...
-
-     A This error occurs because you didn't use GNU make. Some binary
-       packages install GNU make as "gmake" and it's worth to try.
-
-
-1.4  Q Function "xxx" is slow. Why?
-
-     A Generally GotoBLAS2 has many well optimized functions, but it's
-       far and far from perfect. Especially Level 1/2 function
-       performance depends on how you call BLAS. You should understand
-       what happends between your function and GotoBLAS2 by using profile
-       enabled version or hardware performance counter. Again, please
-       don't regard GotoBLAS2 as a black box.
-
-
-1.5  Q I have a commercial C compiler and want to compile GotoBLAS2 with
-       it. Is it possible?
-
-     A All function that affects performance is written in assembler
-       and C code is just used for wrapper of assembler functions or
-       complicated functions. Also I use many inline assembler functions,
-       unfortunately most of commercial compiler can't handle inline
-       assembler. Therefore you should use gcc.
-
-
-1.6  Q I use OpenMP compiler. How can I use GotoBLAS2 with it?
-
-     A Please understand that OpenMP is a compromised method to use
-       thread. If you want to use OpenMP based code with GotoBLAS2, you
-       should enable "USE_OPENMP=1" in Makefile.rule.
-
-
-1.7  Q Could you tell me how to use profiled library?
-
-     A You need to build and link your application with -pg
-       option. After executing your application, "gmon.out" is
-       generated in your current directory.
-
-       $shell> gprof <your application name> gmon.out
-
-       Each sample counts as 0.01 seconds.
-	 %   cumulative   self              self     total
-	time   seconds   seconds    calls  Ks/call  Ks/call  name
-	89.86    975.02   975.02    79317     0.00     0.00  .dgemm_kernel
-	 4.19   1020.47    45.45       40     0.00     0.00  .dlaswp00N
-	 2.28   1045.16    24.69     2539     0.00     0.00  .dtrsm_kernel_LT
-	 1.19   1058.03    12.87    79317     0.00     0.00  .dgemm_otcopy
-	 1.05   1069.40    11.37     4999     0.00     0.00  .dgemm_oncopy
-       ....
-
-       I think profiled BLAS library is really useful for your
-       research. Please find bottleneck of your application and
-       improve it.
-
-1.8  Q Is number of thread limited?
-
-     A Basically, there is no limitation about number of threads. You
-       can specify number of threads as many as you want, but larger
-       number of threads will consume extra resource. I recommend you to
-       specify minimum number of threads.
-
-1.9  Q I have segfaults when I compile with USE_OPENMP=1. What's wrong?
-
-     A This may be related to a bug in the Linux kernel 2.6.32. Try applying
-     the patch segaults.patch using
-
-     patch < segfaults.patch
-
-     and see if the crashes persist. Note that this patch will lead to many
-     compiler warnings.
-
-2. Architecture Specific issue or Implementation
-
-2.1 Q GotoBLAS2 seems to support any combination with OS and
-      architecture. Is it possible?
-
-    A Combination is limited by current OS and architecture. For
-      examble, the combination OSX with SPARC is impossible. But it
-      will be possible with slight modification if these combination
-      appears in front of us.
-
-
-2.2 Q I have POWER architecture systems. Do I need extra work?
-
-    A Although POWER architecture defined special instruction
-      like CPUID to detect correct architecture, it's privileged
-      and can't be accessed by user process. So you have to set
-      the architecture that you have manually in getarch.c.
-
-
-2.3 Q I can't create DLL on Cygwin (Error 53). What's wrong?
-
-    A You have to make sure if lib.exe and mspdb80.dll are in Microsoft
-      Studio PATH. The easiest way is to use 'which' command.
-
-    $shell> which lib.exe
-    /cygdrive/c/Program Files/Microsoft Visual Studio/VC98/bin/lib.exe

GotoBLAS_04FAQ.txt

@@ -1,13 +0,0 @@
-
-Quick guide to build library for Windows 64bit.
-
-1. What you need
-
- a. Windows Server 2003 or later
- b. Cygwin environment(make, gcc, g77, perl, sed, wget)
- c. MinGW64 compiler
- d. Microsoft Visual Studio (lib.exe and mspdb80.dll are required to create dll)
-
-2. Do ./quickbuild.win64
-
-Good luck

GotoBLAS_05LargePage.txt

@@ -1,53 +0,0 @@
- To enhance perfomance, I'd recommend you to enable large page on
- your OS (root account is required).
-
-  A) Linux
-
-    x86   32bit    ... (number of core) * 4 pages
-    x86   64bit    ... (number of core) * 8 pages
-    POWER 32/64bit ... (number of core) * 1 pages
-
-    If you want to allocate 64 large pages,
-
-    $shell> echo  0 > /proc/sys/vm/nr_hugepages		# need to be reset
-    $shell> echo 65 > /proc/sys/vm/nr_hugepages		# add 1 extra page
-    $shell> echo 3355443200 > /proc/sys/kernel/shmmax   # just large number
-    $shell> echo 3355443200 > /proc/sys/kernel/shmall
-
-    Also may add a few lines into /etc/security/limits.conf file.
-
-    *       hard    memlock          unlimited
-    *       soft    memlock          unlimited
-
-    Then restart sshd (/etc/init.d/sshd restart).
-
-  B) Solaris
-
-    You don't have to set up.
-
-  C) Windows (Windows Server 2003 or later, XP 64bit)
-
-    You have to assign memory lock operation to your account.
-
-     Control Panel -> Administrative Tools -> Local Security Policy ->
-     Local Policies -> User Rights Assignment -> Lock pages in memory
-
-  D) AIX
-
-    Ask your administrator
-
-  E) Tru64 UNIX
-
-    Assign shared memory at boot time.
-
-  F) Other aarchitecture which doesn't have Large TLB enhancement
-
-   If you have root permission, please install device driver which
-   located in drivers/mapper.
-
-   $shell> cd drivers/mapper
-   $shell> make
-   $shell> insmod mapper.ko
-   $shell> ./device_setup
-
-   Then enable DEVICEDRIVER_ALLOCATION = 1 in Makefile.rule.

GotoBLAS_06WeirdPerformance.txt

@@ -1,22 +0,0 @@
-        Weird Performance
-
-1. If you see serious performance loss (extremely low performance),
-   probably you created too many threads or process. Basically GotoBLAS
-   assumes that available cores that you specify are exclusively for
-   BLAS computation. Even one small thread/process conflicts with BLAS
-   threads, performance will become worse.
-
-   The best solution is to reduce your number of threads or insert
-   some synchronization mechanism and suspend your threads until BLAS
-   operation is finished.
-
-
-2. Simlar problem may happen under virtual machine. If supervisor
-   allocates different cores for each scheduling, BLAS performnace
-   will be bad. This is because BLAS also utilizes all cache,
-   unexpected re-schedule for different core may result of heavy
-   performance loss.
-
-
-Anyway, if you see any weird performance loss, it means your code or
-algorithm is not optimal.

LICENSE

@@ -1,29 +0,0 @@
-Copyright (c) 2011-2014, The OpenBLAS Project
-All rights reserved.
-
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-
-   1. Redistributions of source code must retain the above copyright
-      notice, this list of conditions and the following disclaimer.
-
-   2. Redistributions in binary form must reproduce the above copyright
-      notice, this list of conditions and the following disclaimer in
-      the documentation and/or other materials provided with the
-      distribution.
-   3. Neither the name of the OpenBLAS project nor the names of 
-      its contributors may be used to endorse or promote products 
-      derived from this software without specific prior written 
-      permission.
-
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

Makefile

@@ -1,345 +0,0 @@
-TOPDIR	= .
-include ./Makefile.system
-
-BLASDIRS = interface driver/level2 driver/level3 driver/others
-
-ifneq ($(DYNAMIC_ARCH), 1)
-BLASDIRS += kernel
-endif
-
-ifdef SANITY_CHECK
-BLASDIRS += reference
-endif
-
-SUBDIRS	= $(BLASDIRS)
-ifneq ($(NO_LAPACK), 1)
-SUBDIRS	+= lapack
-endif
-
-RELA =
-ifeq ($(BUILD_RELAPACK), 1)
-RELA = re_lapack
-endif
-
-LAPACK_NOOPT := $(filter-out -O0 -O1 -O2 -O3 -Ofast,$(LAPACK_FFLAGS))
-
-SUBDIRS_ALL = $(SUBDIRS) test ctest utest exports benchmark ../laswp ../bench
-
-.PHONY : all libs netlib $(RELA) test ctest shared install
-.NOTPARALLEL : all libs $(RELA) prof lapack-test install blas-test
-
-all :: libs netlib $(RELA) tests shared
-	@echo
-	@echo " OpenBLAS build complete. ($(LIB_COMPONENTS))"
-	@echo
-	@echo "  OS               ... $(OSNAME)             "
-	@echo "  Architecture     ... $(ARCH)               "
-ifndef BINARY64
-	@echo "  BINARY           ... 32bit                 "
-else
-	@echo "  BINARY           ... 64bit                 "
-endif
-
-ifdef INTERFACE64
-ifneq ($(INTERFACE64), 0)
-	@echo "  Use 64 bits int    (equivalent to \"-i8\" in Fortran)      "
-endif
-endif
-
-	@echo "  C compiler       ... $(C_COMPILER)  (command line : $(CC))"
-ifndef NOFORTRAN
-	@echo "  Fortran compiler ... $(F_COMPILER)  (command line : $(FC))"
-endif
-ifneq ($(OSNAME), AIX)
-	@echo -n "  Library Name     ... $(LIBNAME)"
-else
-	@echo "  Library Name     ... $(LIBNAME)"
-endif
-
-ifndef SMP
-	@echo " (Single threaded)  "
-else
-	@echo " (Multi threaded; Max num-threads is $(NUM_THREADS))"
-endif
-
-ifeq ($(USE_OPENMP), 1)
-	@echo
-	@echo " Use OpenMP in the multithreading. Because of ignoring OPENBLAS_NUM_THREADS and GOTO_NUM_THREADS flags, "
-	@echo " you should use OMP_NUM_THREADS environment variable to control the number of threads."
-	@echo
-endif
-
-ifeq ($(OSNAME), Darwin)
-	@echo "WARNING: If you plan to use the dynamic library $(LIBDYNNAME), you must run:"
-	@echo
-	@echo "\"make PREFIX=/your_installation_path/ install\"."
-	@echo
-	@echo "(or set PREFIX in Makefile.rule and run make install."
-	@echo "If you want to move the .dylib to a new location later, make sure you change"
-	@echo "the internal name of the dylib with:"
-	@echo
-	@echo "install_name_tool -id /new/absolute/path/to/$(LIBDYNNAME) $(LIBDYNNAME)"
-endif
-	@echo
-	@echo "To install the library, you can run \"make PREFIX=/path/to/your/installation install\"."
-	@echo
-
-shared :
-ifndef NO_SHARED
-ifeq ($(OSNAME), $(filter $(OSNAME),Linux SunOS Android))
-	@$(MAKE) -C exports so
-	@ln -fs $(LIBSONAME) $(LIBPREFIX).so
-	@ln -fs $(LIBSONAME) $(LIBPREFIX).so.$(MAJOR_VERSION)
-endif
-ifeq ($(OSNAME), FreeBSD)
-	@$(MAKE) -C exports so
-	@ln -fs $(LIBSONAME) $(LIBPREFIX).so
-endif
-ifeq ($(OSNAME), NetBSD)
-	@$(MAKE) -C exports so
-	@ln -fs $(LIBSONAME) $(LIBPREFIX).so
-endif
-ifeq ($(OSNAME), Darwin)
-	@$(MAKE) -C exports dyn
-	@ln -fs $(LIBDYNNAME) $(LIBPREFIX).dylib
-endif
-ifeq ($(OSNAME), WINNT)
-	@$(MAKE) -C exports dll
-endif
-ifeq ($(OSNAME), CYGWIN_NT)
-	@$(MAKE) -C exports dll
-endif
-endif
-
-tests :
-ifndef NOFORTRAN
-	touch $(LIBNAME)
-ifndef NO_FBLAS
-	$(MAKE) -C test all
-	$(MAKE) -C utest all
-endif
-ifndef NO_CBLAS
-	$(MAKE) -C ctest all
-endif
-endif
-
-libs :
-ifeq ($(CORE), UNKOWN)
-	$(error OpenBLAS: Detecting CPU failed. Please set TARGET explicitly, e.g. make TARGET=your_cpu_target. Please read README for the detail.)
-endif
-ifeq ($(NOFORTRAN), 1)
-	$(info OpenBLAS: Detecting fortran compiler failed. Cannot compile LAPACK. Only compile BLAS.)
-endif
-ifeq ($(NO_STATIC), 1)
-ifeq ($(NO_SHARED), 1)
-	$(error OpenBLAS: neither static nor shared are enabled.)
-endif
-endif
-	@-ln -fs $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX)
-	@for d in $(SUBDIRS) ; \
-	do if test -d $$d; then \
-	  $(MAKE) -C $$d $(@F) || exit 1 ; \
-	fi; \
-	done
-#Save the config files for installation
-	@cp Makefile.conf Makefile.conf_last
-	@cp config.h config_last.h
-ifdef QUAD_PRECISION
-	@echo "#define QUAD_PRECISION">> config_last.h
-endif
-ifeq ($(EXPRECISION), 1)
-	@echo "#define EXPRECISION">> config_last.h
-endif
-##
-ifeq ($(DYNAMIC_ARCH), 1)
-	@$(MAKE) -C kernel commonlibs || exit 1
-	@for d in $(DYNAMIC_CORE) ; \
-	do  $(MAKE) GOTOBLAS_MAKEFILE= -C kernel TARGET_CORE=$$d kernel || exit 1 ;\
-	done
-	@echo DYNAMIC_ARCH=1 >> Makefile.conf_last
-endif
-ifdef USE_THREAD
-	@echo USE_THREAD=$(USE_THREAD) >>  Makefile.conf_last
-endif
-	@touch lib.grd
-
-prof : prof_blas prof_lapack
-
-prof_blas :
-	ln -fs $(LIBNAME_P) $(LIBPREFIX)_p.$(LIBSUFFIX)
-	for d in $(SUBDIRS) ; \
-	do if test -d $$d; then \
-	  $(MAKE) -C $$d prof || exit 1 ; \
-	fi; \
-	done
-ifeq ($(DYNAMIC_ARCH), 1)
-	  $(MAKE) -C kernel commonprof || exit 1
-endif
-
-blas :
-	ln -fs $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX)
-	for d in $(BLASDIRS) ; \
-	do if test -d $$d; then \
-	  $(MAKE) -C $$d libs || exit 1 ; \
-	fi; \
-	done
-
-hpl :
-	ln -fs $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX)
-	for d in $(BLASDIRS) ../laswp exports ; \
-	do if test -d $$d; then \
-	  $(MAKE) -C $$d $(@F) || exit 1 ; \
-	fi; \
-	done
-ifeq ($(DYNAMIC_ARCH), 1)
-	  $(MAKE) -C kernel commonlibs || exit 1
-	for d in $(DYNAMIC_CORE) ; \
-	do  $(MAKE) GOTOBLAS_MAKEFILE= -C kernel TARGET_CORE=$$d kernel || exit 1 ;\
-	done
-endif
-
-hpl_p :
-	ln -fs $(LIBNAME_P) $(LIBPREFIX)_p.$(LIBSUFFIX)
-	for d in $(SUBDIRS) ../laswp exports ; \
-	do if test -d $$d; then \
-	  $(MAKE) -C $$d $(@F) || exit 1 ; \
-	fi; \
-	done
-
-ifeq ($(NO_LAPACK), 1)
-netlib :
-
-else
-netlib : lapack_prebuild
-ifndef NOFORTRAN
-	@$(MAKE) -C $(NETLIB_LAPACK_DIR) lapacklib
-	@$(MAKE) -C $(NETLIB_LAPACK_DIR) tmglib
-endif
-ifndef NO_LAPACKE
-	@$(MAKE) -C $(NETLIB_LAPACK_DIR) lapackelib
-endif
-endif
-
-ifeq ($(NO_LAPACK), 1)
-re_lapack :
-
-else
-re_lapack :
-	@$(MAKE) -C relapack
-endif
-
-prof_lapack : lapack_prebuild
-	@$(MAKE) -C $(NETLIB_LAPACK_DIR) lapack_prof
-
-lapack_prebuild :
-ifndef NOFORTRAN
-	-@echo "FORTRAN     = $(FC)" > $(NETLIB_LAPACK_DIR)/make.inc
-	-@echo "OPTS        = $(LAPACK_FFLAGS)" >> $(NETLIB_LAPACK_DIR)/make.inc
-	-@echo "POPTS       = $(LAPACK_FPFLAGS)" >> $(NETLIB_LAPACK_DIR)/make.inc
-	-@echo "NOOPT       = -O0 $(LAPACK_NOOPT)" >> $(NETLIB_LAPACK_DIR)/make.inc
-	-@echo "PNOOPT      = $(LAPACK_FPFLAGS) -O0" >> $(NETLIB_LAPACK_DIR)/make.inc
-	-@echo "LOADOPTS    = $(FFLAGS) $(EXTRALIB)" >> $(NETLIB_LAPACK_DIR)/make.inc
-	-@echo "CC          = $(CC)" >> $(NETLIB_LAPACK_DIR)/make.inc
-	-@echo "override CFLAGS      = $(LAPACK_CFLAGS)" >> $(NETLIB_LAPACK_DIR)/make.inc
-	-@echo "ARCH        = $(AR)" >> $(NETLIB_LAPACK_DIR)/make.inc
-	-@echo "ARCHFLAGS   = -ru" >> $(NETLIB_LAPACK_DIR)/make.inc
-	-@echo "RANLIB      = $(RANLIB)" >> $(NETLIB_LAPACK_DIR)/make.inc
-	-@echo "LAPACKLIB   = ../$(LIBNAME)" >> $(NETLIB_LAPACK_DIR)/make.inc
-	-@echo "TMGLIB      = ../$(LIBNAME)" >> $(NETLIB_LAPACK_DIR)/make.inc
-	-@echo "BLASLIB     = ../../../$(LIBNAME)" >> $(NETLIB_LAPACK_DIR)/make.inc
-	-@echo "LAPACKELIB  = ../$(LIBNAME)" >> $(NETLIB_LAPACK_DIR)/make.inc
-	-@echo "LAPACKLIB_P = ../$(LIBNAME_P)" >> $(NETLIB_LAPACK_DIR)/make.inc
-	-@echo "SUFFIX      = $(SUFFIX)" >> $(NETLIB_LAPACK_DIR)/make.inc
-	-@echo "PSUFFIX     = $(PSUFFIX)" >> $(NETLIB_LAPACK_DIR)/make.inc
-	-@echo "CEXTRALIB   = $(EXTRALIB)" >> $(NETLIB_LAPACK_DIR)/make.inc
-ifeq ($(F_COMPILER), GFORTRAN)
-	-@echo "TIMER       = INT_ETIME" >> $(NETLIB_LAPACK_DIR)/make.inc
-ifdef SMP
-ifeq ($(OSNAME), WINNT)
-	-@echo "LOADER      = $(FC)" >> $(NETLIB_LAPACK_DIR)/make.inc
-else
-	-@echo "LOADER      = $(FC) -pthread" >> $(NETLIB_LAPACK_DIR)/make.inc
-endif
-else
-	-@echo "LOADER      = $(FC)" >> $(NETLIB_LAPACK_DIR)/make.inc
-endif
-else
-	-@echo "TIMER       = NONE" >> $(NETLIB_LAPACK_DIR)/make.inc
-	-@echo "LOADER      = $(FC)" >> $(NETLIB_LAPACK_DIR)/make.inc
-endif
-ifeq ($(BUILD_LAPACK_DEPRECATED), 1)
-	-@echo "BUILD_DEPRECATED      = 1" >> $(NETLIB_LAPACK_DIR)/make.inc
-endif
-	-@cat  make.inc >> $(NETLIB_LAPACK_DIR)/make.inc
-endif
-
-large.tgz :
-ifndef NOFORTRAN
-	if [ ! -a $< ]; then
-	-wget http://www.netlib.org/lapack/timing/large.tgz;
-	fi
-endif
-
-timing.tgz :
-ifndef NOFORTRAN
-	if [ ! -a $< ]; then
-	-wget http://www.netlib.org/lapack/timing/timing.tgz;
-	fi
-endif
-
-lapack-timing : large.tgz timing.tgz
-ifndef NOFORTRAN
-	(cd $(NETLIB_LAPACK_DIR); $(TAR) zxf ../timing.tgz TIMING)
-	(cd $(NETLIB_LAPACK_DIR)/TIMING; $(TAR) zxf ../../large.tgz )
-	$(MAKE) -C $(NETLIB_LAPACK_DIR)/TIMING
-endif
-
-
-lapack-test :
-	(cd $(NETLIB_LAPACK_DIR)/TESTING && rm -f x* *.out)
-	$(MAKE) -j 1 -C $(NETLIB_LAPACK_DIR)/TESTING xeigtstc  xeigtstd  xeigtsts  xeigtstz  xlintstc  xlintstd  xlintstds  xlintstrfd  xlintstrfz  xlintsts  xlintstz  xlintstzc xlintstrfs xlintstrfc
-ifneq ($(CROSS), 1)
-	( cd $(NETLIB_LAPACK_DIR)/INSTALL; ./testlsame; ./testslamch; ./testdlamch; \
-        ./testsecond; ./testdsecnd; ./testieee; ./testversion )
-	(cd $(NETLIB_LAPACK_DIR); ./lapack_testing.py -r )
-endif
-
-lapack-runtest:
-	( cd $(NETLIB_LAPACK_DIR)/INSTALL; ./testlsame; ./testslamch; ./testdlamch; \
-        ./testsecond; ./testdsecnd; ./testieee; ./testversion )
-	(cd $(NETLIB_LAPACK_DIR); ./lapack_testing.py -r )
-
-
-blas-test:
-	(cd $(NETLIB_LAPACK_DIR)/BLAS && rm -f x* *.out)
-	$(MAKE) -j 1 -C $(NETLIB_LAPACK_DIR) blas_testing
-	(cd $(NETLIB_LAPACK_DIR)/BLAS && cat *.out)
-
-
-dummy :
-
-install :
-	$(MAKE) -f Makefile.install install
-
-clean ::
-	@for d in $(SUBDIRS_ALL) ; \
-	do if test -d $$d; then \
-	  $(MAKE) -C $$d $(@F) || exit 1 ; \
-	fi; \
-	done
-#ifdef DYNAMIC_ARCH
-	@$(MAKE) -C kernel clean
-#endif
-	@$(MAKE) -C reference clean
-	@rm -f *.$(LIBSUFFIX) *.so *~ *.exe getarch getarch_2nd *.dll *.lib *.$(SUFFIX) *.dwf $(LIBPREFIX).$(LIBSUFFIX) $(LIBPREFIX)_p.$(LIBSUFFIX) $(LIBPREFIX).so.$(MAJOR_VERSION) *.lnk myconfig.h
-ifeq ($(OSNAME), Darwin)
-	@rm -rf getarch.dSYM getarch_2nd.dSYM
-endif
-	@rm -f Makefile.conf config.h Makefile_kernel.conf config_kernel.h st* *.dylib
-	@touch $(NETLIB_LAPACK_DIR)/make.inc
-	@$(MAKE) -C $(NETLIB_LAPACK_DIR) clean
-	@rm -f $(NETLIB_LAPACK_DIR)/make.inc $(NETLIB_LAPACK_DIR)/lapacke/include/lapacke_mangling.h
-	@$(MAKE) -C relapack clean
-	@rm -f *.grd Makefile.conf_last config_last.h
-	@(cd $(NETLIB_LAPACK_DIR)/TESTING && rm -f x* *.out testing_results.txt)
-	@echo Done.

Makefile.alpha

@@ -1,57 +0,0 @@
-CPP	= $(CC) -E
-RANLIB  = ranlib
-
-ifeq ($(LIBSUBARCH), EV4)
-LIBNAME		= $(LIBPREFIX)_ev4.a
-LIBNAME_P	= $(LIBPREFIX)_ev4_p.a
-endif
-
-ifeq ($(LIBSUBARCH), EV5)
-LIBNAME		= $(LIBPREFIX)_ev5.a
-LIBNAME_P	= $(LIBPREFIX)_ev5_p.a
-endif
-
-ifeq ($(LIBSUBARCH), EV6)
-LIBNAME		= $(LIBPREFIX)_ev6.a
-LIBNAME_P	= $(LIBPREFIX)_ev6_p.a
-endif
-
-ifneq ($(COMPILER), NATIVE)
-# GCC User
-ifeq ($(LIBSUBARCH), EV4)
-OPTION += -DEV4 -mcpu=ev4
-endif
-ifeq ($(LIBSUBARCH), EV5)
-OPTION += -DEV5 -mcpu=ev5
-endif
-ifeq ($(LIBSUBARCH), EV6)
-OPTION += -DEV6 -mcpu=ev6
-endif
-else
-# Compaq Compiler User
-ifeq ($(LIBSUBARCH), EV4)
-OPTION += -DEV4 -tune ev4 -arch ev4
-endif
-ifeq ($(LIBSUBARCH), EV5)
-OPTION += -DEV5 -tune ev5 -arch ev5
-endif
-ifeq ($(LIBSUBARCH), EV6)
-OPTION += -DEV6 -tune ev6 -arch ev6
-endif
-endif
-
-ifeq ($(F_COMPILER), GFORTRAN)
-FCOMMON_OPT	+= -mieee
-endif
-
-ifeq ($(F_COMPILER), G77)
-FCOMMON_OPT	+= -mieee
-endif
-
-ifndef SMP
-LIBCXML		= -lcxml  -lots -lm
-LIBATLAS	= -L/usr/lib/atlas3.7.8 -lf77blas -latlas -lm
-else
-LIBCXML		= -lcxmlp -lots -lm
-LIBATLAS	= -L/usr/lib/atlas3.7.8p -llapack -lptcblas -lptf77blas -latlas -lpthread -lm
-endif

Makefile.arm

@@ -1,19 +0,0 @@
-ifeq ($(CORE), $(filter $(CORE),ARMV7 CORTEXA9 CORTEXA15))
-ifeq ($(OSNAME), Android)
-CCOMMON_OPT += -mfpu=neon  -march=armv7-a
-FCOMMON_OPT += -mfpu=neon  -march=armv7-a
-else
-CCOMMON_OPT += -mfpu=vfpv3 -march=armv7-a
-FCOMMON_OPT += -mfpu=vfpv3 -march=armv7-a
-endif
-endif
-
-ifeq ($(CORE), ARMV6)
-CCOMMON_OPT += -mfpu=vfp -march=armv6
-FCOMMON_OPT += -mfpu=vfp -march=armv6
-endif
-
-ifeq ($(CORE), ARMV5)
-CCOMMON_OPT += -march=armv5
-FCOMMON_OPT += -march=armv5
-endif

Makefile.arm64

@@ -1,25 +0,0 @@
-
-ifeq ($(CORE), ARMV8)
-CCOMMON_OPT += -march=armv8-a
-FCOMMON_OPT += -march=armv8-a
-endif
-
-ifeq ($(CORE), CORTEXA57)
-CCOMMON_OPT += -march=armv8-a+crc+crypto+fp+simd -mtune=cortex-a57
-FCOMMON_OPT += -march=armv8-a+crc+crypto+fp+simd -mtune=cortex-a57
-endif
-
-ifeq ($(CORE), VULCAN)
-CCOMMON_OPT += -mtune=vulcan -mcpu=vulcan
-FCOMMON_OPT += -mtune=vulcan -mcpu=vulcan
-endif
-
-ifeq ($(CORE), THUNDERX)
-CCOMMON_OPT += -mtune=thunderx -mcpu=thunderx
-FCOMMON_OPT += -mtune=thunderx -mcpu=thunderx
-endif
-
-ifeq ($(CORE), THUNDERX2T99)
-CCOMMON_OPT += -mtune=thunderx2t99 -mcpu=thunderx2t99
-FCOMMON_OPT += -mtune=thunderx2t99 -mcpu=thunderx2t99
-endif

Makefile.generic

@@ -1 +0,0 @@
-COPT	= -Wall -O2 # -DGEMMTEST

Makefile.ia64

@@ -1,22 +0,0 @@
-CCOMMON_COPT += # -DUSE64BITINT  # -DGEMMTEST
-
-# CCOMMON_OPT	 += -DPARAMTEST
-FLAMEPATH	= $(HOME)/flame/lib/ia64
-
-ifndef SMP
-LIBMKL		= -L$(MKLPATH)/64 -Wl,-rpath,$(MKLPATH)/64 -lmkl_intel_lp64 -lmkl_sequential -lmkl_core -lguide -lpthread -lm
-else
-LIBMKL		= -L$(MKLPATH)/64 -Wl,-rpath,$(MKLPATH)/64 -lmkl_intel_lp64 -lmkl_intel_thread -lmkl_core -lguide -lpthread -lm
-endif
-
-LIBFLAME	= -L$(FLAMEPATH) -llapack2flame -lflame $(TOPDIR)/$(LIBNAME) -lgfortran -lpthread -lm
-
-LIBMLIB		= ../../level1/others/libmisc.a -L/opt/intel/fc/ia64/9.1.040/lib -L/opt/mlib/lib \
-		 -llapack -lguide -lifcore -lm -lpthread
-LIBSCSL		= -L/opt/scsl/1.4.1.0/lib -Wl,-rpath,/opt/scsl/1.4.1.0/lib -lscs
-
-ifndef SMP
-LIBATLAS	= -L/usr/lib/atlas3.6.0 -lf77blas -latlas -lm
-else
-LIBATLAS	= -L$(HOME)/misc/lib -L/usr/lib/atlas3.6.0p -llapack -lptcblas -lptf77blas -latlas -lpthread -lm
-endif

Makefile.install

@@ -1,142 +0,0 @@
-TOPDIR	= .
-export GOTOBLAS_MAKEFILE = 1
--include $(TOPDIR)/Makefile.conf_last
-include ./Makefile.system
-
-PREFIX ?= /opt/OpenBLAS
-
-OPENBLAS_INCLUDE_DIR := $(PREFIX)/include
-OPENBLAS_LIBRARY_DIR := $(PREFIX)/lib
-OPENBLAS_BINARY_DIR := $(PREFIX)/bin
-OPENBLAS_BUILD_DIR := $(CURDIR)
-OPENBLAS_CMAKE_DIR := $(OPENBLAS_LIBRARY_DIR)/cmake/openblas
-OPENBLAS_CMAKE_CONFIG := OpenBLASConfig.cmake
-OPENBLAS_CMAKE_CONFIG_VERSION := OpenBLASConfigVersion.cmake
-OPENBLAS_PKGCONFIG_DIR := $(OPENBLAS_LIBRARY_DIR)/pkgconfig
-
-.PHONY : install
-.NOTPARALLEL : install
-
-lib.grd :
-	$(error OpenBLAS: Please run "make" firstly)
-
-install : 	lib.grd
-	@-mkdir -p "$(DESTDIR)$(PREFIX)"
-	@-mkdir -p "$(DESTDIR)$(OPENBLAS_INCLUDE_DIR)"
-	@-mkdir -p "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)"
-	@-mkdir -p "$(DESTDIR)$(OPENBLAS_BINARY_DIR)"
-	@-mkdir -p "$(DESTDIR)$(OPENBLAS_CMAKE_DIR)"
-	@-mkdir -p "$(DESTDIR)$(OPENBLAS_PKGCONFIG_DIR)"
-	@echo Generating openblas_config.h in $(DESTDIR)$(OPENBLAS_INCLUDE_DIR)
-#for inc
-	@echo \#ifndef OPENBLAS_CONFIG_H > "$(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/openblas_config.h"
-	@echo \#define OPENBLAS_CONFIG_H >> "$(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/openblas_config.h"
-	@$(AWK) 'NF {print $$1, "OPENBLAS_"$$2, $$3}' config_last.h >> "$(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/openblas_config.h"
-	@echo \#define OPENBLAS_VERSION \" OpenBLAS $(VERSION) \" >> "$(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/openblas_config.h"
-	@cat openblas_config_template.h >> "$(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/openblas_config.h"
-	@echo \#endif  \/\* OPENBLAS_CONFIG_H \*\/ >> "$(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/openblas_config.h"
-
-	@echo Generating f77blas.h in $(DESTDIR)$(OPENBLAS_INCLUDE_DIR)
-	@echo \#ifndef OPENBLAS_F77BLAS_H > "$(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/f77blas.h"
-	@echo \#define OPENBLAS_F77BLAS_H >> "$(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/f77blas.h"
-	@echo \#include \"openblas_config.h\" >> "$(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/f77blas.h"
-	@cat common_interface.h >> "$(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/f77blas.h"
-	@echo \#endif >> "$(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/f77blas.h"
-
-ifndef NO_CBLAS
-	@echo Generating cblas.h in $(DESTDIR)$(OPENBLAS_INCLUDE_DIR)
-	@sed 's/common/openblas_config/g' cblas.h > "$(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/cblas.h"
-endif
-
-ifndef NO_LAPACKE
-	@echo Copying LAPACKE header files to $(DESTDIR)$(OPENBLAS_INCLUDE_DIR)
-	@-install -pm644 $(NETLIB_LAPACK_DIR)/LAPACKE/include/lapacke.h "$(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/lapacke.h"
-	@-install -pm644 $(NETLIB_LAPACK_DIR)/LAPACKE/include/lapacke_config.h "$(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/lapacke_config.h"
-	@-install -pm644 $(NETLIB_LAPACK_DIR)/LAPACKE/include/lapacke_mangling_with_flags.h.in "$(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/lapacke_mangling.h"
-	@-install -pm644 $(NETLIB_LAPACK_DIR)/LAPACKE/include/lapacke_utils.h "$(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/lapacke_utils.h"
-endif
-
-#for install static library
-ifndef NO_STATIC
-	@echo Copying the static library to $(DESTDIR)$(OPENBLAS_LIBRARY_DIR)
-	@install -pm644 $(LIBNAME) "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)"
-	@cd "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)" ; \
-	ln -fs $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX)
-endif
-#for install shared library
-ifndef NO_SHARED
-	@echo Copying the shared library to $(DESTDIR)$(OPENBLAS_LIBRARY_DIR)
-ifeq ($(OSNAME), $(filter $(OSNAME),Linux SunOS Android))
-	@install -pm755 $(LIBSONAME) "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)"
-	@cd "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)" ; \
-	ln -fs $(LIBSONAME) $(LIBPREFIX).so ; \
-	ln -fs $(LIBSONAME) $(LIBPREFIX).so.$(MAJOR_VERSION)
-endif
-ifeq ($(OSNAME), FreeBSD)
-	@cp $(LIBSONAME) "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)"
-	@cd "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)" ; \
-	ln -fs $(LIBSONAME) $(LIBPREFIX).so
-endif
-ifeq ($(OSNAME), NetBSD)
-	@cp $(LIBSONAME) "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)"
-	@cd "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)" ; \
-	ln -fs $(LIBSONAME) $(LIBPREFIX).so
-endif
-ifeq ($(OSNAME), Darwin)
-	@-cp $(LIBDYNNAME) "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)"
-	@-install_name_tool -id "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)/$(LIBDYNNAME)" "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)/$(LIBDYNNAME)"
-	@cd "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)" ; \
-	ln -fs $(LIBDYNNAME) $(LIBPREFIX).dylib
-endif
-ifeq ($(OSNAME), WINNT)
-	@-cp $(LIBDLLNAME) "$(DESTDIR)$(OPENBLAS_BINARY_DIR)"
-	@-cp $(LIBDLLNAME).a "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)"
-endif
-ifeq ($(OSNAME), CYGWIN_NT)
-	@-cp $(LIBDLLNAME) "$(DESTDIR)$(OPENBLAS_BINARY_DIR)"
-endif
-endif
-
-
-#Generating openblas.pc
-	@echo Generating openblas.pc in $(DESTDIR)$(OPENBLAS_PKGCONFIG_DIR)
-	@echo 'libdir='$(OPENBLAS_LIBRARY_DIR) >> $(DESTDIR)$(OPENBLAS_PKGCONFIG_DIR)/openblas.pc
-	@echo 'includedir='$(OPENBLAS_INCLUDE_DIR) >> $(DESTDIR)$(OPENBLAS_PKGCONFIG_DIR)/openblas.pc
-	@echo 'version='$(VERSION) >> $(DESTDIR)$(OPENBLAS_PKGCONFIG_DIR)/openblas.pc
-	@echo 'extralib='$(EXTRALIB) >> $(DESTDIR)$(OPENBLAS_PKGCONFIG_DIR)/openblas.pc
-	@cat openblas.pc.in >> $(DESTDIR)$(OPENBLAS_PKGCONFIG_DIR)/openblas.pc
-
-
-#Generating OpenBLASConfig.cmake
-	@echo Generating $(OPENBLAS_CMAKE_CONFIG) in $(DESTDIR)$(OPENBLAS_CMAKE_DIR)
-	@echo "SET(OpenBLAS_VERSION \"${VERSION}\")" > "$(DESTDIR)$(OPENBLAS_CMAKE_DIR)/$(OPENBLAS_CMAKE_CONFIG)"
-	@echo "SET(OpenBLAS_INCLUDE_DIRS ${OPENBLAS_INCLUDE_DIR})" >> "$(DESTDIR)$(OPENBLAS_CMAKE_DIR)/$(OPENBLAS_CMAKE_CONFIG)"
-
-ifndef NO_SHARED
-#ifeq logical or
-ifeq ($(OSNAME), $(filter $(OSNAME),Linux FreeBSD NetBSD))
-	@echo "SET(OpenBLAS_LIBRARIES ${OPENBLAS_LIBRARY_DIR}/$(LIBPREFIX).so)" >> "$(DESTDIR)$(OPENBLAS_CMAKE_DIR)/$(OPENBLAS_CMAKE_CONFIG)"
-endif
-ifeq ($(OSNAME), $(filter $(OSNAME),WINNT CYGWIN_NT))
-	@echo "SET(OpenBLAS_LIBRARIES ${OPENBLAS_BINARY_DIR}/$(LIBDLLNAME))" >> "$(DESTDIR)$(OPENBLAS_CMAKE_DIR)/$(OPENBLAS_CMAKE_CONFIG)"
-endif
-ifeq ($(OSNAME), Darwin)
-	@echo "SET(OpenBLAS_LIBRARIES ${OPENBLAS_LIBRARY_DIR}/$(LIBPREFIX).dylib)" >> "$(DESTDIR)$(OPENBLAS_CMAKE_DIR)/$(OPENBLAS_CMAKE_CONFIG)"
-endif
-else
-#only static
-	@echo "SET(OpenBLAS_LIBRARIES ${OPENBLAS_LIBRARY_DIR}/$(LIBPREFIX).$(LIBSUFFIX))" >> "$(DESTDIR)$(OPENBLAS_CMAKE_DIR)/$(OPENBLAS_CMAKE_CONFIG)"
-endif
-#Generating OpenBLASConfigVersion.cmake
-	@echo Generating $(OPENBLAS_CMAKE_CONFIG_VERSION) in $(DESTDIR)$(OPENBLAS_CMAKE_DIR)
-	@echo "set (PACKAGE_VERSION \"${VERSION}\")" > "$(DESTDIR)$(OPENBLAS_CMAKE_DIR)/$(OPENBLAS_CMAKE_CONFIG_VERSION)"
-	@echo "if (PACKAGE_VERSION VERSION_LESS PACKAGE_FIND_VERSION)" >> "$(DESTDIR)$(OPENBLAS_CMAKE_DIR)/$(OPENBLAS_CMAKE_CONFIG_VERSION)"
-	@echo "  set (PACKAGE_VERSION_COMPATIBLE FALSE)" >> "$(DESTDIR)$(OPENBLAS_CMAKE_DIR)/$(OPENBLAS_CMAKE_CONFIG_VERSION)"
-	@echo "else ()" >> "$(DESTDIR)$(OPENBLAS_CMAKE_DIR)/$(OPENBLAS_CMAKE_CONFIG_VERSION)"
-	@echo "  set (PACKAGE_VERSION_COMPATIBLE TRUE)" >> "$(DESTDIR)$(OPENBLAS_CMAKE_DIR)/$(OPENBLAS_CMAKE_CONFIG_VERSION)"
-	@echo "  if (PACKAGE_FIND_VERSION STREQUAL PACKAGE_VERSION)" >> "$(DESTDIR)$(OPENBLAS_CMAKE_DIR)/$(OPENBLAS_CMAKE_CONFIG_VERSION)"
-	@echo "    set (PACKAGE_VERSION_EXACT TRUE)" >> "$(DESTDIR)$(OPENBLAS_CMAKE_DIR)/$(OPENBLAS_CMAKE_CONFIG_VERSION)"
-	@echo "  endif ()" >> "$(DESTDIR)$(OPENBLAS_CMAKE_DIR)/$(OPENBLAS_CMAKE_CONFIG_VERSION)"
-	@echo "endif ()" >> "$(DESTDIR)$(OPENBLAS_CMAKE_DIR)/$(OPENBLAS_CMAKE_CONFIG_VERSION)"
-	@echo Install OK!
-

Makefile.mips

@@ -1,3 +0,0 @@
-ifdef BINARY64
-else
-endif

Makefile.mips64

@@ -1,3 +0,0 @@
-ifdef BINARY64
-else
-endif

Makefile.power

@@ -1,114 +0,0 @@
-
-ifdef USE_THREAD
-ifeq ($(USE_THREAD), 0)
-USE_OPENMP = 0
-else
-USE_OPENMP = 1
-endif
-else
-USE_OPENMP = 1
-endif
-
-
-
-ifeq ($(CORE), POWER8)
-ifeq ($(USE_OPENMP), 1)
-COMMON_OPT += -Ofast -mcpu=power8 -mtune=power8 -mvsx -malign-power -DUSE_OPENMP -fno-fast-math -fopenmp
-FCOMMON_OPT += -O2 -frecursive -mcpu=power8 -mtune=power8 -malign-power -DUSE_OPENMP -fno-fast-math -fopenmp
-else
-COMMON_OPT += -Ofast -mcpu=power8 -mtune=power8 -mvsx -malign-power -fno-fast-math
-FCOMMON_OPT += -O2 -frecursive -mcpu=power8 -mtune=power8 -malign-power -fno-fast-math
-endif
-endif
-
-
-FLAMEPATH	= $(HOME)/flame/lib
-
-#ifeq ($(CORE), CELL)
-#CELL_SDK_ROOT = /opt/IBM/cell-sdk-1.1/sysroot/usr
-#SPU_CC	         = spu-gcc
-#EXTRALIB	+= -lspe
-#endif
-
-ifeq ($(OSNAME), Linux)
-ifdef BINARY64
-# COMPILER_PREFIX = powerpc64-linux-
-else
-# COMPILER_PREFIX = powerpc-linux-
-endif
-endif
-
-#Either uncomment below line or run make with `USE_MASS=1` to enable support of MASS library
-#USE_MASS = 1
-
-ifeq ($(USE_MASS), 1)
-# Path to MASS libs, change it if the libs are installed at any other location
-MASSPATH        = /opt/ibm/xlmass/8.1.5/lib
-COMMON_OPT     += -mveclibabi=mass -ftree-vectorize -funsafe-math-optimizations -DUSE_MASS
-EXTRALIB       += -L$(MASSPATH) -lmass -lmassvp8 -lmass_simdp8
-endif
-
-ifdef BINARY64
-
-
-ifeq ($(OSNAME), AIX)
-CCOMMON_OPT	+= -mpowerpc64 -maix64
-ifeq ($(COMPILER_F77), g77)
-FCOMMON_OPT	+= -mpowerpc64 -maix64
-endif
-ifeq ($(COMPILER_F77), xlf)
-FCOMMON_OPT	+= -q64
-endif
-ARFLAGS		= -X 64
-ASFLAGS		= -a64
-endif
-else
-ifeq ($(OSNAME), AIX)
-CCOMMON_OPT	+= -Wa,-a32
-ARFLAGS		= -X 32
-ASFLAGS		= -a32
-endif
-endif
-
-# CCOMMON_OPT	+= -maltivec -mabi=altivec
-
-LIBFLAME	= -L$(FLAMEPATH) -llapack2flame -lflame-lapack -lflame-base $(LIBS)
-
-ifeq ($(OSNAME), Darwin)
-CCOMMON_OPT	+= -force_cpusubtype_ALL
-endif
-
-
-ifndef BINARY64
-ifeq ($(OSNAME), Linux)
-ESSLPATH = -L/opt/ibmcmp/lib -L/opt/ibmcmp/xlf/11.1/lib -Wl,-rpath,/opt/ibmcmp/lib -Wl,-rpath,/opt/ibmcmp/xlf/11.1/lib -lxlf90_r -lxlomp_ser -lxlfmath -lxl -lpthread
-else
-ESSLPATH = -lxlf90_r
-endif
-
-
-LIBVECLIB	= -framework VecLib
-ifndef SMP
-LIBATLAS	= -L/usr/lib/atlas3.7.11 -lf77blas -latlas -lg2c -lm
-LIBESSL		= -lessl $(ESSLPATH) ../../level1/others/libmisc.a -lm
-else
-LIBATLAS	= -L/usr/lib/atlas3.7.11p -lptf77blas -latlas -lm -lpthread
-LIBESSL		= -lesslsmp $(ESSLPATH)  ../../level1/others/libmisc.a -lm
-endif
-else
-ifeq ($(OSNAME), Linux)
-ESSLPATH = -L/opt/ibmcmp/lib64 -Wl,-rpath,/opt/ibmcmp/lib64 -L/opt/ibmcmp/xlf/11.1/lib64 -Wl,-rpath,/opt/ibmcmp/xlf/11.1/lib64 -lxlf90_r -lxlomp_ser
-else
-ESSLPATH = -lxlf90_r
-endif
-
-LIBVECLIB	= /System/Library/Frameworks/vecLib.framework/Versions/Current/vecLib
-
-ifndef SMP
-LIBATLAS	= -L/usr/lib64/atlas3.7.11  -lf77blas -latlas -lg2c -lm
-LIBESSL		= -lessl $(ESSLPATH) -lm
-else
-LIBATLAS	= -L/usr/lib64/atlas3.7.11p -lptf77blas -latlas -lm -lpthread
-LIBESSL		= -lesslsmp $(ESSLPATH) -lxlsmp -lm
-endif
-endif

Makefile.prebuild

@@ -1,63 +0,0 @@
-# This is triggered by Makefile.system and runs before any of the code is built.
-
-export BINARY
-export USE_OPENMP
-
-ifdef TARGET_CORE
-TARGET_MAKE = Makefile_kernel.conf
-TARGET_CONF = config_kernel.h
-else
-TARGET_MAKE = Makefile.conf
-TARGET_CONF = config.h
-endif
-
-# CPUIDEMU = ../../cpuid/table.o
-
-ifdef CPUIDEMU
-EXFLAGS = -DCPUIDEMU -DVENDOR=99
-endif
-
-ifeq ($(TARGET), P5600)
-TARGET_FLAGS = -mips32r5
-endif
-
-ifeq ($(TARGET), I6400)
-TARGET_FLAGS = -mips64r6
-endif
-
-ifeq ($(TARGET), P6600)
-TARGET_FLAGS = -mips64r6
-endif
-
-all: getarch_2nd
-	./getarch_2nd  0 >> $(TARGET_MAKE)
-	./getarch_2nd  1 >> $(TARGET_CONF)
-
-config.h : c_check f_check getarch
-	perl ./c_check $(TARGET_MAKE) $(TARGET_CONF) $(CC) $(TARGET_FLAGS)
-ifneq ($(ONLY_CBLAS), 1)
-	perl ./f_check $(TARGET_MAKE) $(TARGET_CONF) $(FC) $(TARGET_FLAGS)
-else
-#When we only build CBLAS, we set NOFORTRAN=2
-	echo "NOFORTRAN=2" >> $(TARGET_MAKE)
-	echo "NO_FBLAS=1" >> $(TARGET_MAKE)
-	echo "F_COMPILER=GFORTRAN"  >> $(TARGET_MAKE)
-	echo "BU=_"  >> $(TARGET_MAKE)
-	echo "#define BUNDERSCORE _" >> $(TARGET_CONF)
-	echo "#define NEEDBUNDERSCORE 1" >> $(TARGET_CONF)
-endif
-	./getarch 0 >> $(TARGET_MAKE)
-	./getarch 1 >> $(TARGET_CONF)
-
-
-getarch : getarch.c cpuid.S dummy $(CPUIDEMU)
-	$(HOSTCC) $(CFLAGS) $(EXFLAGS) -o $(@F) getarch.c cpuid.S $(CPUIDEMU)
-
-getarch_2nd : getarch_2nd.c config.h dummy
-ifndef TARGET_CORE
-	$(HOSTCC) -I. $(CFLAGS) -o $(@F) getarch_2nd.c
-else
-	$(HOSTCC) -I. $(CFLAGS) -DBUILD_KERNEL -o $(@F) getarch_2nd.c
-endif
-
-dummy:

Makefile.rule

@@ -1,193 +0,0 @@
-#
-#  Beginning of user configuration
-#
-
-# This library's version
-VERSION = 0.2.20
-
-# If you set the suffix, the library name will be libopenblas_$(LIBNAMESUFFIX).a
-# and libopenblas_$(LIBNAMESUFFIX).so. Meanwhile, the soname in shared library
-# is libopenblas_$(LIBNAMESUFFIX).so.0.
-# LIBNAMESUFFIX = omp
-
-# You can specify the target architecture, otherwise it's
-# automatically detected.
-# TARGET = PENRYN
-
-# If you want to support multiple architecture in one binary
-# DYNAMIC_ARCH = 1
-
-# C compiler including binary type(32bit / 64bit). Default is gcc.
-# Don't use Intel Compiler or PGI, it won't generate right codes as I expect.
-# CC = gcc
-
-# Fortran compiler. Default is g77.
-# FC = gfortran
-
-# Even you can specify cross compiler. Meanwhile, please set HOSTCC.
-
-# cross compiler for Windows
-# CC = x86_64-w64-mingw32-gcc
-# FC = x86_64-w64-mingw32-gfortran
-
-# cross compiler for 32bit ARM
-# CC = arm-linux-gnueabihf-gcc
-# FC = arm-linux-gnueabihf-gfortran
-
-# cross compiler for 64bit ARM
-# CC = aarch64-linux-gnu-gcc
-# FC = aarch64-linux-gnu-gfortran
-
-
-# If you use the cross compiler, please set this host compiler.
-# HOSTCC = gcc
-
-# If you need 32bit binary, define BINARY=32, otherwise define BINARY=64
-# BINARY=64
-
-# About threaded BLAS. It will be automatically detected if you don't
-# specify it.
-# For force setting for single threaded, specify USE_THREAD = 0
-# For force setting for multi  threaded, specify USE_THREAD = 1
-# USE_THREAD = 0
-
-# If you're going to use this library with OpenMP, please comment it in.
-# This flag is always set for POWER8. Don't modify the flag 
-# USE_OPENMP = 1
-
-# You can define maximum number of threads. Basically it should be
-# less than actual number of cores. If you don't specify one, it's
-# automatically detected by the the script.
-# NUM_THREADS = 24
-
-# if you don't need to install the static library, please comment it in.
-# NO_STATIC = 1
-
-# if you don't need generate the shared library, please comment it in.
-# NO_SHARED = 1
-
-# If you don't need CBLAS interface, please comment it in.
-# NO_CBLAS = 1
-
-# If you only want CBLAS interface without installing Fortran compiler,
-# please comment it in.
-# ONLY_CBLAS = 1
-
-# If you don't need LAPACK, please comment it in.
-# If you set NO_LAPACK=1, the library automatically sets NO_LAPACKE=1.
-# NO_LAPACK = 1
-
-# If you don't need LAPACKE (C Interface to LAPACK), please comment it in.
-# NO_LAPACKE = 1
-
-# Build LAPACK Deprecated functions since LAPACK 3.6.0
-BUILD_LAPACK_DEPRECATED = 1
-
-# Build RecursiveLAPACK on top of LAPACK
-# BUILD_RELAPACK = 1
-
-# If you want to use legacy threaded Level 3 implementation.
-# USE_SIMPLE_THREADED_LEVEL3 = 1
-
-# If you want to drive whole 64bit region by BLAS. Not all Fortran
-# compiler supports this. It's safe to keep comment it out if you
-# are not sure(equivalent to "-i8" option).
-# INTERFACE64 = 1
-
-# Unfortunately most of kernel won't give us high quality buffer.
-# BLAS tries to find the best region before entering main function,
-# but it will consume time. If you don't like it, you can disable one.
-NO_WARMUP = 1
-
-# If you want to disable CPU/Memory affinity on Linux.
-#NO_AFFINITY = 1
-
-# if you are compiling for Linux and you have more than 16 numa nodes or more than 256 cpus
-# BIGNUMA = 1
-
-# Don't use AVX kernel on Sandy Bridge. It is compatible with old compilers
-# and OS. However, the performance is low.
-# NO_AVX = 1
-
-# Don't use Haswell optimizations if binutils is too old (e.g. RHEL6)
-# NO_AVX2 = 1
-
-# Don't use parallel make.
-# NO_PARALLEL_MAKE = 1
-
-# Force number of make jobs. The default is the number of logical CPU of the host.
-# This is particularly useful when using distcc.
-# A negative value will disable adding a -j flag to make, allowing to use a parent
-# make -j value. This is useful to call OpenBLAS make from an other project
-# makefile
-# MAKE_NB_JOBS = 2
-
-# If you would like to know minute performance report of GotoBLAS.
-# FUNCTION_PROFILE = 1
-
-# Support for IEEE quad precision(it's *real* REAL*16)( under testing)
-# QUAD_PRECISION = 1
-
-# Theads are still working for a while after finishing BLAS operation
-# to reduce thread activate/deactivate overhead. You can determine
-# time out to improve performance. This number should be from 4 to 30
-# which corresponds to (1 << n) cycles. For example, if you set to 26,
-# thread will be running for (1 << 26) cycles(about 25ms on 3.0GHz
-# system). Also you can control this mumber by THREAD_TIMEOUT
-# CCOMMON_OPT	+= -DTHREAD_TIMEOUT=26
-
-# Using special device driver for mapping physically contigous memory
-# to the user space. If bigphysarea is enabled, it will use it.
-# DEVICEDRIVER_ALLOCATION = 1
-
-# If you need to synchronize FP CSR between threads (for x86/x86_64 only).
-# CONSISTENT_FPCSR = 1
-
-# If any gemm arguement m, n or k is less or equal this threshold, gemm will be execute
-# with single thread. You can use this flag to avoid the overhead of multi-threading
-# in small matrix sizes. The default value is 4.
-# GEMM_MULTITHREAD_THRESHOLD = 4
-
-# If you need santy check by comparing reference BLAS. It'll be very
-# slow (Not implemented yet).
-# SANITY_CHECK = 1
-
-# The installation directory.
-# PREFIX = /opt/OpenBLAS
-
-# Common Optimization Flag;
-# The default -O2 is enough.
-# Flags for POWER8 are defined in Makefile.power. Don't modify COMMON_OPT
-# COMMON_OPT = -O2
-
-# gfortran option for LAPACK
-# enable this flag only on 64bit Linux and if you need a thread safe lapack library
-# Flags for POWER8 are defined in Makefile.power. Don't modify FCOMMON_OPT
-# FCOMMON_OPT = -frecursive
-
-# Profiling flags
-COMMON_PROF = -pg
-
-# Build Debug version
-# DEBUG = 1
-
-# Set maximum stack allocation.
-# The default value is 2048. 0 disable stack allocation a may reduce GER and GEMV
-# performance. For details, https://github.com/xianyi/OpenBLAS/pull/482
-#
-# MAX_STACK_ALLOC = 0
-
-# Add a prefix or suffix to all exported symbol names in the shared library.
-# Avoid conflicts with other BLAS libraries, especially when using
-# 64 bit integer interfaces in OpenBLAS.
-# For details, https://github.com/xianyi/OpenBLAS/pull/459
-#
-# The same prefix and suffix are also added to the library name,
-# i.e. you get lib$(SYMBOLPREFIX)openblas$(SYMBOLSUFFIX) rather than libopenblas
-#
-# SYMBOLPREFIX=
-# SYMBOLSUFFIX=
-
-#
-#  End of user configuration
-#

Makefile.sparc

@@ -1,40 +0,0 @@
-CPP	= $(CC) -E
-RANLIB  = ranlib
-
-ifdef BINARY64
-
-CCOMMON_OPT += -mcpu=v9 -m64
-ifeq ($(COMPILER_F77), g77)
-FCOMMON_OPT += -mcpu=v9 -m64
-endif
-ifeq ($(COMPILER_F77), f90)
-FCOMMON_OPT += -xarch=v9
-endif
-else
-
-CCOMMON_OPT += -mcpu=v9
-
-ifeq ($(COMPILER_F77), g77)
-FCOMMON_OPT += -mcpu=v9
-endif
-ifeq ($(COMPILER_F77), f90)
-FCOMMON_OPT += -xarch=v8plusb
-endif
-
-endif
-
-LIBNAME		= $(LIBPREFIX).a
-
-ifndef SMP
-LIBCXML		= -L/opt/SUNWspro/lib/v9
-LIBATLAS	= -L$(HOME)/misc/lib -lf77blas -latlas -lm
-else
-LIBCXML		= -lcxmlp -lots -lm
-endif
-ifdef BINARY64
-LIBSUNPERF	= -L/opt/SUNWspro/lib/v9 -L/opt/SUNWspro/prod/lib/v9 \
-		-Wl,-R,/opt/SUNWspro/lib/v9 -lsunperf -lompstubs -lfui -lfsu -lsunmath
-else
-LIBSUNPERF	= -L/opt/SUNWspro/lib -L/opt/SUNWspro/prod/lib \
-		-Wl,-R,/opt/SUNWspro/lib -lsunperf -lompstubs -lfui -lfsu -lsunmath
-endif

Makefile.tail

@@ -1,618 +0,0 @@
-SBLASOBJS_P = $(SBLASOBJS:.$(SUFFIX)=.$(PSUFFIX))
-DBLASOBJS_P = $(DBLASOBJS:.$(SUFFIX)=.$(PSUFFIX))
-QBLASOBJS_P = $(QBLASOBJS:.$(SUFFIX)=.$(PSUFFIX))
-CBLASOBJS_P = $(CBLASOBJS:.$(SUFFIX)=.$(PSUFFIX))
-ZBLASOBJS_P = $(ZBLASOBJS:.$(SUFFIX)=.$(PSUFFIX))
-XBLASOBJS_P = $(XBLASOBJS:.$(SUFFIX)=.$(PSUFFIX))
-
-COMMONOBJS_P = $(COMMONOBJS:.$(SUFFIX)=.$(PSUFFIX))
-
-HPLOBJS_P   = $(HPLOBJS:.$(SUFFIX)=.$(PSUFFIX))
-
-BLASOBJS    = $(SBLASOBJS)   $(DBLASOBJS)   $(CBLASOBJS)   $(ZBLASOBJS)
-BLASOBJS_P  = $(SBLASOBJS_P) $(DBLASOBJS_P) $(CBLASOBJS_P) $(ZBLASOBJS_P)
-
-ifdef EXPRECISION
-BLASOBJS   += $(QBLASOBJS)   $(XBLASOBJS)
-BLASOBJS_P += $(QBLASOBJS_P) $(XBLASOBJS_P)
-endif
-
-ifdef QUAD_PRECISION
-BLASOBJS   += $(QBLASOBJS)   $(XBLASOBJS)
-BLASOBJS_P += $(QBLASOBJS_P) $(XBLASOBJS_P)
-endif
-
-$(SBLASOBJS) $(SBLASOBJS_P) : override CFLAGS += -UDOUBLE  -UCOMPLEX
-$(DBLASOBJS) $(DBLASOBJS_P) : override CFLAGS += -DDOUBLE  -UCOMPLEX
-$(QBLASOBJS) $(QBLASOBJS_P) : override CFLAGS += -DXDOUBLE -UCOMPLEX
-$(CBLASOBJS) $(CBLASOBJS_P) : override CFLAGS += -UDOUBLE  -DCOMPLEX
-$(ZBLASOBJS) $(ZBLASOBJS_P) : override CFLAGS += -DDOUBLE  -DCOMPLEX
-$(XBLASOBJS) $(XBLASOBJS_P) : override CFLAGS += -DXDOUBLE -DCOMPLEX
-
-$(SBLASOBJS_P) : override CFLAGS += -DPROFILE $(COMMON_PROF)
-$(DBLASOBJS_P) : override CFLAGS += -DPROFILE $(COMMON_PROF)
-$(QBLASOBJS_P) : override CFLAGS += -DPROFILE $(COMMON_PROF)
-$(CBLASOBJS_P) : override CFLAGS += -DPROFILE $(COMMON_PROF)
-$(ZBLASOBJS_P) : override CFLAGS += -DPROFILE $(COMMON_PROF)
-$(XBLASOBJS_P) : override CFLAGS += -DPROFILE $(COMMON_PROF)
-
-libs    :: $(BLASOBJS) $(COMMONOBJS)
-	$(AR) $(ARFLAGS) -ru $(TOPDIR)/$(LIBNAME) $^
-
-prof    :: $(BLASOBJS_P) $(COMMONOBJS_P)
-	$(AR) $(ARFLAGS) -ru $(TOPDIR)/$(LIBNAME_P) $^
-
-hpl	:: $(HPLOBJS) $(COMMONOBJS)
-	$(AR) $(ARFLAGS) -ru $(TOPDIR)/$(LIBNAME) $^
-
-hpl_p	:: $(HPLOBJS_P) $(COMMONOBJS_P)
-	$(AR) $(ARFLAGS) -ru $(TOPDIR)/$(LIBNAME_P) $^
-
-kernel :: $(BLASOBJS)
-	$(AR) $(ARFLAGS) -ru $(TOPDIR)/$(LIBNAME) $^
-
-commonlibs :: $(COMMONOBJS)
-	$(AR) $(ARFLAGS) -ru $(TOPDIR)/$(LIBNAME) $^
-
-commonprof :: $(COMMONOBJS_P)
-	$(AR) $(ARFLAGS) -ru $(TOPDIR)/$(LIBNAME_P) $^
-
-quick :
-	  $(MAKE) -C $(TOPDIR) libs
-
-bms.$(SUFFIX):bm.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -UDOUBLE -UCOMPLEX -c $< -o $(@F)
-
-bmd.$(SUFFIX):bm.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -DDOUBLE -UCOMPLEX -c $< -o $(@F)
-
-bmd-k.$(SUFFIX):bm-k.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -DDOUBLE -UCOMPLEX -c $< -o $(@F)
-
-ifdef QUAD_PRECISION
-bmq.$(SUFFIX):bmq.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -DXDOUBLE -UCOMPLEX -c $< -o $(@F)
-
-bmx.$(SUFFIX):bmx.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -DXDOUBLE -DCOMPLEX -c $< -o $(@F)
-else
-bmq.$(SUFFIX):bm.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -DXDOUBLE -UCOMPLEX -c $< -o $(@F)
-
-bmx.$(SUFFIX):bmz.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -DXDOUBLE -DCOMPLEX -c $< -o $(@F)
-endif
-
-bmc.$(SUFFIX):bmz.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -UDOUBLE -DCOMPLEX -c $< -o $(@F)
-
-bmz.$(SUFFIX):bmz.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -DDOUBLE -DCOMPLEX -c $< -o $(@F)
-
-bmd_nn.$(SUFFIX):bm_special.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -DDOUBLE -UCOMPLEX -DNN -c $< -o $(@F)
-
-bmd_nt.$(SUFFIX):bm_special.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -DDOUBLE -UCOMPLEX -DNT -c $< -o $(@F)
-
-bmd_tn.$(SUFFIX):bm_special.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -DDOUBLE -UCOMPLEX -DTN -c $< -o $(@F)
-
-bmd_tt.$(SUFFIX):bm_special.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -DDOUBLE -UCOMPLEX -DTT -c $< -o $(@F)
-
-bm-phy.$(SUFFIX):bm-phy.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -DDOUBLE -UCOMPLEX -c $< -o $(@F)
-
-bms.$(PSUFFIX):bm.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(PFLAGS) -UDOUBLE -UCOMPLEX -c $< -o $(@F)
-
-bmd.$(PSUFFIX):bm.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(PFLAGS) -DDOUBLE -UCOMPLEX -c $< -o $(@F)
-
-ifdef QUAD_PRECISION
-bmq.$(PSUFFIX):bmq.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(PFLAGS) -DXDOUBLE -UCOMPLEX -c $< -o $(@F)
-
-bmx.$(PSUFFIX):bmx.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(PFLAGS) -DXDOUBLE -DCOMPLEX -c $< -o $(@F)
-else
-bmq.$(PSUFFIX):bm.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(PFLAGS) -DXDOUBLE -UCOMPLEX -c $< -o $(@F)
-
-bmx.$(PSUFFIX):bmz.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(PFLAGS) -DXDOUBLE -DCOMPLEX -c $< -o $(@F)
-endif
-
-bmc.$(PSUFFIX):bmz.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(PFLAGS) -UDOUBLE -DCOMPLEX -c $< -o $(@F)
-
-bmz.$(PSUFFIX):bmz.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(PFLAGS) -DDOUBLE -DCOMPLEX -c $< -o $(@F)
-
-bms : bms.$(SUFFIX) $(SBLASOBJS) $(COMMONOBJS) $(SOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-bmd : bmd.$(SUFFIX) $(DBLASOBJS) $(COMMONOBJS) $(DOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB) -lm
-
-bmd-k : bmd-k.$(SUFFIX) $(DBLASOBJS) $(COMMONOBJS) $(DOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB) -lm
-
-bmq : bmq.$(SUFFIX) $(QBLASOBJS) $(COMMONOBJS) $(QOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-bmc : bmc.$(SUFFIX) $(CBLASOBJS) $(COMMONOBJS) $(COBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB) $(FEXTRALIB)
-
-bmz : bmz.$(SUFFIX) $(ZBLASOBJS) $(COMMONOBJS) $(ZOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-bmx : bmx.$(SUFFIX) $(XBLASOBJS) $(COMMONOBJS) $(XOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-bmd_nn : bmd_nn.$(SUFFIX) $(DBLASOBJS) $(COMMONOBJS) $(DOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-bmd_nt : bmd_nt.$(SUFFIX) $(DBLASOBJS) $(COMMONOBJS) $(DOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-bmd_tn : bmd_tn.$(SUFFIX) $(DBLASOBJS) $(COMMONOBJS) $(DOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-bmd_tt : bmd_tt.$(SUFFIX) $(DBLASOBJS) $(COMMONOBJS) $(DOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-bm-phy:bm-phy.$(SUFFIX) $(DBLASOBJS) $(COMMONOBJS) $(DOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-bmcc	: bmcc.$(SUFFIX) $(CBLASOBJS) $(COMMONOBJS) $(COBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-bmzc	: bmzc.$(SUFFIX) $(ZBLASOBJS) $(COMMONOBJS) $(ZOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-bms.prof : bms.$(PSUFFIX) $(SBLASOBJS_P) $(COMMONOBJS_P) $(SOBJS) $(OBJS) $(LIBS_P)
-	$(CC) -o $(@F) $(PFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-bmd.prof : bmd.$(PSUFFIX) $(DBLASOBJS_P) $(COMMONOBJS_P) $(DOBJS) $(OBJS) $(LIBS_P)
-	$(CC) -o $(@F) $(PFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-bmq.prof : bmq.$(PSUFFIX) $(QBLASOBJS_P) $(COMMONOBJS_P) $(QOBJS) $(OBJS) $(LIBS_P)
-	$(CC) -o $(@F) $(PFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-bmc.prof : bmc.$(PSUFFIX) $(CBLASOBJS_P) $(COMMONOBJS) $(COBJS) $(OBJS) $(LIBS_P)
-	$(CC) -o $(@F) $(PFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-bmz.prof : bmz.$(PSUFFIX) $(ZBLASOBJS_P) $(COMMONOBJS) $(ZOBJS) $(OBJS) $(LIBS_P)
-	$(CC) -o $(@F) $(PFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-bmx.prof : bmz.$(PSUFFIX) $(XBLASOBJS_P) $(COMMONOBJS) $(XOBJS) $(OBJS) $(LIBS_P)
-	$(CC) -o $(@F) $(PFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-bms.cxml : bms.$(SUFFIX) $(SOBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBCXML)
-
-bmd.cxml : bmd.$(SUFFIX) $(DOBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBCXML)
-
-bmc.cxml : bmc.$(SUFFIX) $(COBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBCXML)
-
-bmz.cxml : bmz.$(SUFFIX) $(ZOBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBCXML)
-
-bms.scsl : bms.$(SUFFIX) $(SOBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBSCSL)
-
-bmd.scsl : bmd.$(SUFFIX) $(DOBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBSCSL)
-
-bmc.scsl : bmc.$(SUFFIX) $(COBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBSCSL)
-
-bmz.scsl : bmz.$(SUFFIX) $(ZOBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBSCSL)
-
-bms.acml : bms.$(SUFFIX) $(SOBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBACML)
-
-bmd.acml : bmd.$(SUFFIX) $(DOBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBACML)
-
-bmc.acml : bmc.$(SUFFIX) $(COBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBACML)
-
-bmz.acml : bmz.$(SUFFIX) $(ZOBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBACML)
-
-bms.sun : bms.$(SUFFIX) $(SOBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBSUNPERF) $(EXTRALIB) $(CEXTRALIB)
-
-bmd.sun : bmd.$(SUFFIX) $(DOBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBSUNPERF) $(EXTRALIB) $(CEXTRALIB)
-
-bmc.sun : bmc.$(SUFFIX) $(COBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBSUNPERF) $(EXTRALIB) $(CEXTRALIB)
-
-bmz.sun : bmz.$(SUFFIX) $(ZOBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBSUNPERF) $(EXTRALIB) $(CEXTRALIB)
-
-bms.atlas : bms.$(SUFFIX) $(SOBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBATLAS)
-
-bmd.atlas : bmd.$(SUFFIX) $(DOBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBATLAS)
-
-bmc.atlas : bmc.$(SUFFIX) $(COBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBATLAS)
-
-bmz.atlas : bmz.$(SUFFIX) $(ZOBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBATLAS)
-
-bms.essl : bms.$(SUFFIX) $(SOBJS) $(OBJS)
-	$(CC) $(FCOMMON_OPT) -o $(@F) $^  $(LIBESSL)
-
-bmd.essl : bmd.$(SUFFIX) $(DOBJS) $(OBJS)
-	$(CC) $(CCOMMON_OPT) -o $(@F) $^  $(LIBESSL)
-
-bmc.essl : bmc.$(SUFFIX) $(COBJS) $(OBJS)
-	$(F77) $(CCOMMON_OPT) -o $(@F) $^  $(LIBESSL)
-
-bmz.essl : bmz.$(SUFFIX) $(ZOBJS) $(OBJS)
-	$(CC) $(CCOMMON_OPT) -o $(@F) $^  $(LIBESSL)
-
-bms.flame : bms.$(SUFFIX) $(SOBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBFLAME)
-
-bmd.flame : bmd.$(SUFFIX) $(DOBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBFLAME)
-
-bmc.flame : bmc.$(SUFFIX) $(COBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBFLAME)
-
-bmz.flame : bmz.$(SUFFIX) $(ZOBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBFLAME)
-
-bms.flame.prof : bms.$(SUFFIX) $(SOBJS) $(OBJS_P)
-	$(F77) -o $(@F) $(PFLAGS) $^  $(LIBFLAME)
-
-bmd.flame.prof : bmd.$(SUFFIX) $(DOBJS) $(OBJS_P)
-	$(F77) -o $(@F) $(PFLAGS) $^  $(LIBFLAME)
-
-bmc.flame.prof : bmc.$(SUFFIX) $(COBJS) $(OBJS_P)
-	$(F77) -o $(@F) $(PFLAGS) $^  $(LIBFLAME)
-
-bmz.flame.prof : bmz.$(SUFFIX) $(ZOBJS) $(OBJS_P)
-	$(F77) -o $(@F) $(PFLAGS) $^  $(LIBFLAME)
-
-bms.mkl : bms.$(SUFFIX) $(SOBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBMKL) $(EXTRALIB) $(CEXTRALIB)
-
-bmd.mkl : bmd.$(SUFFIX) $(DOBJS) $(OBJS)
-	$(CC) -static -o $(@F) $(CFLAGS) $^  $(LIBMKL) $(EXTRALIB) $(CEXTRALIB)
-
-bmc.mkl : bmc.$(SUFFIX) $(COBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBMKL) $(EXTRALIB) $(CEXTRALIB)
-
-bmz.mkl : bmz.$(SUFFIX) $(ZOBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBMKL) $(EXTRALIB) $(CEXTRALIB)
-
-bmq.mkl : bmq.$(SUFFIX) $(QOBJS) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBMKL)  $(EXTRALIB) $(CEXTRALIB)
-
-bms.mkl.prof : bms.$(PSUFFIX) $(SOBJS) $(OBJS)
-	$(CC) -o $(@F) $(PFLAGS) $^  $(LIBMKL)
-
-bmd.mkl.prof : bmd.$(PSUFFIX) $(DOBJS) $(OBJS)
-	$(CC) -o $(@F) $(PFLAGS) $^  $(LIBMKL)
-
-bmc.mkl.prof : bmc.$(PSUFFIX) $(COBJS) $(OBJS)
-	$(CC) -o $(@F) $(PFLAGS) $^  $(LIBMKL)
-
-bmz.mkl.prof : bmz.$(PSUFFIX) $(ZOBJS) $(OBJS)
-	$(CC) -o $(@F) $(PFLAGS) $^  $(LIBMKL)
-
-bms.mlib : bms.$(SUFFIX) $(SOBJS) $(OBJS)
-	$(F77) -o $(@F) $(CFLAGS) $^  $(LIBMLIB)
-
-bmd.mlib : bmd.$(SUFFIX) $(DOBJS) $(OBJS)
-	$(F77) -o $(@F) $(CFLAGS) $^  $(LIBMLIB)
-
-bmc.mlib : bmc.$(SUFFIX) $(COBJS) $(OBJS)
-	$(F77) -o $(@F) $(CFLAGS) $^  $(LIBMLIB)
-
-bmz.mlib : bmz.$(SUFFIX) $(ZOBJS) $(OBJS)
-	$(F77) -o $(@F) $(CFLAGS) $^  $(LIBMLIB)
-
-bms.veclib : bms.$(SUFFIX) $(SOBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBVECLIB)
-
-bmd.veclib : bmd.$(SUFFIX) $(DOBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBVECLIB)
-
-bmc.veclib : bmc.$(SUFFIX) $(COBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBVECLIB)
-
-bmz.veclib : bmz.$(SUFFIX) $(ZOBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBVECLIB)
-
-bms.fuji : bms.$(SUFFIX) $(SOBJS)
-ifndef SMP
-	fcc -KV9FMADD -SSL2 -o $(@F) $^
-else
-	fcc -KV9FMADD -SSL2BLAMP -o $(@F) $^
-endif
-
-bmd.fuji : bmd.$(SUFFIX) $(DOBJS)
-ifndef SMP
-	fcc -KV9FMADD -SSL2 -o $(@F) $^
-else
-	fcc -KV9FMADD -SSL2BLAMP -o $(@F) $^
-endif
-
-bmc.fuji : bmc.$(SUFFIX) $(COBJS)
-ifndef SMP
-	fcc -KV9FMADD -SSL2 -o $(@F) $^
-else
-	fcc -KV9FMADD -SSL2BLAMP -o $(@F) $^
-endif
-
-bmz.fuji : bmz.$(SUFFIX) $(ZOBJS)
-ifndef SMP
-	fcc -KV9FMADD -SSL2 -o $(@F) $^
-else
-	fcc -KV9FMADD -SSL2BLAMP -o $(@F) $^
-endif
-
-bench: bench.$(SUFFIX)  $(BLASOBJS) $(COMMONOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(EXTRALIB) $(CEXTRALIB)
-
-bench.$(SUFFIX): bench.c
-	$(CC) -c -o $(@F) $(CFLAGS) $^
-
-bench_old: bench_old.$(SUFFIX) $(DBLASOBJS) $(COMMONOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(EXTRALIB) $(CEXTRALIB)
-
-kbench: kbench.$(SUFFIX) $(DBLASOBJS) $(COMMONOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(EXTRALIB) $(CEXTRALIB)
-
-prebench: prebench.$(SUFFIX) $(DBLASOBJS) $(COMMONOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(EXTRALIB) $(CEXTRALIB)
-
-kbench_rank_k: kbench_rank_k.$(SUFFIX) $(DBLASOBJS) $(COMMONOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(EXTRALIB) $(CEXTRALIB)
-
-smallbench: smallbench.$(SUFFIX)  $(BLASOBJS) $(COMMONOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(EXTRALIB) $(CEXTRALIB)
-
-smallbench.mkl: smallbench.$(SUFFIX)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBMKL) $(EXTRALIB) $(CEXTRALIB)
-
-bench.sun: bench.$(SUFFIX) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBSUNPERF) $(EXTRALIB) $(CEXTRALIB)
-
-bench.cxml: bench.$(SUFFIX) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBCXML)
-
-bench.atlas: bench.$(SUFFIX) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBATLAS)
-
-bench.essl: bench.$(SUFFIX) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBESSL) ../../level1/others/libmisc.$(LIBSUFFIX)
-
-bench.scsl: bench.$(SUFFIX) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBSCSL)  $(EXTRALIB) $(CEXTRALIB)
-
-bench.acml: bench.$(SUFFIX) $(OBJS)
-	$(CC) -static -o $(@F) $(CFLAGS) $^  $(LIBACML)  $(EXTRALIB) $(CEXTRALIB)
-
-bench.flame: bench.$(SUFFIX) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBFLAME)  $(EXTRALIB) $(CEXTRALIB)
-
-kbench.mkl: kbench.$(SUFFIX) $(OBJS)
-	$(CC) -static -o $(@F) $(CFLAGS) $^  $(LIBMKL) $(EXTRALIB) $(CEXTRALIB)
-
-bench.mkl: bench.$(SUFFIX) $(OBJS)
-	$(CC) -static -o $(@F) $(CFLAGS) $^  $(LIBMKL) $(EXTRALIB) $(CEXTRALIB)
-
-bench_old.mkl: bench_old.$(SUFFIX) $(OBJS)
-	$(CC) -static -o $(@F) $(CFLAGS) $^  $(LIBMKL) $(EXTRALIB) $(CEXTRALIB)
-
-bench.mlib: bench.$(SUFFIX) $(OBJS)
-	$(F77) -o $(@F) $(CFLAGS) $^  $(LIBMLIB)
-
-bench.veclib: bench.$(SUFFIX) $(OBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^  $(LIBVECLIB)
-
-params : params.$(SUFFIX) $(SBLASOBJS) $(COMMONOBJS) $(SOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-paramd : paramd.$(SUFFIX) $(DBLASOBJS) $(COMMONOBJS) $(DOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-paramq : paramq.$(SUFFIX) $(QBLASOBJS) $(COMMONOBJS) $(QOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-paramc : paramc.$(SUFFIX) $(CBLASOBJS) $(COMMONOBJS) $(COBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-paramz : paramz.$(SUFFIX) $(ZBLASOBJS) $(COMMONOBJS) $(ZOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-paramx : paramx.$(SUFFIX) $(XBLASOBJS) $(COMMONOBJS) $(XOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-params-ex : params-ex.$(SUFFIX) $(SBLASOBJS) $(COMMONOBJS) $(SOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-paramd-ex : paramd-ex.$(SUFFIX) $(DBLASOBJS) $(COMMONOBJS) $(DOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-paramq-ex : paramq-ex.$(SUFFIX) $(QBLASOBJS) $(COMMONOBJS) $(QOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-paramc-ex : paramc-ex.$(SUFFIX) $(CBLASOBJS) $(COMMONOBJS) $(COBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-paramz-ex : paramz-ex.$(SUFFIX) $(ZBLASOBJS) $(COMMONOBJS) $(ZOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-paramx-ex : paramx-ex.$(SUFFIX) $(XBLASOBJS) $(COMMONOBJS) $(XOBJS) $(OBJS) $(LIBS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(EXTRALIB) $(CEXTRALIB)
-
-params.atlas : params.$(SUFFIX) $(OBJS) $(SOBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBATLAS)
-
-paramd.atlas : paramd.$(SUFFIX) $(OBJS) $(DOBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBATLAS)
-
-paramc.atlas : paramc.$(SUFFIX) $(OBJS) $(COBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBATLAS)
-
-paramz.atlas : paramz.$(SUFFIX) $(OBJS) $(ZOBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBATLAS)
-
-params.sun : params.$(SUFFIX) $(OBJS) $(SOBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBSUNPERF)
-
-paramd.sun : paramd.$(SUFFIX) $(OBJS) $(DOBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBSUNPERF)
-
-paramc.sun : paramc.$(SUFFIX) $(OBJS) $(COBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBSUNPERF)
-
-paramz.sun : paramz.$(SUFFIX) $(OBJS) $(ZOBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBSUNPERF)
-
-params.essl : params.$(SUFFIX) $(OBJS) $(SOBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBESSL)
-
-paramd.essl : paramd.$(SUFFIX) $(OBJS) $(DOBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBESSL)
-
-paramc.essl : paramc.$(SUFFIX) $(OBJS) $(COBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBESSL)
-
-paramz.essl : paramz.$(SUFFIX) $(OBJS) $(ZOBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBESSL)
-
-params.mkl : params.$(SUFFIX) $(OBJS) $(SOBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBMKL)
-
-paramd.mkl : paramd.$(SUFFIX) $(OBJS) $(DOBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBMKL)
-
-paramc.mkl : paramc.$(SUFFIX) $(OBJS) $(COBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBMKL)
-
-paramz.mkl : paramz.$(SUFFIX) $(OBJS) $(ZOBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBMKL)
-
-params.acml : params.$(SUFFIX) $(OBJS) $(SOBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBACML)
-
-paramd.acml : paramd.$(SUFFIX) $(OBJS) $(DOBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBACML)
-
-paramc.acml : paramc.$(SUFFIX) $(OBJS) $(COBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBACML)
-
-paramz.acml : paramz.$(SUFFIX) $(OBJS) $(ZOBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBACML)
-
-params.flame : params.$(SUFFIX) $(OBJS) $(SOBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBFLAME) $(EXTRALIB) $(CEXTRALIB)
-
-paramd.flame : paramd.$(SUFFIX) $(OBJS) $(DOBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBFLAME) $(EXTRALIB) $(CEXTRALIB)
-
-paramc.flame : paramc.$(SUFFIX) $(OBJS) $(COBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBFLAME) $(EXTRALIB) $(CEXTRALIB)
-
-paramz.flame : paramz.$(SUFFIX) $(OBJS) $(ZOBJS)
-	$(CC) -o $(@F) $(CFLAGS) $^ $(LIBFLAME) $(EXTRALIB) $(CEXTRALIB)
-
-params.$(SUFFIX):param.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -UDOUBLE -UCOMPLEX -c $< -o $(@F)
-
-paramd.$(SUFFIX):param.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -DDOUBLE -UCOMPLEX -c $< -o $(@F)
-
-paramq.$(SUFFIX):param.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -DXDOUBLE -UCOMPLEX -c $< -o $(@F)
-
-paramc.$(SUFFIX):paramz.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -UDOUBLE -DCOMPLEX -c $< -o $(@F)
-
-paramz.$(SUFFIX):paramz.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -DDOUBLE -DCOMPLEX -c $< -o $(@F)
-
-paramx.$(SUFFIX):paramz.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -DXDOUBLE -DCOMPLEX -c $< -o $(@F)
-
-params-ex.$(SUFFIX):param-ex.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -UDOUBLE -UCOMPLEX -c $< -o $(@F)
-
-paramd-ex.$(SUFFIX):param-ex.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -DDOUBLE -UCOMPLEX -c $< -o $(@F)
-
-paramq-ex.$(SUFFIX):param-ex.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -DXDOUBLE -UCOMPLEX -c $< -o $(@F)
-
-paramc-ex.$(SUFFIX):paramz-ex.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -UDOUBLE -DCOMPLEX -c $< -o $(@F)
-
-paramz-ex.$(SUFFIX):paramz-ex.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -DDOUBLE -DCOMPLEX -c $< -o $(@F)
-
-paramx-ex.$(SUFFIX):paramz-ex.c $(TOPDIR)/../bench/bmcommon.h
-	$(CC) $(CFLAGS) -DXDOUBLE -DCOMPLEX -c $< -o $(@F)
-
-gen_insn_flash.c :
-	echo '#include <stdio.h>'			>  gen_insn_flash.c
-	echo '#include <stdlib.h>'			>> gen_insn_flash.c
-	echo '#define ICACHE_SIZE ( 256 << 10)'		>> gen_insn_flash.c
-	echo 'int main(void){'				>> gen_insn_flash.c
-	echo 'int i;'					>> gen_insn_flash.c
-	echo '#ifdef __alpha'				>> gen_insn_flash.c
-	echo 'printf(".set noat;.set noreorder;\n");'	>> gen_insn_flash.c
-	echo 'printf(".arch ev6;.text;.align 5\n");'	>> gen_insn_flash.c
-	echo 'printf(".globl insn_flash\n");'		>> gen_insn_flash.c
-	echo 'printf(".ent insn_flash\n");'		>> gen_insn_flash.c
-	echo 'printf("insn_flash:\n");'			>> gen_insn_flash.c
-	echo 'for (i = 0; i < ICACHE_SIZE / 4; i++)'	>> gen_insn_flash.c
-	echo 'printf("br 1f\n 1:\n");'			>> gen_insn_flash.c
-	echo 'printf(".align 5;ret;.end insn_flash\n");'>> gen_insn_flash.c
-	echo '#else'					>> gen_insn_flash.c
-	echo 'printf(".text;.align 32\n");'		>> gen_insn_flash.c
-	echo 'printf(".globl insn_flash\n");'		>> gen_insn_flash.c
-	echo 'printf("insn_flash:\n");'			>> gen_insn_flash.c
-	echo 'for (i = 0; i < ICACHE_SIZE / 2; i++)'	>> gen_insn_flash.c
-	echo 'printf("jmp 1f\n 1:\n");'			>> gen_insn_flash.c
-	echo 'printf(".align 32;ret\n");'		>> gen_insn_flash.c
-	echo '#endif'					>> gen_insn_flash.c
-	echo 'return 0;'				>> gen_insn_flash.c
-	echo '}'					>> gen_insn_flash.c
-
-insn_flash.$(SUFFIX) : gen_insn_flash
-	./gen_insn_flash > temp.s
-	$(AS) -o $(@F) temp.s
-	rm -f temp.s
-
-dummy :
-
-clean ::
-	@if test -d $(ARCH); then \
-	(cd $(ARCH) && $(MAKE) clean) \
-	fi
-	@find . -name '*.o' | xargs rm -rf
-	@rm -rf *.a *.s *.po *.obj *.i *.so core core.* gmon.out *.cso \
-	*.csx *.is *~ *.exe *.flame *.pdb *.dwf \
-	gen_insn_flash.c gen_insn_flash *.stackdump *.dll *.exp *.lib \
-	*.pc *.pcl *.def *.i *.prof linktest.c \
-	bms bmd bmc bmz bmq bmx \
-	params paramd paramc paramz paramq paramx \
-	params-ex paramd-ex paramc-ex paramz-ex paramq-ex paramx-ex \
-	bench tpp kbench kbench2 \
-	*.mkl *.sun *.acml *.cxml *.essl *.atlas *.scsl *.mlib *.veclib *.fuji

Makefile.x86

@@ -1,56 +0,0 @@
-# COMPILER_PREFIX = mingw32-
-
-
-ifeq ($(OSNAME), Interix)
-ARFLAGS		= -m x86
-endif
-
-ifndef SMP
-LIBMKL		= -L$(MKLPATH)/32 -Wl,-rpath,$(MKLPATH)/32 -lmkl_intel -lmkl_sequential -lmkl_core -lguide -lpthread -lm
-else
-LIBMKL		= -L$(MKLPATH)/32 -Wl,-rpath,$(MKLPATH)/32 -lmkl_intel -lmkl_intel_thread -lmkl_core -lguide -lpthread -lm
-endif
-
-# LIBMKL		= -L$(MKLPATH)/32 -lmkl_lapack -lmkl_ia32 -lguide -lpthread -lm
-
-ifndef SMP
-LIBATLAS	= -L$(ATLAS) -lf77blas -latlas -lg2c -lm
-else
-LIBATLAS	= -L$(ATLAS) -lptf77blas -latlas -lpthread -lg2c -lm
-endif
-
-ifeq ($(COMPILER_F77), g77)
-LIBACML		= -L$(ACMLPATH)/gnu32/lib -Wl,-rpath,$(ACMLPATH)/gnu32/lib -lacml -lg2c
-endif
-
-LIBFLAME	= -L$(FLAMEPATH) -llapack2flame -lflame-lapack -lflame-base $(LIBS)
-
-ifeq ($(F_COMPILER), GFORTRAN)
-ifndef SMP
-LIBACML		= -L$(ACMLPATH)/gfortran32/lib -Wl,-rpath,$(ACMLPATH)/gfortran32/lib -lacml -lgfortran -lm
-else
-LIBACML		= -L$(ACMLPATH)/gfortran32_mp/lib -Wl,-rpath,$(ACMLPATH)/gfortran32_mp/lib -lacml_mp -lgfortran -lgomp -lm
-endif
-endif
-
-ifeq ($(COMPILER_F77), pgf77)
-LIBACML		= -L$(ACMLPATH)/pgi32/lib -lacml -L/opt/pgi/linux86-64/5.2/lib -lpgftnrtl -lnspgc -lpgc
-endif
-
-ifeq ($(F_COMPILER), PATHSCALE)
-ifndef SMP
-LIBACML		= -L$(ACMLPATH)/pathscale32/lib -Wl,-rpath,$(ACMLPATH)/pathscale32/lib -lacml -Wl,-rpath,$(PATHSCALEPATH) -L$(PATHSCALEPATH) -lpathfortran -lm
-else
-LIBACML		= -L$(ACMLPATH)/pathscale32_mp/lib -Wl,-rpath,$(ACMLPATH)/pathscale32_mp/lib -lacml_mp -Wl,-rpath,$(PATHSCALEPATH) -L$(PATHSCALEPATH) -lopenmp -lpathfortran -lm
-endif
-endif
-
-LIBSUNPERF	= -L/opt/SUNWspro/lib/sse2 -Wl,-R,/opt/SUNWspro/lib/sse2 -lsunperf
-
-LIBVECLIB	= /System/Library/Frameworks/vecLib.framework/Versions/Current/vecLib
-
-ifndef SMP
-LIBATLAS	= -L$(ATLASPATH)/32 -lcblas -lf77blas -latlas -lm
-else
-LIBATLAS	= -L$(ATLASPATH)/32 -lptf77blas -lptatlas -lpthread -lm
-endif

Makefile.x86_64

@@ -1,89 +0,0 @@
-# CCOMMON_OPT	+= -DFASTCPU
-
-ifeq ($(OSNAME), SunOS)
-ifdef BINARY64
-ifeq ($(F_COMPILER), SUN)
-FCOMMON_OPT += -m64
-endif
-endif
-endif
-
-ifeq ($(OSNAME), Interix)
-ARFLAGS		= -m x64
-endif
-
-ifeq ($(OSNAME), Darwin)
-ifndef SMP
-LIBMKL		= -L$(MKLPATH)/em64t -Wl,-rpath,$(MKLPATH)/em64t -lmkl_intel_lp64 -lmkl_sequential -lmkl_core -lguide -lpthread -lm
-else
-LIBMKL		= -L$(MKLPATH)/em64t -Wl,-rpath,$(MKLPATH)/em64t -lmkl_intel_lp64 -lmkl_intel_thread -lmkl_core -lguide -lpthread -lm
-endif
-else
-ifndef SMP
-LIBMKL		= -L$(MKLPATH)/em64t -Wl,-rpath,$(MKLPATH)/em64t -Wl,--start-group -lmkl_intel_lp64 -lmkl_sequential -lmkl_core -Wl,--end-group -lguide -lpthread -lm
-else
-LIBMKL		= -L$(MKLPATH)/em64t -Wl,-rpath,$(MKLPATH)/em64t -Wl,--start-group -lmkl_intel_lp64 -lmkl_intel_thread -lmkl_core -Wl,--end-group -lguide -lpthread -lm
-endif
-endif
-
-
-ifndef SMP
-LIBATLAS	= -L$(ATLASPATH)64 -llapack -lcblas -lf77blas -latlas -lm
-else
-LIBATLAS	= -L$(ATLASPATH)64 -llapack -lptcblas -lptf77blas -latlas -lpthread -lm
-endif
-
-LIBFLAME	= -L$(FLAMEPATH) -llapack2flame -lflame $(TOPDIR)/$(LIBNAME) -lgfortran -lpthread -lm
-
-
-ifeq ($(F_COMPILER), g77)
-LIBACML		= -L$(ACMLPATH)/gnu64/lib -Wl,-rpath,$(ACMLPATH)/gnu64/lib -lacml -lacml_mv -lg2c -lm
-endif
-
-ifeq ($(F_COMPILER), GFORTRAN)
-ifndef SMP
-LIBACML		= -L$(ACMLPATH)/gfortran64/lib -Wl,-rpath,$(ACMLPATH)/gfortran64/lib -lacml -lacml_mv -lgfortran -lm
-else
-LIBACML		= -L$(ACMLPATH)/gfortran64_mp/lib -Wl,-rpath,$(ACMLPATH)/gfortran64_mp/lib -lacml_mp -lacml_mv -lgfortran -lgomp -lm
-endif
-endif
-
-ifeq ($(F_COMPILER), INTEL)
-ifndef SMP
-LIBACML		= -L$(ACMLPATH)/ifort64/lib -Wl,-rpath,$(ACMLPATH)/ifort64/lib -lacml -lacml_mv -lifcoremt_pic -lirc -lm -lpthread -ldl
-else
-LIBACML		= -L$(ACMLPATH)/ifort64_mp/lib -Wl,-rpath,$(ACMLPATH)/ifort64_mp/lib -lacml_mp -lacml_mv -lifcoremt_pic -liomp5 -lirc -lm -lpthread -ldl
-endif
-endif
-
-ifeq ($(F_COMPILER), OPEN64)
-ifndef SMP
-LIBACML		= -L$(ACMLPATH)/open64/lib -Wl,-rpath,$(ACMLPATH)/open64/lib -lacml -lacml_mv -lm
-else
-LIBACML		= -L$(ACMLPATH)/open64_mp/lib -Wl,-rpath,$(ACMLPATH)/open64_mp/lib -lacml_mp -lacml_mv -lm -lpthread
-endif
-endif
-
-ifeq ($(F_COMPILER), pgf77)
-ifndef SMP
-LIBACML		= -L$(ACMLPATH)/pgi64/lib    -Wl,-rpath,$(ACMLPATH)/pgi64/lib    -lacml -lacml_mv -L$(PGIPATH) -Wl,-rpath,$(PGIPATH) -lpgftnrtl -lnspgc -lpgmp -lpgc
-else
-LIBACML		= -L$(ACMLPATH)/pgi64_mp/lib -Wl,-rpath,$(ACMLPATH)/pgi64_mp/lib -lacml -lacml_mv -L$(PGIPATH) -Wl,-rpath,$(PGIPATH) -lpgftnrtl -lnspgc -lpgmp -lpgc
-endif
-endif
-
-ifeq ($(F_COMPILER), PATHSCALE)
-ifndef SMP
-LIBACML		= -L$(ACMLPATH)/pathscale64/lib -Wl,-rpath,$(ACMLPATH)/pathscale64/lib -lacml -lacml_mv -Wl,-rpath,$(PATHSCALEPATH) -L$(PATHSCALEPATH) -lpathfortran -lm
-else
-LIBACML		= -L$(ACMLPATH)/pathscale64_mp/lib -Wl,-rpath,$(ACMLPATH)/pathscale64_mp/lib -lacml_mp -lacml_mv -Wl,-rpath,$(PATHSCALEPATH) -L$(PATHSCALEPATH) -lopenmp -lpathfortran -lm
-endif
-endif
-
-ifeq ($(F_COMPILER), f90)
-LIBACML		= -L$(ACMLPATH)/sun64/lib -Wl,-R,$(ACMLPATH)/sun64/lib -L$(SUNPATH)/lib/amd64 -Wl,-R,$(SUNPATH)/lib/amd64 -lacml -lacml_mv -lfsu
-endif
-
-LIBSUNPERF	= -L$(SUNPATH)/lib/amd64 -L$(SUNPATH)/rtlibs/amd64 -Wl,-R,$(SUNPATH)/lib/amd64  -Wl,-R,$(SUNPATH)/rtlibs/amd64 -lsunperf -lfui -lfsu -lmtsk
-
-LIBVECLIB	= /System/Library/Frameworks/vecLib.framework/Versions/Current/vecLib

Makefile.zarch

@@ -1,6 +0,0 @@
-
-ifeq ($(CORE), Z13)
-CCOMMON_OPT += -march=z13 -mzvector
-FCOMMON_OPT += -march=z13 -mzvector
-endif
-

README.md

@@ -1,176 +0,0 @@
-# OpenBLAS
-
-[![Join the chat at https://gitter.im/xianyi/OpenBLAS](https://badges.gitter.im/Join%20Chat.svg)](https://gitter.im/xianyi/OpenBLAS?utm_source=badge&utm_medium=badge&utm_campaign=pr-badge&utm_content=badge)
-
-Travis CI: [![Build Status](https://travis-ci.org/xianyi/OpenBLAS.png?branch=develop)](https://travis-ci.org/xianyi/OpenBLAS)
-
-AppVeyor: [![Build status](https://ci.appveyor.com/api/projects/status/09sohd35n8nkkx64/branch/develop?svg=true)](https://ci.appveyor.com/project/xianyi/openblas/branch/develop)
-## Introduction
-OpenBLAS is an optimized BLAS library based on GotoBLAS2 1.13 BSD version.
-
-Please read the documents on OpenBLAS wiki pages <http://github.com/xianyi/OpenBLAS/wiki>.
-
-## Binary Packages
-We provide binary packages for the following platform.
-
-  * Windows x86/x86_64
-
-You can download them from [file hosting on sourceforge.net](https://sourceforge.net/projects/openblas/files/).
-
-## Installation from Source
-Download from project homepage. http://xianyi.github.com/OpenBLAS/
-
-Or, check out codes from git://github.com/xianyi/OpenBLAS.git
-### Normal compile
-  * type "make" to detect the CPU automatically.
-  or
-  * type "make TARGET=xxx" to set target CPU, e.g. "make TARGET=NEHALEM". The full target list is in file TargetList.txt.
-
-### Cross compile
-Please set CC and FC with the cross toolchains. Then, set HOSTCC with your host C compiler. At last, set TARGET explicitly.
-
-Examples:
-
-On X86 box, compile this library for loongson3a CPU.
-
-    make BINARY=64 CC=mips64el-unknown-linux-gnu-gcc FC=mips64el-unknown-linux-gnu-gfortran HOSTCC=gcc TARGET=LOONGSON3A
-
-On X86 box, compile this library for loongson3a CPU with loongcc (based on Open64) compiler.
-
-    make CC=loongcc FC=loongf95 HOSTCC=gcc TARGET=LOONGSON3A CROSS=1 CROSS_SUFFIX=mips64el-st-linux-gnu-   NO_LAPACKE=1 NO_SHARED=1 BINARY=32
-
-### Debug version
-
-    make DEBUG=1
-
-### Compile with MASS Support on Power CPU (Optional dependency)
-
-[IBM MASS](http://www-01.ibm.com/software/awdtools/mass/linux/mass-linux.html) library consists of a set of mathematical functions for C, C++, and
-Fortran-language applications that are tuned for optimum performance on POWER architectures. OpenBLAS with MASS requires 64-bit, little-endian OS on POWER.
-The library can be installed as below -
-
- * On Ubuntu:
-
-    wget -q http://public.dhe.ibm.com/software/server/POWER/Linux/xl-compiler/eval/ppc64le/ubuntu/public.gpg -O- | sudo apt-key add -</br>
-    echo "deb http://public.dhe.ibm.com/software/server/POWER/Linux/xl-compiler/eval/ppc64le/ubuntu/ trusty main" | sudo tee /etc/apt/sources.list.d/ibm-xl-compiler-eval.list</br>
-    sudo apt-get update</br>
-    sudo apt-get install libxlmass-devel.8.1.5</br>
-
- * On RHEL/CentOS:
-
-    wget http://public.dhe.ibm.com/software/server/POWER/Linux/xl-compiler/eval/ppc64le/rhel7/repodata/repomd.xml.key</br>
-    sudo rpm --import repomd.xml.key</br>
-    wget http://public.dhe.ibm.com/software/server/POWER/Linux/xl-compiler/eval/ppc64le/rhel7/ibm-xl-compiler-eval.repo</br>
-    sudo cp ibm-xl-compiler-eval.repo /etc/yum.repos.d/</br>
-    sudo yum install libxlmass-devel.8.1.5</br>
-
-After installing MASS library, compile openblas with USE_MASS=1.
-
-Example:
-
-Compiling on Power8 with MASS support -
-
-    make USE_MASS=1 TARGET=POWER8
-
-### Install to the directory (optional)
-
-Example:
-
-    make install PREFIX=your_installation_directory
-
-The default directory is /opt/OpenBLAS
-
-## Support CPU & OS
-Please read GotoBLAS_01Readme.txt
-
-### Additional support CPU:
-
-#### x86/x86-64:
-- **Intel Xeon 56xx (Westmere)**: Used GotoBLAS2 Nehalem codes.
-- **Intel Sandy Bridge**: Optimized Level-3 and Level-2 BLAS with AVX on x86-64.
-- **Intel Haswell**: Optimized Level-3 and Level-2 BLAS with AVX2 and FMA  on x86-64.
-- **AMD Bobcat**: Used GotoBLAS2 Barcelona codes.
-- **AMD Bulldozer**: x86-64 ?GEMM FMA4 kernels. (Thank Werner Saar)
-- **AMD PILEDRIVER**: Uses Bulldozer codes with some optimizations.
-- **AMD STEAMROLLER**: Uses Bulldozer codes with some optimizations.
-
-#### MIPS64:
-- **ICT Loongson 3A**: Optimized Level-3 BLAS and the part of Level-1,2.
-- **ICT Loongson 3B**: Experimental
-
-#### ARM:
-- **ARMV6**: Optimized BLAS for vfpv2 and vfpv3-d16 ( e.g. BCM2835, Cortex M0+ )
-- **ARMV7**: Optimized BLAS for vfpv3-d32 ( e.g. Cortex A8, A9 and A15 )
-
-#### ARM64:
-- **ARMV8**: Experimental
-- **ARM Cortex-A57**: Experimental
-
-#### IBM zEnterprise System:
-- **Z13**: Optimized Level-3 BLAS 
-     
-
-### Support OS:
-- **GNU/Linux**
-- **MingWin or Visual Studio(CMake)/Windows**: Please read <https://github.com/xianyi/OpenBLAS/wiki/How-to-use-OpenBLAS-in-Microsoft-Visual-Studio>.
-- **Darwin/Mac OS X**: Experimental. Although GotoBLAS2 supports Darwin, we are the beginner on Mac OS X.
-- **FreeBSD**: Supported by community. We didn't test the library on this OS.
-- **Android**: Supported by community. Please read <https://github.com/xianyi/OpenBLAS/wiki/How-to-build-OpenBLAS-for-Android>.
-
-## Usages
-Link with libopenblas.a or -lopenblas for shared library.
-
-### Set the number of threads with environment variables.
-
-Examples:
-
-    export OPENBLAS_NUM_THREADS=4
-
- or
-
-    export GOTO_NUM_THREADS=4
-
- or
-
-    export OMP_NUM_THREADS=4
-
-The priorities are OPENBLAS_NUM_THREADS > GOTO_NUM_THREADS > OMP_NUM_THREADS.
-
-If you compile this lib with USE_OPENMP=1, you should set OMP_NUM_THREADS environment variable. OpenBLAS ignores OPENBLAS_NUM_THREADS and GOTO_NUM_THREADS with USE_OPENMP=1.
-
-### Set the number of threads on runtime.
-
-We provided the below functions to control the number of threads on runtime.
-
-    void goto_set_num_threads(int num_threads);
-
-    void openblas_set_num_threads(int num_threads);
-
-If you compile this lib with USE_OPENMP=1, you should use the above functions, too.
-
-## Report Bugs
-Please add a issue in https://github.com/xianyi/OpenBLAS/issues
-
-## Contact
-* OpenBLAS users mailing list: https://groups.google.com/forum/#!forum/openblas-users
-* OpenBLAS developers mailing list: https://groups.google.com/forum/#!forum/openblas-dev
-
-## ChangeLog
-Please see Changelog.txt to obtain the differences between GotoBLAS2 1.13 BSD version.
-
-## Troubleshooting
-* Please read [Faq](https://github.com/xianyi/OpenBLAS/wiki/Faq) at first.
-* Please use gcc version 4.6 and above to compile Sandy Bridge AVX kernels on Linux/MingW/BSD.
-* Please use Clang version 3.1 and above to compile the library on Sandy Bridge microarchitecture. The Clang 3.0 will generate the wrong AVX binary code.
-* The number of CPUs/Cores should less than or equal to 256. On Linux x86_64(amd64), there is experimental support for up to 1024 CPUs/Cores and 128 numa nodes if you build the library with BIGNUMA=1.
-* OpenBLAS does not set processor affinity by default. On Linux, you can enable processor affinity by commenting the line NO_AFFINITY=1 in Makefile.rule. But this may cause [the conflict with R parallel](https://stat.ethz.ch/pipermail/r-sig-hpc/2012-April/001348.html).
-* On Loongson 3A. make test would be failed because of pthread_create error. The error code is EAGAIN. However, it will be OK when you run the same testcase on shell.
-
-## Contributing
-1. [Check for open issues](https://github.com/xianyi/OpenBLAS/issues) or open a fresh issue to start a discussion around a feature idea or a bug.
-1. Fork the [OpenBLAS](https://github.com/xianyi/OpenBLAS) repository to start making your changes.
-1. Write a test which shows that the bug was fixed or that the feature works as expected.
-1. Send a pull request. Make sure to add yourself to `CONTRIBUTORS.md`.
-
-## Donation
-Please read [this wiki page](https://github.com/xianyi/OpenBLAS/wiki/Donation).

TargetList.txt

@@ -1,87 +0,0 @@
-Force Target Examples:
-
-make TARGET=NEHALEM
-make TARGET=LOONGSON3A BINARY=64
-make TARGET=ISTANBUL
-
-Supported List:
-1.X86/X86_64
-a)Intel CPU:
-P2
-KATMAI
-COPPERMINE
-NORTHWOOD
-PRESCOTT
-BANIAS
-YONAH
-CORE2
-PENRYN
-DUNNINGTON
-NEHALEM
-SANDYBRIDGE
-HASWELL
-ATOM
-
-b)AMD CPU:
-ATHLON
-OPTERON
-OPTERON_SSE3
-BARCELONA
-SHANGHAI
-ISTANBUL
-BOBCAT
-BULLDOZER
-PILEDRIVER
-STEAMROLLER
-EXCAVATOR
-ZEN
-
-c)VIA CPU:
-SSE_GENERIC
-VIAC3
-NANO
-
-2.Power CPU:
-POWER4
-POWER5
-POWER6
-POWER7
-POWER8
-PPCG4
-PPC970
-PPC970MP
-PPC440
-PPC440FP2
-CELL
-
-3.MIPS CPU:
-P5600
-
-4.MIPS64 CPU:
-SICORTEX
-LOONGSON3A
-LOONGSON3B
-I6400
-P6600
-
-5.IA64 CPU:
-ITANIUM2
-
-6.SPARC CPU:
-SPARC
-SPARCV7
-
-7.ARM CPU:
-CORTEXA15
-CORTEXA9
-ARMV7
-ARMV6
-ARMV5
-
-8.ARM 64-bit CPU:
-ARMV8
-CORTEXA57
-VULCAN
-THUNDERX
-THUNDERX2T99
-

USAGE.md

@@ -1,199 +0,0 @@
-# Notes on OpenBLAS usage
-## Usage
-
-#### Program is Terminated. Because you tried to allocate too many memory regions
-
-In OpenBLAS, we mange a pool of memory buffers and allocate the number of
-buffers as the following.
-```
-#define NUM_BUFFERS (MAX_CPU_NUMBER * 2)
-```
-This error indicates that the program exceeded the number of buffers.
-
-Please build OpenBLAS with larger `NUM_THREADS`. For example, `make
-NUM_THREADS=32` or `make NUM_THREADS=64`.  In `Makefile.system`, we will set
-`MAX_CPU_NUMBER=NUM_THREADS`.
-
-#### How can I use OpenBLAS in multi-threaded applications?
-
-If your application is already multi-threaded, it will conflict with OpenBLAS
-multi-threading. Thus, you must set OpenBLAS to use single thread in any of the
-following ways:
-
-* `export OPENBLAS_NUM_THREADS=1` in the environment variables.
-* Call `openblas_set_num_threads(1)` in the application on runtime.
-* Build OpenBLAS single thread version, e.g. `make USE_THREAD=0`
-
-If the application is parallelized by OpenMP, please use OpenBLAS built with
-`USE_OPENMP=1`
-
-#### How to choose TARGET manually at runtime when compiled with DYNAMIC_ARCH
-
-The environment variable which control the kernel selection is
-`OPENBLAS_CORETYPE` (see `driver/others/dynamic.c`) e.g. `export
-OPENBLAS_CORETYPE=Haswell` and the function `char* openblas_get_corename()`
-returns the used target.
-
-#### How could I disable OpenBLAS threading affinity on runtime?
-
-You can define the `OPENBLAS_MAIN_FREE` or `GOTOBLAS_MAIN_FREE` environment
-variable to disable threading affinity on runtime. For example, before the
-running,
-```
-export OPENBLAS_MAIN_FREE=1
-```
-
-Alternatively, you can disable affinity feature with enabling `NO_AFFINITY=1`
-in `Makefile.rule`.
-
-## Linking with the library
-
-* Link with shared library
-
-`gcc -o test test.c -I /your_path/OpenBLAS/include/ -L/your_path/OpenBLAS/lib -lopenblas`
-
-If the library is multithreaded, please add `-lpthread`. If the library
-contains LAPACK functions, please add `-lgfortran` or other Fortran libs.
-
-* Link with static library
-
-`gcc -o test test.c /your/path/libopenblas.a`
-
-You can download `test.c` from https://gist.github.com/xianyi/5780018
-
-On Linux, if OpenBLAS was compiled with threading support (`USE_THREAD=1` by
-default), custom programs statically linked against `libopenblas.a` should also
-link with the pthread library e.g.:
-
-```
-gcc -static -I/opt/OpenBLAS/include -L/opt/OpenBLAS/lib -o my_program my_program.c -lopenblas -lpthread
-```
-
-Failing to add the `-lpthread` flag will cause errors such as:
-
-```
-/opt/OpenBLAS/libopenblas.a(memory.o): In function `_touch_memory':
-memory.c:(.text+0x15): undefined reference to `pthread_mutex_lock'
-memory.c:(.text+0x41): undefined reference to `pthread_mutex_unlock'
-...
-```
-
-## Code examples
-
-#### Call CBLAS interface
-This example shows calling cblas_dgemm in C. https://gist.github.com/xianyi/6930656
-```
-#include <cblas.h>
-#include <stdio.h>
-
-void main()
-{
-  int i=0;
-  double A[6] = {1.0,2.0,1.0,-3.0,4.0,-1.0};
-  double B[6] = {1.0,2.0,1.0,-3.0,4.0,-1.0};
-  double C[9] = {.5,.5,.5,.5,.5,.5,.5,.5,.5};
-  cblas_dgemm(CblasColMajor, CblasNoTrans, CblasTrans,3,3,2,1,A, 3, B, 3,2,C,3);
-
-  for(i=0; i<9; i++)
-    printf("%lf ", C[i]);
-  printf("\n");
-}
-```
-`gcc -o test_cblas_open test_cblas_dgemm.c -I /your_path/OpenBLAS/include/ -L/your_path/OpenBLAS/lib -lopenblas -lpthread -lgfortran`
-
-#### Call BLAS Fortran interface
-
-This example shows calling dgemm Fortran interface in C. https://gist.github.com/xianyi/5780018
-
-```
-#include "stdio.h"
-#include "stdlib.h"
-#include "sys/time.h"
-#include "time.h"
-
-extern void dgemm_(char*, char*, int*, int*,int*, double*, double*, int*, double*, int*, double*, double*, int*);
-
-int main(int argc, char* argv[])
-{
-  int i;
-  printf("test!\n");
-  if(argc<4){
-    printf("Input Error\n");
-    return 1;
-  }
-
-  int m = atoi(argv[1]);
-  int n = atoi(argv[2]);
-  int k = atoi(argv[3]);
-  int sizeofa = m * k;
-  int sizeofb = k * n;
-  int sizeofc = m * n;
-  char ta = 'N';
-  char tb = 'N';
-  double alpha = 1.2;
-  double beta = 0.001;
-
-  struct timeval start,finish;
-  double duration;
-
-  double* A = (double*)malloc(sizeof(double) * sizeofa);
-  double* B = (double*)malloc(sizeof(double) * sizeofb);
-  double* C = (double*)malloc(sizeof(double) * sizeofc);
-
-  srand((unsigned)time(NULL));
-
-  for (i=0; i<sizeofa; i++)
-    A[i] = i%3+1;//(rand()%100)/10.0;
-
-  for (i=0; i<sizeofb; i++)
-    B[i] = i%3+1;//(rand()%100)/10.0;
-
-  for (i=0; i<sizeofc; i++)
-    C[i] = i%3+1;//(rand()%100)/10.0;
-  //#if 0
-  printf("m=%d,n=%d,k=%d,alpha=%lf,beta=%lf,sizeofc=%d\n",m,n,k,alpha,beta,sizeofc);
-  gettimeofday(&start, NULL);
-  dgemm_(&ta, &tb, &m, &n, &k, &alpha, A, &m, B, &k, &beta, C, &m);
-  gettimeofday(&finish, NULL);
-
-  duration = ((double)(finish.tv_sec-start.tv_sec)*1000000 + (double)(finish.tv_usec-start.tv_usec)) / 1000000;
-  double gflops = 2.0 * m *n*k;
-  gflops = gflops/duration*1.0e-6;
-
-  FILE *fp;
-  fp = fopen("timeDGEMM.txt", "a");
-  fprintf(fp, "%dx%dx%d\t%lf s\t%lf MFLOPS\n", m, n, k, duration, gflops);
-  fclose(fp);
-
-  free(A);
-  free(B);
-  free(C);
-  return 0;
-}
-```
-
-` gcc -o time_dgemm time_dgemm.c /your/path/libopenblas.a`
-
-` ./time_dgemm <m> <n> <k> `
-
-## Troubleshooting
-* Please read [Faq](https://github.com/xianyi/OpenBLAS/wiki/Faq) at first.
-* Please use gcc version 4.6 and above to compile Sandy Bridge AVX kernels on Linux/MingW/BSD.
-* Please use Clang version 3.1 and above to compile the library on Sandy Bridge microarchitecture. The Clang 3.0 will generate the wrong AVX binary code.
-* The number of CPUs/Cores should less than or equal to 256. On Linux x86_64(amd64), there is experimental support for up to 1024 CPUs/Cores and 128 numa nodes if you build the library with BIGNUMA=1.
-* OpenBLAS does not set processor affinity by default. On Linux, you can enable processor affinity by commenting the line NO_AFFINITY=1 in Makefile.rule. But this may cause [the conflict with R parallel](https://stat.ethz.ch/pipermail/r-sig-hpc/2012-April/001348.html).
-* On Loongson 3A. make test would be failed because of pthread_create error. The error code is EAGAIN. However, it will be OK when you run the same testcase on shell.
-
-## BLAS reference manual
-If you want to understand every BLAS function and definition, please read
-[Intel MKL reference manual](https://software.intel.com/sites/products/documentation/doclib/iss/2013/mkl/mklman/GUID-F7ED9FB8-6663-4F44-A62B-61B63C4F0491.htm)
-or [netlib.org](http://netlib.org/blas/)
-
-Here are [OpenBLAS extension functions](https://github.com/xianyi/OpenBLAS/wiki/OpenBLAS-Extensions)
-
-## How to reference OpenBLAS.
-
-You can reference our [papers](https://github.com/xianyi/OpenBLAS/wiki/publications).
-
-Alternatively, you can cite the OpenBLAS homepage http://www.openblas.net directly.
-

appveyor.yml

@@ -1,44 +0,0 @@
-version: 0.2.19.{build}
-
-#environment:
-
-platform: 
-  - x64
-
-configuration: Release
-
-clone_folder: c:\projects\OpenBLAS
-
-init:
-  - git config --global core.autocrlf input
-
-build:
-  project: OpenBLAS.sln
-
-clone_depth: 5
-
-#branches to build
-branches:
-  only:
-    - master
-    - develop
-    - cmake
-
-skip_tags: true
-
-matrix:
-  fast_finish: true
-
-skip_commits:
-# Add [av skip] to commit messages
-  message: /\[av skip\]/
-
-before_build:
-  - echo Running cmake...
-  - cd c:\projects\OpenBLAS
-  - cmake -G "Visual Studio 12 Win64" .
-
-test_script:
-  - echo Running Test
-  - cd c:\projects\OpenBLAS\utest
-  - openblas_utest

benchmark/Make_exe.sh

@@ -1,9 +0,0 @@
-#!/bin/bash
-
-for f in *.goto *.acml *.mkl *.atlas
-do
-	if [ -f "$f" ]; then
-		mv $f `echo $f|tr '.' '_'`.exe
-	fi
-done
-

benchmark/asum.c

@@ -1,196 +0,0 @@
-/***************************************************************************
-Copyright (c) 2014, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-
-#undef ASUM
-
-#ifdef COMPLEX
-#ifdef DOUBLE
-#define ASUM   BLASFUNC(dzasum)
-#else
-#define ASUM   BLASFUNC(scasum)
-#endif
-#else
-#ifdef DOUBLE
-#define ASUM   BLASFUNC(dasum)
-#else
-#define ASUM   BLASFUNC(sasum)
-#endif
-#endif
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *x;
-  FLOAT result;
-  blasint m, i;
-  blasint inc_x=1;
-  int loops = 1;
-  int l;
-  char *p;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1,timeg;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  if ((p = getenv("OPENBLAS_LOOPS")))  loops = atoi(p);
-  if ((p = getenv("OPENBLAS_INCX")))   inc_x = atoi(p);
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d Inc_x = %d Loops = %d\n", from, to, step,inc_x,loops);
-
-  if (( x = (FLOAT *)malloc(sizeof(FLOAT) * to * abs(inc_x) * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE       Flops\n");
-
-  for(m = from; m <= to; m += step)
-  {
-
-   timeg=0;
-
-   fprintf(stderr, " %6d : ", (int)m);
-
-
-   for (l=0; l<loops; l++)
-   {
-
-   	for(i = 0; i < m * COMPSIZE * abs(inc_x); i++){
-			x[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   	}
-
-    	gettimeofday( &start, (struct timezone *)0);
-
-    	result = ASUM (&m, x, &inc_x);
-
-    	gettimeofday( &stop, (struct timezone *)0);
-
-    	time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-	timeg += time1;
-
-    }
-
-    timeg /= loops;
-
-#ifdef COMPLEX
-    fprintf(stderr, " %10.2f MFlops %10.6f sec\n", 4. * (double)m / timeg * 1.e-6, timeg);
-#else
-    fprintf(stderr, " %10.2f MFlops %10.6f sec\n", 2. * (double)m / timeg * 1.e-6, timeg);
-#endif
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/axpy.c

@@ -1,201 +0,0 @@
-/***************************************************************************
-Copyright (c) 2014, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-
-#undef AXPY
-
-#ifdef COMPLEX
-#ifdef DOUBLE
-#define AXPY   BLASFUNC(zaxpy)
-#else
-#define AXPY   BLASFUNC(caxpy)
-#endif
-#else
-#ifdef DOUBLE
-#define AXPY   BLASFUNC(daxpy)
-#else
-#define AXPY   BLASFUNC(saxpy)
-#endif
-#endif
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *x, *y;
-  FLOAT alpha[2] = { 2.0, 2.0 };
-  blasint m, i;
-  blasint inc_x=1,inc_y=1;
-  int loops = 1;
-  int l;
-  char *p;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1,timeg;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  if ((p = getenv("OPENBLAS_LOOPS")))  loops = atoi(p);
-  if ((p = getenv("OPENBLAS_INCX")))   inc_x = atoi(p);
-  if ((p = getenv("OPENBLAS_INCY")))   inc_y = atoi(p);
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d Inc_x = %d Inc_y = %d Loops = %d\n", from, to, step,inc_x,inc_y,loops);
-
-  if (( x = (FLOAT *)malloc(sizeof(FLOAT) * to * abs(inc_x) * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( y = (FLOAT *)malloc(sizeof(FLOAT) * to * abs(inc_y) * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE       Flops\n");
-
-  for(m = from; m <= to; m += step)
-  {
-
-   timeg=0;
-
-   fprintf(stderr, " %6d : ", (int)m);
-
-
-   for (l=0; l<loops; l++)
-   {
-
-   	for(i = 0; i < m * COMPSIZE * abs(inc_x); i++){
-			x[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   	}
-
-   	for(i = 0; i < m * COMPSIZE * abs(inc_y); i++){
-			y[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   	}
-    	gettimeofday( &start, (struct timezone *)0);
-
-    	AXPY (&m, alpha, x, &inc_x, y, &inc_y );
-
-    	gettimeofday( &stop, (struct timezone *)0);
-
-    	time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-	timeg += time1;
-
-    }
-
-    timeg /= loops;
-
-    fprintf(stderr,
-	    " %10.2f MFlops %10.6f sec\n",
-	    COMPSIZE * COMPSIZE * 2. * (double)m / timeg * 1.e-6, timeg);
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/cholesky.c

@@ -1,283 +0,0 @@
-/*********************************************************************/
-/* Copyright 2009, 2010 The University of Texas at Austin.           */
-/* All rights reserved.                                              */
-/*                                                                   */
-/* Redistribution and use in source and binary forms, with or        */
-/* without modification, are permitted provided that the following   */
-/* conditions are met:                                               */
-/*                                                                   */
-/*   1. Redistributions of source code must retain the above         */
-/*      copyright notice, this list of conditions and the following  */
-/*      disclaimer.                                                  */
-/*                                                                   */
-/*   2. Redistributions in binary form must reproduce the above      */
-/*      copyright notice, this list of conditions and the following  */
-/*      disclaimer in the documentation and/or other materials       */
-/*      provided with the distribution.                              */
-/*                                                                   */
-/*    THIS  SOFTWARE IS PROVIDED  BY THE  UNIVERSITY OF  TEXAS AT    */
-/*    AUSTIN  ``AS IS''  AND ANY  EXPRESS OR  IMPLIED WARRANTIES,    */
-/*    INCLUDING, BUT  NOT LIMITED  TO, THE IMPLIED  WARRANTIES OF    */
-/*    MERCHANTABILITY  AND FITNESS FOR  A PARTICULAR  PURPOSE ARE    */
-/*    DISCLAIMED.  IN  NO EVENT SHALL THE UNIVERSITY  OF TEXAS AT    */
-/*    AUSTIN OR CONTRIBUTORS BE  LIABLE FOR ANY DIRECT, INDIRECT,    */
-/*    INCIDENTAL,  SPECIAL, EXEMPLARY,  OR  CONSEQUENTIAL DAMAGES    */
-/*    (INCLUDING, BUT  NOT LIMITED TO,  PROCUREMENT OF SUBSTITUTE    */
-/*    GOODS  OR  SERVICES; LOSS  OF  USE,  DATA,  OR PROFITS;  OR    */
-/*    BUSINESS INTERRUPTION) HOWEVER CAUSED  AND ON ANY THEORY OF    */
-/*    LIABILITY, WHETHER  IN CONTRACT, STRICT  LIABILITY, OR TORT    */
-/*    (INCLUDING NEGLIGENCE OR OTHERWISE)  ARISING IN ANY WAY OUT    */
-/*    OF  THE  USE OF  THIS  SOFTWARE,  EVEN  IF ADVISED  OF  THE    */
-/*    POSSIBILITY OF SUCH DAMAGE.                                    */
-/*                                                                   */
-/* The views and conclusions contained in the software and           */
-/* documentation are those of the authors and should not be          */
-/* interpreted as representing official policies, either expressed   */
-/* or implied, of The University of Texas at Austin.                 */
-/*********************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-double fabs(double);
-
-#undef POTRF
-
-#ifndef COMPLEX
-#ifdef XDOUBLE
-#define POTRF   BLASFUNC(qpotrf)
-#define SYRK    BLASFUNC(qsyrk)
-#elif defined(DOUBLE)
-#define POTRF   BLASFUNC(dpotrf)
-#define SYRK    BLASFUNC(dsyrk)
-#else
-#define POTRF   BLASFUNC(spotrf)
-#define SYRK    BLASFUNC(ssyrk)
-#endif
-#else
-#ifdef XDOUBLE
-#define POTRF   BLASFUNC(xpotrf)
-#define SYRK    BLASFUNC(xherk)
-#elif defined(DOUBLE)
-#define POTRF   BLASFUNC(zpotrf)
-#define SYRK    BLASFUNC(zherk)
-#else
-#define POTRF   BLASFUNC(cpotrf)
-#define SYRK    BLASFUNC(cherk)
-#endif
-#endif
-
-
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-
-static __inline double getmflops(int ratio, int m, double secs){
-
-  double mm = (double)m;
-  double mulflops, addflops;
-
-  if (secs==0.) return 0.;
-
-  mulflops = mm * (1./3. + mm * (1./2. + mm * 1./6.));
-  addflops = 1./6. * mm * (mm * mm - 1);
-
-  if (ratio == 1) {
-    return (mulflops + addflops) / secs * 1.e-6;
-  } else {
-    return (2. * mulflops + 6. * addflops) / secs * 1.e-6;
-  }
-}
-
-
-int main(int argc, char *argv[]){
-
-#ifndef COMPLEX
-  char *trans[] = {"T", "N"};
-#else
-  char *trans[] = {"C", "N"};
-#endif
-  char *uplo[]  = {"U", "L"};
-  FLOAT alpha[] = {1.0, 0.0};
-  FLOAT beta [] = {0.0, 0.0};
-
-  FLOAT *a, *b;
-
-  blasint m, i, j, info, uplos;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  FLOAT maxerr;
-
-  struct timeval start, stop;
-  double time1;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d\n", from, to, step);
-
-  if (( a    = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( b    = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  for(m = from; m <= to; m += step){
-
-    fprintf(stderr, "M = %6d : ", (int)m);
-
-    for (uplos = 0; uplos < 2; uplos ++) {
-
-#ifndef COMPLEX
-      if (uplos & 1) {
-	for (j = 0; j < m; j++) {
-	  for(i = 0; i < j; i++)     a[i + j * m] = 0.;
-	                             a[j + j * m] = ((double) rand() / (double) RAND_MAX) + 8.;
-	  for(i = j + 1; i < m; i++) a[i + j * m] = ((double) rand() / (double) RAND_MAX) - 0.5;
-	}
-      } else {
-	for (j = 0; j < m; j++) {
-	  for(i = 0; i < j; i++)     a[i + j * m] = ((double) rand() / (double) RAND_MAX) - 0.5;
-	                             a[j + j * m] = ((double) rand() / (double) RAND_MAX) + 8.;
-	  for(i = j + 1; i < m; i++) a[i + j * m] = 0.;
-	}
-      }
-#else
-      if (uplos & 1) {
-	for (j = 0; j < m; j++) {
-	  for(i = 0; i < j; i++) {
-	    a[(i + j * m) * 2 + 0] = 0.;
-	    a[(i + j * m) * 2 + 1] = 0.;
-	  }
-
-	  a[(j + j * m) * 2 + 0] = ((double) rand() / (double) RAND_MAX) + 8.;
-	  a[(j + j * m) * 2 + 1] = 0.;
-
-	  for(i = j + 1; i < m; i++) {
-	    a[(i + j * m) * 2 + 0] = ((double) rand() / (double) RAND_MAX) - 0.5;
-	    a[(i + j * m) * 2 + 1] = ((double) rand() / (double) RAND_MAX) - 0.5;
-	  }
-	}
-      } else {
-	for (j = 0; j < m; j++) {
-	  for(i = 0; i < j; i++) {
-	    a[(i + j * m) * 2 + 0] = ((double) rand() / (double) RAND_MAX) - 0.5;
-	    a[(i + j * m) * 2 + 1] = ((double) rand() / (double) RAND_MAX) - 0.5;
-	  }
-
-	  a[(j + j * m) * 2 + 0] = ((double) rand() / (double) RAND_MAX) + 8.;
-	  a[(j + j * m) * 2 + 1] = 0.;
-
-	  for(i = j + 1; i < m; i++) {
-	    a[(i + j * m) * 2 + 0] = 0.;
-	    a[(i + j * m) * 2 + 1] = 0.;
-	  }
-	}
-      }
-#endif
-
-      SYRK(uplo[uplos], trans[uplos], &m, &m, alpha, a, &m, beta, b, &m);
-
-      gettimeofday( &start, (struct timezone *)0);
-
-      POTRF(uplo[uplos], &m, b, &m, &info);
-
-      gettimeofday( &stop, (struct timezone *)0);
-
-      if (info != 0) {
-	fprintf(stderr, "Info = %d\n", info);
-	exit(1);
-      }
-
-     time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-      maxerr = 0.;
-
-      if (!(uplos & 1)) {
-	for (j = 0; j < m; j++) {
-	  for(i = 0; i <= j; i++) {
-#ifndef COMPLEX
-	    if (maxerr < fabs(a[i + j * m] - b[i + j * m])) maxerr = fabs(a[i + j * m] - b[i + j * m]);
-#else
-	    if (maxerr < fabs(a[(i + j * m) * 2 + 0] - b[(i + j * m) * 2 + 0])) maxerr = fabs(a[(i + j * m) * 2 + 0] - b[(i + j * m) * 2 + 0]);
-	    if (maxerr < fabs(a[(i + j * m) * 2 + 1] - b[(i + j * m) * 2 + 1])) maxerr = fabs(a[(i + j * m) * 2 + 1] - b[(i + j * m) * 2 + 1]);
-#endif
-	  }
-	}
-      } else {
-	for (j = 0; j < m; j++) {
-	  for(i = j; i < m; i++) {
-#ifndef COMPLEX
-	    if (maxerr < fabs(a[i + j * m] - b[i + j * m])) maxerr = fabs(a[i + j * m] - b[i + j * m]);
-#else
-	    if (maxerr < fabs(a[(i + j * m) * 2 + 0] - b[(i + j * m) * 2 + 0])) maxerr = fabs(a[(i + j * m) * 2 + 0] - b[(i + j * m) * 2 + 0]);
-	    if (maxerr < fabs(a[(i + j * m) * 2 + 1] - b[(i + j * m) * 2 + 1])) maxerr = fabs(a[(i + j * m) * 2 + 1] - b[(i + j * m) * 2 + 1]);
-#endif
-	  }
-	}
-      }
-
-      fprintf(stderr,
-#ifdef XDOUBLE
-	      "  %Le  %10.3f MFlops", maxerr,
-#else
-	      "  %e  %10.3f MFlops", maxerr,
-#endif
-	      getmflops(COMPSIZE * COMPSIZE, m, time1));
-
-      if (maxerr > 1.e-3) {
-	fprintf(stderr, "Hmm, probably it has bug.\n");
-	exit(1);
-      }
-
-    }
-    fprintf(stderr, "\n");
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/copy.c

@@ -1,201 +0,0 @@
-/***************************************************************************
-Copyright (c) 2014, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-
-#undef COPY
-
-#ifdef COMPLEX
-#ifdef DOUBLE
-#define COPY   BLASFUNC(zcopy)
-#else
-#define COPY   BLASFUNC(ccopy)
-#endif
-#else
-#ifdef DOUBLE
-#define COPY   BLASFUNC(dcopy)
-#else
-#define COPY   BLASFUNC(scopy)
-#endif
-#endif
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *x, *y;
-  FLOAT alpha[2] = { 2.0, 2.0 };
-  blasint m, i;
-  blasint inc_x=1,inc_y=1;
-  int loops = 1;
-  int l;
-  char *p;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1,timeg;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  if ((p = getenv("OPENBLAS_LOOPS")))  loops = atoi(p);
-  if ((p = getenv("OPENBLAS_INCX")))   inc_x = atoi(p);
-  if ((p = getenv("OPENBLAS_INCY")))   inc_y = atoi(p);
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d Inc_x = %d Inc_y = %d Loops = %d\n", from, to, step,inc_x,inc_y,loops);
-
-  if (( x = (FLOAT *)malloc(sizeof(FLOAT) * to * abs(inc_x) * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( y = (FLOAT *)malloc(sizeof(FLOAT) * to * abs(inc_y) * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE       Flops\n");
-
-  for(m = from; m <= to; m += step)
-  {
-
-   timeg=0;
-
-   fprintf(stderr, " %6d : ", (int)m);
-
-
-   for (l=0; l<loops; l++)
-   {
-
-   	for(i = 0; i < m * COMPSIZE * abs(inc_x); i++){
-			x[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   	}
-
-   	for(i = 0; i < m * COMPSIZE * abs(inc_y); i++){
-			y[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   	}
-    	gettimeofday( &start, (struct timezone *)0);
-
-    	COPY (&m, x, &inc_x, y, &inc_y );
-
-    	gettimeofday( &stop, (struct timezone *)0);
-
-    	time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-	timeg += time1;
-
-    }
-
-    timeg /= loops;
-
-    fprintf(stderr,
-	    " %10.2f MBytes %10.6f sec\n",
-	    COMPSIZE * sizeof(FLOAT) * 1. * (double)m / timeg * 1.e-6, timeg);
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/cula_wrapper.c

@@ -1,28 +0,0 @@
-#include <stdio.h>
-#include "culapack.h"
-
-static int initialized = 0;
-
-int sgetrf_(int *m, int *n, float  *a, int *lda, int *ipiv, int *info) {
-
-  if (!initialized)  {
-    culaInitialize();
-    initialized = 1;
-  }
-
-  *info = culaSgetrf(*m, *m, a, *lda, ipiv);
-
-  return 0;
-}
-
-int cgetrf_(int *m, int *n, float  *a, int *lda, int *ipiv, int *info) {
-
-  if (!initialized)  {
-    culaInitialize();
-    initialized = 1;
-  }
-
-  *info = culaCgetrf(*m, *m, (culaFloatComplex *)a, *lda, ipiv);
-
-  return 0;
-}

benchmark/dot.c

@@ -1,195 +0,0 @@
-/***************************************************************************
-Copyright (c) 2014, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-
-#undef DOT
-
-
-#ifdef DOUBLE
-#define DOT   BLASFUNC(ddot)
-#else
-#define DOT   BLASFUNC(sdot)
-#endif
-
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *x, *y;
-  FLOAT result;
-  blasint m, i;
-  blasint inc_x=1,inc_y=1;
-  int loops = 1;
-  int l;
-  char *p;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1,timeg;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  if ((p = getenv("OPENBLAS_LOOPS")))  loops = atoi(p);
-  if ((p = getenv("OPENBLAS_INCX")))   inc_x = atoi(p);
-  if ((p = getenv("OPENBLAS_INCY")))   inc_y = atoi(p);
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d Inc_x = %d Inc_y = %d Loops = %d\n", from, to, step,inc_x,inc_y,loops);
-
-  if (( x = (FLOAT *)malloc(sizeof(FLOAT) * to * abs(inc_x) * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( y = (FLOAT *)malloc(sizeof(FLOAT) * to * abs(inc_y) * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE       Flops\n");
-
-  for(m = from; m <= to; m += step)
-  {
-
-   timeg=0;
-
-   fprintf(stderr, " %6d : ", (int)m);
-
-
-   for (l=0; l<loops; l++)
-   {
-
-   	for(i = 0; i < m * COMPSIZE * abs(inc_x); i++){
-			x[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   	}
-
-   	for(i = 0; i < m * COMPSIZE * abs(inc_y); i++){
-			y[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   	}
-    	gettimeofday( &start, (struct timezone *)0);
-
-    	result = DOT (&m, x, &inc_x, y, &inc_y );
-
-    	gettimeofday( &stop, (struct timezone *)0);
-
-    	time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-	timeg += time1;
-
-    }
-
-    timeg /= loops;
-
-    fprintf(stderr,
-	    " %10.2f MFlops %10.6f sec\n",
-	    COMPSIZE * COMPSIZE * 2. * (double)m / timeg * 1.e-6, timeg);
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/geev.c

@@ -1,261 +0,0 @@
-/*********************************************************************/
-/* Copyright 2009, 2010 The University of Texas at Austin.           */
-/* All rights reserved.                                              */
-/*                                                                   */
-/* Redistribution and use in source and binary forms, with or        */
-/* without modification, are permitted provided that the following   */
-/* conditions are met:                                               */
-/*                                                                   */
-/*   1. Redistributions of source code must retain the above         */
-/*      copyright notice, this list of conditions and the following  */
-/*      disclaimer.                                                  */
-/*                                                                   */
-/*   2. Redistributions in binary form must reproduce the above      */
-/*      copyright notice, this list of conditions and the following  */
-/*      disclaimer in the documentation and/or other materials       */
-/*      provided with the distribution.                              */
-/*                                                                   */
-/*    THIS  SOFTWARE IS PROVIDED  BY THE  UNIVERSITY OF  TEXAS AT    */
-/*    AUSTIN  ``AS IS''  AND ANY  EXPRESS OR  IMPLIED WARRANTIES,    */
-/*    INCLUDING, BUT  NOT LIMITED  TO, THE IMPLIED  WARRANTIES OF    */
-/*    MERCHANTABILITY  AND FITNESS FOR  A PARTICULAR  PURPOSE ARE    */
-/*    DISCLAIMED.  IN  NO EVENT SHALL THE UNIVERSITY  OF TEXAS AT    */
-/*    AUSTIN OR CONTRIBUTORS BE  LIABLE FOR ANY DIRECT, INDIRECT,    */
-/*    INCIDENTAL,  SPECIAL, EXEMPLARY,  OR  CONSEQUENTIAL DAMAGES    */
-/*    (INCLUDING, BUT  NOT LIMITED TO,  PROCUREMENT OF SUBSTITUTE    */
-/*    GOODS  OR  SERVICES; LOSS  OF  USE,  DATA,  OR PROFITS;  OR    */
-/*    BUSINESS INTERRUPTION) HOWEVER CAUSED  AND ON ANY THEORY OF    */
-/*    LIABILITY, WHETHER  IN CONTRACT, STRICT  LIABILITY, OR TORT    */
-/*    (INCLUDING NEGLIGENCE OR OTHERWISE)  ARISING IN ANY WAY OUT    */
-/*    OF  THE  USE OF  THIS  SOFTWARE,  EVEN  IF ADVISED  OF  THE    */
-/*    POSSIBILITY OF SUCH DAMAGE.                                    */
-/*                                                                   */
-/* The views and conclusions contained in the software and           */
-/* documentation are those of the authors and should not be          */
-/* interpreted as representing official policies, either expressed   */
-/* or implied, of The University of Texas at Austin.                 */
-/*********************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-
-#undef GEEV
-
-#ifndef COMPLEX
-#ifdef XDOUBLE
-#define GEEV   BLASFUNC(qgeev)
-#elif defined(DOUBLE)
-#define GEEV   BLASFUNC(dgeev)
-#else
-#define GEEV   BLASFUNC(sgeev)
-#endif
-#else
-#ifdef XDOUBLE
-#define GEEV   BLASFUNC(xgeev)
-#elif defined(DOUBLE)
-#define GEEV   BLASFUNC(zgeev)
-#else
-#define GEEV   BLASFUNC(cgeev)
-#endif
-#endif
-
-#ifndef COMPLEX
-extern void GEEV( char* jobvl, char* jobvr, blasint* n, FLOAT* a,
-                blasint* lda, FLOAT* wr, FLOAT* wi, FLOAT* vl, blasint* ldvl,
-                FLOAT* vr, blasint* ldvr, FLOAT* work, blasint* lwork, blasint* info );
-#else
-extern void GEEV( char* jobvl, char* jobvr, blasint* n, FLOAT* a,
-                blasint* lda, FLOAT* wr, FLOAT* vl, blasint* ldvl,
-                FLOAT* vr, blasint* ldvr, FLOAT* work, blasint* lwork, FLOAT *rwork, blasint* info );
-#endif
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *a,*vl,*vr,*wi,*wr,*work,*rwork;
-  FLOAT wkopt[4];
-  char job='V';
-  char jobr='N';
-  char *p;
-
-  blasint m, i, j, info,lwork;
-  double factor = 26.33;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  if ((p = getenv("OPENBLAS_JOB")))  job=*p;
-
-  if ( job == 'N' ) factor = 10.0;
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d Job=%c\n", from, to, step,job);
-
-  if (( a = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( vl = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( vr = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( wr = (FLOAT *)malloc(sizeof(FLOAT) * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( wi = (FLOAT *)malloc(sizeof(FLOAT) * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( rwork = (FLOAT *)malloc(sizeof(FLOAT) * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-    for(j = 0; j < to; j++){
-      for(i = 0; i < to * COMPSIZE; i++){
-	a[i + j * to * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-      }
-    }
-
-
-    lwork = -1;
-    m=to;
-#ifndef COMPLEX
-    GEEV (&job, &jobr, &m, a, &m, wr, wi, vl, &m, vr, &m, wkopt, &lwork, &info);
-#else
-    GEEV (&job, &jobr, &m, a, &m, wr, vl, &m, vr, &m, wkopt, &lwork,rwork, &info);
-#endif
-
-  lwork = (blasint)wkopt[0];
-  if (( work = (FLOAT *)malloc(sizeof(FLOAT) * lwork * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE           FLops           Time          Lwork\n");
-
-  for(m = from; m <= to; m += step){
-
-    fprintf(stderr, " %6d : ", (int)m);
-    gettimeofday( &start, (struct timezone *)0);
-
-    lwork = -1;
-#ifndef COMPLEX
-    GEEV (&job, &jobr, &m, a, &m, wr, wi, vl, &m, vr, &m, wkopt, &lwork, &info);
-#else
-    GEEV (&job, &jobr, &m, a, &m, wr, vl, &m, vr, &m, wkopt, &lwork,rwork, &info);
-#endif
-
-    lwork = (blasint)wkopt[0];
-#ifndef COMPLEX
-    GEEV (&job, &jobr, &m, a, &m, wr, wi, vl, &m, vr, &m, work, &lwork, &info);
-#else
-    GEEV (&job, &jobr, &m, a, &m, wr, vl, &m, vr, &m, work, &lwork,rwork, &info);
-#endif
-
-    gettimeofday( &stop, (struct timezone *)0);
-
-    if (info) {
-      fprintf(stderr, "failed to compute eigenvalues .. %d\n", info);
-      exit(1);
-    }
-
-    time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-    fprintf(stderr,
-	    " %10.2f MFlops : %10.2f Sec : %d\n",
-	    COMPSIZE * COMPSIZE * factor * (double)m * (double)m * (double)m / time1 * 1.e-6,time1,lwork);
-
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/gemm.c

@@ -1,223 +0,0 @@
-/***************************************************************************
-Copyright (c) 2014, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-
-#undef GEMM
-
-#ifndef COMPLEX
-
-#ifdef DOUBLE
-#define GEMM   BLASFUNC(dgemm)
-#else
-#define GEMM   BLASFUNC(sgemm)
-#endif
-
-#else
-
-#ifdef DOUBLE
-#define GEMM   BLASFUNC(zgemm)
-#else
-#define GEMM   BLASFUNC(cgemm)
-#endif
-
-#endif
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *a, *b, *c;
-  FLOAT alpha[] = {1.0, 1.0};
-  FLOAT beta [] = {0.0, 0.0};
-  char trans='N';
-  blasint m, n, i, j;
-  int loops = 1;
-  int has_param_n=0;
-  int l;
-  char *p;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1,timeg;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  if ((p = getenv("OPENBLAS_TRANS")))  trans=*p;
-
-  fprintf(stderr, "From : %3d  To : %3d Step=%d : Trans=%c\n", from, to, step, trans);
-
-  if (( a = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( b = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( c = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  p = getenv("OPENBLAS_LOOPS");
-  if ( p != NULL )
-	loops = atoi(p);
-
-  if ((p = getenv("OPENBLAS_PARAM_N"))) {
-          n = atoi(p);
-	  has_param_n=1;	  
-  }
-
-#ifdef linux
-  srandom(getpid());
-#endif
- 
-	for(j = 0; j < to; j++){
-      		for(i = 0; i < to * COMPSIZE; i++){
-			a[i + j * to * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-			b[i + j * to * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-			c[i + j * to * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-      		}
-    	}
-
-
-
-  fprintf(stderr, "   SIZE          Flops          Time\n");
-
-  for(m = from; m <= to; m += step)
-  {
-
-    timeg=0;
-
-    if ( has_param_n == 1 && n <= m )
-    	n=n;
-    else
-    	n=m;
-
-
-
-    fprintf(stderr, " %6dx%d : ", (int)m, (int)n);
-    gettimeofday( &start, (struct timezone *)0);
-
-    for (l=0; l<loops; l++)
-    {
-
-    	GEMM (&trans, &trans, &m, &n, &m, alpha, a, &m, b, &m, beta, c, &m );
-
-
-
-    }
-   gettimeofday( &stop, (struct timezone *)0);
-   time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-    timeg = time1/loops;
-    fprintf(stderr,
-	    " %10.2f MFlops %10.6f sec\n",
-	    COMPSIZE * COMPSIZE * 2. * (double)m * (double)m * (double)n / timeg * 1.e-6, time1);
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/gemm3m.c

@@ -1,212 +0,0 @@
-/***************************************************************************
-Copyright (c) 2014, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-
-#undef GEMM
-
-#ifndef COMPLEX
-
-#ifdef DOUBLE
-#define GEMM   BLASFUNC(dgemm)
-#else
-#define GEMM   BLASFUNC(sgemm)
-#endif
-
-#else
-
-#ifdef DOUBLE
-#define GEMM   BLASFUNC(zgemm3m)
-#else
-#define GEMM   BLASFUNC(cgemm3m)
-#endif
-
-#endif
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *a, *b, *c;
-  FLOAT alpha[] = {1.0, 1.0};
-  FLOAT beta [] = {1.0, 1.0};
-  char trans='N';
-  blasint m, i, j;
-  int loops = 1;
-  int l;
-  char *p;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1,timeg;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  if ((p = getenv("OPENBLAS_TRANS")))  trans=*p;
-
-  fprintf(stderr, "From : %3d  To : %3d Step=%d : Trans=%c\n", from, to, step, trans);
-
-  if (( a = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( b = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( c = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  p = getenv("OPENBLAS_LOOPS");
-  if ( p != NULL )
-	loops = atoi(p);
-
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE       Flops\n");
-
-  for(m = from; m <= to; m += step)
-  {
-
-    timeg=0;
-
-    fprintf(stderr, " %6d : ", (int)m);
-
-    for (l=0; l<loops; l++)
-    {
-  
-    	for(j = 0; j < m; j++){
-      		for(i = 0; i < m * COMPSIZE; i++){
-			a[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-			b[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-			c[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-      		}
-    	}
-
-    	gettimeofday( &start, (struct timezone *)0);
-
-    	GEMM (&trans, &trans, &m, &m, &m, alpha, a, &m, b, &m, beta, c, &m );
-
-    	gettimeofday( &stop, (struct timezone *)0);
-
-    	time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-	timeg += time1;
-
-    }
-
-    timeg /= loops;
-    fprintf(stderr,
-	    " %10.2f MFlops\n",
-	    COMPSIZE * COMPSIZE * 2. * (double)m * (double)m * (double)m / timeg * 1.e-6);
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/gemv.c

@@ -1,269 +0,0 @@
-/***************************************************************************
-Copyright (c) 2014, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-
-#undef GEMV
-
-#ifndef COMPLEX
-
-#ifdef DOUBLE
-#define GEMV   BLASFUNC(dgemv)
-#else
-#define GEMV   BLASFUNC(sgemv)
-#endif
-
-#else
-
-#ifdef DOUBLE
-#define GEMV   BLASFUNC(zgemv)
-#else
-#define GEMV   BLASFUNC(cgemv)
-#endif
-
-#endif
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *a, *x, *y;
-  FLOAT alpha[] = {1.0, 1.0};
-  FLOAT beta [] = {1.0, 1.0};
-  char trans='N';
-  blasint m, i, j;
-  blasint inc_x=1,inc_y=1;
-  blasint n=0;
-  int has_param_n = 0;
-  int has_param_m = 0;
-  int loops = 1;
-  int l;
-  char *p;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1,timeg;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-
-  int tomax = to;
-
-  if ((p = getenv("OPENBLAS_LOOPS")))  loops = atoi(p);
-  if ((p = getenv("OPENBLAS_INCX")))   inc_x = atoi(p);
-  if ((p = getenv("OPENBLAS_INCY")))   inc_y = atoi(p);
-  if ((p = getenv("OPENBLAS_TRANS")))  trans=*p;
-  if ((p = getenv("OPENBLAS_PARAM_N"))) {
-	  n = atoi(p);
-	  if ((n>0)) has_param_n = 1;
-  	  if ( n > tomax ) tomax = n;
-  }
-  if ( has_param_n == 0 )
-  	if ((p = getenv("OPENBLAS_PARAM_M"))) {
-		  m = atoi(p);
-		  if ((m>0)) has_param_m = 1;
-  	  	  if ( m > tomax ) tomax = m;
-  	}
-
-
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d Trans = '%c' Inc_x = %d Inc_y = %d Loops = %d\n", from, to, step,trans,inc_x,inc_y,loops);
-
-  if (( a = (FLOAT *)malloc(sizeof(FLOAT) * tomax * tomax * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( x = (FLOAT *)malloc(sizeof(FLOAT) * tomax * abs(inc_x) * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( y = (FLOAT *)malloc(sizeof(FLOAT) * tomax * abs(inc_y) * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE       Flops\n");
-
-  if (has_param_m == 0)
-  {
-
-  	for(m = from; m <= to; m += step)
-  	{
-   		timeg=0;
-   		if ( has_param_n == 0 ) n = m;
-   		fprintf(stderr, " %6dx%d : ", (int)m,(int)n);
-   		for(j = 0; j < m; j++){
-      			for(i = 0; i < n * COMPSIZE; i++){
-				a[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-      			}
-   		}
-
-    		for (l=0; l<loops; l++)
-    		{
-
-   			for(i = 0; i < n * COMPSIZE * abs(inc_x); i++){
-				x[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   			}
-
-   			for(i = 0; i < n * COMPSIZE * abs(inc_y); i++){
-				y[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   			}
-    			gettimeofday( &start, (struct timezone *)0);
-    			GEMV (&trans, &m, &n, alpha, a, &m, x, &inc_x, beta, y, &inc_y );
-    			gettimeofday( &stop, (struct timezone *)0);
-    			time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-			timeg += time1;
-
-    		}
-
-    		timeg /= loops;
-
-    		fprintf(stderr, " %10.2f MFlops %10.6f sec\n", COMPSIZE * COMPSIZE * 2. * (double)m * (double)n / timeg * 1.e-6, timeg);
-
-  	}
-  }
-  else
-  {
-
-  	for(n = from; n <= to; n += step)
-  	{
-   		timeg=0;
-   		fprintf(stderr, " %6dx%d : ", (int)m,(int)n);
-   		for(j = 0; j < m; j++){
-      			for(i = 0; i < n * COMPSIZE; i++){
-				a[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-      			}
-   		}
-
-    		for (l=0; l<loops; l++)
-    		{
-
-   			for(i = 0; i < n * COMPSIZE * abs(inc_x); i++){
-				x[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   			}
-
-   			for(i = 0; i < n * COMPSIZE * abs(inc_y); i++){
-				y[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   			}
-    			gettimeofday( &start, (struct timezone *)0);
-    			GEMV (&trans, &m, &n, alpha, a, &m, x, &inc_x, beta, y, &inc_y );
-    			gettimeofday( &stop, (struct timezone *)0);
-    			time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-			timeg += time1;
-
-    		}
-
-    		timeg /= loops;
-
-    		fprintf(stderr, " %10.2f MFlops %10.6f sec\n", COMPSIZE * COMPSIZE * 2. * (double)m * (double)n / timeg * 1.e-6, timeg);
-
-  	}
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/ger.c

@@ -1,225 +0,0 @@
-/***************************************************************************
-Copyright (c) 2014, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-
-#undef GER
-
-#ifdef COMPLEX
-#ifdef DOUBLE
-#define GER   BLASFUNC(zgeru)
-#else
-#define GER   BLASFUNC(cgeru)
-#endif
-#else
-#ifdef DOUBLE
-#define GER   BLASFUNC(dger)
-#else
-#define GER   BLASFUNC(sger)
-#endif
-#endif
-
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *a, *x, *y;
-  FLOAT alpha[] = {1.0, 1.0};
-  blasint m, i, j;
-  blasint inc_x=1,inc_y=1;
-  blasint n=0;
-  int has_param_n = 0;
-  int loops = 1;
-  int l;
-  char *p;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1,timeg;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  if ((p = getenv("OPENBLAS_LOOPS")))  loops = atoi(p);
-  if ((p = getenv("OPENBLAS_INCX")))   inc_x = atoi(p);
-  if ((p = getenv("OPENBLAS_INCY")))   inc_y = atoi(p);
-  if ((p = getenv("OPENBLAS_PARAM_N"))) {
-	  n = atoi(p);
-	  if ((n>0) && (n<=to)) has_param_n = 1;
-  }
-
-  if ( has_param_n == 1 )
-    fprintf(stderr, "From : %3d  To : %3d Step = %3d N = %d Inc_x = %d Inc_y = %d Loops = %d\n", from, to, step,n,inc_x,inc_y,loops);
-  else
-    fprintf(stderr, "From : %3d  To : %3d Step = %3d Inc_x = %d Inc_y = %d Loops = %d\n", from, to, step,inc_x,inc_y,loops);
-
-  if (( a = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( x = (FLOAT *)malloc(sizeof(FLOAT) * to * abs(inc_x) * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( y = (FLOAT *)malloc(sizeof(FLOAT) * to * abs(inc_y) * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE       Flops\n");
-
-  for(m = from; m <= to; m += step)
-  {
-
-   timeg=0;
-
-   if ( has_param_n == 0 ) n = m;
-
-   fprintf(stderr, " %6dx%d : ", (int)m,(int)n);
-
-   for(j = 0; j < m; j++){
-      		for(i = 0; i < n * COMPSIZE; i++){
-			a[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-      		}
-   }
-
-
-   for(i = 0; i < m * COMPSIZE * abs(inc_x); i++){
-			x[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   }
-
-   for(i = 0; i < n * COMPSIZE * abs(inc_y); i++){
-			y[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   }
-
-    for (l=0; l<loops; l++)
-    {
-
-    	gettimeofday( &start, (struct timezone *)0);
-
-    	GER (&m, &n, alpha, x, &inc_x, y, &inc_y, a , &m);
-
-    	gettimeofday( &stop, (struct timezone *)0);
-
-    	time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-	timeg += time1;
-
-    }
-
-    timeg /= loops;
-
-    fprintf(stderr,
-	    " %10.2f MFlops\n",
-	    COMPSIZE * COMPSIZE * 2. * (double)m * (double)n / timeg * 1.e-6);
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));
-

benchmark/gesv.c

@@ -1,218 +0,0 @@
-/*********************************************************************/
-/* Copyright 2009, 2010 The University of Texas at Austin.           */
-/* All rights reserved.                                              */
-/*                                                                   */
-/* Redistribution and use in source and binary forms, with or        */
-/* without modification, are permitted provided that the following   */
-/* conditions are met:                                               */
-/*                                                                   */
-/*   1. Redistributions of source code must retain the above         */
-/*      copyright notice, this list of conditions and the following  */
-/*      disclaimer.                                                  */
-/*                                                                   */
-/*   2. Redistributions in binary form must reproduce the above      */
-/*      copyright notice, this list of conditions and the following  */
-/*      disclaimer in the documentation and/or other materials       */
-/*      provided with the distribution.                              */
-/*                                                                   */
-/*    THIS  SOFTWARE IS PROVIDED  BY THE  UNIVERSITY OF  TEXAS AT    */
-/*    AUSTIN  ``AS IS''  AND ANY  EXPRESS OR  IMPLIED WARRANTIES,    */
-/*    INCLUDING, BUT  NOT LIMITED  TO, THE IMPLIED  WARRANTIES OF    */
-/*    MERCHANTABILITY  AND FITNESS FOR  A PARTICULAR  PURPOSE ARE    */
-/*    DISCLAIMED.  IN  NO EVENT SHALL THE UNIVERSITY  OF TEXAS AT    */
-/*    AUSTIN OR CONTRIBUTORS BE  LIABLE FOR ANY DIRECT, INDIRECT,    */
-/*    INCIDENTAL,  SPECIAL, EXEMPLARY,  OR  CONSEQUENTIAL DAMAGES    */
-/*    (INCLUDING, BUT  NOT LIMITED TO,  PROCUREMENT OF SUBSTITUTE    */
-/*    GOODS  OR  SERVICES; LOSS  OF  USE,  DATA,  OR PROFITS;  OR    */
-/*    BUSINESS INTERRUPTION) HOWEVER CAUSED  AND ON ANY THEORY OF    */
-/*    LIABILITY, WHETHER  IN CONTRACT, STRICT  LIABILITY, OR TORT    */
-/*    (INCLUDING NEGLIGENCE OR OTHERWISE)  ARISING IN ANY WAY OUT    */
-/*    OF  THE  USE OF  THIS  SOFTWARE,  EVEN  IF ADVISED  OF  THE    */
-/*    POSSIBILITY OF SUCH DAMAGE.                                    */
-/*                                                                   */
-/* The views and conclusions contained in the software and           */
-/* documentation are those of the authors and should not be          */
-/* interpreted as representing official policies, either expressed   */
-/* or implied, of The University of Texas at Austin.                 */
-/*********************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-double fabs(double);
-
-#undef GESV
-#undef GETRS
-
-#ifndef COMPLEX
-#ifdef XDOUBLE
-#define GESV   BLASFUNC(qgesv)
-#elif defined(DOUBLE)
-#define GESV   BLASFUNC(dgesv)
-#else
-#define GESV   BLASFUNC(sgesv)
-#endif
-#else
-#ifdef XDOUBLE
-#define GESV   BLASFUNC(xgesv)
-#elif defined(DOUBLE)
-#define GESV   BLASFUNC(zgesv)
-#else
-#define GESV   BLASFUNC(cgesv)
-#endif
-#endif
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *a, *b;
-  blasint *ipiv;
-
-  blasint m, i, j, info;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d\n", from, to, step);
-
-  if (( a = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( b = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( ipiv = (blasint *)malloc(sizeof(blasint) * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE       Flops              Time\n");
-
-  for(m = from; m <= to; m += step){
-
-    fprintf(stderr, " %dx%d : ", (int)m, (int)m);
-
-    for(j = 0; j < m; j++){
-      for(i = 0; i < m * COMPSIZE; i++){
-	a[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-      }
-    }
-
-    for(j = 0; j < m; j++){
-      for(i = 0; i < m * COMPSIZE; i++){
-	b[i + j * m * COMPSIZE] = 0.0;
-      }
-    }
-
-
-    for (j = 0; j < m; ++j) {
-      for (i = 0; i < m * COMPSIZE; ++i) {
-	b[i] += a[i + j * m * COMPSIZE];
-      }
-    }
-
-    gettimeofday( &start, (struct timezone *)0);
-
-    GESV (&m, &m, a, &m, ipiv, b, &m,  &info);
-
-    gettimeofday( &stop, (struct timezone *)0);
-
-
-    time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-
-
-    fprintf(stderr,
-	    "%10.2f MFlops %10.6f s\n",
-	    COMPSIZE * COMPSIZE * (2. / 3. * (double)m * (double)m * (double)m + 2. * (double)m * (double)m * (double)m ) / (time1) * 1.e-6 , time1);
-
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/getri.c

@@ -1,234 +0,0 @@
-/*********************************************************************/
-/* Copyright 2009, 2010 The University of Texas at Austin.           */
-/* All rights reserved.                                              */
-/*                                                                   */
-/* Redistribution and use in source and binary forms, with or        */
-/* without modification, are permitted provided that the following   */
-/* conditions are met:                                               */
-/*                                                                   */
-/*   1. Redistributions of source code must retain the above         */
-/*      copyright notice, this list of conditions and the following  */
-/*      disclaimer.                                                  */
-/*                                                                   */
-/*   2. Redistributions in binary form must reproduce the above      */
-/*      copyright notice, this list of conditions and the following  */
-/*      disclaimer in the documentation and/or other materials       */
-/*      provided with the distribution.                              */
-/*                                                                   */
-/*    THIS  SOFTWARE IS PROVIDED  BY THE  UNIVERSITY OF  TEXAS AT    */
-/*    AUSTIN  ``AS IS''  AND ANY  EXPRESS OR  IMPLIED WARRANTIES,    */
-/*    INCLUDING, BUT  NOT LIMITED  TO, THE IMPLIED  WARRANTIES OF    */
-/*    MERCHANTABILITY  AND FITNESS FOR  A PARTICULAR  PURPOSE ARE    */
-/*    DISCLAIMED.  IN  NO EVENT SHALL THE UNIVERSITY  OF TEXAS AT    */
-/*    AUSTIN OR CONTRIBUTORS BE  LIABLE FOR ANY DIRECT, INDIRECT,    */
-/*    INCIDENTAL,  SPECIAL, EXEMPLARY,  OR  CONSEQUENTIAL DAMAGES    */
-/*    (INCLUDING, BUT  NOT LIMITED TO,  PROCUREMENT OF SUBSTITUTE    */
-/*    GOODS  OR  SERVICES; LOSS  OF  USE,  DATA,  OR PROFITS;  OR    */
-/*    BUSINESS INTERRUPTION) HOWEVER CAUSED  AND ON ANY THEORY OF    */
-/*    LIABILITY, WHETHER  IN CONTRACT, STRICT  LIABILITY, OR TORT    */
-/*    (INCLUDING NEGLIGENCE OR OTHERWISE)  ARISING IN ANY WAY OUT    */
-/*    OF  THE  USE OF  THIS  SOFTWARE,  EVEN  IF ADVISED  OF  THE    */
-/*    POSSIBILITY OF SUCH DAMAGE.                                    */
-/*                                                                   */
-/* The views and conclusions contained in the software and           */
-/* documentation are those of the authors and should not be          */
-/* interpreted as representing official policies, either expressed   */
-/* or implied, of The University of Texas at Austin.                 */
-/*********************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-#undef GETRF
-#undef GETRI
-
-#ifndef COMPLEX
-#ifdef XDOUBLE
-#define GETRF   BLASFUNC(qgetrf)
-#define GETRI   BLASFUNC(qgetri)
-#elif defined(DOUBLE)
-#define GETRF   BLASFUNC(dgetrf)
-#define GETRI   BLASFUNC(dgetri)
-#else
-#define GETRF   BLASFUNC(sgetrf)
-#define GETRI   BLASFUNC(sgetri)
-#endif
-#else
-#ifdef XDOUBLE
-#define GETRF   BLASFUNC(xgetrf)
-#define GETRI   BLASFUNC(xgetri)
-#elif defined(DOUBLE)
-#define GETRF   BLASFUNC(zgetrf)
-#define GETRI   BLASFUNC(zgetri)
-#else
-#define GETRF   BLASFUNC(cgetrf)
-#define GETRI   BLASFUNC(cgetri)
-#endif
-#endif
-
-extern void GETRI(blasint *m, FLOAT *a, blasint *lda, blasint *ipiv, FLOAT *work, blasint *lwork, blasint *info);
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *a,*work;
-  FLOAT wkopt[4];
-  blasint *ipiv;
-  blasint m, i, j, info,lwork;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d\n", from, to, step);
-
-  if (( a = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( ipiv = (blasint *)malloc(sizeof(blasint) * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-
-
-    for(j = 0; j < to; j++){
-      for(i = 0; i < to * COMPSIZE; i++){
-	a[i + j * to * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-      }
-    }
-
-
-    lwork = -1;
-    m=to;
-
-  GETRI(&m, a, &m, ipiv, wkopt, &lwork, &info);
-
-  lwork = (blasint)wkopt[0];
-  if (( work = (FLOAT *)malloc(sizeof(FLOAT) * lwork * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE           FLops           Time          Lwork\n");
-
-  for(m = from; m <= to; m += step){
-
-    fprintf(stderr, " %6d : ", (int)m);
-
-    GETRF (&m, &m, a, &m, ipiv, &info);
-
-    if (info) {
-      fprintf(stderr, "Matrix is not singular .. %d\n", info);
-      exit(1);
-    }
-
-    gettimeofday( &start, (struct timezone *)0);
-
-    lwork = -1;
-    GETRI(&m, a, &m, ipiv, wkopt, &lwork, &info);
-
-    lwork = (blasint)wkopt[0];
-    GETRI(&m, a, &m, ipiv, work, &lwork, &info);
-    gettimeofday( &stop, (struct timezone *)0);
-
-    if (info) {
-      fprintf(stderr, "failed compute inverse matrix .. %d\n", info);
-      exit(1);
-    }
-
-    time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-    fprintf(stderr,
-	    " %10.2f MFlops : %10.2f Sec : %d\n",
-	    COMPSIZE * COMPSIZE * (4.0/3.0 * (double)m * (double)m *(double)m - (double)m *(double)m + 5.0/3.0* (double)m) / time1 * 1.e-6,time1,lwork);
-
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/hemm.c

@@ -1,192 +0,0 @@
-/***************************************************************************
-Copyright (c) 2014, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-
-#undef HEMM
-
-#ifdef DOUBLE
-#define HEMM   BLASFUNC(zhemm)
-#else
-#define HEMM   BLASFUNC(chemm)
-#endif
-
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *a, *b, *c;
-  FLOAT alpha[] = {1.0, 1.0};
-  FLOAT beta [] = {1.0, 1.0};
-  char *p;
-
-  char side='L';
-  char uplo='U';
-
-  if ((p = getenv("OPENBLAS_SIDE"))) side=*p; 
-  if ((p = getenv("OPENBLAS_UPLO"))) uplo=*p;
-
-  blasint m, i, j;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d Side = %c Uplo = %c\n", from, to, step,side,uplo);
-
-  if (( a = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( b = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( c = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE       Flops\n");
-
-  for(m = from; m <= to; m += step)
-  {
-
-    fprintf(stderr, " %6d : ", (int)m);
-
-    for(j = 0; j < m; j++){
-      for(i = 0; i < m * COMPSIZE; i++){
-	a[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-	b[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-	c[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-      }
-    }
-
-    gettimeofday( &start, (struct timezone *)0);
-
-    HEMM (&side, &uplo, &m, &m, alpha, a, &m, b, &m, beta, c, &m );
-
-    gettimeofday( &stop, (struct timezone *)0);
-
-    time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-    gettimeofday( &start, (struct timezone *)0);
-
-    fprintf(stderr,
-	    " %10.2f MFlops\n",
-	    COMPSIZE * COMPSIZE * 2. * (double)m * (double)m * (double)m / time1 * 1.e-6);
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/hemv.c

@@ -1,208 +0,0 @@
-/***************************************************************************
-Copyright (c) 2014, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-
-#undef HEMV
-
-
-#ifdef DOUBLE
-#define HEMV   BLASFUNC(zhemv)
-#else
-#define HEMV   BLASFUNC(chemv)
-#endif
-
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *a, *x, *y;
-  FLOAT alpha[] = {1.0, 1.0};
-  FLOAT beta [] = {1.0, 1.0};
-  char uplo='L';
-  blasint m, i, j;
-  blasint inc_x=1,inc_y=1;
-  int loops = 1;
-  int l;
-  char *p;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1,timeg;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  if ((p = getenv("OPENBLAS_LOOPS")))  loops = atoi(p);
-  if ((p = getenv("OPENBLAS_INCX")))   inc_x = atoi(p);
-  if ((p = getenv("OPENBLAS_INCY")))   inc_y = atoi(p);
-  if ((p = getenv("OPENBLAS_UPLO")))  uplo=*p;
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d Uplo = '%c' Inc_x = %d Inc_y = %d Loops = %d\n", from, to, step,uplo,inc_x,inc_y,loops);
-
-  if (( a = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( x = (FLOAT *)malloc(sizeof(FLOAT) * to * abs(inc_x) * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( y = (FLOAT *)malloc(sizeof(FLOAT) * to * abs(inc_y) * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE       Flops\n");
-
-  for(m = from; m <= to; m += step)
-  {
-
-   timeg=0;
-
-   fprintf(stderr, " %6dx%d : ", (int)m,(int)m);
-
-   for(j = 0; j < m; j++){
-      		for(i = 0; i < m * COMPSIZE; i++){
-			a[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-      		}
-   }
-
-
-    for (l=0; l<loops; l++)
-    {
-
-   	for(i = 0; i < m * COMPSIZE * abs(inc_x); i++){
-			x[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   	}
-
-   	for(i = 0; i < m * COMPSIZE * abs(inc_y); i++){
-			y[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   	}
-    	gettimeofday( &start, (struct timezone *)0);
-
-    	HEMV (&uplo, &m, alpha, a, &m, x, &inc_x, beta, y, &inc_y );
-
-    	gettimeofday( &stop, (struct timezone *)0);
-
-    	time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-	timeg += time1;
-
-    }
-
-    timeg /= loops;
-
-    fprintf(stderr,
-	    " %10.2f MFlops\n",
-	    COMPSIZE * COMPSIZE * 2. * (double)m * (double)m / timeg * 1.e-6);
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/her2k.c

@@ -1,191 +0,0 @@
-/***************************************************************************
-Copyright (c) 2014, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-
-#undef HER2K
-#ifdef DOUBLE
-#define HER2K   BLASFUNC(zher2k)
-#else
-#define HER2K   BLASFUNC(cher2k)
-#endif
-
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *a, *b, *c;
-  FLOAT alpha[] = {1.0, 1.0};
-  FLOAT beta [] = {1.0, 1.0};
-  char *p;
-
-  char uplo='U';
-  char trans='N';
-
-  if ((p = getenv("OPENBLAS_UPLO"))) uplo=*p; 
-  if ((p = getenv("OPENBLAS_TRANS"))) trans=*p;
-
-  blasint m, i, j;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d Uplo = %c Trans = %c\n", from, to, step,uplo,trans);
-
-  if (( a = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( b = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( c = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE       Flops\n");
-
-  for(m = from; m <= to; m += step)
-  {
-
-    fprintf(stderr, " %6d : ", (int)m);
-
-    for(j = 0; j < m; j++){
-      for(i = 0; i < m * COMPSIZE; i++){
-	a[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-	b[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-	c[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-      }
-    }
-
-    gettimeofday( &start, (struct timezone *)0);
-
-    HER2K (&uplo, &trans, &m, &m, alpha, a, &m, b, &m, beta, c, &m );
-
-    gettimeofday( &stop, (struct timezone *)0);
-
-    time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-    gettimeofday( &start, (struct timezone *)0);
-
-    fprintf(stderr,
-	    " %10.2f MFlops\n",
-	    COMPSIZE * COMPSIZE * 2. * (double)m * (double)m * (double)m / time1 * 1.e-6);
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/herk.c

@@ -1,189 +0,0 @@
-/***************************************************************************
-Copyright (c) 2014, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-
-#undef HERK
-
-
-#ifdef DOUBLE
-#define HERK   BLASFUNC(zherk)
-#else
-#define HERK   BLASFUNC(cherk)
-#endif
-
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *a, *c;
-  FLOAT alpha[] = {1.0, 1.0};
-  FLOAT beta [] = {1.0, 1.0};
-  char *p;
-
-  char uplo='U';
-  char trans='N';
-
-  if ((p = getenv("OPENBLAS_UPLO"))) uplo=*p;
-  if ((p = getenv("OPENBLAS_TRANS"))) trans=*p;
-
-  blasint m, i, j;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d Uplo = %c Trans = %c\n", from, to, step,uplo,trans);
-
-
-  if (( a = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( c = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE       Flops\n");
-
-  for(m = from; m <= to; m += step)
-  {
-
-    fprintf(stderr, " %6d : ", (int)m);
-
-    for(j = 0; j < m; j++){
-      for(i = 0; i < m * COMPSIZE; i++){
-	a[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-	c[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-      }
-    }
-
-    gettimeofday( &start, (struct timezone *)0);
-
-    HERK (&uplo, &trans, &m, &m, alpha, a, &m, beta, c, &m );
-
-    gettimeofday( &stop, (struct timezone *)0);
-
-    time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-    gettimeofday( &start, (struct timezone *)0);
-
-    fprintf(stderr,
-	    " %10.2f MFlops\n",
-	    COMPSIZE * COMPSIZE * 1. * (double)m * (double)m * (double)m / time1 * 1.e-6);
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/iamax.c

@@ -1,192 +0,0 @@
-/***************************************************************************
-Copyright (c) 2016, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-
-#undef IAMAX
-
-#ifdef COMPLEX
-#ifdef DOUBLE
-#define IAMAX   BLASFUNC(izamax)
-#else
-#define IAMAX   BLASFUNC(icamax)
-#endif
-#else
-#ifdef DOUBLE
-#define IAMAX   BLASFUNC(idamax)
-#else
-#define IAMAX   BLASFUNC(isamax)
-#endif
-#endif
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *x;
-  blasint m, i;
-  blasint inc_x=1;
-  int loops = 1;
-  int l;
-  char *p;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1,timeg;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  if ((p = getenv("OPENBLAS_LOOPS")))  loops = atoi(p);
-  if ((p = getenv("OPENBLAS_INCX")))   inc_x = atoi(p);
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d Inc_x = %d Loops = %d\n", from, to, step,inc_x,loops);
-
-  if (( x = (FLOAT *)malloc(sizeof(FLOAT) * to * abs(inc_x) * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE       Flops\n");
-
-  for(m = from; m <= to; m += step)
-  {
-
-   timeg=0;
-
-   fprintf(stderr, " %6d : ", (int)m);
-
-
-   for (l=0; l<loops; l++)
-   {
-
-   	for(i = 0; i < m * COMPSIZE * abs(inc_x); i++){
-			x[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   	}
-
-    	gettimeofday( &start, (struct timezone *)0);
-
-    	IAMAX (&m, x, &inc_x);
-
-    	gettimeofday( &stop, (struct timezone *)0);
-
-    	time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-	timeg += time1;
-
-    }
-
-    timeg /= loops;
-
-    fprintf(stderr,
-	    " %10.2f MFlops %10.6f sec\n",
-	    COMPSIZE * sizeof(FLOAT) * 1. * (double)m / timeg * 1.e-6, timeg);
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/linpack.c

@@ -1,273 +0,0 @@
-/*********************************************************************/
-/* Copyright 2009, 2010 The University of Texas at Austin.           */
-/* All rights reserved.                                              */
-/*                                                                   */
-/* Redistribution and use in source and binary forms, with or        */
-/* without modification, are permitted provided that the following   */
-/* conditions are met:                                               */
-/*                                                                   */
-/*   1. Redistributions of source code must retain the above         */
-/*      copyright notice, this list of conditions and the following  */
-/*      disclaimer.                                                  */
-/*                                                                   */
-/*   2. Redistributions in binary form must reproduce the above      */
-/*      copyright notice, this list of conditions and the following  */
-/*      disclaimer in the documentation and/or other materials       */
-/*      provided with the distribution.                              */
-/*                                                                   */
-/*    THIS  SOFTWARE IS PROVIDED  BY THE  UNIVERSITY OF  TEXAS AT    */
-/*    AUSTIN  ``AS IS''  AND ANY  EXPRESS OR  IMPLIED WARRANTIES,    */
-/*    INCLUDING, BUT  NOT LIMITED  TO, THE IMPLIED  WARRANTIES OF    */
-/*    MERCHANTABILITY  AND FITNESS FOR  A PARTICULAR  PURPOSE ARE    */
-/*    DISCLAIMED.  IN  NO EVENT SHALL THE UNIVERSITY  OF TEXAS AT    */
-/*    AUSTIN OR CONTRIBUTORS BE  LIABLE FOR ANY DIRECT, INDIRECT,    */
-/*    INCIDENTAL,  SPECIAL, EXEMPLARY,  OR  CONSEQUENTIAL DAMAGES    */
-/*    (INCLUDING, BUT  NOT LIMITED TO,  PROCUREMENT OF SUBSTITUTE    */
-/*    GOODS  OR  SERVICES; LOSS  OF  USE,  DATA,  OR PROFITS;  OR    */
-/*    BUSINESS INTERRUPTION) HOWEVER CAUSED  AND ON ANY THEORY OF    */
-/*    LIABILITY, WHETHER  IN CONTRACT, STRICT  LIABILITY, OR TORT    */
-/*    (INCLUDING NEGLIGENCE OR OTHERWISE)  ARISING IN ANY WAY OUT    */
-/*    OF  THE  USE OF  THIS  SOFTWARE,  EVEN  IF ADVISED  OF  THE    */
-/*    POSSIBILITY OF SUCH DAMAGE.                                    */
-/*                                                                   */
-/* The views and conclusions contained in the software and           */
-/* documentation are those of the authors and should not be          */
-/* interpreted as representing official policies, either expressed   */
-/* or implied, of The University of Texas at Austin.                 */
-/*********************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-double fabs(double);
-
-#undef GETRF
-#undef GETRS
-
-#ifndef COMPLEX
-#ifdef XDOUBLE
-#define GETRF   BLASFUNC(qgetrf)
-#define GETRS   BLASFUNC(qgetrs)
-#elif defined(DOUBLE)
-#define GETRF   BLASFUNC(dgetrf)
-#define GETRS   BLASFUNC(dgetrs)
-#else
-#define GETRF   BLASFUNC(sgetrf)
-#define GETRS   BLASFUNC(sgetrs)
-#endif
-#else
-#ifdef XDOUBLE
-#define GETRF   BLASFUNC(xgetrf)
-#define GETRS   BLASFUNC(xgetrs)
-#elif defined(DOUBLE)
-#define GETRF   BLASFUNC(zgetrf)
-#define GETRS   BLASFUNC(zgetrs)
-#else
-#define GETRF   BLASFUNC(cgetrf)
-#define GETRS   BLASFUNC(cgetrs)
-#endif
-#endif
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *a, *b;
-  blasint *ipiv;
-
-  blasint m, i, j, info;
-  blasint unit =   1;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  FLOAT maxerr;
-
-  struct timeval start, stop;
-  double time1, time2;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d\n", from, to, step);
-
-  if (( a = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( b = (FLOAT *)malloc(sizeof(FLOAT) * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( ipiv = (blasint *)malloc(sizeof(blasint) * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE       Residual     Decompose            Solve           Total\n");
-
-  for(m = from; m <= to; m += step){
-
-    fprintf(stderr, " %6d : ", (int)m);
-
-    for(j = 0; j < m; j++){
-      for(i = 0; i < m * COMPSIZE; i++){
-	a[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-      }
-    }
-
-    for (i = 0; i < m * COMPSIZE; ++i) b[i] = 0.;
-
-    for (j = 0; j < m; ++j) {
-      for (i = 0; i < m * COMPSIZE; ++i) {
-	b[i] += a[i + j * m * COMPSIZE];
-      }
-    }
-
-    gettimeofday( &start, (struct timezone *)0);
-
-    GETRF (&m, &m, a, &m, ipiv, &info);
-
-    gettimeofday( &stop, (struct timezone *)0);
-
-    if (info) {
-      fprintf(stderr, "Matrix is not singular .. %d\n", info);
-      exit(1);
-    }
-
-    time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-    gettimeofday( &start, (struct timezone *)0);
-
-    GETRS("N", &m, &unit, a, &m, ipiv, b, &m, &info);
-
-    gettimeofday( &stop, (struct timezone *)0);
-
-    if (info) {
-      fprintf(stderr, "Matrix is not singular .. %d\n", info);
-      exit(1);
-    }
-
-    time2 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-    maxerr = 0.;
-
-    for(i = 0; i < m; i++){
-#ifndef XDOUBLE
-      if (maxerr < fabs(b[i * COMPSIZE] - 1.0)) maxerr = fabs(b[i * COMPSIZE] - 1.0);
-#ifdef COMPLEX
-      if (maxerr < fabs(b[i * COMPSIZE] + 1)) maxerr = fabs(b[i * COMPSIZE + 1]);
-#endif
-#else
-      if (maxerr < fabsl(b[i * COMPSIZE] - 1.0L)) maxerr = fabsl(b[i * COMPSIZE] - 1.0L);
-#ifdef COMPLEX
-      if (maxerr < fabsl(b[i * COMPSIZE] + 1)) maxerr = fabsl(b[i * COMPSIZE + 1]);
-#endif
-#endif
-    }
-
-#ifdef XDOUBLE
-    fprintf(stderr,"  %Le ", maxerr);
-#else
-    fprintf(stderr,"  %e ", maxerr);
-#endif
-
-    fprintf(stderr,
-	    " %10.2f MFlops %10.2f MFlops %10.2f MFlops\n",
-	    COMPSIZE * COMPSIZE * 2. / 3. * (double)m * (double)m * (double)m / time1 * 1.e-6,
-	    COMPSIZE * COMPSIZE * 2.      * (double)m * (double)m             / time2 * 1.e-6,
-	    COMPSIZE * COMPSIZE * (2. / 3. * (double)m * (double)m * (double)m + 2. * (double)m * (double)m) / (time1 + time2) * 1.e-6);
-
-#if 0
-    if (
-#ifdef DOUBLE
-	maxerr > 1.e-8
-#else
-	maxerr > 1.e-1
-#endif
-	) {
-      fprintf(stderr, "Error is too large.\n");
-      exit(1);
-    }
-#endif
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/nrm2.c

@@ -1,193 +0,0 @@
-/***************************************************************************
-Copyright (c) 2016, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-
-#undef NRM2
-
-#ifdef COMPLEX
-#ifdef DOUBLE
-#define NRM2   BLASFUNC(dznrm2)
-#else
-#define NRM2   BLASFUNC(scnrm2)
-#endif
-#else
-#ifdef DOUBLE
-#define NRM2   BLASFUNC(dnrm2)
-#else
-#define NRM2   BLASFUNC(snrm2)
-#endif
-#endif
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *x;
-  blasint m, i;
-  blasint inc_x=1;
-  int loops = 1;
-  int l;
-  char *p;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1,timeg;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  if ((p = getenv("OPENBLAS_LOOPS")))  loops = atoi(p);
-  if ((p = getenv("OPENBLAS_INCX")))   inc_x = atoi(p);
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d Inc_x = %d Loops = %d\n", from, to, step,inc_x,loops);
-
-  if (( x = (FLOAT *)malloc(sizeof(FLOAT) * to * abs(inc_x) * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE       Flops\n");
-
-  for(m = from; m <= to; m += step)
-  {
-
-   timeg=0;
-
-   fprintf(stderr, " %6d : ", (int)m);
-
-
-   for (l=0; l<loops; l++)
-   {
-
-   	for(i = 0; i < m * COMPSIZE * abs(inc_x); i++){
-			x[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   	}
-
-    	gettimeofday( &start, (struct timezone *)0);
-
-    	NRM2 (&m, x, &inc_x);
-
-    	gettimeofday( &stop, (struct timezone *)0);
-
-    	time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-	timeg += time1;
-
-    }
-
-    timeg /= loops;
-
-    fprintf(stderr,
-	    " %10.2f MFlops %10.6f sec\n",
-	    COMPSIZE * COMPSIZE * 2. * (double)m / timeg * 1.e-6, timeg);
-
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/plot-filter.sh

@@ -1,65 +0,0 @@
-#!/bin/sh
-# **********************************************************************************
-# Copyright (c) 2014, The OpenBLAS Project
-# All rights reserved.
-# Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions are
-# met:
-# 1. Redistributions of source code must retain the above copyright
-# notice, this list of conditions and the following disclaimer.
-# 2. Redistributions in binary form must reproduce the above copyright
-# notice, this list of conditions and the following disclaimer in
-# the documentation and/or other materials provided with the
-# distribution.
-# 3. Neither the name of the OpenBLAS project nor the names of
-# its contributors may be used to endorse or promote products
-# derived from this software without specific prior written permission.
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-# ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-# USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-# **********************************************************************************
-
-# ************************************************************************
-# sample filter for data output from benchmark programs
-#
-# usage example: 
-#   ./dgemm.goto 2>&1|./plotfilter.sh >OpenBLAS
-# ************************************************************************
-
-if [ $# -eq 1 ]
-then
-	arg1=$1
-else
-	arg1=0
-fi
-
-case $arg1 in
-
-L)
-	# Linpack Benchmark
-	awk '/MFlops/ { print $1,int($8) }'|tail --lines=+2
-	;;
-
-C)
-	# Cholesky Benchmark
-	awk '/MFlops/ { print $3,int($9) }'|tail --lines=+2
-	;;
-
-B)
-	# Copy Benchmark	
-	awk '/MBytes/ { print $1,int($3) }'|tail --lines=+2
-	;;
-
-
-*)
-	awk '/MFlops/ { print $1,int($3) }'|tail --lines=+2
-	;;
-esac
-

benchmark/plot-header

@@ -1,42 +0,0 @@
-# **********************************************************************************
-# Copyright (c) 2014, The OpenBLAS Project
-# All rights reserved.
-# Redistribution and use in source and binary forms, with or without
-# modification, are permitted provided that the following conditions are
-# met:
-# 1. Redistributions of source code must retain the above copyright
-# notice, this list of conditions and the following disclaimer.
-# 2. Redistributions in binary form must reproduce the above copyright
-# notice, this list of conditions and the following disclaimer in
-# the documentation and/or other materials provided with the
-# distribution.
-# 3. Neither the name of the OpenBLAS project nor the names of
-# its contributors may be used to endorse or promote products
-# derived from this software without specific prior written permission.
-# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-# ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-# CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-# OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-# USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-# **********************************************************************************
-
-set term x11 font sans;
-set ylabel "MFlops";
-set xlabel "Size";
-set grid xtics;
-set grid ytics;
-set key left;
-set timestamp "generated on %Y-%m-%d by `whoami`"
-set title "Dtrsm\nUPLO=U TRANS=N SIDE=L\nBulldozer 1 Thread"
-plot 'OpenBLAS' smooth bezier, 'ACML' smooth bezier, 'MKL' smooth bezier;
-set output "print.png";
-show title;
-show plot;
-show output;
-
-

benchmark/potrf.c

@@ -1,286 +0,0 @@
-/*********************************************************************/
-/* Copyright 2009, 2010 The University of Texas at Austin.           */
-/* All rights reserved.                                              */
-/*                                                                   */
-/* Redistribution and use in source and binary forms, with or        */
-/* without modification, are permitted provided that the following   */
-/* conditions are met:                                               */
-/*                                                                   */
-/*   1. Redistributions of source code must retain the above         */
-/*      copyright notice, this list of conditions and the following  */
-/*      disclaimer.                                                  */
-/*                                                                   */
-/*   2. Redistributions in binary form must reproduce the above      */
-/*      copyright notice, this list of conditions and the following  */
-/*      disclaimer in the documentation and/or other materials       */
-/*      provided with the distribution.                              */
-/*                                                                   */
-/*    THIS  SOFTWARE IS PROVIDED  BY THE  UNIVERSITY OF  TEXAS AT    */
-/*    AUSTIN  ``AS IS''  AND ANY  EXPRESS OR  IMPLIED WARRANTIES,    */
-/*    INCLUDING, BUT  NOT LIMITED  TO, THE IMPLIED  WARRANTIES OF    */
-/*    MERCHANTABILITY  AND FITNESS FOR  A PARTICULAR  PURPOSE ARE    */
-/*    DISCLAIMED.  IN  NO EVENT SHALL THE UNIVERSITY  OF TEXAS AT    */
-/*    AUSTIN OR CONTRIBUTORS BE  LIABLE FOR ANY DIRECT, INDIRECT,    */
-/*    INCIDENTAL,  SPECIAL, EXEMPLARY,  OR  CONSEQUENTIAL DAMAGES    */
-/*    (INCLUDING, BUT  NOT LIMITED TO,  PROCUREMENT OF SUBSTITUTE    */
-/*    GOODS  OR  SERVICES; LOSS  OF  USE,  DATA,  OR PROFITS;  OR    */
-/*    BUSINESS INTERRUPTION) HOWEVER CAUSED  AND ON ANY THEORY OF    */
-/*    LIABILITY, WHETHER  IN CONTRACT, STRICT  LIABILITY, OR TORT    */
-/*    (INCLUDING NEGLIGENCE OR OTHERWISE)  ARISING IN ANY WAY OUT    */
-/*    OF  THE  USE OF  THIS  SOFTWARE,  EVEN  IF ADVISED  OF  THE    */
-/*    POSSIBILITY OF SUCH DAMAGE.                                    */
-/*                                                                   */
-/* The views and conclusions contained in the software and           */
-/* documentation are those of the authors and should not be          */
-/* interpreted as representing official policies, either expressed   */
-/* or implied, of The University of Texas at Austin.                 */
-/*********************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-double fabs(double);
-
-#undef POTRF
-
-#ifndef COMPLEX
-#ifdef XDOUBLE
-#define POTRF   BLASFUNC(qpotrf)
-#define POTRS   BLASFUNC(qpotrs)
-#define POTRI   BLASFUNC(qpotri)
-#define SYRK    BLASFUNC(qsyrk)
-#elif defined(DOUBLE)
-#define POTRF   BLASFUNC(dpotrf)
-#define POTRS   BLASFUNC(dpotrs)
-#define POTRI   BLASFUNC(dpotri)
-#define SYRK    BLASFUNC(dsyrk)
-#else
-#define POTRF   BLASFUNC(spotrf)
-#define POTRS   BLASFUNC(spotrs)
-#define POTRI   BLASFUNC(spotri)
-#define SYRK    BLASFUNC(ssyrk)
-#endif
-#else
-#ifdef XDOUBLE
-#define POTRF   BLASFUNC(xpotrf)
-#define POTRS   BLASFUNC(xpotrs)
-#define POTRI   BLASFUNC(xpotri)
-#define SYRK    BLASFUNC(xherk)
-#elif defined(DOUBLE)
-#define POTRF   BLASFUNC(zpotrf)
-#define POTRS   BLASFUNC(zpotrs)
-#define POTRI   BLASFUNC(zpotri)
-#define SYRK    BLASFUNC(zherk)
-#else
-#define POTRF   BLASFUNC(cpotrf)
-#define POTRS   BLASFUNC(cpotrs)
-#define POTRI   BLASFUNC(cpotri)
-#define SYRK    BLASFUNC(cherk)
-#endif
-#endif
-
-// extern void POTRI(char *uplo, blasint *m, FLOAT *a, blasint *lda, blasint *info);
-// extern void POTRS(char *uplo, blasint *m, blasint *n, FLOAT *a, blasint *lda, FLOAT *b, blasint *ldb, blasint *info);
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-int main(int argc, char *argv[]){
-
-#ifndef COMPLEX
-  char *trans[] = {"T", "N"};
-#else
-  char *trans[] = {"C", "N"};
-#endif
-  char *uplo[]  = {"U", "L"};
-  FLOAT alpha[] = {1.0, 0.0};
-  FLOAT beta [] = {0.0, 0.0};
-
-  FLOAT *a, *b;
-
-  char *p;
-  char btest = 'F';
-
-  blasint m, i, j, info, uplos=0;
-  double flops;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  if ((p = getenv("OPENBLAS_UPLO")))
-	if (*p == 'L') uplos=1;
-
-  if ((p = getenv("OPENBLAS_TEST"))) btest=*p;
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d Uplo = %c\n", from, to, step,*uplo[uplos]);
-
-  if (( a    = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( b    = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  for(m = from; m <= to; m += step){
-
-#ifndef COMPLEX
-      if (uplos & 1) {
-	for (j = 0; j < m; j++) {
-	  for(i = 0; i < j; i++)     a[i + j * m] = 0.;
-	                             a[j + j * m] = ((double) rand() / (double) RAND_MAX) + 8.;
-	  for(i = j + 1; i < m; i++) a[i + j * m] = ((double) rand() / (double) RAND_MAX) - 0.5;
-	}
-      } else {
-	for (j = 0; j < m; j++) {
-	  for(i = 0; i < j; i++)     a[i + j * m] = ((double) rand() / (double) RAND_MAX) - 0.5;
-	                             a[j + j * m] = ((double) rand() / (double) RAND_MAX) + 8.;
-	  for(i = j + 1; i < m; i++) a[i + j * m] = 0.;
-	}
-      }
-#else
-      if (uplos & 1) {
-	for (j = 0; j < m; j++) {
-	  for(i = 0; i < j; i++) {
-	    a[(i + j * m) * 2 + 0] = 0.;
-	    a[(i + j * m) * 2 + 1] = 0.;
-	  }
-
-	  a[(j + j * m) * 2 + 0] = ((double) rand() / (double) RAND_MAX) + 8.;
-	  a[(j + j * m) * 2 + 1] = 0.;
-
-	  for(i = j + 1; i < m; i++) {
-	    a[(i + j * m) * 2 + 0] = ((double) rand() / (double) RAND_MAX) - 0.5;
-	    a[(i + j * m) * 2 + 1] = ((double) rand() / (double) RAND_MAX) - 0.5;
-	  }
-	}
-      } else {
-	for (j = 0; j < m; j++) {
-	  for(i = 0; i < j; i++) {
-	    a[(i + j * m) * 2 + 0] = ((double) rand() / (double) RAND_MAX) - 0.5;
-	    a[(i + j * m) * 2 + 1] = ((double) rand() / (double) RAND_MAX) - 0.5;
-	  }
-
-	  a[(j + j * m) * 2 + 0] = ((double) rand() / (double) RAND_MAX) + 8.;
-	  a[(j + j * m) * 2 + 1] = 0.;
-
-	  for(i = j + 1; i < m; i++) {
-	    a[(i + j * m) * 2 + 0] = 0.;
-	    a[(i + j * m) * 2 + 1] = 0.;
-	  }
-	}
-      }
-#endif
-
-      SYRK(uplo[uplos], trans[uplos], &m, &m, alpha, a, &m, beta, b, &m);
-
-      gettimeofday( &start, (struct timezone *)0);
-
-      POTRF(uplo[uplos], &m, b, &m, &info);
-
-      gettimeofday( &stop, (struct timezone *)0);
-
-      if (info != 0) {
-	fprintf(stderr, "Potrf info = %d\n", info);
-	exit(1);
-      }
-
-      time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-      flops = COMPSIZE * COMPSIZE * (1.0/3.0 * (double)m * (double)m *(double)m +1.0/2.0* (double)m *(double)m + 1.0/6.0* (double)m) / time1 * 1.e-6;
-
-      if ( btest == 'S' )
-      {
-	
- 	for(j = 0; j < to; j++){
-      		for(i = 0; i < to * COMPSIZE; i++){
-        		a[i + j * to * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-      		}
-    	}
-
-      	gettimeofday( &start, (struct timezone *)0);
-
-      	POTRS(uplo[uplos], &m, &m, b, &m, a, &m,  &info);
-
-      	gettimeofday( &stop, (struct timezone *)0);
-
-      	if (info != 0) {
-		fprintf(stderr, "Potrs info = %d\n", info);
-		exit(1);
-        }
-        time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-        flops = COMPSIZE * COMPSIZE * (2.0 * (double)m * (double)m *(double)m ) / time1 * 1.e-6;
-
-      }
-	
-      if ( btest == 'I' )
-      {
-	
-      	gettimeofday( &start, (struct timezone *)0);
-
-      	POTRI(uplo[uplos], &m, b, &m, &info);
-
-      	gettimeofday( &stop, (struct timezone *)0);
-
-      	if (info != 0) {
-		fprintf(stderr, "Potri info = %d\n", info);
-		exit(1);
-        }
-
-        time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-        flops = COMPSIZE * COMPSIZE * (2.0/3.0 * (double)m * (double)m *(double)m +1.0/2.0* (double)m *(double)m + 5.0/6.0* (double)m) / time1 * 1.e-6;
-      }
-	
-      fprintf(stderr, "%8d : %10.2f MFlops : %10.3f Sec : Test=%c\n",m,flops ,time1,btest);
-
-
-  }
-
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));
-

benchmark/rot.c

@@ -1,197 +0,0 @@
-/***************************************************************************
-Copyright (c) 2014, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-
-#undef DOT
-
-
-#ifdef DOUBLE
-#define ROT   BLASFUNC(drot)
-#else
-#define ROT   BLASFUNC(srot)
-#endif
-
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *x, *y;
-  // FLOAT result;
-  blasint m, i;
-  blasint inc_x=1,inc_y=1;
-  FLOAT c[1] = { 2.0 };
-  FLOAT s[1] = { 2.0 };
-  int loops = 1;
-  int l;
-  char *p;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1,timeg;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  if ((p = getenv("OPENBLAS_LOOPS")))  loops = atoi(p);
-  if ((p = getenv("OPENBLAS_INCX")))   inc_x = atoi(p);
-  if ((p = getenv("OPENBLAS_INCY")))   inc_y = atoi(p);
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d Inc_x = %d Inc_y = %d Loops = %d\n", from, to, step,inc_x,inc_y,loops);
-
-  if (( x = (FLOAT *)malloc(sizeof(FLOAT) * to * abs(inc_x) * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( y = (FLOAT *)malloc(sizeof(FLOAT) * to * abs(inc_y) * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE       Flops\n");
-
-  for(m = from; m <= to; m += step)
-  {
-
-   timeg=0;
-
-   fprintf(stderr, " %6d : ", (int)m);
-
-
-   for (l=0; l<loops; l++)
-   {
-
-   	for(i = 0; i < m * COMPSIZE * abs(inc_x); i++){
-			x[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   	}
-
-   	for(i = 0; i < m * COMPSIZE * abs(inc_y); i++){
-			y[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   	}
-    	gettimeofday( &start, (struct timezone *)0);
-
-    	ROT (&m, x, &inc_x, y, &inc_y, c, s);
-
-    	gettimeofday( &stop, (struct timezone *)0);
-
-    	time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-	timeg += time1;
-
-    }
-
-    timeg /= loops;
-
-    fprintf(stderr,
-	    " %10.2f MFlops %10.6f sec\n",
-	    COMPSIZE * COMPSIZE * 6. * (double)m / timeg * 1.e-6, timeg);
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/scal.c

@@ -1,202 +0,0 @@
-/***************************************************************************
-Copyright (c) 2014, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-
-#undef SCAL
-
-#ifdef COMPLEX
-#ifdef DOUBLE
-#define SCAL   BLASFUNC(zscal)
-#else
-#define SCAL   BLASFUNC(cscal)
-#endif
-#else
-#ifdef DOUBLE
-#define SCAL   BLASFUNC(dscal)
-#else
-#define SCAL   BLASFUNC(sscal)
-#endif
-#endif
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *x, *y;
-  FLOAT alpha[2] = { 2.0, 2.0 };
-  blasint m, i;
-  blasint inc_x=1,inc_y=1;
-  int loops = 1;
-  int l;
-  char *p;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1,timeg;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  if ((p = getenv("OPENBLAS_LOOPS")))  loops = atoi(p);
-  if ((p = getenv("OPENBLAS_INCX")))   inc_x = atoi(p);
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d Inc_x = %d Inc_y = %d Loops = %d\n", from, to, step,inc_x,inc_y,loops);
-
-  if (( x = (FLOAT *)malloc(sizeof(FLOAT) * to * abs(inc_x) * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( y = (FLOAT *)malloc(sizeof(FLOAT) * to * abs(inc_y) * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE       Flops\n");
-
-  for(m = from; m <= to; m += step)
-  {
-
-   timeg=0;
-
-   fprintf(stderr, " %6d : ", (int)m);
-
-
-   for (l=0; l<loops; l++)
-   {
-
-   	for(i = 0; i < m * COMPSIZE * abs(inc_x); i++){
-			x[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   	}
-
-   	for(i = 0; i < m * COMPSIZE * abs(inc_y); i++){
-			y[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   	}
-    	gettimeofday( &start, (struct timezone *)0);
-
-    	SCAL (&m, alpha, x, &inc_x);
-
-    	gettimeofday( &stop, (struct timezone *)0);
-
-    	time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-	timeg += time1;
-
-    }
-
-    timeg /= loops;
-
-#ifdef COMPLEX
-    fprintf(stderr, " %10.2f MFlops %10.6f sec\n", 6. * (double)m / timeg * 1.e-6, timeg);
-#else
-    fprintf(stderr, " %10.2f MFlops %10.6f sec\n", 1. * (double)m / timeg * 1.e-6, timeg);
-#endif
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/scripts/NUMPY/cgemm.py

@@ -1,56 +0,0 @@
-#!/usr/bin/python
-
-import os
-import sys
-import time
-import numpy
-from numpy.random import randn
-
-def run_cgemm(N,l):
-
-	A = randn(N,N).astype('float32') + randn(N,N).astype('float32') * 1j;
-	B = randn(N,N).astype('float32') + randn(N,N).astype('float32') * 1j;
-
-	start = time.time();
-	for i in range(0,l):
-		ref = numpy.dot(A,B)
-	end = time.time()
-	
-	timediff = (end -start) 
-	mflops = ( 8*N*N*N) *l / timediff
-	mflops *= 1e-6
-
-	size = "%dx%d" % (N,N)
-	print("%14s :\t%20f MFlops\t%20f sec" % (size,mflops,timediff))
-
-
-if __name__ == "__main__":
-	N=128
-	NMAX=2048
-	NINC=128
-	LOOPS=1
-
-	z=0
-	for arg in sys.argv:
-		if z == 1:
-			N = int(arg)
-		elif z == 2:
-			NMAX = int(arg)
-		elif z == 3:
-			NINC = int(arg)
-		elif z == 4:
-			LOOPS = int(arg)
-
-		z = z + 1
-
-	if 'OPENBLAS_LOOPS' in os.environ:
-		p = os.environ['OPENBLAS_LOOPS']
-		if p:
-			LOOPS = int(p);
-
-	print("From: %d To: %d Step=%d Loops=%d" % (N, NMAX, NINC, LOOPS))
-	print("\tSIZE\t\t\tFlops\t\t\t\t\tTime")
-
-	for i in range (N,NMAX+NINC,NINC):
-		run_cgemm(i,LOOPS)
-

benchmark/scripts/NUMPY/cgemv.py

@@ -1,56 +0,0 @@
-#!/usr/bin/python
-
-import os
-import sys
-import time
-import numpy
-from numpy.random import randn
-
-def run_cgemv(N,l):
-
-	A = randn(N,N).astype('float32') + randn(N,N).astype('float32') * 1j;
-	B = randn(N).astype('float32') + randn(N).astype('float32') * 1j;
-
-	start = time.time();
-	for i in range(0,l):
-		ref = numpy.dot(A,B)
-	end = time.time()
-	
-	timediff = (end -start) 
-	mflops = ( 8*N*N) *l / timediff
-	mflops *= 1e-6
-
-	size = "%dx%d" % (N,N)
-	print("%14s :\t%20f MFlops\t%20f sec" % (size,mflops,timediff))
-
-
-if __name__ == "__main__":
-	N=128
-	NMAX=2048
-	NINC=128
-	LOOPS=1
-
-	z=0
-	for arg in sys.argv:
-		if z == 1:
-			N = int(arg)
-		elif z == 2:
-			NMAX = int(arg)
-		elif z == 3:
-			NINC = int(arg)
-		elif z == 4:
-			LOOPS = int(arg)
-
-		z = z + 1
-
-	if 'OPENBLAS_LOOPS' in os.environ:
-		p = os.environ['OPENBLAS_LOOPS']
-		if p:
-			LOOPS = int(p);
-
-	print("From: %d To: %d Step=%d Loops=%d" % (N, NMAX, NINC, LOOPS))
-	print("\tSIZE\t\t\tFlops\t\t\t\t\tTime")
-
-	for i in range (N,NMAX+NINC,NINC):
-		run_cgemv(i,LOOPS)
-

benchmark/scripts/NUMPY/daxpy.py

@@ -1,58 +0,0 @@
-#!/usr/bin/python
-
-import os
-import sys
-import time
-import numpy
-from numpy.random import randn
-from scipy.linalg.blas import daxpy
-
-
-def run_daxpy(N,l):
-
-	x = randn(N).astype('float64')
-	y = randn(N).astype('float64')
-
-	start = time.time();
-	for i in range(0,l):
-		y = daxpy(x,y, a=2.0 )
-	end = time.time()
-	
-	timediff = (end -start) 
-	mflops = ( 2*N ) *l / timediff
-	mflops *= 1e-6
-
-	size = "%d" % (N)
-	print("%14s :\t%20f MFlops\t%20f sec" % (size,mflops,timediff))
-
-
-if __name__ == "__main__":
-	N=128
-	NMAX=2048
-	NINC=128
-	LOOPS=1
-
-	z=0
-	for arg in sys.argv:
-		if z == 1:
-			N = int(arg)
-		elif z == 2:
-			NMAX = int(arg)
-		elif z == 3:
-			NINC = int(arg)
-		elif z == 4:
-			LOOPS = int(arg)
-
-		z = z + 1
-
-	if 'OPENBLAS_LOOPS' in os.environ:
-		p = os.environ['OPENBLAS_LOOPS']
-		if p:
-			LOOPS = int(p);
-
-	print("From: %d To: %d Step=%d Loops=%d" % (N, NMAX, NINC, LOOPS))
-	print("\tSIZE\t\t\tFlops\t\t\t\t\tTime")
-
-	for i in range (N,NMAX+NINC,NINC):
-		run_daxpy(i,LOOPS)
-

benchmark/scripts/NUMPY/ddot.py

@@ -1,56 +0,0 @@
-#!/usr/bin/python
-
-import os
-import sys
-import time
-import numpy
-from numpy.random import randn
-
-def run_ddot(N,l):
-
-	A = randn(N).astype('float64')
-	B = randn(N).astype('float64')
-
-	start = time.time();
-	for i in range(0,l):
-		ref = numpy.dot(A,B)
-	end = time.time()
-	
-	timediff = (end -start) 
-	mflops = ( 2*N ) *l / timediff
-	mflops *= 1e-6
-
-	size = "%d" % (N)
-	print("%14s :\t%20f MFlops\t%20f sec" % (size,mflops,timediff))
-
-
-if __name__ == "__main__":
-	N=128
-	NMAX=2048
-	NINC=128
-	LOOPS=1
-
-	z=0
-	for arg in sys.argv:
-		if z == 1:
-			N = int(arg)
-		elif z == 2:
-			NMAX = int(arg)
-		elif z == 3:
-			NINC = int(arg)
-		elif z == 4:
-			LOOPS = int(arg)
-
-		z = z + 1
-
-	if 'OPENBLAS_LOOPS' in os.environ:
-		p = os.environ['OPENBLAS_LOOPS']
-		if p:
-			LOOPS = int(p);
-
-	print("From: %d To: %d Step=%d Loops=%d" % (N, NMAX, NINC, LOOPS))
-	print("\tSIZE\t\t\tFlops\t\t\t\t\tTime")
-
-	for i in range (N,NMAX+NINC,NINC):
-		run_ddot(i,LOOPS)
-

benchmark/scripts/NUMPY/deig.py

@@ -1,55 +0,0 @@
-#!/usr/bin/python
-
-import os
-import sys
-import time
-import numpy
-from numpy.random import randn
-
-def run_deig(N,l):
-
-	A = randn(N,N).astype('float64')
-
-	start = time.time();
-	for i in range(0,l):
-		la,v = numpy.linalg.eig(A)
-	end = time.time()
-	
-	timediff = (end -start) 
-	mflops = ( 26.33 *N*N*N) *l / timediff
-	mflops *= 1e-6
-
-	size = "%dx%d" % (N,N)
-	print("%14s :\t%20f MFlops\t%20f sec" % (size,mflops,timediff))
-
-
-if __name__ == "__main__":
-	N=128
-	NMAX=2048
-	NINC=128
-	LOOPS=1
-
-	z=0
-	for arg in sys.argv:
-		if z == 1:
-			N = int(arg)
-		elif z == 2:
-			NMAX = int(arg)
-		elif z == 3:
-			NINC = int(arg)
-		elif z == 4:
-			LOOPS = int(arg)
-
-		z = z + 1
-
-	if 'OPENBLAS_LOOPS' in os.environ:
-		p = os.environ['OPENBLAS_LOOPS']
-		if p:
-			LOOPS = int(p);
-
-	print("From: %d To: %d Step=%d Loops=%d" % (N, NMAX, NINC, LOOPS))
-	print("\tSIZE\t\t\tFlops\t\t\t\t\tTime")
-
-	for i in range (N,NMAX+NINC,NINC):
-		run_deig(i,LOOPS)
-

benchmark/scripts/NUMPY/dgemm.py

@@ -1,56 +0,0 @@
-#!/usr/bin/python
-
-import os
-import sys
-import time
-import numpy
-from numpy.random import randn
-
-def run_dgemm(N,l):
-
-	A = randn(N,N).astype('float64')
-	B = randn(N,N).astype('float64')
-
-	start = time.time();
-	for i in range(0,l):
-		ref = numpy.dot(A,B)
-	end = time.time()
-	
-	timediff = (end -start) 
-	mflops = ( 2*N*N*N) *l / timediff
-	mflops *= 1e-6
-
-	size = "%dx%d" % (N,N)
-	print("%14s :\t%20f MFlops\t%20f sec" % (size,mflops,timediff))
-
-
-if __name__ == "__main__":
-	N=128
-	NMAX=2048
-	NINC=128
-	LOOPS=1
-
-	z=0
-	for arg in sys.argv:
-		if z == 1:
-			N = int(arg)
-		elif z == 2:
-			NMAX = int(arg)
-		elif z == 3:
-			NINC = int(arg)
-		elif z == 4:
-			LOOPS = int(arg)
-
-		z = z + 1
-
-	if 'OPENBLAS_LOOPS' in os.environ:
-		p = os.environ['OPENBLAS_LOOPS']
-		if p:
-			LOOPS = int(p);
-
-	print("From: %d To: %d Step=%d Loops=%d" % (N, NMAX, NINC, LOOPS))
-	print("\tSIZE\t\t\tFlops\t\t\t\t\tTime")
-
-	for i in range (N,NMAX+NINC,NINC):
-		run_dgemm(i,LOOPS)
-

benchmark/scripts/NUMPY/dgemv.py

@@ -1,56 +0,0 @@
-#!/usr/bin/python
-
-import os
-import sys
-import time
-import numpy
-from numpy.random import randn
-
-def run_dgemv(N,l):
-
-	A = randn(N,N).astype('float64')
-	B = randn(N).astype('float64')
-
-	start = time.time();
-	for i in range(0,l):
-		ref = numpy.dot(A,B)
-	end = time.time()
-	
-	timediff = (end -start) 
-	mflops = ( 2*N*N) *l / timediff
-	mflops *= 1e-6
-
-	size = "%dx%d" % (N,N)
-	print("%14s :\t%20f MFlops\t%20f sec" % (size,mflops,timediff))
-
-
-if __name__ == "__main__":
-	N=128
-	NMAX=2048
-	NINC=128
-	LOOPS=1
-
-	z=0
-	for arg in sys.argv:
-		if z == 1:
-			N = int(arg)
-		elif z == 2:
-			NMAX = int(arg)
-		elif z == 3:
-			NINC = int(arg)
-		elif z == 4:
-			LOOPS = int(arg)
-
-		z = z + 1
-
-	if 'OPENBLAS_LOOPS' in os.environ:
-		p = os.environ['OPENBLAS_LOOPS']
-		if p:
-			LOOPS = int(p);
-
-	print("From: %d To: %d Step=%d Loops=%d" % (N, NMAX, NINC, LOOPS))
-	print("\tSIZE\t\t\tFlops\t\t\t\t\tTime")
-
-	for i in range (N,NMAX+NINC,NINC):
-		run_dgemv(i,LOOPS)
-

benchmark/scripts/NUMPY/dgesv.py

@@ -1,58 +0,0 @@
-#!/usr/bin/python
-
-import os
-import sys
-import time
-import numpy
-from numpy.random import randn
-from scipy.linalg.lapack import dgesv
-
-def run_dgesv(N,l):
-
-	a = randn(N,N).astype('float64')
-	b = randn(N,N).astype('float64')
-
-	start = time.time();
-	for i in range(0,l):
-		dgesv(a,b,1,1)
-	end = time.time()
-	
-	timediff = (end -start) 
-
-	mflops = ( 2.0/3.0 *N*N*N + 2.0*N*N*N) *l / timediff
-	mflops *= 1e-6
-
-	size = "%dx%d" % (N,N)
-	print("%14s :\t%20f MFlops\t%20f sec" % (size,mflops,timediff))
-
-
-if __name__ == "__main__":
-	N=128
-	NMAX=2048
-	NINC=128
-	LOOPS=1
-
-	z=0
-	for arg in sys.argv:
-		if z == 1:
-			N = int(arg)
-		elif z == 2:
-			NMAX = int(arg)
-		elif z == 3:
-			NINC = int(arg)
-		elif z == 4:
-			LOOPS = int(arg)
-
-		z = z + 1
-
-	if 'OPENBLAS_LOOPS' in os.environ:
-		p = os.environ['OPENBLAS_LOOPS']
-		if p:
-			LOOPS = int(p);
-
-	print("From: %d To: %d Step=%d Loops=%d" % (N, NMAX, NINC, LOOPS))
-	print("\tSIZE\t\t\tFlops\t\t\t\t\tTime")
-
-	for i in range (N,NMAX+NINC,NINC):
-		run_dgesv(i,LOOPS)
-

benchmark/scripts/NUMPY/dsolve.py

@@ -1,56 +0,0 @@
-#!/usr/bin/python
-
-import os
-import sys
-import time
-import numpy
-from numpy.random import randn
-
-def run_dsolve(N,l):
-
-	A = randn(N,N).astype('float64')
-	B = randn(N,N).astype('float64')
-
-	start = time.time();
-	for i in range(0,l):
-		ref = numpy.linalg.solve(A,B)
-	end = time.time()
-	
-	timediff = (end -start) 
-	mflops = ( 2.0/3.0 *N*N*N + 2.0*N*N*N) *l / timediff
-	mflops *= 1e-6
-
-	size = "%dx%d" % (N,N)
-	print("%14s :\t%20f MFlops\t%20f sec" % (size,mflops,timediff))
-
-
-if __name__ == "__main__":
-	N=128
-	NMAX=2048
-	NINC=128
-	LOOPS=1
-
-	z=0
-	for arg in sys.argv:
-		if z == 1:
-			N = int(arg)
-		elif z == 2:
-			NMAX = int(arg)
-		elif z == 3:
-			NINC = int(arg)
-		elif z == 4:
-			LOOPS = int(arg)
-
-		z = z + 1
-
-	if 'OPENBLAS_LOOPS' in os.environ:
-		p = os.environ['OPENBLAS_LOOPS']
-		if p:
-			LOOPS = int(p);
-
-	print("From: %d To: %d Step=%d Loops=%d" % (N, NMAX, NINC, LOOPS))
-	print("\tSIZE\t\t\tFlops\t\t\t\t\tTime")
-
-	for i in range (N,NMAX+NINC,NINC):
-		run_dsolve(i,LOOPS)
-

benchmark/scripts/NUMPY/sdot.py

@@ -1,56 +0,0 @@
-#!/usr/bin/python
-
-import os
-import sys
-import time
-import numpy
-from numpy.random import randn
-
-def run_sdot(N,l):
-
-	A = randn(N).astype('float32')
-	B = randn(N).astype('float32')
-
-	start = time.time();
-	for i in range(0,l):
-		ref = numpy.dot(A,B)
-	end = time.time()
-	
-	timediff = (end -start) 
-	mflops = ( 2*N ) *l / timediff
-	mflops *= 1e-6
-
-	size = "%d" % (N)
-	print("%14s :\t%20f MFlops\t%20f sec" % (size,mflops,timediff))
-
-
-if __name__ == "__main__":
-	N=128
-	NMAX=2048
-	NINC=128
-	LOOPS=1
-
-	z=0
-	for arg in sys.argv:
-		if z == 1:
-			N = int(arg)
-		elif z == 2:
-			NMAX = int(arg)
-		elif z == 3:
-			NINC = int(arg)
-		elif z == 4:
-			LOOPS = int(arg)
-
-		z = z + 1
-
-	if 'OPENBLAS_LOOPS' in os.environ:
-		p = os.environ['OPENBLAS_LOOPS']
-		if p:
-			LOOPS = int(p);
-
-	print("From: %d To: %d Step=%d Loops=%d" % (N, NMAX, NINC, LOOPS))
-	print("\tSIZE\t\t\tFlops\t\t\t\t\tTime")
-
-	for i in range (N,NMAX+NINC,NINC):
-		run_sdot(i,LOOPS)
-

benchmark/scripts/NUMPY/sgemm.py

@@ -1,56 +0,0 @@
-#!/usr/bin/python
-
-import os
-import sys
-import time
-import numpy
-from numpy.random import randn
-
-def run_sgemm(N,l):
-
-	A = randn(N,N).astype('float32')
-	B = randn(N,N).astype('float32')
-
-	start = time.time();
-	for i in range(0,l):
-		ref = numpy.dot(A,B)
-	end = time.time()
-	
-	timediff = (end -start) 
-	mflops = ( 2*N*N*N) *l / timediff
-	mflops *= 1e-6
-
-	size = "%dx%d" % (N,N)
-	print("%14s :\t%20f MFlops\t%20f sec" % (size,mflops,timediff))
-
-
-if __name__ == "__main__":
-	N=128
-	NMAX=2048
-	NINC=128
-	LOOPS=1
-
-	z=0
-	for arg in sys.argv:
-		if z == 1:
-			N = int(arg)
-		elif z == 2:
-			NMAX = int(arg)
-		elif z == 3:
-			NINC = int(arg)
-		elif z == 4:
-			LOOPS = int(arg)
-
-		z = z + 1
-
-	if 'OPENBLAS_LOOPS' in os.environ:
-		p = os.environ['OPENBLAS_LOOPS']
-		if p:
-			LOOPS = int(p);
-
-	print("From: %d To: %d Step=%d Loops=%d" % (N, NMAX, NINC, LOOPS))
-	print("\tSIZE\t\t\tFlops\t\t\t\t\tTime")
-
-	for i in range (N,NMAX+NINC,NINC):
-		run_sgemm(i,LOOPS)
-

benchmark/scripts/NUMPY/sgemv.py

@@ -1,56 +0,0 @@
-#!/usr/bin/python
-
-import os
-import sys
-import time
-import numpy
-from numpy.random import randn
-
-def run_sgemv(N,l):
-
-	A = randn(N,N).astype('float32')
-	B = randn(N).astype('float32')
-
-	start = time.time();
-	for i in range(0,l):
-		ref = numpy.dot(A,B)
-	end = time.time()
-	
-	timediff = (end -start) 
-	mflops = ( 2*N*N) *l / timediff
-	mflops *= 1e-6
-
-	size = "%dx%d" % (N,N)
-	print("%14s :\t%20f MFlops\t%20f sec" % (size,mflops,timediff))
-
-
-if __name__ == "__main__":
-	N=128
-	NMAX=2048
-	NINC=128
-	LOOPS=1
-
-	z=0
-	for arg in sys.argv:
-		if z == 1:
-			N = int(arg)
-		elif z == 2:
-			NMAX = int(arg)
-		elif z == 3:
-			NINC = int(arg)
-		elif z == 4:
-			LOOPS = int(arg)
-
-		z = z + 1
-
-	if 'OPENBLAS_LOOPS' in os.environ:
-		p = os.environ['OPENBLAS_LOOPS']
-		if p:
-			LOOPS = int(p);
-
-	print("From: %d To: %d Step=%d Loops=%d" % (N, NMAX, NINC, LOOPS))
-	print("\tSIZE\t\t\tFlops\t\t\t\t\tTime")
-
-	for i in range (N,NMAX+NINC,NINC):
-		run_sgemv(i,LOOPS)
-

benchmark/scripts/NUMPY/zgemm.py

@@ -1,56 +0,0 @@
-#!/usr/bin/python
-
-import os
-import sys
-import time
-import numpy
-from numpy.random import randn
-
-def run_zgemm(N,l):
-
-	A = randn(N,N).astype('float64') + randn(N,N).astype('float64') * 1j;
-	B = randn(N,N).astype('float64') + randn(N,N).astype('float64') * 1j;
-
-	start = time.time();
-	for i in range(0,l):
-		ref = numpy.dot(A,B)
-	end = time.time()
-	
-	timediff = (end -start) 
-	mflops = ( 8*N*N*N) *l / timediff
-	mflops *= 1e-6
-
-	size = "%dx%d" % (N,N)
-	print("%14s :\t%20f MFlops\t%20f sec" % (size,mflops,timediff))
-
-
-if __name__ == "__main__":
-	N=128
-	NMAX=2048
-	NINC=128
-	LOOPS=1
-
-	z=0
-	for arg in sys.argv:
-		if z == 1:
-			N = int(arg)
-		elif z == 2:
-			NMAX = int(arg)
-		elif z == 3:
-			NINC = int(arg)
-		elif z == 4:
-			LOOPS = int(arg)
-
-		z = z + 1
-
-	if 'OPENBLAS_LOOPS' in os.environ:
-		p = os.environ['OPENBLAS_LOOPS']
-		if p:
-			LOOPS = int(p);
-
-	print("From: %d To: %d Step=%d Loops=%d" % (N, NMAX, NINC, LOOPS))
-	print("\tSIZE\t\t\tFlops\t\t\t\t\tTime")
-
-	for i in range (N,NMAX+NINC,NINC):
-		run_zgemm(i,LOOPS)
-

benchmark/scripts/NUMPY/zgemv.py

@@ -1,56 +0,0 @@
-#!/usr/bin/python
-
-import os
-import sys
-import time
-import numpy
-from numpy.random import randn
-
-def run_zgemv(N,l):
-
-	A = randn(N,N).astype('float64') + randn(N,N).astype('float64') * 1j;
-	B = randn(N).astype('float64') + randn(N).astype('float64') * 1j;
-
-	start = time.time();
-	for i in range(0,l):
-		ref = numpy.dot(A,B)
-	end = time.time()
-	
-	timediff = (end -start) 
-	mflops = ( 8*N*N) *l / timediff
-	mflops *= 1e-6
-
-	size = "%dx%d" % (N,N)
-	print("%14s :\t%20f MFlops\t%20f sec" % (size,mflops,timediff))
-
-
-if __name__ == "__main__":
-	N=128
-	NMAX=2048
-	NINC=128
-	LOOPS=1
-
-	z=0
-	for arg in sys.argv:
-		if z == 1:
-			N = int(arg)
-		elif z == 2:
-			NMAX = int(arg)
-		elif z == 3:
-			NINC = int(arg)
-		elif z == 4:
-			LOOPS = int(arg)
-
-		z = z + 1
-
-	if 'OPENBLAS_LOOPS' in os.environ:
-		p = os.environ['OPENBLAS_LOOPS']
-		if p:
-			LOOPS = int(p);
-
-	print("From: %d To: %d Step=%d Loops=%d" % (N, NMAX, NINC, LOOPS))
-	print("\tSIZE\t\t\tFlops\t\t\t\t\tTime")
-
-	for i in range (N,NMAX+NINC,NINC):
-		run_zgemv(i,LOOPS)
-

benchmark/scripts/OCTAVE/cgemm.m

@@ -1,56 +0,0 @@
-#!/usr/bin/octave --silent 
-
-nfrom = 128 ;
-nto   = 2048;
-nstep = 128;
-loops = 1;
-
-
-arg_list = argv();
-for i = 1:nargin
-
-	switch(i)
-		case 1
-			nfrom = str2num(arg_list{i});
-		case 2
-			nto   = str2num(arg_list{i});
-		case 3
-			nstep = str2num(arg_list{i});
-		case 4
-			loops = str2num(arg_list{i});
-
-	endswitch
-
-endfor
-
-p = getenv("OPENBLAS_LOOPS");
-if p 
-	loops = str2num(p);
-endif
-
-printf("From %d To %d Step=%d Loops=%d\n",nfrom, nto, nstep, loops);
-printf("        SIZE             FLOPS             TIME\n");
-
-n = nfrom;
-while n <= nto
-
-	A = single(rand(n,n)) + single(rand(n,n)) * 1i;
-	B = single(rand(n,n)) + single(rand(n,n)) * 1i;
-	start = clock();
-
-	l=0;
-	while l < loops
-
-		C = A * B;
-		l = l + 1;
-
-	endwhile
-
-	timeg = etime(clock(), start);
-	mflops = ( 4.0 * 2.0*n*n*n *loops ) / ( timeg * 1.0e6 );
-
-	st1 = sprintf("%dx%d : ", n,n);
-	printf("%20s %10.2f MFlops %10.6f sec\n", st1, mflops, timeg);
-	n = n + nstep;
-
-endwhile

benchmark/scripts/OCTAVE/cgemv.m

@@ -1,56 +0,0 @@
-#!/usr/bin/octave --silent 
-
-nfrom = 128 ;
-nto   = 2048;
-nstep = 128;
-loops = 1;
-
-
-arg_list = argv();
-for i = 1:nargin
-
-	switch(i)
-		case 1
-			nfrom = str2num(arg_list{i});
-		case 2
-			nto   = str2num(arg_list{i});
-		case 3
-			nstep = str2num(arg_list{i});
-		case 4
-			loops = str2num(arg_list{i});
-
-	endswitch
-
-endfor
-
-p = getenv("OPENBLAS_LOOPS");
-if p 
-	loops = str2num(p);
-endif
-
-printf("From %d To %d Step=%d Loops=%d\n",nfrom, nto, nstep, loops);
-printf("        SIZE             FLOPS             TIME\n");
-
-n = nfrom;
-while n <= nto
-
-	A = single(rand(n,n)) + single(rand(n,n)) * 1i;
-	B = single(rand(n,1)) + single(rand(n,1)) * 1i;
-	start = clock();
-
-	l=0;
-	while l < loops
-
-		C = A * B;
-		l = l + 1;
-
-	endwhile
-
-	timeg = etime(clock(), start);
-	mflops = ( 4.0 * 2.0*n*n *loops ) / ( timeg * 1.0e6 );
-
-	st1 = sprintf("%dx%d : ", n,n);
-	printf("%20s %10.2f MFlops %10.6f sec\n", st1, mflops, timeg);
-	n = n + nstep;
-
-endwhile

benchmark/scripts/OCTAVE/deig.m

@@ -1,56 +0,0 @@
-#!/usr/bin/octave --silent 
-
-nfrom = 128 ;
-nto   = 2048;
-nstep = 128;
-loops = 1;
-
-
-arg_list = argv();
-for i = 1:nargin
-
-	switch(i)
-		case 1
-			nfrom = str2num(arg_list{i});
-		case 2
-			nto   = str2num(arg_list{i});
-		case 3
-			nstep = str2num(arg_list{i});
-		case 4
-			loops = str2num(arg_list{i});
-
-	endswitch
-
-endfor
-
-p = getenv("OPENBLAS_LOOPS");
-if p 
-	loops = str2num(p);
-endif
-
-printf("From %d To %d Step=%d Loops=%d\n",nfrom, nto, nstep, loops);
-printf("        SIZE             FLOPS             TIME\n");
-
-n = nfrom;
-while n <= nto
-
-	A = double(rand(n,n));
-	start = clock();
-
-	l=0;
-	while l < loops
-
-		[V,lambda] = eig(A);
-		l = l + 1;
-
-	endwhile
-
-
-	timeg = etime(clock(), start);
-	mflops = ( 26.33 *n*n*n ) *loops / ( timeg * 1.0e6 );
-
-	st1 = sprintf("%dx%d : ", n,n);
-	printf("%20s %10.2f MFlops %10.6f sec\n", st1, mflops, timeg );
-	n = n + nstep;
-
-endwhile

benchmark/scripts/OCTAVE/dgemm.m

@@ -1,56 +0,0 @@
-#!/usr/bin/octave --silent 
-
-nfrom = 128 ;
-nto   = 2048;
-nstep = 128;
-loops = 1;
-
-
-arg_list = argv();
-for i = 1:nargin
-
-	switch(i)
-		case 1
-			nfrom = str2num(arg_list{i});
-		case 2
-			nto   = str2num(arg_list{i});
-		case 3
-			nstep = str2num(arg_list{i});
-		case 4
-			loops = str2num(arg_list{i});
-
-	endswitch
-
-endfor
-
-p = getenv("OPENBLAS_LOOPS");
-if p 
-	loops = str2num(p);
-endif
-
-printf("From %d To %d Step=%d Loops=%d\n",nfrom, nto, nstep, loops);
-printf("        SIZE             FLOPS             TIME\n");
-
-n = nfrom;
-while n <= nto
-
-	A = double(rand(n,n));
-	B = double(rand(n,n));
-	start = clock();
-
-	l=0;
-	while l < loops
-
-		C = A * B;
-		l = l + 1;
-
-	endwhile
-
-	timeg = etime(clock(), start);
-	mflops = ( 2.0*n*n*n *loops ) / ( timeg * 1.0e6 );
-
-	st1 = sprintf("%dx%d : ", n,n);
-	printf("%20s %10.2f MFlops %10.6f sec\n", st1, mflops, timeg);
-	n = n + nstep;
-
-endwhile

benchmark/scripts/OCTAVE/dgemv.m

@@ -1,56 +0,0 @@
-#!/usr/bin/octave --silent 
-
-nfrom = 128 ;
-nto   = 2048;
-nstep = 128;
-loops = 1;
-
-
-arg_list = argv();
-for i = 1:nargin
-
-	switch(i)
-		case 1
-			nfrom = str2num(arg_list{i});
-		case 2
-			nto   = str2num(arg_list{i});
-		case 3
-			nstep = str2num(arg_list{i});
-		case 4
-			loops = str2num(arg_list{i});
-
-	endswitch
-
-endfor
-
-p = getenv("OPENBLAS_LOOPS");
-if p 
-	loops = str2num(p);
-endif
-
-printf("From %d To %d Step=%d Loops=%d\n",nfrom, nto, nstep, loops);
-printf("        SIZE             FLOPS             TIME\n");
-
-n = nfrom;
-while n <= nto
-
-	A = double(rand(n,n));
-	B = double(rand(n,1));
-	start = clock();
-
-	l=0;
-	while l < loops
-
-		C = A * B;
-		l = l + 1;
-
-	endwhile
-
-	timeg = etime(clock(), start);
-	mflops = ( 2.0*n*n *loops ) / ( timeg * 1.0e6 );
-
-	st1 = sprintf("%dx%d : ", n,n);
-	printf("%20s %10.2f MFlops %10.6f sec\n", st1, mflops, timeg);
-	n = n + nstep;
-
-endwhile

benchmark/scripts/OCTAVE/dsolve.m

@@ -1,59 +0,0 @@
-#!/usr/bin/octave --silent 
-
-nfrom = 128 ;
-nto   = 2048;
-nstep = 128;
-loops = 1;
-
-
-arg_list = argv();
-for i = 1:nargin
-
-	switch(i)
-		case 1
-			nfrom = str2num(arg_list{i});
-		case 2
-			nto   = str2num(arg_list{i});
-		case 3
-			nstep = str2num(arg_list{i});
-		case 4
-			loops = str2num(arg_list{i});
-
-	endswitch
-
-endfor
-
-p = getenv("OPENBLAS_LOOPS");
-if p 
-	loops = str2num(p);
-endif
-
-printf("From %d To %d Step=%d Loops=%d\n",nfrom, nto, nstep, loops);
-printf("        SIZE             FLOPS             TIME\n");
-
-n = nfrom;
-while n <= nto
-
-	A = double(rand(n,n));
-	B = double(rand(n,n));
-	start = clock();
-
-	l=0;
-	while l < loops
-
-		x = linsolve(A,B);
-		#x = A / B;
-		l = l + 1;
-
-	endwhile
-
-
-	timeg = etime(clock(), start);
-	#r = norm(A*x - B)/norm(B)
-	mflops = ( 2.0/3.0 *n*n*n + 2.0*n*n*n ) *loops / ( timeg * 1.0e6 );
-
-	st1 = sprintf("%dx%d : ", n,n);
-	printf("%20s %10.2f MFlops %10.6f sec\n", st1, mflops, timeg );
-	n = n + nstep;
-
-endwhile

benchmark/scripts/OCTAVE/sgemm.m

@@ -1,56 +0,0 @@
-#!/usr/bin/octave --silent 
-
-nfrom = 128 ;
-nto   = 2048;
-nstep = 128;
-loops = 1;
-
-
-arg_list = argv();
-for i = 1:nargin
-
-	switch(i)
-		case 1
-			nfrom = str2num(arg_list{i});
-		case 2
-			nto   = str2num(arg_list{i});
-		case 3
-			nstep = str2num(arg_list{i});
-		case 4
-			loops = str2num(arg_list{i});
-
-	endswitch
-
-endfor
-
-p = getenv("OPENBLAS_LOOPS");
-if p 
-	loops = str2num(p);
-endif
-
-printf("From %d To %d Step=%d Loops=%d\n",nfrom, nto, nstep, loops);
-printf("        SIZE             FLOPS             TIME\n");
-
-n = nfrom;
-while n <= nto
-
-	A = single(rand(n,n));
-	B = single(rand(n,n));
-	start = clock();
-
-	l=0;
-	while l < loops
-
-		C = A * B;
-		l = l + 1;
-
-	endwhile
-
-	timeg = etime(clock(), start);
-	mflops = ( 2.0*n*n*n *loops ) / ( timeg * 1.0e6 );
-
-	st1 = sprintf("%dx%d : ", n,n);
-	printf("%20s %10.2f MFlops %10.6f sec\n", st1, mflops, timeg);
-	n = n + nstep;
-
-endwhile

benchmark/scripts/OCTAVE/sgemv.m

@@ -1,56 +0,0 @@
-#!/usr/bin/octave --silent 
-
-nfrom = 128 ;
-nto   = 2048;
-nstep = 128;
-loops = 1;
-
-
-arg_list = argv();
-for i = 1:nargin
-
-	switch(i)
-		case 1
-			nfrom = str2num(arg_list{i});
-		case 2
-			nto   = str2num(arg_list{i});
-		case 3
-			nstep = str2num(arg_list{i});
-		case 4
-			loops = str2num(arg_list{i});
-
-	endswitch
-
-endfor
-
-p = getenv("OPENBLAS_LOOPS");
-if p 
-	loops = str2num(p);
-endif
-
-printf("From %d To %d Step=%d Loops=%d\n",nfrom, nto, nstep, loops);
-printf("        SIZE             FLOPS             TIME\n");
-
-n = nfrom;
-while n <= nto
-
-	A = single(rand(n,n));
-	B = single(rand(n,1));
-	start = clock();
-
-	l=0;
-	while l < loops
-
-		C = A * B;
-		l = l + 1;
-
-	endwhile
-
-	timeg = etime(clock(), start);
-	mflops = ( 2.0*n*n *loops ) / ( timeg * 1.0e6 );
-
-	st1 = sprintf("%dx%d : ", n,n);
-	printf("%20s %10.2f MFlops %10.6f sec\n", st1, mflops, timeg);
-	n = n + nstep;
-
-endwhile

benchmark/scripts/OCTAVE/zgemm.m

@@ -1,56 +0,0 @@
-#!/usr/bin/octave --silent 
-
-nfrom = 128 ;
-nto   = 2048;
-nstep = 128;
-loops = 1;
-
-
-arg_list = argv();
-for i = 1:nargin
-
-	switch(i)
-		case 1
-			nfrom = str2num(arg_list{i});
-		case 2
-			nto   = str2num(arg_list{i});
-		case 3
-			nstep = str2num(arg_list{i});
-		case 4
-			loops = str2num(arg_list{i});
-
-	endswitch
-
-endfor
-
-p = getenv("OPENBLAS_LOOPS");
-if p 
-	loops = str2num(p);
-endif
-
-printf("From %d To %d Step=%d Loops=%d\n",nfrom, nto, nstep, loops);
-printf("        SIZE             FLOPS             TIME\n");
-
-n = nfrom;
-while n <= nto
-
-	A = double(rand(n,n)) + double(rand(n,n)) * 1i;
-	B = double(rand(n,n)) + double(rand(n,n)) * 1i;
-	start = clock();
-
-	l=0;
-	while l < loops
-
-		C = A * B;
-		l = l + 1;
-
-	endwhile
-
-	timeg = etime(clock(), start);
-	mflops = ( 4.0 * 2.0*n*n*n *loops ) / ( timeg * 1.0e6 );
-
-	st1 = sprintf("%dx%d : ", n,n);
-	printf("%20s %10.2f MFlops %10.6f sec\n", st1, mflops, timeg);
-	n = n + nstep;
-
-endwhile

benchmark/scripts/OCTAVE/zgemv.m

@@ -1,56 +0,0 @@
-#!/usr/bin/octave --silent 
-
-nfrom = 128 ;
-nto   = 2048;
-nstep = 128;
-loops = 1;
-
-
-arg_list = argv();
-for i = 1:nargin
-
-	switch(i)
-		case 1
-			nfrom = str2num(arg_list{i});
-		case 2
-			nto   = str2num(arg_list{i});
-		case 3
-			nstep = str2num(arg_list{i});
-		case 4
-			loops = str2num(arg_list{i});
-
-	endswitch
-
-endfor
-
-p = getenv("OPENBLAS_LOOPS");
-if p 
-	loops = str2num(p);
-endif
-
-printf("From %d To %d Step=%d Loops=%d\n",nfrom, nto, nstep, loops);
-printf("        SIZE             FLOPS             TIME\n");
-
-n = nfrom;
-while n <= nto
-
-	A = double(rand(n,n)) + double(rand(n,n)) * 1i;
-	B = double(rand(n,1)) + double(rand(n,1)) * 1i;
-	start = clock();
-
-	l=0;
-	while l < loops
-
-		C = A * B;
-		l = l + 1;
-
-	endwhile
-
-	timeg = etime(clock(), start);
-	mflops = ( 4.0 * 2.0*n*n *loops ) / ( timeg * 1.0e6 );
-
-	st1 = sprintf("%dx%d : ", n,n);
-	printf("%20s %10.2f MFlops %10.6f sec\n", st1, mflops, timeg);
-	n = n + nstep;
-
-endwhile

benchmark/scripts/R/deig.R

@@ -1,55 +0,0 @@
-#!/usr/bin/Rscript
-
-argv <- commandArgs(trailingOnly = TRUE)
-
-nfrom <- 128
-nto <- 2048
-nstep <- 128
-loops <- 1
-
-if (length(argv) > 0) {
-  for (z in 1:length(argv)) {
-    if (z == 1) {
-      nfrom <- as.numeric(argv[z])
-    } else if (z == 2) {
-      nto <- as.numeric(argv[z])
-    } else if (z == 3) {
-      nstep <- as.numeric(argv[z])
-    } else if (z == 4) {
-      loops <- as.numeric(argv[z])
-    }
-  }
-
-}
-
-p <- Sys.getenv("OPENBLAS_LOOPS")
-if (p != "") {
-  loops <- as.numeric(p)
-}
-
-
-cat(sprintf(
-  "From %.0f To %.0f Step=%.0f Loops=%.0f\n",
-  nfrom,
-  nto,
-  nstep,
-  loops
-))
-cat(sprintf("      SIZE             Flops                   Time\n"))
-
-n <- nfrom
-while (n <= nto) {
-  A <- matrix(rnorm(n * n), ncol = n, nrow = n)
-  ev <- 0
-  z <- system.time(for (l in 1:loops) {
-    ev <- eigen(A)
-  })
-
-  mflops <- (26.66 * n * n * n) * loops / (z[3] * 1.0e6)
-
-  st <- sprintf("%.0fx%.0f :", n, n)
-  cat(sprintf("%20s %10.2f MFlops %10.6f sec\n", st, mflops, z[3]))
-
-  n <- n + nstep
-
-}

benchmark/scripts/R/dgemm.R

@@ -1,64 +0,0 @@
-#!/usr/bin/Rscript
-
-argv <- commandArgs(trailingOnly = TRUE)
-
-nfrom <- 128
-nto <- 2048
-nstep <- 128
-loops <- 1
-
-if (length(argv) > 0) {
-  for (z in 1:length(argv)) {
-    if (z == 1) {
-      nfrom <- as.numeric(argv[z])
-    } else if (z == 2) {
-      nto <- as.numeric(argv[z])
-    } else if (z == 3) {
-      nstep <- as.numeric(argv[z])
-    } else if (z == 4) {
-      loops <- as.numeric(argv[z])
-    }
-  }
-
-}
-
-p <- Sys.getenv("OPENBLAS_LOOPS")
-if (p != "") {
-  loops <- as.numeric(p)
-}
-
-
-cat(sprintf(
-  "From %.0f To %.0f Step=%.0f Loops=%.0f\n",
-  nfrom,
-  nto,
-  nstep,
-  loops
-))
-cat(sprintf("      SIZE             Flops                   Time\n"))
-
-n <- nfrom
-while (n <= nto) {
-  A <- matrix(runif(n * n),
-              ncol = n,
-              nrow = n,
-              byrow = TRUE)
-  B <- matrix(runif(n * n),
-              ncol = n,
-              nrow = n,
-              byrow = TRUE)
-  C <- 1
-
-  z <- system.time(for (l in 1:loops) {
-    C <- A %*% B
-    l <- l + 1
-  })
-
-  mflops <- (2.0 * n * n * n) * loops / (z[3] * 1.0e6)
-
-  st <- sprintf("%.0fx%.0f :", n, n)
-  cat(sprintf("%20s %10.2f MFlops %10.6f sec\n", st, mflops, z[3]))
-
-  n <- n + nstep
-
-}

benchmark/scripts/R/dsolve.R

@@ -1,57 +0,0 @@
-#!/usr/bin/Rscript
-
-argv <- commandArgs(trailingOnly = TRUE)
-
-nfrom <- 128
-nto <- 2048
-nstep <- 128
-loops <- 1
-
-if (length(argv) > 0) {
-  for (z in 1:length(argv)) {
-    if (z == 1) {
-      nfrom <- as.numeric(argv[z])
-    } else if (z == 2) {
-      nto <- as.numeric(argv[z])
-    } else if (z == 3) {
-      nstep <- as.numeric(argv[z])
-    } else if (z == 4) {
-      loops <- as.numeric(argv[z])
-    }
-  }
-
-}
-
-p <- Sys.getenv("OPENBLAS_LOOPS")
-if (p != "") {
-  loops <- as.numeric(p)
-}
-
-
-cat(sprintf(
-  "From %.0f To %.0f Step=%.0f Loops=%.0f\n",
-  nfrom,
-  nto,
-  nstep,
-  loops
-))
-cat(sprintf("      SIZE             Flops                   Time\n"))
-
-n <- nfrom
-while (n <= nto) {
-  A <- matrix(rnorm(n * n), ncol = n, nrow = n)
-  B <- matrix(rnorm(n * n), ncol = n, nrow = n)
-
-  z <- system.time(for (l in 1:loops) {
-    solve(A, B)
-  })
-
-  mflops <-
-    (2.0 / 3.0 * n * n * n + 2.0 * n * n * n) * loops / (z[3] * 1.0e6)
-
-  st <- sprintf("%.0fx%.0f :", n, n)
-  cat(sprintf("%20s %10.2f MFlops %10.6f sec\n", st, mflops, z[3]))
-
-  n <- n + nstep
-
-}

benchmark/scripts/SCIPY/dsyrk.py

@@ -1,58 +0,0 @@
-#!/usr/bin/env python
-
-import os
-import sys
-import time
-import numpy
-from numpy import zeros
-from numpy.random import randn
-from scipy.linalg import blas
-
-
-def run_dsyrk(N, l):
-
-    A = randn(N, N).astype('float64', order='F')
-    C = zeros((N, N), dtype='float64', order='F')
-
-    start = time.time()
-    for i in range(0, l):
-        blas.dsyrk(1.0, A, c=C, overwrite_c=True)
-    end = time.time()
-
-    timediff = (end - start)
-    mflops = (N * N * N) * l / timediff
-    mflops *= 1e-6
-
-    size = "%dx%d" % (N, N)
-    print("%14s :\t%20f MFlops\t%20f sec" % (size, mflops, timediff))
-
-
-if __name__ == "__main__":
-    N = 128
-    NMAX = 2048
-    NINC = 128
-    LOOPS = 1
-
-    z = 0
-    for arg in sys.argv:
-        if z == 1:
-            N = int(arg)
-        elif z == 2:
-            NMAX = int(arg)
-        elif z == 3:
-            NINC = int(arg)
-        elif z == 4:
-            LOOPS = int(arg)
-
-        z = z + 1
-
-    if 'OPENBLAS_LOOPS' in os.environ:
-        p = os.environ['OPENBLAS_LOOPS']
-        if p:
-            LOOPS = int(p)
-
-    print("From: %d To: %d Step=%d Loops=%d" % (N, NMAX, NINC, LOOPS))
-    print("\tSIZE\t\t\tFlops\t\t\t\t\tTime")
-
-    for i in range(N, NMAX + NINC, NINC):
-        run_dsyrk(i, LOOPS)

benchmark/scripts/SCIPY/ssyrk.py

@@ -1,58 +0,0 @@
-#!/usr/bin/env python
-
-import os
-import sys
-import time
-import numpy
-from numpy import zeros
-from numpy.random import randn
-from scipy.linalg import blas
-
-
-def run_ssyrk(N, l):
-
-    A = randn(N, N).astype('float32', order='F')
-    C = zeros((N, N), dtype='float32', order='F')
-
-    start = time.time()
-    for i in range(0, l):
-        blas.ssyrk(1.0, A, c=C, overwrite_c=True)
-    end = time.time()
-
-    timediff = (end - start)
-    mflops = (N * N * N) * l / timediff
-    mflops *= 1e-6
-
-    size = "%dx%d" % (N, N)
-    print("%14s :\t%20f MFlops\t%20f sec" % (size, mflops, timediff))
-
-
-if __name__ == "__main__":
-    N = 128
-    NMAX = 2048
-    NINC = 128
-    LOOPS = 1
-
-    z = 0
-    for arg in sys.argv:
-        if z == 1:
-            N = int(arg)
-        elif z == 2:
-            NMAX = int(arg)
-        elif z == 3:
-            NINC = int(arg)
-        elif z == 4:
-            LOOPS = int(arg)
-
-        z = z + 1
-
-    if 'OPENBLAS_LOOPS' in os.environ:
-        p = os.environ['OPENBLAS_LOOPS']
-        if p:
-            LOOPS = int(p)
-
-    print("From: %d To: %d Step=%d Loops=%d" % (N, NMAX, NINC, LOOPS))
-    print("\tSIZE\t\t\tFlops\t\t\t\t\tTime")
-
-    for i in range(N, NMAX + NINC, NINC):
-        run_ssyrk(i, LOOPS)

benchmark/smallscaling.c

@@ -1,197 +0,0 @@
-// run with OPENBLAS_NUM_THREADS=1 and OMP_NUM_THREADS=n
-#include <math.h>
-#include <stdlib.h>
-#include <stdio.h>
-#include <time.h>
-#include <cblas.h>
-#include <omp.h>
-#include <pthread.h>
-#define MIN_SIZE 5
-#define MAX_SIZE 60
-#define NB_SIZE 10
-
-// number of loop for a 1x1 matrix. Lower it if the test is
-// too slow on you computer.
-#define NLOOP 2e7
-
-typedef struct {
-    int matrix_size;
-    int n_loop;
-    void (* bench_func)();
-    void (* blas_func)();
-    void * (* create_matrix)(int size);
-} BenchParam;
-
-void * s_create_matrix(int size) {
-    float * r = malloc(size * sizeof(double));
-    int i;
-    for(i = 0; i < size; i++)
-        r[i] = 1e3 * i / size;
-    return r;
-}
-
-void * c_create_matrix(int size) {
-    float * r = malloc(size * 2 * sizeof(double));
-    int i;
-    for(i = 0; i < 2 * size; i++)
-        r[i] = 1e3 * i / size;
-    return r;
-}
-
-void * z_create_matrix(int size) {
-    double * r = malloc(size * 2 * sizeof(double));
-    int i;
-    for(i = 0; i < 2 * size; i++)
-        r[i] = 1e3 * i / size;
-    return r;
-}
-
-void * d_create_matrix(int size) {
-    double * r = malloc(size * sizeof(double));
-    int i;
-    for(i = 0; i < size; i++)
-        r[i] = 1e3 * i / size;
-    return r;
-}
-
-void trmv_bench(BenchParam * param)
-{
-    int i, n;
-    int size = param->matrix_size;
-    n = param->n_loop / size;
-    int one = 1;
-    void * A = param->create_matrix(size * size);
-    void * y = param->create_matrix(size);
-    for(i = 0; i < n; i++) {
-        param->blas_func("U", "N", "N", &size, A, &size, y, &one);
-    }
-    free(A);
-    free(y);
-}
-
-void gemv_bench(BenchParam * param)
-{
-    int i, n;
-    int size = param->matrix_size;
-    n = param->n_loop / size;
-    double v = 1.01;
-    int one = 1;
-    void * A = param->create_matrix(size * size);
-    void * y = param->create_matrix(size);
-    for(i = 0; i < n; i++) {
-        param->blas_func("N", &size, &size, &v, A, &size, y, &one, &v, y, &one);
-    }
-    free(A);
-    free(y);
-}
-
-void ger_bench(BenchParam * param) {
-    int i, n;
-    int size = param->matrix_size;
-    n = param->n_loop / size;
-    double v = 1.01;
-    int one = 1;
-    void * A = param->create_matrix(size * size);
-    void * y = param->create_matrix(size);
-    for(i = 0; i < n; i++) {
-        param->blas_func(&size, &size, &v, y, &one, y, &one, A, &size);
-    }
-    free(A);
-    free(y);
-}
-
-#ifndef _WIN32
-void * pthread_func_wrapper(void * param) {
-    ((BenchParam *)param)->bench_func(param);
-    pthread_exit(NULL);
-}
-#endif
-
-#define NB_TESTS 5
-void * TESTS[4 * NB_TESTS] = {
-    trmv_bench, ztrmv_, z_create_matrix, "ztrmv",
-    gemv_bench, dgemv_, d_create_matrix, "dgemv",
-    gemv_bench, zgemv_, z_create_matrix, "zgemv",
-    ger_bench, dger_, d_create_matrix, "dger",
-    ger_bench, zgerc_, z_create_matrix, "zgerc",
-};
-
-inline static double delta_time(struct timespec tick) {
-    struct timespec tock;
-	clock_gettime(CLOCK_MONOTONIC, &tock);
-	return (tock.tv_sec - tick.tv_sec) + (tock.tv_nsec - tick.tv_nsec) / 1e9;
-}
-
-double pthread_bench(BenchParam * param, int nb_threads)
-{
-#ifdef _WIN32
-    return 0;
-#else
-    BenchParam threaded_param = *param;
-    pthread_t threads[nb_threads];
-    int t, rc;
-    struct timespec tick;
-    threaded_param.n_loop /= nb_threads;
-    clock_gettime(CLOCK_MONOTONIC, &tick);
-    for(t=0; t<nb_threads; t++){
-        rc = pthread_create(&threads[t], NULL, pthread_func_wrapper, &threaded_param);
-        if (rc){
-            printf("ERROR; return code from pthread_create() is %d\n", rc);
-            exit(-1);
-        }
-    }
-    for(t=0; t<nb_threads; t++){
-        pthread_join(threads[t], NULL);
-    }
-	return delta_time(tick);
-#endif
-}
-
-double seq_bench(BenchParam * param) {
-    struct timespec tick;
-    clock_gettime(CLOCK_MONOTONIC, &tick);
-    param->bench_func(param);
-    return delta_time(tick);
-}
-
-double omp_bench(BenchParam * param) {
-    BenchParam threaded_param = *param;
-    struct timespec tick;
-    int t;
-    int nb_threads = omp_get_max_threads();
-    threaded_param.n_loop /= nb_threads;
-    clock_gettime(CLOCK_MONOTONIC, &tick);
-    #pragma omp parallel for
-    for(t = 0; t < nb_threads; t ++){
-        param->bench_func(&threaded_param);
-    }
-    return delta_time(tick);
-}
-
-int main(int argc, char * argv[]) {
-    double inc_factor = exp(log((double)MAX_SIZE / MIN_SIZE) / NB_SIZE);
-    BenchParam param;
-    int test_id;
-    printf ("Running on %d threads\n", omp_get_max_threads());
-    for(test_id = 0; test_id < NB_TESTS; test_id ++) {
-        double size = MIN_SIZE;
-        param.bench_func = TESTS[test_id * 4];
-        param.blas_func = TESTS[test_id * 4 + 1];
-        param.create_matrix = TESTS[test_id * 4 + 2];
-        printf("\nBenchmark of %s\n", (char*)TESTS[test_id * 4 + 3]);
-        param.n_loop = NLOOP;
-        while(size <= MAX_SIZE) {
-            param.matrix_size = (int)(size + 0.5);
-            double seq_time = seq_bench(&param);
-            double omp_time = omp_bench(&param);
-            double pthread_time = pthread_bench(&param, omp_get_max_threads());
-            printf("matrix size %d, sequential %gs, openmp %gs, speedup %g, "
-                   "pthread %gs, speedup %g\n",
-                   param.matrix_size, seq_time,
-                   omp_time, seq_time / omp_time,
-                   pthread_time, seq_time / pthread_time);
-            size *= inc_factor;
-        }
-    }
-    return(0);
-}

benchmark/swap.c

@@ -1,201 +0,0 @@
-/***************************************************************************
-Copyright (c) 2014, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above swapright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above swapright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE SWAPRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-
-#undef SWAP
-
-#ifdef COMPLEX
-#ifdef DOUBLE
-#define SWAP   BLASFUNC(zswap)
-#else
-#define SWAP   BLASFUNC(cswap)
-#endif
-#else
-#ifdef DOUBLE
-#define SWAP   BLASFUNC(dswap)
-#else
-#define SWAP   BLASFUNC(sswap)
-#endif
-#endif
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *x, *y;
-  FLOAT alpha[2] = { 2.0, 2.0 };
-  blasint m, i;
-  blasint inc_x=1,inc_y=1;
-  int loops = 1;
-  int l;
-  char *p;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1,timeg;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  if ((p = getenv("OPENBLAS_LOOPS")))  loops = atoi(p);
-  if ((p = getenv("OPENBLAS_INCX")))   inc_x = atoi(p);
-  if ((p = getenv("OPENBLAS_INCY")))   inc_y = atoi(p);
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d Inc_x = %d Inc_y = %d Loops = %d\n", from, to, step,inc_x,inc_y,loops);
-
-  if (( x = (FLOAT *)malloc(sizeof(FLOAT) * to * abs(inc_x) * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( y = (FLOAT *)malloc(sizeof(FLOAT) * to * abs(inc_y) * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE       Flops\n");
-
-  for(m = from; m <= to; m += step)
-  {
-
-   timeg=0;
-
-   fprintf(stderr, " %6d : ", (int)m);
-
-
-   for (l=0; l<loops; l++)
-   {
-
-   	for(i = 0; i < m * COMPSIZE * abs(inc_x); i++){
-			x[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   	}
-
-   	for(i = 0; i < m * COMPSIZE * abs(inc_y); i++){
-			y[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   	}
-    	gettimeofday( &start, (struct timezone *)0);
-
-    	SWAP (&m, x, &inc_x, y, &inc_y );
-
-    	gettimeofday( &stop, (struct timezone *)0);
-
-    	time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-	timeg += time1;
-
-    }
-
-    timeg /= loops;
-
-    fprintf(stderr,
-	    " %10.2f MBytes %10.6f sec\n",
-	    COMPSIZE * sizeof(FLOAT) * 1. * (double)m / timeg * 1.e-6, timeg);
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/symm.c

@@ -1,203 +0,0 @@
-/***************************************************************************
-Copyright (c) 2014, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-
-#undef SYMM
-
-#ifndef COMPLEX
-
-#ifdef DOUBLE
-#define SYMM   BLASFUNC(dsymm)
-#else
-#define SYMM   BLASFUNC(ssymm)
-#endif
-
-#else
-
-#ifdef DOUBLE
-#define SYMM   BLASFUNC(zsymm)
-#else
-#define SYMM   BLASFUNC(csymm)
-#endif
-
-#endif
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *a, *b, *c;
-  FLOAT alpha[] = {1.0, 1.0};
-  FLOAT beta [] = {1.0, 1.0};
-  char *p;
-
-  char side='L';
-  char uplo='U';
-
-  if ((p = getenv("OPENBLAS_SIDE"))) side=*p; 
-  if ((p = getenv("OPENBLAS_UPLO"))) uplo=*p;
-
-  blasint m, i, j;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d Side = %c Uplo = %c\n", from, to, step,side,uplo);
-
-  if (( a = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( b = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( c = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE       Flops\n");
-
-  for(m = from; m <= to; m += step)
-  {
-
-    fprintf(stderr, " %6d : ", (int)m);
-
-    for(j = 0; j < m; j++){
-      for(i = 0; i < m * COMPSIZE; i++){
-	a[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-	b[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-	c[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-      }
-    }
-
-    gettimeofday( &start, (struct timezone *)0);
-
-    SYMM (&side, &uplo, &m, &m, alpha, a, &m, b, &m, beta, c, &m );
-
-    gettimeofday( &stop, (struct timezone *)0);
-
-    time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-    gettimeofday( &start, (struct timezone *)0);
-
-    fprintf(stderr,
-	    " %10.2f MFlops\n",
-	    COMPSIZE * COMPSIZE * 2. * (double)m * (double)m * (double)m / time1 * 1.e-6);
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/symv.c

@@ -1,218 +0,0 @@
-/***************************************************************************
-Copyright (c) 2014, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-
-#undef SYMV
-
-#ifndef COMPLEX
-
-#ifdef DOUBLE
-#define SYMV   BLASFUNC(dsymv)
-#else
-#define SYMV   BLASFUNC(ssymv)
-#endif
-
-#else
-
-#ifdef DOUBLE
-#define SYMV   BLASFUNC(zsymv)
-#else
-#define SYMV   BLASFUNC(csymv)
-#endif
-
-#endif
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *a, *x, *y;
-  FLOAT alpha[] = {1.0, 1.0};
-  FLOAT beta [] = {1.0, 1.0};
-  char uplo='L';
-  blasint m, i, j;
-  blasint inc_x=1,inc_y=1;
-  int loops = 1;
-  int l;
-  char *p;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1,timeg;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  if ((p = getenv("OPENBLAS_LOOPS")))  loops = atoi(p);
-  if ((p = getenv("OPENBLAS_INCX")))   inc_x = atoi(p);
-  if ((p = getenv("OPENBLAS_INCY")))   inc_y = atoi(p);
-  if ((p = getenv("OPENBLAS_UPLO")))  uplo=*p;
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d Uplo = '%c' Inc_x = %d Inc_y = %d Loops = %d\n", from, to, step,uplo,inc_x,inc_y,loops);
-
-  if (( a = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( x = (FLOAT *)malloc(sizeof(FLOAT) * to * abs(inc_x) * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( y = (FLOAT *)malloc(sizeof(FLOAT) * to * abs(inc_y) * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE       Flops\n");
-
-  for(m = from; m <= to; m += step)
-  {
-
-   timeg=0;
-
-   fprintf(stderr, " %6dx%d : ", (int)m,(int)m);
-
-   for(j = 0; j < m; j++){
-      		for(i = 0; i < m * COMPSIZE; i++){
-			a[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-      		}
-   }
-
-
-    for (l=0; l<loops; l++)
-    {
-
-   	for(i = 0; i < m * COMPSIZE * abs(inc_x); i++){
-			x[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   	}
-
-   	for(i = 0; i < m * COMPSIZE * abs(inc_y); i++){
-			y[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-   	}
-    	gettimeofday( &start, (struct timezone *)0);
-
-    	SYMV (&uplo, &m, alpha, a, &m, x, &inc_x, beta, y, &inc_y );
-
-    	gettimeofday( &stop, (struct timezone *)0);
-
-    	time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-	timeg += time1;
-
-    }
-
-    timeg /= loops;
-
-    fprintf(stderr,
-	    " %10.2f MFlops\n",
-	    COMPSIZE * COMPSIZE * 2. * (double)m * (double)m / timeg * 1.e-6);
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/syr2k.c

@@ -1,203 +0,0 @@
-/***************************************************************************
-Copyright (c) 2014, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-
-#undef SYR2K
-
-#ifndef COMPLEX
-
-#ifdef DOUBLE
-#define SYR2K   BLASFUNC(dsyr2k)
-#else
-#define SYR2K   BLASFUNC(ssyr2k)
-#endif
-
-#else
-
-#ifdef DOUBLE
-#define SYR2K   BLASFUNC(zsyr2k)
-#else
-#define SYR2K   BLASFUNC(csyr2k)
-#endif
-
-#endif
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *a, *b, *c;
-  FLOAT alpha[] = {1.0, 1.0};
-  FLOAT beta [] = {1.0, 1.0};
-  char *p;
-
-  char uplo='U';
-  char trans='N';
-
-  if ((p = getenv("OPENBLAS_UPLO"))) uplo=*p; 
-  if ((p = getenv("OPENBLAS_TRANS"))) trans=*p;
-
-  blasint m, i, j;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d Uplo = %c Trans = %c\n", from, to, step,uplo,trans);
-
-  if (( a = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( b = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( c = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE       Flops\n");
-
-  for(m = from; m <= to; m += step)
-  {
-
-    fprintf(stderr, " %6d : ", (int)m);
-
-    for(j = 0; j < m; j++){
-      for(i = 0; i < m * COMPSIZE; i++){
-	a[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-	b[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-	c[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-      }
-    }
-
-    gettimeofday( &start, (struct timezone *)0);
-
-    SYR2K (&uplo, &trans, &m, &m, alpha, a, &m, b, &m, beta, c, &m );
-
-    gettimeofday( &stop, (struct timezone *)0);
-
-    time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-    gettimeofday( &start, (struct timezone *)0);
-
-    fprintf(stderr,
-	    " %10.2f MFlops\n",
-	    COMPSIZE * COMPSIZE * 2. * (double)m * (double)m * (double)m / time1 * 1.e-6);
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));

benchmark/syrk.c

@@ -1,199 +0,0 @@
-/***************************************************************************
-Copyright (c) 2014, The OpenBLAS Project
-All rights reserved.
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are
-met:
-1. Redistributions of source code must retain the above copyright
-notice, this list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright
-notice, this list of conditions and the following disclaimer in
-the documentation and/or other materials provided with the
-distribution.
-3. Neither the name of the OpenBLAS project nor the names of
-its contributors may be used to endorse or promote products
-derived from this software without specific prior written permission.
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
-AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
-IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
-ARE DISCLAIMED. IN NO EVENT SHALL THE OPENBLAS PROJECT OR CONTRIBUTORS BE
-LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
-DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
-SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
-CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
-OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE
-USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-*****************************************************************************/
-
-#include <stdio.h>
-#include <stdlib.h>
-#ifdef __CYGWIN32__
-#include <sys/time.h>
-#endif
-#include "common.h"
-
-
-#undef SYRK
-
-#ifndef COMPLEX
-
-#ifdef DOUBLE
-#define SYRK   BLASFUNC(dsyrk)
-#else
-#define SYRK   BLASFUNC(ssyrk)
-#endif
-
-#else
-
-#ifdef DOUBLE
-#define SYRK   BLASFUNC(zsyrk)
-#else
-#define SYRK   BLASFUNC(csyrk)
-#endif
-
-#endif
-
-#if defined(__WIN32__) || defined(__WIN64__)
-
-#ifndef DELTA_EPOCH_IN_MICROSECS
-#define DELTA_EPOCH_IN_MICROSECS 11644473600000000ULL
-#endif
-
-int gettimeofday(struct timeval *tv, void *tz){
-
-  FILETIME ft;
-  unsigned __int64 tmpres = 0;
-  static int tzflag;
-
-  if (NULL != tv)
-    {
-      GetSystemTimeAsFileTime(&ft);
-
-      tmpres |= ft.dwHighDateTime;
-      tmpres <<= 32;
-      tmpres |= ft.dwLowDateTime;
-
-      /*converting file time to unix epoch*/
-      tmpres /= 10;  /*convert into microseconds*/
-      tmpres -= DELTA_EPOCH_IN_MICROSECS;
-      tv->tv_sec = (long)(tmpres / 1000000UL);
-      tv->tv_usec = (long)(tmpres % 1000000UL);
-    }
-
-  return 0;
-}
-
-#endif
-
-#if !defined(__WIN32__) && !defined(__WIN64__) && !defined(__CYGWIN32__) && 0
-
-static void *huge_malloc(BLASLONG size){
-  int shmid;
-  void *address;
-
-#ifndef SHM_HUGETLB
-#define SHM_HUGETLB 04000
-#endif
-
-  if ((shmid =shmget(IPC_PRIVATE,
-		     (size + HUGE_PAGESIZE) & ~(HUGE_PAGESIZE - 1),
-		     SHM_HUGETLB | IPC_CREAT |0600)) < 0) {
-    printf( "Memory allocation failed(shmget).\n");
-    exit(1);
-  }
-
-  address = shmat(shmid, NULL, SHM_RND);
-
-  if ((BLASLONG)address == -1){
-    printf( "Memory allocation failed(shmat).\n");
-    exit(1);
-  }
-
-  shmctl(shmid, IPC_RMID, 0);
-
-  return address;
-}
-
-#define malloc huge_malloc
-
-#endif
-
-int main(int argc, char *argv[]){
-
-  FLOAT *a, *c;
-  FLOAT alpha[] = {1.0, 1.0};
-  FLOAT beta [] = {1.0, 1.0};
-  char *p;
-
-  char uplo='U';
-  char trans='N';
-
-  if ((p = getenv("OPENBLAS_UPLO"))) uplo=*p;
-  if ((p = getenv("OPENBLAS_TRANS"))) trans=*p;
-
-  blasint m, i, j;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-
-  struct timeval start, stop;
-  double time1;
-
-  argc--;argv++;
-
-  if (argc > 0) { from     = atol(*argv);		argc--; argv++;}
-  if (argc > 0) { to       = MAX(atol(*argv), from);	argc--; argv++;}
-  if (argc > 0) { step     = atol(*argv);		argc--; argv++;}
-
-  fprintf(stderr, "From : %3d  To : %3d Step = %3d Uplo = %c Trans = %c\n", from, to, step,uplo,trans);
-
-
-  if (( a = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-  if (( c = (FLOAT *)malloc(sizeof(FLOAT) * to * to * COMPSIZE)) == NULL){
-    fprintf(stderr,"Out of Memory!!\n");exit(1);
-  }
-
-
-
-#ifdef linux
-  srandom(getpid());
-#endif
-
-  fprintf(stderr, "   SIZE       Flops\n");
-
-  for(m = from; m <= to; m += step)
-  {
-
-    fprintf(stderr, " %6d : ", (int)m);
-
-    for(j = 0; j < m; j++){
-      for(i = 0; i < m * COMPSIZE; i++){
-	a[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-	c[i + j * m * COMPSIZE] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-      }
-    }
-
-    gettimeofday( &start, (struct timezone *)0);
-
-    SYRK (&uplo, &trans, &m, &m, alpha, a, &m, beta, c, &m );
-
-    gettimeofday( &stop, (struct timezone *)0);
-
-    time1 = (double)(stop.tv_sec - start.tv_sec) + (double)((stop.tv_usec - start.tv_usec)) * 1.e-6;
-
-    gettimeofday( &start, (struct timezone *)0);
-
-    fprintf(stderr,
-	    " %10.2f MFlops\n",
-	    COMPSIZE * COMPSIZE * 1. * (double)m * (double)m * (double)m / time1 * 1.e-6);
-
-  }
-
-  return 0;
-}
-
-// void main(int argc, char *argv[]) __attribute__((weak, alias("MAIN__")));