Update Makefile.riscv64

.cirrus.yml

@@ -1,47 +1,38 @@
 macos_instance:
   image: ghcr.io/cirruslabs/macos-monterey-xcode:latest
 
-#task:
-#  name: AppleM1/LLVM
-#  compile_script:
-#  - brew install llvm
-#  - export PATH=/opt/homebrew/opt/llvm/bin:$PATH
-#  - export LDFLAGS="-L/opt/homebrew/opt/llvm/lib"
-#  - export CPPFLAGS="-I/opt/homebrew/opt/llvm/include"
-#  - make TARGET=VORTEX USE_OPENMP=1 CC=clang
+task:
+  name: AppleM1/LLVM
+  compile_script:
+  - brew install llvm
+  - export PATH=/opt/homebrew/opt/llvm/bin:$PATH
+  - export LDFLAGS="-L/opt/homebrew/opt/llvm/lib"
+  - export CPPFLAGS="-I/opt/homebrew/opt/llvm/include"
+  - make TARGET=VORTEX USE_OPENMP=1 CC=clang
 
-#task:
-#  name: AppleM1/LLVM/ILP64
-#  compile_script:
-#  - brew install llvm
-#  - export PATH=/opt/homebrew/opt/llvm/bin:$PATH
-#  - export LDFLAGS="-L/opt/homebrew/opt/llvm/lib"
-#  - export CPPFLAGS="-I/opt/homebrew/opt/llvm/include"
-#  - make TARGET=VORTEX USE_OPENMP=1 CC=clang INTERFACE64=1
+task:
+  name: AppleM1/LLVM/ILP64
+  compile_script:
+  - brew install llvm
+  - export PATH=/opt/homebrew/opt/llvm/bin:$PATH
+  - export LDFLAGS="-L/opt/homebrew/opt/llvm/lib"
+  - export CPPFLAGS="-I/opt/homebrew/opt/llvm/include"
+  - make TARGET=VORTEX USE_OPENMP=1 CC=clang INTERFACE64=1
 
-#task:
-#  name: AppleM1/LLVM/CMAKE
-#  compile_script:
-#  - brew install llvm
-#  - export PATH=/opt/homebrew/opt/llvm/bin:$PATH
-#  - export LDFLAGS="-L/opt/homebrew/opt/llvm/lib"
-#  - export CPPFLAGS="-I/opt/homebrew/opt/llvm/include"
-#  - mkdir build
-#  - cd build
-#  - cmake -DTARGET=VORTEX -DCMAKE_C_COMPILER=clang -DBUILD_SHARED_LIBS=ON ..
-#  - make -j 4
-
-#task:
-#  name: AppleM1/GCC/MAKE/OPENMP
-#  compile_script:
-#  - brew install gcc@11
-#  - export PATH=/opt/homebrew/bin:$PATH
-#  - export LDFLAGS="-L/opt/homebrew/lib"
-#  - export CPPFLAGS="-I/opt/homebrew/include"
-#  - make CC=gcc-11 FC=gfortran-11 USE_OPENMP=1
+task:
+  name: AppleM1/LLVM/CMAKE
+  compile_script:
+  - brew install llvm
+  - export PATH=/opt/homebrew/opt/llvm/bin:$PATH
+  - export LDFLAGS="-L/opt/homebrew/opt/llvm/lib"
+  - export CPPFLAGS="-I/opt/homebrew/opt/llvm/include"
+  - mkdir build
+  - cd build
+  - cmake -DTARGET=VORTEX -DCMAKE_C_COMPILER=clang -DBUILD_SHARED_LIBS=ON ..
+  - make
   
 macos_instance:
-  image: ghcr.io/cirruslabs/macos-sonoma-xcode:latest
+  image: ghcr.io/cirruslabs/macos-monterey-xcode:13.4
 task:
   name: AppleM1/LLVM x86_64 xbuild
   compile_script:
@@ -56,11 +47,10 @@ task:
   - export ARCHS_STANDARD_INCLUDING_64_BIT="i386 x86_64"
   - export ARCHS_UNIVERSAL_IPHONE_OS="i386 x86_64"
   - export VALID_ARCHS="i386 x86_64"
-  - xcrun --sdk macosx --show-sdk-path
-  - xcodebuild -version
-  - export CC=/Applications/Xcode_15.4.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/clang
-  - export CFLAGS="-O2 -unwindlib=none -Wno-macro-redefined -isysroot /Applications/Xcode_15.4.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX14.5.sdk -arch x86_64"
-  - make TARGET=CORE2 DYNAMIC_ARCH=1 NUM_THREADS=32 HOSTCC=clang NOFORTRAN=1 RANLIB="ls -l"
+  - #find /Applications/Xcode-13.4.1.app -name libunwind.dylib
+  - export CC=/Applications/Xcode-13.4.1.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/clang
+  - export CFLAGS="-O2 -unwindlib=none -Wno-macro-redefined -isysroot /Applications/Xcode-13.4.1.app/Contents/Developer/Platforms/iPhoneSimulator.platform/Developer/SDKs/iPhoneSimulator15.5.sdk -arch x86_64 -miphoneos-version-min=10.0"
+  - make TARGET=CORE2 DYNAMIC_ARCH=1 NUM_THREADS=32 HOSTCC=clang NOFORTRAN=1
   always:
     config_artifacts:
       path: "*conf*"
@@ -70,7 +60,7 @@ task:
 #    type: application/octet-streamm
 
 macos_instance:
-  image: ghcr.io/cirruslabs/macos-sonoma-xcode:latest
+  image: ghcr.io/cirruslabs/macos-monterey-xcode:13.4
 task:
   name: AppleM1/LLVM armv8-ios xbuild
   compile_script:
@@ -78,30 +68,15 @@ task:
   - export #PATH=/opt/homebrew/opt/llvm/bin:$PATH
   - export #LDFLAGS="-L/opt/homebrew/opt/llvm/lib"
   - export #CPPFLAGS="-I/opt/homebrew/opt/llvm/include" 
-  - export CC=/Applications/Xcode_15.4.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/clang
-  - export CFLAGS="-O2 -unwindlib=none -Wno-macro-redefined -isysroot /Applications/Xcode_15.4.app/Contents/Developer/Platforms/iPhoneOS.platform/Developer/SDKs/iPhoneOS17.5.sdk -arch arm64 -miphoneos-version-min=10.0"
-  - xcrun --sdk iphoneos --show-sdk-path
-  - ls -l /Applications
+  - find /Applications/Xcode-13.4.1.app/Contents/Developer/Platforms -name "IPhoneOS*sdk"
+  - export CC=/Applications/Xcode-13.4.1.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/clang
+  - export CFLAGS="-O2 -unwindlib=none -Wno-macro-redefined -isysroot /Applications/Xcode-13.4.1.app/Contents/Developer/Platforms/iPhoneOS.platform/Developer/SDKs/iPhoneOS15.5.sdk -arch arm64 -miphoneos-version-min=10.0"
   - make TARGET=ARMV8 NUM_THREADS=32 HOSTCC=clang NOFORTRAN=1 CROSS=1
   always:
     config_artifacts:
       path: "*conf*"
       type: text/plain
 
-macos_instance:
-  image: ghcr.io/cirruslabs/macos-sonoma-xcode:latest
-task:
-  name: AppleM1/LLVM armv7-androidndk xbuild
-  compile_script:
-  - brew install --cask android-ndk
-  - export ANDROID_NDK_HOME="/opt/homebrew/share/android-ndk"
-  - export CC=/opt/homebrew/share/android-ndk/toolchains/llvm/prebuilt/darwin-x86_64/bin/armv7a-linux-androideabi23-clang
-  - make TARGET=ARMV7 ARM_SOFTFP_ABI=1 NUM_THREADS=32 HOSTCC=clang NOFORTRAN=1 RANLIB="ls -l"
-  always:
-    config_artifacts:
-      path: "*conf*"
-      type: text/plain
-
 task:
   name: NeoverseN1
   arm_container:
@@ -127,7 +102,7 @@ task:
 FreeBSD_task:
   name: FreeBSD-gcc12
   freebsd_instance:
-    image_family: freebsd-13-3
+    image_family: freebsd-13-2
   install_script:
   - pkg update -f && pkg upgrade -y && pkg install -y gmake gcc
   compile_script:
@@ -138,23 +113,13 @@ FreeBSD_task:
 FreeBSD_task:
   name: freebsd-gcc12-ilp64
   freebsd_instance:
-    image_family: freebsd-13-3
+    image_family: freebsd-13-2
   install_script:
   - pkg update -f && pkg upgrade -y && pkg install -y gmake gcc
   compile_script:
   - ls -l /usr/local/lib
   - gmake CC=gcc INTERFACE64=1
 
-FreeBSD_task:
-  name: FreeBSD-clang-openmp
-  freebsd_instance:
-    image_family: freebsd-13-3
-  install_script:
-  - pkg update -f && pkg upgrade -y && pkg install -y gmake gcc 
-  - ln -s /usr/local/lib/gcc13/libgfortran.so.5.0.0 /usr/lib/libgfortran.so
-  compile_script:
-  - gmake CC=clang FC=gfortran USE_OPENMP=1 CPP_THREAD_SAFETY_TEST=1
-
 #task:
 #  name: Windows/LLVM16     --- too slow ---
 #  windows_container:

.cirun.yml

@@ -1,16 +0,0 @@
-# Self-Hosted Github Action Runners on AWS via Cirun.io
-# Reference: https://docs.cirun.io/reference/yaml
-runners:
-  - name: "aws-runner-graviton"
-    # Cloud Provider: AWS
-    cloud: "aws"
-    region: "us-east-1"
-    # Cheapest VM on AWS
-    instance_type: "c7g.large"
-    # Ubuntu-22.04, ami image
-    machine_image: "ami-0a0c8eebcdd6dcbd0"
-    preemptible: false
-    # Add this label in the "runs-on" param in .github/workflows/<workflow-name>.yml
-    # So that this runner is created for running the workflow
-    labels:
-      - "cirun-aws-runner-graviton"

.github/workflows/apple_m.yml

@@ -1,149 +0,0 @@
-name: apple m
-
-on: [push, pull_request]
-
-concurrency:
-  group: ${{ github.workflow }}-${{ github.head_ref || github.run_id }}
-  cancel-in-progress: true
-
-permissions:
-  contents: read # to fetch code (actions/checkout)
-
-jobs:
-  build:
-    if: "github.repository == 'OpenMathLib/OpenBLAS'"
-    runs-on: macos-14
-
-    strategy:
-      fail-fast: false
-      matrix:
-        build: [cmake, make]
-        fortran: [gfortran]
-        openmp: [0, 1]
-        ilp64: [0, 1]
-        
-    steps:
-      - name: Checkout repository
-        uses: actions/checkout@v3
-
-      - name: Print system information
-        run: |
-          if [ "$RUNNER_OS" == "Linux" ]; then
-            cat /proc/cpuinfo
-          elif [ "$RUNNER_OS" == "macOS" ]; then
-            sysctl -a | grep machdep.cpu
-          else
-            echo "::error::$RUNNER_OS not supported"
-            exit 1
-          fi
-
-      - name: Install Dependencies
-        run: |
-          if [ "$RUNNER_OS" == "Linux" ]; then
-            sudo apt-get install -y gfortran cmake ccache libtinfo5
-          elif [ "$RUNNER_OS" == "macOS" ]; then
-            # It looks like "gfortran" isn't working correctly unless "gcc" is re-installed.
-            brew reinstall gcc
-            brew install coreutils cmake ccache
-            brew install llvm
-          else
-            echo "::error::$RUNNER_OS not supported"
-            exit 1
-          fi
-
-      - name: Compilation cache
-        uses: actions/cache@v3
-        with:
-          path: ~/.ccache
-          # We include the commit sha in the cache key, as new cache entries are
-          # only created if there is no existing entry for the key yet.
-          # GNU make and cmake call the compilers differently. It looks like
-          # that causes the cache to mismatch. Keep the ccache for both build
-          # tools separate to avoid polluting each other.
-          key: ccache-${{ runner.os }}-${{ matrix.build }}-${{ matrix.fortran }}-${{ github.ref }}-${{ github.sha }}
-          # Restore a matching ccache cache entry. Prefer same branch and same Fortran compiler.
-          restore-keys: |
-            ccache-${{ runner.os }}-${{ matrix.build }}-${{matrix.fortran }}-${{ github.ref }}
-            ccache-${{ runner.os }}-${{ matrix.build }}-${{matrix.fortran }}
-            ccache-${{ runner.os }}-${{ matrix.build }}
-
-      - name: Configure ccache
-        run: |
-          if [ "${{ matrix.build }}" = "make" ]; then
-            # Add ccache to path
-            if [ "$RUNNER_OS" = "Linux" ]; then
-              echo "/usr/lib/ccache" >> $GITHUB_PATH
-            elif [ "$RUNNER_OS" = "macOS" ]; then
-              echo "$(brew --prefix)/opt/ccache/libexec" >> $GITHUB_PATH
-              echo "/opt/homebrew/opt/llvm/bin" >>$GITHUB_PATH
-              echo "" >>$GITHUB_PATH
-            else
-              echo "::error::$RUNNER_OS not supported"
-              exit 1
-            fi
-          fi
-          # Limit the maximum size and switch on compression to avoid exceeding the total disk or cache quota (5 GB).
-          test -d ~/.ccache || mkdir -p ~/.ccache
-          echo "max_size = 300M" > ~/.ccache/ccache.conf
-          echo "compression = true" >> ~/.ccache/ccache.conf
-          ccache -s
-
-      - name: Build OpenBLAS
-        run: |
-          export LDFLAGS="-L/opt/homebrew/opt/llvm/lib"
-          export CPPFLAGS="-I/opt/homebrew/opt/llvm/include"
-          export CC="/opt/homebrew/opt/llvm/bin/clang"
-          case "${{ matrix.build }}" in
-            "make")
-              make -j$(nproc) DYNAMIC_ARCH=1 USE_OPENMP=${{matrix.openmp}} INTERFACE64=${{matrix.ilp64}} FC="ccache ${{ matrix.fortran }}"
-              ;;
-            "cmake")
-              export LDFLAGS="$LDFLAGS -Wl,-ld_classic"
-              mkdir build && cd build
-              cmake -DDYNAMIC_ARCH=1 \
-                    -DUSE_OPENMP=${{matrix.openmp}} \
-                    -DINTERFACE64=${{matrix.ilp64}} \
-                    -DNOFORTRAN=0 \
-                    -DBUILD_WITHOUT_LAPACK=0 \
-                    -DCMAKE_VERBOSE_MAKEFILE=ON \
-                    -DCMAKE_BUILD_TYPE=Release \
-                    -DCMAKE_Fortran_COMPILER=${{ matrix.fortran }} \
-                    -DCMAKE_C_COMPILER_LAUNCHER=ccache \
-                    -DCMAKE_Fortran_COMPILER_LAUNCHER=ccache \
-                    ..
-              cmake --build .
-              ;;
-            *)
-              echo "::error::Configuration not supported"
-              exit 1
-              ;;
-          esac
-
-      - name: Show ccache status
-        continue-on-error: true
-        run: ccache -s
-
-      - name: Run tests
-        timeout-minutes: 60
-        run: |
-          case "${{ matrix.build }}" in
-            "make")
-              MAKE_FLAGS='DYNAMIC_ARCH=1 USE_OPENMP=0'
-              echo "::group::Tests in 'test' directory"
-              make -C test $MAKE_FLAGS FC="ccache ${{ matrix.fortran }}"
-              echo "::endgroup::"
-              echo "::group::Tests in 'ctest' directory"
-              make -C ctest $MAKE_FLAGS FC="ccache ${{ matrix.fortran }}"
-              echo "::endgroup::"
-              echo "::group::Tests in 'utest' directory"
-              make -C utest $MAKE_FLAGS FC="ccache ${{ matrix.fortran }}"
-              echo "::endgroup::"
-              ;;
-            "cmake")
-              cd build && ctest
-              ;;
-            *)
-              echo "::error::Configuration not supported"
-              exit 1
-              ;;
-          esac

.github/workflows/arm64_graviton.yml

@@ -1,139 +0,0 @@
-name: arm64 graviton cirun
-
-on:
-  push:
-    branches:
-      - develop
-      - release-**
-  pull_request:
-    branches:
-      - develop
-      - release-**
-
-concurrency:
-  group: ${{ github.workflow }}-${{ github.head_ref || github.run_id }}
-  cancel-in-progress: true
-
-permissions:
-  contents: read # to fetch code (actions/checkout)
-
-jobs:
-  build:
-    if: "github.repository == 'OpenMathLib/OpenBLAS'"
-    runs-on: "cirun-aws-runner-graviton--${{ github.run_id }}"
-
-    strategy:
-      fail-fast: false
-      matrix:
-        fortran: [gfortran]
-        build: [cmake, make]
-
-    steps:
-      - name: Checkout repository
-        uses: actions/checkout@v3
-
-      - name: Print system information
-        run: |
-          if [ "$RUNNER_OS" == "Linux" ]; then
-            cat /proc/cpuinfo
-          else
-            echo "::error::$RUNNER_OS not supported"
-            exit 1
-          fi
-
-      - name: Install Dependencies
-        run: |
-          if [ "$RUNNER_OS" == "Linux" ]; then
-            sudo apt update
-            sudo apt-get install -y gfortran cmake ccache libtinfo5
-          else
-            echo "::error::$RUNNER_OS not supported"
-            exit 1
-          fi
-
-      - name: Compilation cache
-        uses: actions/cache@v3
-        with:
-          path: ~/.ccache
-          # We include the commit sha in the cache key, as new cache entries are
-          # only created if there is no existing entry for the key yet.
-          # GNU make and cmake call the compilers differently. It looks like
-          # that causes the cache to mismatch. Keep the ccache for both build
-          # tools separate to avoid polluting each other.
-          key: ccache-${{ runner.os }}-${{ matrix.build }}-${{ matrix.fortran }}-${{ github.ref }}-${{ github.sha }}
-          # Restore a matching ccache cache entry. Prefer same branch and same Fortran compiler.
-          restore-keys: |
-            ccache-${{ runner.os }}-${{ matrix.build }}-${{ matrix.fortran }}-${{ github.ref }}
-            ccache-${{ runner.os }}-${{ matrix.build }}-${{ matrix.fortran }}
-            ccache-${{ runner.os }}-${{ matrix.build }}
-
-      - name: Configure ccache
-        run: |
-          if [ "${{ matrix.build }}" = "make" ]; then
-            # Add ccache to path
-            if [ "$RUNNER_OS" = "Linux" ]; then
-              echo "/usr/lib/ccache" >> $GITHUB_PATH
-            else
-              echo "::error::$RUNNER_OS not supported"
-              exit 1
-            fi
-          fi
-          # Limit the maximum size and switch on compression to avoid exceeding the total disk or cache quota (5 GB).
-          test -d ~/.ccache || mkdir -p ~/.ccache
-          echo "max_size = 300M" > ~/.ccache/ccache.conf
-          echo "compression = true" >> ~/.ccache/ccache.conf
-          ccache -s
-
-      - name: Build OpenBLAS
-        run: |
-          case "${{ matrix.build }}" in
-            "make")
-              make -j$(nproc) DYNAMIC_ARCH=1 USE_OPENMP=0 FC="ccache ${{ matrix.fortran }}"
-              ;;
-            "cmake")
-              mkdir build && cd build
-              cmake -DDYNAMIC_ARCH=1 \
-                    -DNOFORTRAN=0 \
-                    -DBUILD_WITHOUT_LAPACK=0 \
-                    -DCMAKE_VERBOSE_MAKEFILE=ON \
-                    -DCMAKE_BUILD_TYPE=Release \
-                    -DCMAKE_Fortran_COMPILER=${{ matrix.fortran }} \
-                    -DCMAKE_C_COMPILER_LAUNCHER=ccache \
-                    -DCMAKE_Fortran_COMPILER_LAUNCHER=ccache \
-                    ..
-              cmake --build .
-              ;;
-            *)
-              echo "::error::Configuration not supported"
-              exit 1
-              ;;
-          esac
-
-      - name: Show ccache status
-        continue-on-error: true
-        run: ccache -s
-
-      - name: Run tests
-        timeout-minutes: 60
-        run: |
-          case "${{ matrix.build }}" in
-            "make")
-              MAKE_FLAGS='DYNAMIC_ARCH=1 USE_OPENMP=0'
-              echo "::group::Tests in 'test' directory"
-              make -C test $MAKE_FLAGS FC="ccache ${{ matrix.fortran }}"
-              echo "::endgroup::"
-              echo "::group::Tests in 'ctest' directory"
-              make -C ctest $MAKE_FLAGS FC="ccache ${{ matrix.fortran }}"
-              echo "::endgroup::"
-              echo "::group::Tests in 'utest' directory"
-              make -C utest $MAKE_FLAGS FC="ccache ${{ matrix.fortran }}"
-              echo "::endgroup::"
-              ;;
-            "cmake")
-              cd build && ctest
-              ;;
-            *)
-              echo "::error::Configuration not supported"
-              exit 1
-              ;;
-          esac

.github/workflows/c910v.yml

@@ -2,20 +2,15 @@ name: c910v qemu test
 
 on: [push, pull_request]
 
-concurrency:
-  group: ${{ github.workflow }}-${{ github.head_ref || github.run_id }}
-  cancel-in-progress: true
-
 permissions:
   contents: read # to fetch code (actions/checkout)
 
 jobs:
   TEST:
-    if: "github.repository == 'OpenMathLib/OpenBLAS'"
     runs-on: ubuntu-latest
     env:
-      xuetie_toolchain: https://occ-oss-prod.oss-cn-hangzhou.aliyuncs.com/resource//1698113812618
-      toolchain_file_name: Xuantie-900-gcc-linux-5.10.4-glibc-x86_64-V2.8.0-20231018.tar.gz
+      xuetie_toolchain: https://occ-oss-prod.oss-cn-hangzhou.aliyuncs.com/resource//1663142514282
+      toolchain_file_name: Xuantie-900-gcc-linux-5.10.4-glibc-x86_64-V2.6.1-20220906.tar.gz
     strategy:
       fail-fast: false
       matrix:
@@ -76,7 +71,7 @@ jobs:
         run: |
             wget ${xuetie_toolchain}/${toolchain_file_name}
             tar -xvf ${toolchain_file_name} -C /opt
-            export PATH="/opt/Xuantie-900-gcc-linux-5.10.4-glibc-x86_64-V2.8.0/bin:$PATH"
+            export PATH="/opt/Xuantie-900-gcc-linux-5.10.4-glibc-x86_64-V2.6.1/bin:$PATH"
 
             make CC='ccache ${{ matrix.triple }}-gcc -static' FC='ccache ${{ matrix.triple }}-gfortran -static' ${{ matrix.opts }} HOSTCC='ccache gcc' -j$(nproc)
 
@@ -84,7 +79,6 @@ jobs:
         run: |
           export PATH=$GITHUB_WORKSPACE/qemu-install/bin/:$PATH
           qemu-riscv64 ./utest/openblas_utest
-          qemu-riscv64 ./utest/openblas_utest_ext
           OPENBLAS_NUM_THREADS=2 qemu-riscv64 ./ctest/xscblat1
           OPENBLAS_NUM_THREADS=2 qemu-riscv64 ./ctest/xdcblat1
           OPENBLAS_NUM_THREADS=2 qemu-riscv64 ./ctest/xccblat1

.github/workflows/codspeed-bench.yml

@@ -1,157 +0,0 @@
-name: Run codspeed benchmarks
-
-on: [push, pull_request]
-
-concurrency:
-  group: ${{ github.workflow }}-${{ github.head_ref || github.run_id }}
-  cancel-in-progress: true
-
-permissions:
-  contents: read # to fetch code (actions/checkout)
-
-jobs:
-  benchmarks:
-    if: "github.repository == 'OpenMathLib/OpenBLAS'"
-    strategy:
-      fail-fast: false
-      matrix:
-        os: [ubuntu-latest]
-        fortran: [gfortran]
-        build: [make]
-        pyver: ["3.12"]
-    runs-on: ${{ matrix.os }}
-    steps:
-      - uses: actions/checkout@v3
-      - uses: actions/setup-python@v3
-        with:
-            python-version: ${{ matrix.pyver }}
-
-      - name: Print system information
-        run: |
-          if [ "$RUNNER_OS" == "Linux" ]; then
-            cat /proc/cpuinfo
-          fi
-
-      - name: Install Dependencies
-        run: |
-          if [ "$RUNNER_OS" == "Linux" ]; then
-            sudo apt-get update
-            sudo apt-get install -y gfortran cmake ccache libtinfo5
-          else
-            echo "::error::$RUNNER_OS not supported"
-            exit 1
-          fi
-
-      - name: Compilation cache
-        uses: actions/cache@v3
-        with:
-          path: ~/.ccache
-          # We include the commit sha in the cache key, as new cache entries are
-          # only created if there is no existing entry for the key yet.
-          # GNU make and cmake call the compilers differently. It looks like
-          # that causes the cache to mismatch. Keep the ccache for both build
-          # tools separate to avoid polluting each other.
-          key: ccache-${{ runner.os }}-${{ matrix.build }}-${{ matrix.fortran }}-${{ github.ref }}-${{ github.sha }}
-          # Restore a matching ccache cache entry. Prefer same branch and same Fortran compiler.
-          restore-keys: |
-            ccache-${{ runner.os }}-${{ matrix.build }}-${{ matrix.fortran }}-${{ github.ref }}
-            ccache-${{ runner.os }}-${{ matrix.build }}-${{ matrix.fortran }}
-            ccache-${{ runner.os }}-${{ matrix.build }}
-
-      - name: Write out the .pc
-        run: |
-             cd benchmark/pybench
-             cat > openblas.pc << EOF
-             libdir=${{ github.workspace }}
-             includedir= ${{ github.workspace }}
-             openblas_config= OpenBLAS 0.3.27 DYNAMIC_ARCH NO_AFFINITY Haswell MAX_THREADS=64
-             version=0.0.99
-             extralib=-lm -lpthread -lgfortran -lquadmath -L${{ github.workspace }} -lopenblas
-             Name: openblas
-             Description: OpenBLAS is an optimized BLAS library based on GotoBLAS2 1.13 BSD version
-             Version: ${version}
-             URL: https://github.com/xianyi/OpenBLAS
-             Libs: ${{ github.workspace }}/libopenblas.so -Wl,-rpath,${{ github.workspace }}
-             Libs.private: -lm -lpthread -lgfortran -lquadmath -L${{ github.workspace }} -lopenblas
-             Cflags: -I${{ github.workspace}}
-             EOF
-             cat openblas.pc
-
-      - name: Configure ccache
-        run: |
-          if [ "${{ matrix.build }}" = "make" ]; then
-            # Add ccache to path
-            if [ "$RUNNER_OS" = "Linux" ]; then
-              echo "/usr/lib/ccache" >> $GITHUB_PATH
-            elif [ "$RUNNER_OS" = "macOS" ]; then
-              echo "$(brew --prefix)/opt/ccache/libexec" >> $GITHUB_PATH
-            else
-              echo "::error::$RUNNER_OS not supported"
-              exit 1
-            fi
-          fi
-          # Limit the maximum size and switch on compression to avoid exceeding the total disk or cache quota (5 GB).
-          test -d ~/.ccache || mkdir -p ~/.ccache
-          echo "max_size = 300M" > ~/.ccache/ccache.conf
-          echo "compression = true" >> ~/.ccache/ccache.conf
-          ccache -s
-
-      - name: Build OpenBLAS
-        run: |
-          case "${{ matrix.build }}" in
-            "make")
-              make -j$(nproc) DYNAMIC_ARCH=1 USE_OPENMP=0 FC="ccache ${{ matrix.fortran }}"
-              ;;
-            "cmake")
-              mkdir build && cd build
-              cmake -DDYNAMIC_ARCH=1 \
-                    -DNOFORTRAN=0 \
-                    -DBUILD_WITHOUT_LAPACK=0 \
-                    -DCMAKE_VERBOSE_MAKEFILE=ON \
-                    -DCMAKE_BUILD_TYPE=Release \
-                    -DCMAKE_Fortran_COMPILER=${{ matrix.fortran }} \
-                    -DCMAKE_C_COMPILER_LAUNCHER=ccache \
-                    -DCMAKE_Fortran_COMPILER_LAUNCHER=ccache \
-                    ..
-              cmake --build .
-              ;;
-            *)
-              echo "::error::Configuration not supported"
-              exit 1
-              ;;
-          esac
-
-      - name: Show ccache status
-        continue-on-error: true
-        run: ccache -s
-
-      - name: Install benchmark dependencies
-        run: pip install meson ninja numpy pytest pytest-codspeed --user
-
-      - name: Build the wrapper
-        run: |
-          cd benchmark/pybench
-          export PKG_CONFIG_PATH=$PWD
-          meson setup build  --prefix=$PWD/build-install
-          meson install -C build
-          #
-          # sanity check
-          cd build/openblas_wrap
-          python -c'import _flapack; print(dir(_flapack))'
-
-      - name: Run benchmarks under pytest-benchmark
-        run: |
-          cd benchmark/pybench
-          pip install pytest-benchmark
-          export PYTHONPATH=$PWD/build-install/lib/python${{matrix.pyver}}/site-packages/
-          OPENBLAS_NUM_THREADS=1 pytest benchmarks/bench_blas.py -k 'gesdd'
-
-      - name: Run benchmarks
-        uses: CodSpeedHQ/action@v2
-        with:
-          token: ${{ secrets.CODSPEED_TOKEN }}
-          run: |
-            cd benchmark/pybench
-            export PYTHONPATH=$PWD/build-install/lib/python${{matrix.pyver}}/site-packages/
-            OPENBLAS_NUM_THREADS=1 pytest benchmarks/bench_blas.py --codspeed
-

.github/workflows/docs.yml

@@ -1,40 +0,0 @@
-name: Publish docs via GitHub Pages
-
-on:
-  push:
-    branches:
-      - develop
-  pull_request:
-    branches:
-      - develop
-
-jobs:
-  build:
-    name: Deploy docs
-    if: "github.repository == 'OpenMathLib/OpenBLAS'"
-    runs-on: ubuntu-latest
-    steps:
-      - uses: actions/checkout@v4
-        with:
-          fetch-depth: 0
-
-      - uses: actions/setup-python@v5
-        with:
-          python-version: "3.10"
-
-      - name: Install MkDocs and doc theme packages
-        run: pip install mkdocs mkdocs-material mkdocs-git-revision-date-localized-plugin
-
-      - name: Build docs site
-        run: mkdocs build
-
-      # mkdocs gh-deploy command only builds to the top-level, hence deploying
-      # with this action instead.
-      # Deploys to http://www.openmathlib.org/OpenBLAS/docs/
-      - name: Deploy docs
-        uses: peaceiris/actions-gh-pages@4f9cc6602d3f66b9c108549d475ec49e8ef4d45e # v4.0.0
-        if: ${{ github.ref == 'refs/heads/develop' }}
-        with:
-          github_token: ${{ secrets.GITHUB_TOKEN }}
-          publish_dir: ./site
-          destination_dir: docs/

.github/workflows/dynamic_arch.yml

@@ -2,16 +2,11 @@ name: continuous build
 
 on: [push, pull_request]
 
-concurrency:
-  group: ${{ github.workflow }}-${{ github.head_ref || github.run_id }}
-  cancel-in-progress: true
-
 permissions:
   contents: read # to fetch code (actions/checkout)
 
 jobs:
   build:
-    if: "github.repository == 'OpenMathLib/OpenBLAS'"
     runs-on: ${{ matrix.os }}
 
     strategy:
@@ -42,7 +37,6 @@ jobs:
       - name: Install Dependencies
         run: |
           if [ "$RUNNER_OS" == "Linux" ]; then
-            sudo apt-get update
             sudo apt-get install -y gfortran cmake ccache libtinfo5
           elif [ "$RUNNER_OS" == "macOS" ]; then
             # It looks like "gfortran" isn't working correctly unless "gcc" is re-installed.
@@ -152,59 +146,45 @@ jobs:
 
 
   msys2:
-    if: "github.repository == 'OpenMathLib/OpenBLAS'"
     runs-on: windows-latest
 
     strategy:
       fail-fast: false
       matrix:
-        msystem: [UCRT64, MINGW32, CLANG64, CLANG32]
+        msystem: [MINGW64, MINGW32, CLANG64]
         idx: [int32, int64]
         build-type: [Release]
         include:
-          - msystem: UCRT64
+          - msystem: MINGW64
             idx: int32
-            target-prefix: mingw-w64-ucrt-x86_64
-            fc-pkg: fc
+            target-prefix: mingw-w64-x86_64
+            fc-pkg: mingw-w64-x86_64-gcc-fortran
           - msystem: MINGW32
             idx: int32
             target-prefix: mingw-w64-i686
-            fc-pkg: fc
+            fc-pkg: mingw-w64-i686-gcc-fortran
           - msystem: CLANG64
             idx: int32
             target-prefix: mingw-w64-clang-x86_64
-            fc-pkg: fc
-            # Compiling with Flang 16 seems to cause test errors on machines
-            # with AVX512 instructions. Revisit after MSYS2 distributes Flang 17.
-            no-avx512-flags: -DNO_AVX512=1
-          - msystem: CLANG32
-            idx: int32
-            target-prefix: mingw-w64-clang-i686
-            fc-pkg: cc
             c-lapack-flags: -DC_LAPACK=ON
-          - msystem: UCRT64
+          - msystem: MINGW64
             idx: int64
             idx64-flags: -DBINARY=64 -DINTERFACE64=1
-            target-prefix: mingw-w64-ucrt-x86_64
-            fc-pkg: fc
+            target-prefix: mingw-w64-x86_64
+            fc-pkg: mingw-w64-x86_64-gcc-fortran
           - msystem: CLANG64
             idx: int64
             idx64-flags: -DBINARY=64 -DINTERFACE64=1
             target-prefix: mingw-w64-clang-x86_64
-            fc-pkg: fc
-            # Compiling with Flang 16 seems to cause test errors on machines
-            # with AVX512 instructions. Revisit after MSYS2 distributes Flang 17.
-            no-avx512-flags: -DNO_AVX512=1
-          - msystem: UCRT64
+            c-lapack-flags: -DC_LAPACK=ON
+          - msystem: MINGW64
             idx: int32
-            target-prefix: mingw-w64-ucrt-x86_64
-            fc-pkg: fc
+            target-prefix: mingw-w64-x86_64
+            fc-pkg: mingw-w64-x86_64-gcc-fortran
             build-type: None
         exclude:
           - msystem: MINGW32
             idx: int64
-          - msystem: CLANG32
-            idx: int64
 
     defaults:
       run:
@@ -229,7 +209,7 @@ jobs:
           install: >-
             base-devel
             ${{ matrix.target-prefix }}-cc
-            ${{ matrix.target-prefix }}-${{ matrix.fc-pkg }}
+            ${{ matrix.fc-pkg }}
             ${{ matrix.target-prefix }}-cmake
             ${{ matrix.target-prefix }}-ninja
             ${{ matrix.target-prefix }}-ccache
@@ -281,7 +261,6 @@ jobs:
                 -DTARGET=CORE2 \
                 ${{ matrix.idx64-flags }} \
                 ${{ matrix.c-lapack-flags }} \
-                ${{ matrix.no-avx512-flags }} \
                 -DCMAKE_C_COMPILER_LAUNCHER=ccache \
                 -DCMAKE_Fortran_COMPILER_LAUNCHER=ccache \
                 ..
@@ -301,25 +280,11 @@ jobs:
           key: ${{ steps.ccache-prepare.outputs.key }}
 
       - name: Run tests
-        id: run-ctest
         timeout-minutes: 60
         run: cd build && ctest
 
-      - name: Re-run tests
-        if: always() && (steps.run-ctest.outcome == 'failure')
-        timeout-minutes: 60
-        run: |
-          cd build
-          echo "::group::Re-run ctest"
-          ctest --rerun-failed --output-on-failure || true
-          echo "::endgroup::"
-          echo "::group::Log from these tests"
-          [ ! -f Testing/Temporary/LastTest.log ] || cat Testing/Temporary/LastTest.log
-          echo "::endgroup::"
-
 
   cross_build:
-    if: "github.repository == 'OpenMathLib/OpenBLAS'"
     runs-on: ubuntu-22.04
 
     strategy:

.github/workflows/loongarch64.yml

@@ -1,119 +0,0 @@
-name: loongarch64 qemu test
-
-on: [push, pull_request]
-
-concurrency:
-  group: ${{ github.workflow }}-${{ github.head_ref || github.run_id }}
-  cancel-in-progress: true
-
-jobs:
-  TEST:
-    if: "github.repository == 'OpenMathLib/OpenBLAS'"
-    runs-on: ubuntu-24.04
-    strategy:
-      fail-fast: false
-      matrix:
-        include:
-          - target: LOONGSONGENERIC
-            triple:  loongarch64-linux-gnu
-            opts: NO_SHARED=1 DYNAMIC_ARCH=1 TARGET=LOONGSONGENERIC
-          - target: LOONGSON3R5
-            triple: loongarch64-linux-gnu
-            opts: NO_SHARED=1 DYNAMIC_ARCH=1 TARGET=LOONGSON3R5
-          - target: LOONGSON2K1000
-            triple: loongarch64-linux-gnu
-            opts: NO_SHARED=1 DYNAMIC_ARCH=1 TARGET=LOONGSON2K1000
-          - target: LA64_GENERIC
-            triple:  loongarch64-linux-gnu
-            opts: NO_SHARED=1 DYNAMIC_ARCH=1 TARGET=LA64_GENERIC
-          - target: LA464
-            triple: loongarch64-linux-gnu
-            opts: NO_SHARED=1 DYNAMIC_ARCH=1 TARGET=LA464
-          - target: LA264
-            triple: loongarch64-linux-gnu
-            opts: NO_SHARED=1 DYNAMIC_ARCH=1 TARGET=LA264
-          - target: DYNAMIC_ARCH
-            triple: loongarch64-linux-gnu
-            opts: NO_SHARED=1 DYNAMIC_ARCH=1 TARGET=GENERIC
-
-    steps:
-      - name: Checkout repository
-        uses: actions/checkout@v3
-
-      - name: Install APT deps
-        run: |
-          sudo apt-get update && \
-          sudo apt-get install autoconf automake autotools-dev ninja-build make ccache qemu-user-static \
-                               gcc-14-loongarch64-linux-gnu g++-14-loongarch64-linux-gnu gfortran-14-loongarch64-linux-gnu
-
-      - name: Compilation cache
-        uses: actions/cache@v3
-        with:
-          path: ~/.ccache
-          key: ccache-${{ runner.os }}-${{ matrix.target }}-${{ github.ref }}-${{ github.sha }}
-          restore-keys: |
-            ccache-${{ runner.os }}-${{ matrix.target }}-${{ github.ref }}
-            ccache-${{ runner.os }}-${{ matrix.target }}
-
-      - name: Configure ccache
-        run: |
-          test -d ~/.ccache || mkdir -p ~/.ccache
-          echo "max_size = 300M" > ~/.ccache/ccache.conf
-          echo "compression = true" >> ~/.ccache/ccache.conf
-          ccache -s
-
-      - name: Disable utest dsdot:dsdot_n_1
-        run: |
-          echo -n > utest/test_dsdot.c
-          echo "Due to the current version of qemu causing utest cases to fail,"
-          echo "the utest dsdot:dsdot_n_1 have been temporarily disabled."
-
-      - name: Build OpenBLAS
-        run: |
-          make CC='ccache ${{ matrix.triple }}-gcc-14 -static' FC='ccache ${{ matrix.triple }}-gfortran-14 -static' \
-          RANLIB='ccache ${{ matrix.triple }}-gcc-ranlib-14' ${{ matrix.opts }} HOSTCC='ccache gcc' -j$(nproc)
-
-      - name: Test
-        run: |
-          qemu-loongarch64-static ./utest/openblas_utest
-          qemu-loongarch64-static ./utest/openblas_utest_ext
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./ctest/xscblat1
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./ctest/xdcblat1
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./ctest/xccblat1
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./ctest/xzcblat1
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./ctest/xscblat2 < ./ctest/sin2
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./ctest/xdcblat2 < ./ctest/din2
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./ctest/xccblat2 < ./ctest/cin2
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./ctest/xzcblat2 < ./ctest/zin2
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./ctest/xscblat3 < ./ctest/sin3
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./ctest/xdcblat3 < ./ctest/din3
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./ctest/xccblat3 < ./ctest/cin3
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./ctest/xzcblat3 < ./ctest/zin3
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64-static ./test/sblat1
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64-static ./test/dblat1
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64-static ./test/cblat1
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64-static ./test/zblat1
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./test/sblat1
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./test/dblat1
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./test/cblat1
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./test/zblat1
-          rm -f ./test/?BLAT2.SUMM
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64-static ./test/sblat2 < ./test/sblat2.dat
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64-static ./test/dblat2 < ./test/dblat2.dat
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64-static ./test/cblat2 < ./test/cblat2.dat
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64-static ./test/zblat2 < ./test/zblat2.dat
-          rm -f ./test/?BLAT2.SUMM
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./test/sblat2 < ./test/sblat2.dat
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./test/dblat2 < ./test/dblat2.dat
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./test/cblat2 < ./test/cblat2.dat
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./test/zblat2 < ./test/zblat2.dat
-          rm -f ./test/?BLAT3.SUMM
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64-static ./test/sblat3 < ./test/sblat3.dat
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64-static ./test/dblat3 < ./test/dblat3.dat
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64-static ./test/cblat3 < ./test/cblat3.dat
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64-static ./test/zblat3 < ./test/zblat3.dat
-          rm -f ./test/?BLAT3.SUMM
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./test/sblat3 < ./test/sblat3.dat
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./test/dblat3 < ./test/dblat3.dat
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./test/cblat3 < ./test/cblat3.dat
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64-static ./test/zblat3 < ./test/zblat3.dat

.github/workflows/loongarch64_clang.yml

@@ -1,141 +0,0 @@
-name: loongarch64 clang qemu test
-
-on: [push, pull_request]
-
-concurrency:
-  group: ${{ github.workflow }}-${{ github.head_ref || github.run_id }}
-  cancel-in-progress: true
-
-jobs:
-  TEST:
-    if: "github.repository == 'OpenMathLib/OpenBLAS'"
-    runs-on: ubuntu-latest
-    strategy:
-      fail-fast: false
-      matrix:
-        include:
-          - target: LOONGSONGENERIC
-            opts: NO_SHARED=1 DYNAMIC_ARCH=1 TARGET=LOONGSONGENERIC
-          - target: LOONGSON3R5
-            opts: NO_SHARED=1 DYNAMIC_ARCH=1 TARGET=LOONGSON3R5
-          - target: LOONGSON2K1000
-            opts: NO_SHARED=1 DYNAMIC_ARCH=1 TARGET=LOONGSON2K1000
-          - target: LA64_GENERIC
-            opts: NO_SHARED=1 DYNAMIC_ARCH=1 TARGET=LA64_GENERIC
-          - target: LA464
-            opts: NO_SHARED=1 DYNAMIC_ARCH=1 TARGET=LA464
-          - target: LA264
-            opts: NO_SHARED=1 DYNAMIC_ARCH=1 TARGET=LA264
-          - target: DYNAMIC_ARCH
-            opts: NO_SHARED=1 DYNAMIC_ARCH=1 TARGET=GENERIC
-
-    steps:
-      - name: Checkout repository
-        uses: actions/checkout@v3
-
-      - name: Install libffi6
-        run: |
-          wget http://ftp.ca.debian.org/debian/pool/main/libf/libffi/libffi6_3.2.1-9_amd64.deb
-          sudo dpkg -i libffi6_3.2.1-9_amd64.deb
-
-      - name: Install APT deps
-        run: |
-          sudo apt-get update
-          sudo apt-get install autoconf automake autotools-dev ninja-build make ccache
-
-      - name: Download and install loongarch64-toolchain
-        run: |
-          wget https://github.com/XiWeiGu/loongarch64_toolchain/releases/download/V0.1/clang+llvm_8.0.1-6_amd64-linux-gnu_debian-10.tar.gz
-          wget https://github.com/XiWeiGu/loongarch64_toolchain/releases/download/V0.1/loongson-gnu-toolchain-8.3-x86_64-loongarch64-linux-gnu-rc1.3.tar.xz
-          tar -xf clang+llvm_8.0.1-6_amd64-linux-gnu_debian-10.tar.gz -C /opt
-          tar -xf loongson-gnu-toolchain-8.3-x86_64-loongarch64-linux-gnu-rc1.3.tar.xz -C /opt
-
-      - name: Checkout qemu
-        uses: actions/checkout@v3
-        with:
-          repository: qemu/qemu
-          path: qemu
-          ref: master
-
-      - name: Install qemu
-        run: |
-          cd qemu
-          ./configure --prefix=$GITHUB_WORKSPACE/qemu-install --target-list=loongarch64-linux-user --disable-system --static
-          make -j$(nproc)
-          make install
-
-      - name: Set env
-        run: |
-          echo "PATH=$GITHUB_WORKSPACE:/opt/clang+llvm_8.0.1-6_amd64-linux-gnu_debian-10/bin:/opt/loongson-gnu-toolchain-8.3-x86_64-loongarch64-linux-gnu-rc1.3/bin:$PATH" >> $GITHUB_ENV
-
-      - name: Compilation cache
-        uses: actions/cache@v3
-        with:
-          path: ~/.ccache
-          key: ccache-${{ runner.os }}-${{ matrix.target }}-${{ github.ref }}-${{ github.sha }}
-          restore-keys: |
-            ccache-${{ runner.os }}-${{ matrix.target }}-${{ github.ref }}
-            ccache-${{ runner.os }}-${{ matrix.target }}
-
-      - name: Configure ccache
-        run: |
-          test -d ~/.ccache || mkdir -p ~/.ccache
-          echo "max_size = 300M" > ~/.ccache/ccache.conf
-          echo "compression = true" >> ~/.ccache/ccache.conf
-          ccache -s
-
-      - name: Disable utest dsdot:dsdot_n_1
-        run: |
-          echo -n > utest/test_dsdot.c
-          echo "Due to the qemu versions 7.2 causing utest cases to fail,"
-          echo "the utest dsdot:dsdot_n_1 have been temporarily disabled."
-
-      - name: Build OpenBLAS
-        run: make CC='ccache clang --target=loongarch64-linux-gnu --sysroot=/opt/loongson-gnu-toolchain-8.3-x86_64-loongarch64-linux-gnu-rc1.3/loongarch64-linux-gnu/sysroot/ -static' FC='ccache loongarch64-linux-gnu-gfortran -static' HOSTCC='ccache clang' CROSS_SUFFIX=llvm-  NO_SHARED=1 ${{ matrix.opts }} -j$(nproc)
-
-      - name: Test
-        run: |
-          export PATH=$GITHUB_WORKSPACE/qemu-install/bin/:$PATH
-          qemu-loongarch64 ./utest/openblas_utest
-          qemu-loongarch64 ./utest/openblas_utest_ext
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./ctest/xscblat1
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./ctest/xdcblat1
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./ctest/xccblat1
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./ctest/xzcblat1
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./ctest/xscblat2 < ./ctest/sin2
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./ctest/xdcblat2 < ./ctest/din2
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./ctest/xccblat2 < ./ctest/cin2
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./ctest/xzcblat2 < ./ctest/zin2
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./ctest/xscblat3 < ./ctest/sin3
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./ctest/xdcblat3 < ./ctest/din3
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./ctest/xccblat3 < ./ctest/cin3
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./ctest/xzcblat3 < ./ctest/zin3
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64 ./test/sblat1
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64 ./test/dblat1
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64 ./test/cblat1
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64 ./test/zblat1
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./test/sblat1
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./test/dblat1
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./test/cblat1
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./test/zblat1
-          rm -f ./test/?BLAT2.SUMM
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64 ./test/sblat2 < ./test/sblat2.dat
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64 ./test/dblat2 < ./test/dblat2.dat
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64 ./test/cblat2 < ./test/cblat2.dat
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64 ./test/zblat2 < ./test/zblat2.dat
-          rm -f ./test/?BLAT2.SUMM
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./test/sblat2 < ./test/sblat2.dat
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./test/dblat2 < ./test/dblat2.dat
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./test/cblat2 < ./test/cblat2.dat
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./test/zblat2 < ./test/zblat2.dat
-          rm -f ./test/?BLAT3.SUMM
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64 ./test/sblat3 < ./test/sblat3.dat
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64 ./test/dblat3 < ./test/dblat3.dat
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64 ./test/cblat3 < ./test/cblat3.dat
-          OPENBLAS_NUM_THREADS=1 OMP_NUM_THREADS=1 qemu-loongarch64 ./test/zblat3 < ./test/zblat3.dat
-          rm -f ./test/?BLAT3.SUMM
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./test/sblat3 < ./test/sblat3.dat
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./test/dblat3 < ./test/dblat3.dat
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./test/cblat3 < ./test/cblat3.dat
-          OPENBLAS_NUM_THREADS=2 qemu-loongarch64 ./test/zblat3 < ./test/zblat3.dat
-

.github/workflows/mips64.yml

@@ -2,16 +2,11 @@ name: mips64 qemu test
 
 on: [push, pull_request]
 
-concurrency:
-  group: ${{ github.workflow }}-${{ github.head_ref || github.run_id }}
-  cancel-in-progress: true
-
 permissions:
   contents: read # to fetch code (actions/checkout)
 
 jobs:
   TEST:
-    if: "github.repository == 'OpenMathLib/OpenBLAS'"
     runs-on: ubuntu-latest
     strategy:
       fail-fast: false
@@ -80,7 +75,6 @@ jobs:
         run: |
           export PATH=$GITHUB_WORKSPACE/qemu-install/bin/:$PATH
           qemu-mips64el ./utest/openblas_utest
-          qemu-mips64el ./utest/openblas_utest_ext
           OPENBLAS_NUM_THREADS=2 qemu-mips64el ./ctest/xscblat1
           OPENBLAS_NUM_THREADS=2 qemu-mips64el ./ctest/xdcblat1
           OPENBLAS_NUM_THREADS=2 qemu-mips64el ./ctest/xccblat1

.github/workflows/nightly-Homebrew-build.yml

@@ -18,16 +18,11 @@ on:
 
 name: Nightly-Homebrew-Build
 
-concurrency:
-  group: ${{ github.workflow }}-${{ github.head_ref || github.run_id }}
-  cancel-in-progress: true
-
 permissions:
   contents: read # to fetch code (actions/checkout)
 
 jobs:
   build-OpenBLAS-with-Homebrew:
-    if: "github.repository == 'OpenMathLib/OpenBLAS'"
     runs-on: macos-latest
     env:
       DEVELOPER_DIR: /Applications/Xcode_11.4.1.app/Contents/Developer
@@ -69,7 +64,7 @@ jobs:
           mv *.bottle.tar.gz bottles
 
       - name: Upload bottle
-        uses: actions/upload-artifact@v3
+        uses: actions/upload-artifact@v1
         with:
           name: openblas--HEAD.catalina.bottle.tar.gz
           path: bottles

.github/workflows/riscv64_vector.yml

@@ -1,256 +0,0 @@
-name: riscv64 zvl256b qemu test
-
-on: [push, pull_request]
-
-concurrency:
-  group: ${{ github.workflow }}-${{ github.head_ref || github.run_id }}
-  cancel-in-progress: true
-
-permissions:
-  contents: read # to fetch code (actions/checkout)
-
-jobs:
-  TEST:
-    if: "github.repository == 'OpenMathLib/OpenBLAS'"
-    runs-on: ubuntu-latest
-    env:
-      triple: riscv64-unknown-linux-gnu
-      riscv_gnu_toolchain: https://github.com/riscv-collab/riscv-gnu-toolchain
-      riscv_gnu_toolchain_version: 13.2.0
-      riscv_gnu_toolchain_nightly_download_path: /releases/download/2024.02.02/riscv64-glibc-ubuntu-22.04-llvm-nightly-2024.02.02-nightly.tar.gz
-    strategy:
-      fail-fast: false
-      matrix:
-        include:
-          - target: RISCV64_ZVL128B
-            opts: TARGET=RISCV64_ZVL128B BINARY=64 ARCH=riscv64
-            qemu_cpu: rv64,g=true,c=true,v=true,vext_spec=v1.0,vlen=128,elen=64
-          - target: RISCV64_ZVL256B
-            opts: TARGET=RISCV64_ZVL256B BINARY=64 ARCH=riscv64
-            qemu_cpu: rv64,g=true,c=true,v=true,vext_spec=v1.0,vlen=256,elen=64
-          - target: DYNAMIC_ARCH=1
-            opts: TARGET=RISCV64_GENERIC BINARY=64 ARCH=riscv64 DYNAMIC_ARCH=1
-            qemu_cpu: rv64,g=true,c=true,v=true,vext_spec=v1.0,vlen=256,elen=64
-
-    steps:
-      - name: Checkout repository
-        uses: actions/checkout@v3
-
-      - name: install build deps
-        run: |
-          sudo apt-get update
-          sudo apt-get install autoconf automake autotools-dev ninja-build make \
-          libgomp1-riscv64-cross ccache
-          wget ${riscv_gnu_toolchain}/${riscv_gnu_toolchain_nightly_download_path}
-          tar -xvf $(basename ${riscv_gnu_toolchain_nightly_download_path}) -C /opt
-
-      - name: Compilation cache
-        uses: actions/cache@v3
-        with:
-          path: ~/.ccache
-          key: ccache-${{ runner.os }}-${{ matrix.target }}-${{ github.ref }}-${{ github.sha }}
-          restore-keys: |
-            ccache-${{ runner.os }}-${{ matrix.target }}-${{ github.ref }}
-            ccache-${{ runner.os }}-${{ matrix.target }}
-
-      - name: Configure ccache
-        run: |
-          test -d ~/.ccache || mkdir -p ~/.ccache
-          echo "max_size = 300M" > ~/.ccache/ccache.conf
-          echo "compression = true" >> ~/.ccache/ccache.conf
-          ccache -s
-
-      - name: build OpenBLAS libs
-        run: |
-            export PATH="/opt/riscv/bin:$PATH"
-            make TARGET=${{ matrix.target }} CFLAGS="-DTARGET=${{ matrix.target }}" \
-            CC='ccache clang --rtlib=compiler-rt -target ${triple} --sysroot /opt/riscv/sysroot --gcc-toolchain=/opt/riscv/lib/gcc/riscv64-unknown-linux-gnu/${riscv_gnu_toolchain_version}/' \
-            AR='ccache ${triple}-ar' AS='ccache ${triple}-gcc' LD='ccache ${triple}-gcc' \
-            RANLIB='ccache ${triple}-ranlib' \
-            FC='ccache ${triple}-gfortran' ${{ matrix.opts }} \
-            HOSTCC=gcc HOSTFC=gfortran -j$(nproc)
-
-      - name: build OpenBLAS tests
-        run: |
-            export PATH="/opt/riscv/bin:$PATH"
-            make TARGET=${{ matrix.target }} CFLAGS="-DTARGET=${{ matrix.target }}" \
-            CC='${triple}-gcc' \
-            AR='ccache ${triple}-ar' AS='ccache ${triple}-gcc' LD='ccache ${triple}-gcc' \
-            RANLIB='ccache ${triple}-ranlib' \
-            FC='ccache ${triple}-gfortran' ${{ matrix.opts }} \
-            HOSTCC=gcc HOSTFC=gfortran -j$(nproc) tests
-
-      - name: build lapack-netlib tests
-        working-directory: ./lapack-netlib/TESTING
-        run: |
-            export PATH="/opt/riscv/bin:$PATH"
-            make TARGET=${{ matrix.target }} CFLAGS="-DTARGET=${{ matrix.target }}" \
-            CC='${triple}-gcc' \
-            AR='ccache ${triple}-ar' AS='ccache ${triple}-gcc' LD='ccache ${triple}-gcc' \
-            RANLIB='ccache ${triple}-ranlib' \
-            FC='ccache ${triple}-gfortran' ${{ matrix.opts }} \
-            HOSTCC=gcc HOSTFC=gfortran -j$(nproc) \
-            LIN/xlintsts LIN/xlintstc LIN/xlintstd LIN/xlintstz LIN/xlintstrfs \
-            LIN/xlintstrfc LIN/xlintstrfd LIN/xlintstrfz LIN/xlintstds \
-            LIN/xlintstzc EIG/xeigtsts EIG/xeigtstc EIG/xeigtstd EIG/xeigtstz \
-
-      - name: OpenBLAS tests
-        shell: bash
-        run: |
-          export PATH="/opt/riscv/bin:$PATH"
-          export QEMU_CPU=${{ matrix.qemu_cpu }}
-          rm -rf ./test_out
-          mkdir -p ./test_out
-          run_test() { local DIR=$1; local CMD=$2; local DATA=$3; local OUTPUT="./test_out/$DIR.$CMD"; \
-            echo "`pwd`/$DIR/$CMD $DIR/$DATA" >> $OUTPUT; \
-            if [[ -z $DATA ]]; then qemu-riscv64 ./$DIR/$CMD |& tee $OUTPUT ; \ 
-            else qemu-riscv64 ./$DIR/$CMD < ./$DIR/$DATA |& tee $OUTPUT ; fi ; \
-            RV=$? ; if [[ $RV != 0 ]]; then echo "*** FAIL: nonzero exit code $RV" >> $OUTPUT ; fi \
-          }
-          run_test test cblat1 &
-          run_test test cblat2 cblat2.dat &
-          run_test test cblat3 cblat3.dat &
-          run_test test dblat1 &
-          run_test test dblat2 dblat2.dat &
-          run_test test dblat3 dblat3.dat &
-          run_test test sblat1 &
-          run_test test sblat2 sblat2.dat &
-          run_test test sblat3 sblat3.dat &
-          run_test test zblat1 &
-          run_test test zblat2 zblat2.dat &
-          run_test test zblat3 zblat3.dat &
-          run_test ctest xccblat1 &
-          run_test ctest xccblat2 cin2 &
-          run_test ctest xccblat3 cin3 &
-          run_test ctest xdcblat1 &
-          run_test ctest xdcblat2 din2 &
-          run_test ctest xdcblat3 din3 &
-          run_test ctest xscblat1 &
-          run_test ctest xscblat2 sin2 &
-          run_test ctest xscblat3 sin3 &
-          run_test ctest xzcblat1 &
-          run_test ctest xzcblat2 zin2 &
-          run_test ctest xzcblat3 zin3 &
-          wait
-          while IFS= read -r -d $'\0' LOG; do cat $LOG ; FAILURES=1 ; done < <(grep -lZ FAIL ./test_out/*)
-          if [[ ! -z $FAILURES ]]; then echo "==========" ; echo "== FAIL ==" ; echo "==========" ; echo ; exit 1 ; fi
-
-      - name: netlib tests
-        shell: bash
-        run: |
-          : # these take a very long time
-          echo "Skipping netlib tests in CI"
-          exit 0
-          : # comment out exit above to enable the tests
-          : # probably we want to identify a subset to run in CI
-          export PATH="/opt/riscv/bin:$PATH"
-          export QEMU_CPU=${{ matrix.qemu_cpu }}
-          rm -rf ./test_out
-          mkdir -p ./test_out
-          run_test() { local OUTPUT="./test_out/$1"; local DATA="./lapack-netlib/TESTING/$2"; local CMD="./lapack-netlib/TESTING/$3"; \
-            echo "$4" >> $OUTPUT; \
-            echo "$CMD" >> $OUTPUT; \
-            qemu-riscv64 $CMD < $DATA |& tee $OUTPUT; \
-            RV=$? ; if [[ $RV != 0 ]]; then echo "*** FAIL: nonzero exit code $RV" >> $OUTPUT ; fi; \
-            if grep -q fail $OUTPUT ; then echo "*** FAIL: log contains 'fail'" >> $OUTPUT ; fi ; \
-            if grep -q rror $OUTPUT | grep -v -q "passed" | grep -v "largest error" ; then echo "*** FAIL: log contains 'error'" >> $OUTPUT ; fi \
-          }
-          run_test stest.out stest.in LIN/xlintsts "Testing REAL LAPACK linear equation routines"  &
-          run_test ctest.out ctest.in LIN/xlintstc "Testing COMPLEX LAPACK linear equation routines"  &
-          run_test dtest.out dtest.in LIN/xlintstd "Testing DOUBLE PRECISION LAPACK linear equation routines"  &
-          run_test ztest.out ztest.in LIN/xlintstz "Testing COMPLEX16 LAPACK linear equation routines"  &
-          run_test dstest.out dstest.in LIN/xlintstds "Testing SINGLE-DOUBLE PRECISION LAPACK prototype linear equation routines"  &
-          run_test zctest.out zctest.in LIN/xlintstzc "Testing COMPLEX-COMPLEX16 LAPACK prototype linear equation routines"  &
-          run_test stest_rfp.out stest_rfp.in LIN/xlintstrfs "Testing REAL LAPACK RFP prototype linear equation routines"  &
-          run_test dtest_rfp.out dtest_rfp.in LIN/xlintstrfd "Testing DOUBLE PRECISION LAPACK RFP prototype linear equation routines"  &
-          run_test ctest_rfp.out ctest_rfp.in LIN/xlintstrfc "Testing COMPLEX LAPACK RFP prototype linear equation routines"  &
-          run_test ztest_rfp.out ztest_rfp.in LIN/xlintstrfz "Testing COMPLEX16 LAPACK RFP prototype linear equation routines"  &
-          run_test snep.out nep.in EIG/xeigtsts "NEP - Testing Nonsymmetric Eigenvalue Problem routines"  &
-          run_test ssep.out sep.in EIG/xeigtsts "SEP - Testing Symmetric Eigenvalue Problem routines"  &
-          run_test sse2.out se2.in EIG/xeigtsts "SEP - Testing Symmetric Eigenvalue Problem routines"  &
-          run_test ssvd.out svd.in EIG/xeigtsts "SVD - Testing Singular Value Decomposition routines"  &
-          run_test sec.out sec.in EIG/xeigtsts "SEC - Testing REAL Eigen Condition Routines"  &
-          run_test sed.out sed.in EIG/xeigtsts "SEV - Testing REAL Nonsymmetric Eigenvalue Driver"  &
-          run_test sgg.out sgg.in EIG/xeigtsts "SGG - Testing REAL Nonsymmetric Generalized Eigenvalue Problem routines"  &
-          run_test sgd.out sgd.in EIG/xeigtsts "SGD - Testing REAL Nonsymmetric Generalized Eigenvalue Problem driver routines"  &
-          run_test ssb.out ssb.in EIG/xeigtsts "SSB - Testing REAL Symmetric Eigenvalue Problem routines"  &
-          run_test ssg.out ssg.in EIG/xeigtsts "SSG - Testing REAL Symmetric Generalized Eigenvalue Problem routines"  &
-          run_test sbal.out sbal.in EIG/xeigtsts "SGEBAL - Testing the balancing of a REAL general matrix"  &
-          run_test sbak.out sbak.in EIG/xeigtsts "SGEBAK - Testing the back transformation of a REAL balanced matrix"  &
-          run_test sgbal.out sgbal.in EIG/xeigtsts "SGGBAL - Testing the balancing of a pair of REAL general matrices"  &
-          run_test sgbak.out sgbak.in EIG/xeigtsts "SGGBAK - Testing the back transformation of a pair of REAL balanced matrices"  &
-          run_test sbb.out sbb.in EIG/xeigtsts "SBB - Testing banded Singular Value Decomposition routines"  &
-          run_test sglm.out glm.in EIG/xeigtsts "GLM - Testing Generalized Linear Regression Model routines"  &
-          run_test sgqr.out gqr.in EIG/xeigtsts "GQR - Testing Generalized QR and RQ factorization routines"  &
-          run_test sgsv.out gsv.in EIG/xeigtsts "GSV - Testing Generalized Singular Value Decomposition routines"  &
-          run_test scsd.out csd.in EIG/xeigtsts "CSD - Testing CS Decomposition routines"  &
-          run_test slse.out lse.in EIG/xeigtsts "LSE - Testing Constrained Linear Least Squares routines"  &
-          run_test cnep.out nep.in EIG/xeigtstc "NEP - Testing Nonsymmetric Eigenvalue Problem routines"  &
-          run_test csep.out sep.in EIG/xeigtstc "SEP - Testing Symmetric Eigenvalue Problem routines"  &
-          run_test cse2.out se2.in EIG/xeigtstc "SEP - Testing Symmetric Eigenvalue Problem routines"  &
-          run_test csvd.out svd.in EIG/xeigtstc "SVD - Testing Singular Value Decomposition routines"  &
-          run_test cec.out cec.in EIG/xeigtstc "CEC - Testing COMPLEX Eigen Condition Routines"  &
-          run_test ced.out ced.in EIG/xeigtstc "CES - Testing COMPLEX Nonsymmetric Schur Form Driver"  &
-          run_test cgg.out cgg.in EIG/xeigtstc "CGG - Testing COMPLEX Nonsymmetric Generalized Eigenvalue Problem routines"  &
-          run_test cgd.out cgd.in EIG/xeigtstc "CGD - Testing COMPLEX Nonsymmetric Generalized Eigenvalue Problem driver routines"  &
-          run_test csb.out csb.in EIG/xeigtstc "CHB - Testing Hermitian Eigenvalue Problem routines"  &
-          run_test csg.out csg.in EIG/xeigtstc "CSG - Testing Symmetric Generalized Eigenvalue Problem routines"  &
-          run_test cbal.out cbal.in EIG/xeigtstc "CGEBAL - Testing the balancing of a COMPLEX general matrix"  &
-          run_test cbak.out cbak.in EIG/xeigtstc "CGEBAK - Testing the back transformation of a COMPLEX balanced matrix"  &
-          run_test cgbal.out cgbal.in EIG/xeigtstc "CGGBAL - Testing the balancing of a pair of COMPLEX general matrices"  &
-          run_test cgbak.out cgbak.in EIG/xeigtstc "CGGBAK - Testing the back transformation of a pair of COMPLEX balanced matrices"  &
-          run_test cbb.out cbb.in EIG/xeigtstc "CBB - Testing banded Singular Value Decomposition routines"  &
-          run_test cglm.out glm.in EIG/xeigtstc "GLM - Testing Generalized Linear Regression Model routines"  &
-          run_test cgqr.out gqr.in EIG/xeigtstc "GQR - Testing Generalized QR and RQ factorization routines"  &
-          run_test cgsv.out gsv.in EIG/xeigtstc "GSV - Testing Generalized Singular Value Decomposition routines"  &
-          run_test ccsd.out csd.in EIG/xeigtstc "CSD - Testing CS Decomposition routines"  &
-          run_test clse.out lse.in EIG/xeigtstc "LSE - Testing Constrained Linear Least Squares routines"  &
-          run_test dnep.out nep.in EIG/xeigtstd "NEP - Testing Nonsymmetric Eigenvalue Problem routines"  &
-          run_test dsep.out sep.in EIG/xeigtstd "SEP - Testing Symmetric Eigenvalue Problem routines"  &
-          run_test dse2.out se2.in EIG/xeigtstd "SEP - Testing Symmetric Eigenvalue Problem routines"  &
-          run_test dsvd.out svd.in EIG/xeigtstd "SVD - Testing Singular Value Decomposition routines"  &
-          run_test dec.out dec.in EIG/xeigtstd "DEC - Testing DOUBLE PRECISION Eigen Condition Routines"  &
-          run_test ded.out ded.in EIG/xeigtstd "DEV - Testing DOUBLE PRECISION Nonsymmetric Eigenvalue Driver"  &
-          run_test dgg.out dgg.in EIG/xeigtstd "DGG - Testing DOUBLE PRECISION Nonsymmetric Generalized Eigenvalue Problem routines"  &
-          run_test dgd.out dgd.in EIG/xeigtstd "DGD - Testing DOUBLE PRECISION Nonsymmetric Generalized Eigenvalue Problem driver routines"  &
-          run_test dsb.out dsb.in EIG/xeigtstd "DSB - Testing DOUBLE PRECISION Symmetric Eigenvalue Problem routines"  &
-          run_test dsg.out dsg.in EIG/xeigtstd "DSG - Testing DOUBLE PRECISION Symmetric Generalized Eigenvalue Problem routines"  &
-          run_test dbal.out dbal.in EIG/xeigtstd "DGEBAL - Testing the balancing of a DOUBLE PRECISION general matrix"  &
-          run_test dbak.out dbak.in EIG/xeigtstd "DGEBAK - Testing the back transformation of a DOUBLE PRECISION balanced matrix"  &
-          run_test dgbal.out dgbal.in EIG/xeigtstd "DGGBAL - Testing the balancing of a pair of DOUBLE PRECISION general matrices"  &
-          run_test dgbak.out dgbak.in EIG/xeigtstd "DGGBAK - Testing the back transformation of a pair of DOUBLE PRECISION balanced matrices"  &
-          run_test dbb.out dbb.in EIG/xeigtstd "DBB - Testing banded Singular Value Decomposition routines"  &
-          run_test dglm.out glm.in EIG/xeigtstd "GLM - Testing Generalized Linear Regression Model routines"  &
-          run_test dgqr.out gqr.in EIG/xeigtstd "GQR - Testing Generalized QR and RQ factorization routines"  &
-          run_test dgsv.out gsv.in EIG/xeigtstd "GSV - Testing Generalized Singular Value Decomposition routines"  &
-          run_test dcsd.out csd.in EIG/xeigtstd "CSD - Testing CS Decomposition routines"  &
-          run_test dlse.out lse.in EIG/xeigtstd "LSE - Testing Constrained Linear Least Squares routines"  &
-          run_test znep.out nep.in EIG/xeigtstz "NEP - Testing Nonsymmetric Eigenvalue Problem routines"  &
-          run_test zsep.out sep.in EIG/xeigtstz "SEP - Testing Symmetric Eigenvalue Problem routines"  &
-          run_test zse2.out se2.in EIG/xeigtstz "SEP - Testing Symmetric Eigenvalue Problem routines"  &
-          run_test zsvd.out svd.in EIG/xeigtstz "SVD - Testing Singular Value Decomposition routines"  &
-          run_test zec.out zec.in EIG/xeigtstz "ZEC - Testing COMPLEX16 Eigen Condition Routines"  &
-          run_test zed.out zed.in EIG/xeigtstz "ZES - Testing COMPLEX16 Nonsymmetric Schur Form Driver"  &
-          run_test zgg.out zgg.in EIG/xeigtstz "ZGG - Testing COMPLEX16 Nonsymmetric Generalized Eigenvalue Problem routines"  &
-          run_test zgd.out zgd.in EIG/xeigtstz "ZGD - Testing COMPLEX16 Nonsymmetric Generalized Eigenvalue Problem driver routines"  &
-          run_test zsb.out zsb.in EIG/xeigtstz "ZHB - Testing Hermitian Eigenvalue Problem routines"  &
-          run_test zsg.out zsg.in EIG/xeigtstz "ZSG - Testing Symmetric Generalized Eigenvalue Problem routines"  &
-          run_test zbal.out zbal.in EIG/xeigtstz "ZGEBAL - Testing the balancing of a COMPLEX16 general matrix"  &
-          run_test zbak.out zbak.in EIG/xeigtstz "ZGEBAK - Testing the back transformation of a COMPLEX16 balanced matrix"  &
-          run_test zgbal.out zgbal.in EIG/xeigtstz "ZGGBAL - Testing the balancing of a pair of COMPLEX general matrices"  &
-          run_test zgbak.out zgbak.in EIG/xeigtstz "ZGGBAK - Testing the back transformation of a pair of COMPLEX16 balanced matrices"  &
-          run_test zbb.out zbb.in EIG/xeigtstz "ZBB - Testing banded Singular Value Decomposition routines"  &
-          run_test zglm.out glm.in EIG/xeigtstz "GLM - Testing Generalized Linear Regression Model routines"  &
-          run_test zgqr.out gqr.in EIG/xeigtstz "GQR - Testing Generalized QR and RQ factorization routines"  &
-          run_test zgsv.out gsv.in EIG/xeigtstz "GSV - Testing Generalized Singular Value Decomposition routines"  &
-          run_test zcsd.out csd.in EIG/xeigtstz "CSD - Testing CS Decomposition routines"  &
-          run_test zlse.out lse.in EIG/xeigtstz "LSE - Testing Constrained Linear Least Squares routines"  &
-          wait
-          while IFS= read -r -d $'\0' LOG; do cat $LOG ; FAILURES=1 ;  done < <(grep -lZ FAIL ./test_out/*)
-          python ./lapack-netlib/lapack_testing.py -d ./test_out -e > netlib_summary
-          TOTALS="$(grep 'ALL PRECISIONS' netlib_summary)"
-          NUMERICAL_ERRORS=-1
-          OTHER_ERRORS=-1
-          . <(awk '/ALL PRECISIONS/{printf "NUMERICAL_ERRORS=%s\nOTHER_ERRORS=%s\n", $5, $7}' netlib_summary
-          if (( NUMERICAL_ERRORS != 0 )) || (( OTHER_ERRORS != 0 )) ; then cat netlib_summary ; FAILURES=1 ; fi
-          if [[ ! -z $FAILURES ]]; then echo "==========" ; echo "== FAIL ==" ; echo "==========" ; echo ; exit 1 ; fi

.gitignore

@@ -47,59 +47,44 @@ config_last.h
 getarch
 getarch_2nd
 utest/openblas_utest
-utest/openblas_utest_ext
 ctest/xccblat1
 ctest/xccblat2
 ctest/xccblat3
-ctest/xccblat3_3m
 ctest/xdcblat1
 ctest/xdcblat2
 ctest/xdcblat3
-ctest/xdcblat3_3m
 ctest/xscblat1
 ctest/xscblat2
 ctest/xscblat3
-ctest/xscblat3_3m
 ctest/xzcblat1
 ctest/xzcblat2
 ctest/xzcblat3
-ctest/xzcblat3_3m
 exports/linktest.c
 exports/linux.def
 kernel/setparam_*.c
 kernel/kernel_*.h
 test/CBLAT2.SUMM
 test/CBLAT3.SUMM
-test/CBLAT3_3M.SUMM
 test/DBLAT2.SUMM
 test/DBLAT3.SUMM
-test/DBLAT3_3M.SUMM
 test/SBLAT2.SUMM
 test/SBLAT3.SUMM
-test/SBLAT3_3M.SUMM
 test/ZBLAT2.SUMM
 test/ZBLAT3.SUMM
-test/ZBLAT3_3M.SUMM
 test/SHBLAT3.SUMM
-test/SBBLAT3.SUMM
 test/cblat1
 test/cblat2
 test/cblat3
-test/cblat3_3m
 test/dblat1
 test/dblat2
 test/dblat3
-test/dblat3_3m
 test/sblat1
 test/sblat2
 test/sblat3
-test/sblat3_3m
 test/test_shgemm
-test/test_sbgemm
 test/zblat1
 test/zblat2
 test/zblat3
-test/zblat3_3m
 build
 build.*
 *.swp
@@ -109,4 +94,3 @@ benchmark/smallscaling
 CMakeCache.txt
 CMakeFiles/*
 .vscode
-**/__pycache__

CMakeLists.txt

@@ -2,13 +2,13 @@
 ## Author: Hank Anderson <hank@statease.com>
 ##
 
-cmake_minimum_required(VERSION 3.16.0)
+cmake_minimum_required(VERSION 2.8.5)
 
 project(OpenBLAS C ASM)
 
 set(OpenBLAS_MAJOR_VERSION 0)
 set(OpenBLAS_MINOR_VERSION 3)
-set(OpenBLAS_PATCH_VERSION 28.dev)
+set(OpenBLAS_PATCH_VERSION 23.dev)
 
 set(OpenBLAS_VERSION "${OpenBLAS_MAJOR_VERSION}.${OpenBLAS_MINOR_VERSION}.${OpenBLAS_PATCH_VERSION}")
 
@@ -22,17 +22,13 @@ option(BUILD_WITHOUT_LAPACK "Do not build LAPACK and LAPACKE (Only BLAS or CBLAS
 
 option(BUILD_LAPACK_DEPRECATED "When building LAPACK, include also some older, deprecated routines" ON)
 
-set(LAPACK_STRLEN "" CACHE STRING "When building LAPACK, use this type (e.g. \"int\") for character lengths (defaults to size_t)")
-
 option(BUILD_TESTING "Build LAPACK testsuite when building LAPACK" ON)
 
-option(BUILD_BENCHMARKS "Build the collection of BLAS/LAPACK benchmarks" OFF)
-
 option(C_LAPACK "Build LAPACK from C sources instead of the original Fortran" OFF)
 
 option(BUILD_WITHOUT_CBLAS "Do not build the C interface (CBLAS) to the BLAS functions" OFF)
 
-option(DYNAMIC_ARCH "Include support for multiple CPU targets, with automatic selection at runtime (x86/x86_64, aarch64, ppc or RISCV64-RVV1.0 only)" OFF)
+option(DYNAMIC_ARCH "Include support for multiple CPU targets, with automatic selection at runtime (x86/x86_64, aarch64 or ppc only)" OFF)
 
 option(DYNAMIC_OLDER "Include specific support for older x86 cpu models (Penryn,Dunnington,Atom,Nano,Opteron) with DYNAMIC_ARCH" OFF)
 
@@ -44,11 +40,6 @@ option(USE_PERL "Use the older PERL scripts for build preparation instead of uni
 
 option(NO_WARMUP "Do not run a benchmark on each startup just to find the best location for the memory buffer" ON)
 
-option(FIXED_LIBNAME "Use a non-versioned name for the library and no symbolic linking to variant names" OFF)
-
-set(LIBNAMEPREFIX "" CACHE STRING  "Add a prefix to the openblas part of the library name" )
-set(LIBNAMESUFFIX "" CACHE STRING  "Add a suffix after the openblas part of the library name" )
-
 if(${CMAKE_SYSTEM_NAME} MATCHES "Linux")
   option(NO_AFFINITY "Disable support for CPU affinity masks to avoid binding processes from e.g. R or numpy/scipy to a single core" ON)
 else()
@@ -102,14 +93,10 @@ endif()
 
 message(WARNING "CMake support is experimental. It does not yet support all build options and may not produce the same Makefiles that OpenBLAS ships with.")
 
-if (USE_OPENMP)
-  find_package(OpenMP REQUIRED)
-endif ()
-
 include("${PROJECT_SOURCE_DIR}/cmake/utils.cmake")
 include("${PROJECT_SOURCE_DIR}/cmake/system.cmake")
 
-set(OpenBLAS_LIBNAME ${LIBNAMEPREFIX}openblas${LIBNAMESUFFIX}${SUFFIX64_UNDERSCORE})
+set(OpenBLAS_LIBNAME openblas${SUFFIX64_UNDERSCORE})
 
 set(BLASDIRS interface driver/level2 driver/level3 driver/others)
 
@@ -262,30 +249,20 @@ if (${CMAKE_SYSTEM_NAME} MATCHES "AIX|Android|Linux|FreeBSD|OpenBSD|NetBSD|Drago
   endif()
 endif()
 
-if (USE_OPENMP)
-  if(BUILD_STATIC_LIBS)
-    target_link_libraries(${OpenBLAS_LIBNAME}_static OpenMP::OpenMP_C)
-  endif()
-  if(BUILD_SHARED_LIBS)
-    target_link_libraries(${OpenBLAS_LIBNAME}_shared OpenMP::OpenMP_C)
-  endif()
-endif()
-
-# Seems that this hack doesn't required since macOS 11 Big Sur
-if (APPLE AND BUILD_SHARED_LIBS AND CMAKE_HOST_SYSTEM_VERSION VERSION_LESS 20)
+if (APPLE AND DYNAMIC_ARCH AND BUILD_SHARED_LIBS)
   set (CMAKE_C_USE_RESPONSE_FILE_FOR_OBJECTS 1)
   if (NOT NOFORTRAN)
   set (CMAKE_Fortran_USE_RESPONSE_FILE_FOR_OBJECTS 1)
   set (CMAKE_Fortran_CREATE_SHARED_LIBRARY
- "sh -c 'cat ${CMAKE_BINARY_DIR}/CMakeFiles/openblas_shared.dir/objects*.rsp | xargs -n 1024 ${CMAKE_AR} -ru libopenblas.a && exit 0' "
- "sh -c '${CMAKE_AR} -rs libopenblas.a ${CMAKE_BINARY_DIR}/driver/others/CMakeFiles/driver_others.dir/xerbla.c.o && exit 0' "
+ "sh -c 'cat ${CMAKE_BINARY_DIR}/CMakeFiles/openblas_shared.dir/objects*.rsp | xargs -n 1024 ar -ru libopenblas.a && exit 0' "
+ "sh -c 'ar -ru libopenblas.a ${CMAKE_BINARY_DIR}/driver/others/CMakeFiles/driver_others.dir/xerbla.c.o && exit 0' "
  "sh -c 'echo \"\" | ${CMAKE_Fortran_COMPILER} -o dummy.o -c -x f95-cpp-input - '"
  "sh -c '${CMAKE_Fortran_COMPILER} -fpic -shared -Wl,-all_load -Wl,-force_load,libopenblas.a -Wl,-noall_load dummy.o -o ${CMAKE_LIBRARY_OUTPUT_DIRECTORY}/libopenblas.${OpenBLAS_MAJOR_VERSION}.${OpenBLAS_MINOR_VERSION}.dylib'"
  "sh -c 'ls -l ${CMAKE_BINARY_DIR}/lib'")
   else ()
   set (CMAKE_C_CREATE_SHARED_LIBRARY
-   "sh -c 'cat ${CMAKE_BINARY_DIR}/CMakeFiles/openblas_shared.dir/objects*.rsp | xargs -n 1024 ${CMAKE_AR} -ru libopenblas.a && exit 0' "
-   "sh -c '${CMAKE_AR} -rs libopenblas.a ${CMAKE_BINARY_DIR}/driver/others/CMakeFiles/driver_others.dir/xerbla.c.o && exit 0' "
+   "sh -c 'cat ${CMAKE_BINARY_DIR}/CMakeFiles/openblas_shared.dir/objects*.rsp | xargs -n 1024 ar -ru libopenblas.a && exit 0' "
+   "sh -c 'ar -ru libopenblas.a ${CMAKE_BINARY_DIR}/driver/others/CMakeFiles/driver_others.dir/xerbla.c.o && exit 0' "
    "sh -c '${CMAKE_C_COMPILER} -fpic -shared -Wl,-all_load -Wl,-force_load,libopenblas.a -Wl,-noall_load -o ${CMAKE_LIBRARY_OUTPUT_DIRECTORY}/libopenblas.${OpenBLAS_MAJOR_VERSION}.${OpenBLAS_MINOR_VERSION}.dylib'")
   endif ()
 endif()
@@ -344,8 +321,8 @@ if (NOT NOFORTRAN)
  if (NOT ONLY_CBLAS)
   # Build test and ctest
   add_subdirectory(test)
- endif()
- if (BUILD_TESTING AND NOT BUILD_WITHOUT_LAPACK)
+ endif() 
+  if (BUILD_TESTING)
     add_subdirectory(lapack-netlib/TESTING)
   endif()
 endif()
@@ -358,12 +335,11 @@ endif()
     add_subdirectory(cpp_thread_test)
   endif()
 
-if (NOT FIXED_LIBNAME)
 set_target_properties(${OpenBLAS_LIBS} PROPERTIES
   VERSION ${OpenBLAS_MAJOR_VERSION}.${OpenBLAS_MINOR_VERSION}
   SOVERSION ${OpenBLAS_MAJOR_VERSION}
 )
-endif()
+
 if (BUILD_SHARED_LIBS AND BUILD_RELAPACK)
   if (NOT MSVC)
     target_link_libraries(${OpenBLAS_LIBNAME}_shared "-Wl,-allow-multiple-definition")
@@ -462,7 +438,7 @@ if (BUILD_SHARED_LIBS AND NOT ${SYMBOLPREFIX}${SYMBOLSUFFIX} STREQUAL "")
   endif()
   if (NOT USE_PERL)
   add_custom_command(TARGET ${OpenBLAS_LIBNAME}_shared POST_BUILD
-	  COMMAND  ${PROJECT_SOURCE_DIR}/exports/gensymbol "objcopy" "${ARCH}" "${BU}" "${EXPRECISION_IN}" "${NO_CBLAS_IN}" "${NO_LAPACK_IN}" "${NO_LAPACKE_IN}" "${NEED2UNDERSCORES_IN}" "${ONLY_CBLAS_IN}" \"${SYMBOLPREFIX}\" \"${SYMBOLSUFFIX}\" "${BLD}" "${BBF16}" "${BS}" "${BD}" "${BC}" "${BZ}" > ${PROJECT_BINARY_DIR}/objcopy.def
+	  COMMAND  ${PROJECT_SOURCE_DIR}/exports/gensymbol "objcopy" "${ARCH}" "${BU}" "${EXPRECISION_IN}" "${NO_CBLAS_IN}" "${NO_LAPACK_IN}" "${NO_LAPACKE_IN}" "${NEED2UNDERSCORES_IN}" "${ONLY_CBLAS_IN}" \"${SYMBOLPREFIX}\" \"${SYMBOLSUFFIX}\" "${BLD}" "${BBF16}" "${BS}" "${BD}" "${BC}" "${BZ}" > ${PROJECT_BINARY_DIR}/objcopy.def 
     COMMAND objcopy -v --redefine-syms ${PROJECT_BINARY_DIR}/objcopy.def  ${PROJECT_BINARY_DIR}/lib/lib${OpenBLAS_LIBNAME}.so
     COMMENT "renaming symbols"
     )
@@ -475,61 +451,6 @@ if (BUILD_SHARED_LIBS AND NOT ${SYMBOLPREFIX}${SYMBOLSUFFIX} STREQUAL "")
   endif()
 endif()
 
-if (BUILD_BENCHMARKS)
-	#find_package(OpenMP REQUIRED)
-  file(GLOB SOURCES "benchmark/*.c")
-  if (NOT USE_OPENMP)
-  file(GLOB REMFILE "benchmark/smallscaling.c")
-  list(REMOVE_ITEM SOURCES ${REMFILE})
-  endif()
-  if (BUILD_WITHOUT_LAPACK)
-  file(GLOB REMFILE "benchmark/cholesky.c")
-  list(REMOVE_ITEM SOURCES ${REMFILE})
-  file(GLOB REMFILE "benchmark/geev.c")
-  list(REMOVE_ITEM SOURCES ${REMFILE})
-  file(GLOB REMFILE "benchmark/gesv.c")
-  list(REMOVE_ITEM SOURCES ${REMFILE})
-  file(GLOB REMFILE "benchmark/getri.c")
-  list(REMOVE_ITEM SOURCES ${REMFILE})
-  file(GLOB REMFILE "benchmark/potrf.c")
-  list(REMOVE_ITEM SOURCES ${REMFILE})
-  file(GLOB REMFILE "benchmark/spmv.c")
-  list(REMOVE_ITEM SOURCES ${REMFILE})
-  file(GLOB REMFILE "benchmark/symv.c")
-  list(REMOVE_ITEM SOURCES ${REMFILE})
-  file(GLOB REMFILE "benchmark/linpack.c")
-  list(REMOVE_ITEM SOURCES ${REMFILE})
-  endif()
-  if (NOT USE_GEMM3M)
-  file(GLOB REMFILE "benchmark/gemm3m.c")
-  list(REMOVE_ITEM SOURCES ${REMFILE})
-  endif()
-  foreach(source ${SOURCES})
-    get_filename_component(name ${source} NAME_WE)
-    if ((NOT ${name} STREQUAL "zdot-intel") AND (NOT ${name} STREQUAL "cula_wrapper"))
-        set(defines DEFAULT COMPLEX DOUBLE "COMPLEX\;DOUBLE")
-      foreach(define ${defines})
-        set(target_name "benchmark_${name}")
-        if (NOT "${define}" STREQUAL "DEFAULT")
-          string(JOIN "_" define_str ${define})
-          set(target_name "${target_name}_${define_str}")
-        endif()
-        if ((NOT ${target_name} STREQUAL "benchmark_imax_COMPLEX") AND (NOT ${target_name} STREQUAL "benchmark_imax_COMPLEX_DOUBLE") AND
-            (NOT ${target_name} STREQUAL "benchmark_imin_COMPLEX") AND (NOT ${target_name} STREQUAL "benchmark_imin_COMPLEX_DOUBLE") AND
-            (NOT ${target_name} STREQUAL "benchmark_max_COMPLEX") AND (NOT ${target_name} STREQUAL "benchmark_max_COMPLEX_DOUBLE") AND
-            (NOT ${target_name} STREQUAL "benchmark_min_COMPLEX") AND (NOT ${target_name} STREQUAL "benchmark_min_COMPLEX_DOUBLE"))
-          add_executable(${target_name} ${source})
-          target_include_directories(${target_name} PRIVATE ${CMAKE_CURRENT_SOURCE_DIR} ${CMAKE_CURRENT_BINARY_DIR})
-	    target_link_libraries(${target_name} ${OpenBLAS_LIBNAME} )
-	  #  target_link_libraries(${target_name} ${OpenBLAS_LIBNAME} OpenMP::OpenMP_C)
-          if (NOT "${define}" STREQUAL "DEFAULT")
-            target_compile_definitions(${target_name} PRIVATE ${define})
-          endif()
-        endif()
-      endforeach()
-    endif()
-  endforeach()
-endif()
 
 
 # Install project
@@ -620,7 +541,7 @@ if(NOT NO_LAPACKE)
   ADD_CUSTOM_TARGET(genlapacke
   COMMAND ${CMAKE_COMMAND} -E copy ${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})
+  install (FILES ${CMAKE_BINARY_DIR}/lapacke_mangling.h DESTINATION ${CMAKE_INSTALL_INCLUDEDIR}/openblas${SUFFIX64})
 endif()
 
 # Install pkg-config files
@@ -628,8 +549,9 @@ configure_file(${PROJECT_SOURCE_DIR}/cmake/openblas.pc.in ${PROJECT_BINARY_DIR}/
 install (FILES ${PROJECT_BINARY_DIR}/openblas${SUFFIX64}.pc DESTINATION ${CMAKE_INSTALL_LIBDIR}/pkgconfig/)
 
 
+# GNUInstallDirs "DATADIR" wrong here; CMake search path wants "share".
 set(PN OpenBLAS)
-set(CMAKECONFIG_INSTALL_DIR "${CMAKE_INSTALL_LIBDIR}/cmake/${PN}${SUFFIX64}")
+set(CMAKECONFIG_INSTALL_DIR "share/cmake/${PN}${SUFFIX64}")
 configure_package_config_file(cmake/${PN}Config.cmake.in
                               "${CMAKE_CURRENT_BINARY_DIR}/${PN}${SUFFIX64}Config.cmake"
                               INSTALL_DESTINATION ${CMAKECONFIG_INSTALL_DIR})

CONTRIBUTORS.md

@@ -198,9 +198,6 @@ In chronological order:
 * PingTouGe Semiconductor Co., Ltd.
   * [2020-10] Add RISC-V Vector (0.7.1) support. Optimize BLAS kernels for Xuantie C910
 
-* Jake Arkinstall <https://github.com/jake-arkinstall>
-  * [2021-02-10] Remove in-source configure_file to enable builds in read-only contexts (issue #3100, PR #3101)
-
 * River Dillon <oss@outerpassage.net>
   * [2021-07-10] fix compilation with musl libc
 
@@ -219,13 +216,3 @@ In chronological order:
   
 * Pablo Romero <https://github.com/pablorcum>
   * [2022-08] Fix building from sources for QNX
-
-* Mark Seminatore <https://github.com/mseminatore>
-  * [2023-11-09] Improve Windows threading performance scaling
-  * [2024-02-09] Introduce MT_TRACE facility and improve code consistency
-
-* Dirreke <https://github.com/mseminatore>
-  * [2024-01-16] Add basic support for the CSKY architecture
-
-* Christopher Daley <https://github.com/cdaley>
-  * [2024-01-24] Optimize GEMV forwarding on ARM64 systems

Changelog.txt

@@ -1,418 +1,4 @@
 OpenBLAS ChangeLog
-====================================================================
-Version 0.3.28
- 8-Aug-2024
-
-general:
-- Reworked the unfinished implementation of HUGETLB from GotoBLAS
-  for allocating huge memory pages as buffers on suitable systems
-- Changed the unfinished implementation of GEMM3M for the generic
-  target on all architectures to at least forward to regular GEMM
-- Improved multithreaded GEMM performance for large non-skinny matrices
-- Improved BLAS3 performance on larger multicore systems through improved
-  parallelism
-- Improved performance of the initial memory allocation by reducing
-  locking overhead
-- Improved performance of GBMV at small problem sizes by introducing
-  a size barrier for the switch to multithreading
-- Added an implementation of the CBLAS_GEMM_BATCH extension
-- Fixed miscompilation of CAXPYC and ZAXPYC on all architectures in 
-  CMAKE builds (error introduced in 0.3.27)
-- Fixed corner cases involving the handling of NAN and INFINITY
-  arguments in ?SCAL on all architectures
-- Added support for cross-compiling to WEBM with CMAKE (in addition
-  to the already present makefile support)
-- Fixed NAN handling and potential accuracy issues in compilations with
-  Intel ICX by supplying a suitable fp-model option by default
-- The contents of the github project wiki have been converted into
-  a new set of documentation included with the source code.
-- It is now possible to register a callback function that replaces
-  the built-in support for multithreading with an external backend
-  like TBB (openblas_set_threads_callback_function)
-- Fixed potential duplication of suffixes in shared library naming
-- Improved C compiler detection by the build system to tolerate more
-  naming variants for gcc builds
-- Fixed an unnecessary dependency of the utest on CBLAS
-- Fixed spurious error reports from the BLAS extensions utest
-- Fixed unwanted invocation of the GEMM3M tests in cross-compilation
-- Fixed a flaw in the makefile build that could lead to the pkgconfig
-  file containing an entry of UNKNOWN for the target cpu after installing
-- Integrated fixes from the Reference-LAPACK project:
-  - Fixed uninitialized variables in the LAPACK tests for ?QP3RK (PR 961)
-  - Fixed potential bounds error in ?UNHR_COL/?ORHR_COL (PR 1018)
-  - Fixed potential infinite loop in the LAPACK testsuite (PR 1024)
-  - Make the variable type used for hidden length arguments configurable (PR 1025)  
-  - Fixed SYTRD workspace computation and various typos (PR 1030)
-  - Prevent compiler use of FMA that could increase numerical error in ?GEEVX (PR 1033)
-
-x86-64:
-- reverted thread management under Windows to its state before 0.3.26
-  due to signs of race conditions in some circumstances now under study
-- fixed accidental selection of the unoptimized generic SBGEMM kernel
-  in CMAKE builds for CooperLake and SapphireRapids targets
-- fixed a potential thread buffer overrun in SBSTOBF16 on small systems
-- fixed an accuracy issue in ZSCAL introduced in 0.3.26
-- fixed compilation with CMAKE and recent releases of LLVM
-- added support for Intel Emerald Rapids and Meteor Lake cpus
-- added autodetection support for the Zhaoxin KX-7000 cpu
-- fixed autodetection of Intel Prescott (probably broken since 0.3.19)
-- fixed compilation for older targets with the Yocto SDK
-- fixed compilation of the converter-generated C versions
-  of the LAPACK sources with gcc-14
-- improved compiler options when building with CMAKE and LLVM for
-  AVX512-capable targets
-- added support for supplying the L2 cache size via an environment
-  variable (OPENBLAS_L2_SIZE) in case it is not correctly reported
-  (as in some VM configurations)
-- improved the error message shown when thread creation fails on startup
-- fixed setting the rpath entry of the dylib in CMAKE builds on MacOS
-
-arm:
-- fixed building for baremetal targets with make
-
-arm64:
-- Added a fast path forwarding SGEMM and DGEMM calls with a 1xN or Mx1
-  matrix to the corresponding GEMV kernel 
-- added optimized SGEMV and DGEMV kernels for A64FX
-- added optimized SVE kernels for small-matrix GEMM
-- added A64FX to the cpu list for DYNAMIC_ARCH
-- fixed building with support for cpu affinity
-- worked around accuracy problems with C/ZNRM2 on NeoverseN1 and
-  Apple M targets
-- improved GEMM performance on Neoverse V1
-- fixed compilation for NEOVERSEN2 with older compilers
-- fixed potential miscompilation of the SVE SDOT and DDOT kernels
-- fixed potential miscompilation of the non-SVE CDOT and ZDOT kernels
-- fixed a potential overflow when using very large user-defined BUFFERSIZE
-- fixed setting the rpath entry of the dylib in CMAKE builds on MacOS
-
-power:
-- Added a fast path forwarding SGEMM and DGEMM calls with a 1xN or Mx1
-  matrix to the corresponding GEMV kernel 
-- significantly improved performance of SBGEMM on POWER10
-- fixed compilation with OpenMP and the XLF compiler
-- fixed building of the BLAS extension utests under AIX
-- fixed building of parts of the LAPACK testsuite with XLF
-- fixed CSWAP/ZSWAP on big-endian POWER10 targets
-- fixed a performance regression in SAXPY on POWER10 with OpenXL
-- fixed accuracy issues in CSCAL/ZSCAL when compiled with LLVM
-- fixed building for POWER9 under FreeBSD
-- fixed a potential overflow when using very large user-defined BUFFERSIZE
-- fixed an accuracy issue in the POWER6 kernels for GEMM and GEMV
-
-riscv64:
-- Added a fast path forwarding SGEMM and DGEMM calls with a 1xN or Mx1
-  matrix to the corresponding GEMV kernel 
-- fixed building for RISCV64_GENERIC with OpenMP enabled
-- added DYNAMIC_ARCH support (comprising GENERIC_RISCV64 and the two
-  RVV 1.0 targets with vector length of 128 and 256)
-- worked around the ZVL128B kernels for AXPBY mishandling the special
-  case of zero Y increment
-
-loongarch64:
-- improved GEMM performance on servers of the 3C5000 generation
-- improved performance and stability of DGEMM
-- improved GEMV and TRSM kernels for LSX and LASX vector ABIs
-- fixed CMAKE compilation with the INTERFACE64 option set
-- fixed compilation with CMAKE
-- worked around spurious errors flagged by the BLAS3 tests
-- worked around a miscompilation of the POTRS utest by gcc 14.1
-
-mips64:
-- fixed ASUM and SUM kernels to accept negative step sizes in X
-- fixed complex GEMV kernels for MSA
-
-====================================================================
-Version 0.3.27
- 4-Apr-2024
-
-general:
-- added initial (generic) support for the CSKY architecture
-- capped the maximum number of threads used in GEMM, GETRF and POTRF to avoid creating
-  underutilized or idle threads
-- sped up multithreaded POTRF on all platforms
-- added extension openblas_set_num_threads_local() that returns the previous thread count
-- re-evaluated the SGEMV and DGEMV load thresholds to avoid activating multithreading 
-  for too small workloads
-- improved the fallback code used when the precompiled number of threads is exceeded,
-  and made it callable multiple times during the lifetime of an instance
-- added CBLAS interfaces for the BLAS extensions ?AMIN,?AMAX, CAXPYC and ZAXPYC
-- fixed a potential buffer overflow in the interface to the GEMMT kernels
-- fixed use of incompatible pointer types in GEMMT and C/ZAXPBY as flagged by GCC-14
-- fixed unwanted case sensitivity of the character parameters in ?TRTRS
-- sped up the OpenMP thread management code
-- fixed sizing of logical variables in INTERFACE64 builds of the C version of LAPACK
-- fixed inclusion of new LAPACK and LAPACKE functions from LAPACK 3.11 in the shared library
-- added a testsuite for the BLAS extensions
-- modified the error thresholds for SGS/DGS functions in the LAPACK testsuite to suppress
-  spurious errors
-- added support for building the benchmark collection with CMAKE
-- added rewriting of linker options to avoid linking both libgomp and libomp in CMAKE builds
-  with OpenMP enabled that use clang with gfortran
-- fixed building on systems with ucLibc
-- added support for calling ?NRM2 with a negative increment value on all architectures
-- added support for the LLVM18 version of the flang-new compiler
-- fixed handling of the OPENBLAS_LOOPS variable in several benchmarks
-- Integrated fixes from the Reference-LAPACK project:
-  - Increased accuracy in C/ZLARFGP (Reference-LAPACK PR 981)
-  
-x86:
-- fixed handling of NaN and Inf arguments in ZSCAL
-- fixed GEMM3M functions failing in CMAKE builds
-
-x86-64:
-- removed all instances of sched_yield() on Linux and BSD
-- fixed a potential deadlock in the thread server on MSWindows (introduced in 0.3.26)
-- fixed GEMM3M functions failing in CMAKE builds
-- fixed handling of NaN and Inf arguments in ZSCAL
-- added compiler checks for AVX512BF16 compatibility
-- fixed LLVM compiler options for Sapphire Rapids 
-- fixed cpu handling fallbacks for Sapphire Rapids with
-  disabled AVX2 in DYNAMIC_ARCH mode
-- fixed extensions SCSUM and DZSUM
-- improved GEMM performance for ZEN targets
-
-arm:
-- fixed handling of NaN and Inf arguments in ZSCAL
-
-arm64:
-- added initial support for the Cortex-A76 cpu
-- fixed handling of NaN and Inf arguments in ZSCAL
-- fixed default compiler options for gcc (-march and -mtune)
-- added support for ArmCompilerForLinux
-- added support for the NeoverseV2 cpu in DYNAMIC_ARCH builds
-- fixed mishandling of the INTERFACE64 option in CMAKE builds
-- corrected SCSUM kernels (erroneously duplicating SCASUM behaviour)  
-- added SVE-enabled kernels for CSUM/ZSUM
-- worked around an inaccuracy in the NRM2 kernels for NeoverseN1 and Apple M
-
-power:
-- improved performance of SGEMM on POWER8/9/10
-- improved performance of DGEMM on POWER10
-- added support for OpenMP builds with xlc/xlf on AIX
-- improved cpu autodetection for DYNAMIC_ARCH builds on older AIX
-- fixed cpu core counting on AIX
-- added support for building a shared library on AIX
-
-riscv64:
-- added support for the X280 cpu
-- added support for semi-generic RISCV models with vector length 128 or 256
-- added support for compiling with either RVV 0.7.1 or RVV 1.0 standard compilers
-- fixed handling of NaN and Inf arguments in ZSCAL
-- improved cpu model autodetection
-- fixed corner cases in ?AXPBY for C910V
-- fixed handling of zero increments in ?AXPY kernels for C910V
-
-loongarch64:
-- added optimized kernels for ?AMIN and ?AMAX
-- fixed handling of NaN and Inf arguments in ZSCAL
-- fixed handling of corner cases in ?AXPBY
-- fixed computation of SAMIN and DAMIN in LSX mode
-- fixed computation of ?ROT
-- added optimized SSYMV and DSYMV kernels for LSX and LASX mode
-- added optimized CGEMM and ZGEMM kernels for LSX and LASX mode
-- added optimized CGEMV and ZGEMV kernels
-
-mips:
-- fixed utilizing MSA on P5600 and related cpus (broken in 0.3.22)
-- fixed handling of NaN and Inf arguments in ZSCAL
-- fixed mishandling of the INTERFACE64 option in CMAKE builds
-
-zarch:
-- fixed handling of NaN and Inf arguments in ZSCAL
-- fixed calculation of ?SUM on Z13
-
-====================================================================
-Version 0.3.26
- 2-Jan-2024
-
-general:
-- improved the version of openblas.pc that is created by the CMAKE build
-- fixed a CMAKE-specific build problem on older versions of MacOS
-- worked around linking problems on old versions of MacOS
-- corrected installation location of the lapacke_mangling header in CMAKE builds
-- added type declarations for complex variables to the MSVC-specific parts of the LAPACK header
-- significantly sped up ?GESV for small problem sizes by introducing a lower bound for multithreading
-- imported additions and corrections from the Reference-LAPACK project:
-  - added new LAPACK functions for truncated QR with pivoting (Reference-LAPACK PRs 891&941)
-  - handle miscalculation of minimum work array size in corner cases (Reference-LAPACK PR 942)
-  - fixed use of uninitialized variables in ?GEDMD and improved inline documentation (PR 959)
-  - fixed use of uninitialized variables (and consequential failures) in ?BBCSD (PR 967)
-  - added tests for the recently introduced Dynamic Mode Decomposition functions (PR 736)
-  - fixed several memory leaks in the LAPACK testsuite (PR 953)
-  - fixed counting of testsuite results by the Python script (PR 954)
-   
-x86-64:
-- fixed computation of CASUM on SkylakeX and newer targets in the special
-  case that AVX512 is not supported by the compiler or operating environment
-- fixed potential undefined behaviour in the CASUM/ZASUM kernels for AVX512 targets
-- worked around a problem in the pre-AVX kernels for GEMV
-- sped up the thread management code on MS Windows
-
-arm64:
-- fixed building of the LAPACK testsuite with Xcode 15 on Apple M1 and newer
-- sped up the thread management code on MS Windows
-- sped up SGEMM and DGEMM on Neoverse V1 and N1
-- sped up ?DOT on SVE-capable targets
-- reduced the number of targets in DYNAMIC_ARCH builds by eliminating functionally equivalent ones
-- included support for Apple M1 and newer targets in DYNAMIC_ARCH builds
-
-power:
-- improved the SGEMM kernel for POWER10
-- fixed compilation with (very) old versions of gcc
-- fixed detection of old 32bit PPC targets in CMAKE-based builds
-- added autodetection of the POWERPC 7400 subtype
-- fixed CMAKE-based compilation for PPCG4 and PPC970 targets
-
-loongarch64:
-- added and improved optimized kernels for almost all BLAS functions
-
-====================================================================
-Version 0.3.25
- 12-Nov-2023
-
-general:
-- improved the error message shown on exceeding the maximum thread count
-- improved the code to add supplementary thread buffers in case of overflow
-- fixed a potential division by zero in ?ROTG
-- improved the ?MATCOPY functions to accept zero-sized rows or columns
-- corrected empty prototypes in function declarations
-- cleaned up unused declarations in the f2c-converted versions of the LAPACK sources
-- fixed compilation with the Cray CCE Compiler suite
-- improved link line rewriting to avoid mixed libgomp/libomp builds with clang&gfortran
-- worked around OPENMP builds with LLVM14's libomp hanging on FreeBSD
-- improved the Makefiles to require less option duplication on "make install"
-- imported the following changes from the upcoming release 3.12 of Reference-LAPACK
-  - deprecate utility functions ?GELQS and ?GEQRS (LAPACK PR 900)
-  - apply rounding up to workspace calculations done in floating point (LAPACK PR 904)
-  - avoid overflow in STGEX2/DTGEX2 (LAPACK PR 907)
-  - fix accumulation in ?LASSQ (LAPACK PR 909)
-  - fix handling of NaN values in ?GECON (LAPACK PR 926)
-  - avoid overflow in CBDSQR/ZBDSQR (LAPACK PR 927)
-  - fix poor vector orthogonalizations in ?ORBDB5/?UNBDB5 (LAPACK PR 928 & 930)
-
-x86-64:
-- fixed compile-time autodetection of AMD Ryzen3 and Ryzen4 cpus
-- fixed capability-based fallback selection for unknown cpus in DYNAMIC_ARCH
-- added AVX512 optimizations for ?ASUM on Sapphire Rapids and Cooper Lake
-
-ARM64:
-- fixed building on Apple with homebrew gcc
-- fixed building with XCODE 15
-- fixed building on A64FX and Cortex A710/X1/X2
-- increased the default buffer size for recent ARM server cpus 
-
-POWER:
-- fixed building with the IBM xlf 16.1.1 compiler
-- fixed building with IBM XL C
-- added support for DYNAMIC_ARCH builds with clang
-- fixed union declaration in the BFLOAT16 test case
-- enable optimizations for the AIX assembler on POWER10
-
-LOONGARCH64:
-- added an optimized SGEMV kernel
-- added an optimized DTRSM kernel
-
-====================================================================
-Version 0.3.24
- 03-Sep-2023
-
-general:
-   - declared the arguments of cblas_xerbla as const (in accordance with the reference implementation 
-     and others, the previous discrepancy appears to have dated back to GotoBLAS)
-   - fixed the implementation of ?GEMMT that was added in 0.3.23
-   - made cpu-specific SWITCH_RATIO parameters for GEMM available to DYNAMIC_ARCH builds
-   - fixed application of SYMBOLSUFFIX in CMAKE builds
-   - fixed missing SSYCONVF function in the shared library
-   - fixed parallel build logic used with gmake
-   - added support for compilation with LLVM17, in particular its new Fortran compiler
-   - added support for CMAKE builds using the NVIDIA HPC compiler
-   - fixed INTERFACE64 builds with CMAKE and the f95 Fortran compiler
-   - fixed cross-build detection and management in c_check
-   - disabled building of the tests with CMAKE when ONLY_CBLAS is defined
-   - fixed several issues with the handling of runtime limits on the number of OPENMP threads
-   - corrected the error code returned by SGEADD/DGEADD when LDA is too small
-   - corrected the error code returned by IMATCOPY when LDB is too small
-   - updated ?NRM2 to support negative increment values (as introduced in release 3.10 
-     of the reference BLAS)
-   - fixed OpenMP builds with CLANG for the case where libomp is not in a standard location
-   - fixed a potential overwrite of unrelated memory during thread initialisation on startup
-   - fixed a potential integer overflow in the multithreading threshold for ?SYMM/?SYRK
-   - fixed build of the LAPACKE interfaces for the LAPACK 3.11.0 ?TRSYL functions added in 0.3.22
-   - fixed installation of .cmake files in concurrent 32 and 64bit builds with CMAKE
-   - applied additions and corrections from the development branch of Reference-LAPACK:
-   - fixed actual arguments passed to a number of LAPACK functions (from Reference-LAPACK PR 885)
-   - fixed workspace query results in LAPACK ?SYTRF/?TRECV3 (from Reference-LAPACK PR 883)
-   - fixed derivation of the UPLO parameter in LAPACKE_?larfb (from Reference-LAPACK PR 878)
-   - fixed a crash in LAPACK ?GELSDD on NRHS=0 (from Reference-LAPACK PR 876)
-   - added new LAPACK utility functions CRSCL and ZRSCL (from Reference-LAPACK PR 839)
-	- corrected the order of eigenvalues for 2x2 matrices in ?STEMR (Reference-LAPACK PR 867)
-	- removed spurious reference to OpenMP variables outside OpenMP contexts (Reference-LAPACK PR 860)
-	- updated file comments on use of LAMBDA variable in LAPACK (Reference-LAPACK PR 852)
-	- fixed documentation of LAPACK SLASD0/DLASD0 (Reference-LAPACK PR 855)
-	- fixed confusing use of "minor" in LAPACK documentation (Reference-LAPACK PR 849)
-	- added new LAPACK functions ?GEDMD for dynamic mode decomposition (Reference-LAPACK PR 736)
-	- fixed potential stack overflows in the EIG part of the LAPACK testsuite (Reference-LAPACK PR 854)
-	- applied small improvements to the variants of Cholesky and QR functions (Reference-LAPACK PR 847)
-	- removed unused variables from LAPACK ?BDSQR (Reference-LAPACK PR 832)
-	- fixed a potential crash on allocation failure in LAPACKE SGEESX/DGEESX (Reference-LAPACK PR 836)
-	- added a quick return from SLARUV/DLARUV for N < 1 (Reference-LAPACK PR 837)
-	- updated function descriptions in LAPACK ?GEGS/?GEGV (Reference-LAPACK PR 831)
-	- improved algorithm description in ?GELSY (Reference-LAPACK PR 833)
-	- fixed scaling in LAPACK STGSNA/DTGSNA (Reference-LAPACK PR 830)
-	- fixed crash in LAPACKE_?geqrt with row-major data (Reference-LAPACK PR 768)
-	- added LAPACKE interfaces for C/ZUNHR_COL and S/DORHR_COL (Reference-LAPACK PR 827)
-	- added error exit tests for SYSV/SYTD2/GEHD2 to the testsuite (Reference-LAPACK PR 795)
-	- fixed typos in LAPACK source and comments (Reference-LAPACK PRs 809,811,812,814,820)
-	- adopt refactored ?GEBAL implementation (Reference-LAPACK PR 808)
-
-x86_64:
-   - added cpu model autodetection for Intel Alder Lake N
-   - added activation of the AMX tile to the Sapphire Rapids SBGEMM kernel
-   - worked around miscompilations of GEMV/SYMV kernels by gcc's tree-vectorizer
-   - fixed compilation of Cooperlake and Sapphire Rapids kernels with CLANG
-   - fixed runtime detection of Cooperlake and Sapphire Rapids in DYNAMIC_ARCH
-   - fixed feature-based cputype fallback in DYNAMIC_ARCH
-   - added support for building the AVX512 kernels with the NVIDIA HPC compiler
-   - corrected ZAXPY result on old pre-AVX hardware for the INCX=0 case
-   - fixed a potential use of uninitialized variables in ZTRSM
-
-ARM64:
-   - added cpu model autodetection for Apple M2
-   - fixed wrong results of CGEMM/CTRMM/DNRM2 under OSX (use of reserved register)
-   - added support for building the SVE kernels with the NVIDIA HPC compiler
-   - added support for building the SVE kernels with the Apple Clang compiler
-   - fixed compiler option handling for building the SVE kernels with LLVM
-   - implemented SWITCH_RATIO parameter for improved GEMM performance on Neoverse
-   - activated SVE SGEMM and DGEMM kernels for Neoverse V1
-   - improved performance of the SVE CGEMM and ZGEMM kernels on Neoverse V1
-   - improved kernel selection for the ARMV8SVE target and added it to DYNAMIC_ARCH
-   - fixed runtime check for SVE availability in DYNAMIC_ARCH builds to take OS or
-     container restrictions into account
-   - fixed a potential use of uninitialized variables in ZTRSM
-   - fix a potential misdetection of ARMV8 hardware as 32bit in CMAKE builds
-
-LOONGARCH64:
-   - added ABI detection
-   - added support for cpu affinity handling
-   - fixed compilation with early versions of the Loongson toolchain
-   - added an optimized SGEMM kernel for 3A5000
-   - added optimized DGEMV kernels for 3A5000
-   - improved the performance of the DGEMM kernel for 3A5000
-
-MIPS64:
-   - fixed miscompilation of TRMM kernels for the MIPS64_GENERIC target
-
-POWER:
-   - fixed compiler warnings in the POWER10 SBGEMM kernel
-
-RISCV:
-   - fixed application of the INTERFACE64 option when building with CMAKE
-   - fix a potential misdetection of RISCV hardware as 32bit in CMAKE builds
-   - fixed IDAMAX and DOT kernels for C910V
-   - fixed corner cases in the ROT and SWAP kernels for C910V
-   - fixed compilation of the C910V target with recent vendor compilers
-
 ====================================================================
 Version 0.3.23
  01-Apr-2023

GotoBLAS_06WeirdPerformance.txt

@@ -11,7 +11,7 @@
    operation is finished.
 
 
-2. Similar problem may happen under virtual machine. If supervisor
+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

Jenkinsfile

@@ -1,14 +1,9 @@
-pipeline {
-    agent { 
-        docker {
-            image 'osuosl/ubuntu-s390x'
+node {
+        stage('Checkout') {
+            checkout
         }
-    }
-    stages {
+
         stage('Build') {
-            steps {
-                sh 'make clean && make'
-            }
+            sh("make")
         }
-    }
 }

Jenkinsfile.pwr

@@ -1,16 +0,0 @@
-pipeline {
-    agent { 
-        docker {
-            image 'osuosl/ubuntu-ppc64le:18.04'
-        }
-    }
-    stages {
-        stage('Build') {
-            steps {
-                sh 'sudo apt update'
-                sh 'sudo apt install gfortran -y'
-                sh 'make clean && make'
-            }
-        }
-    }
-}

Makefile

@@ -1,9 +1,5 @@
 TOPDIR	= .
 include ./Makefile.system
-LNCMD = ln -fs
-ifeq ($(FIXED_LIBNAME), 1)
-LNCMD = true
-endif
 
 BLASDIRS = interface driver/level2 driver/level3 driver/others
 
@@ -39,15 +35,7 @@ export NO_LAPACK
 export C_LAPACK
 endif
 
-ifeq ($(F_COMPILER),CRAY)
-LAPACK_NOOPT := $(filter-out -O0 -O1 -O2 -O3 -Ofast -Og -Os,$(LAPACK_FFLAGS))
-else
 LAPACK_NOOPT := $(filter-out -O0 -O1 -O2 -O3 -Ofast -O -Og -Os,$(LAPACK_FFLAGS))
-endif
-
-ifdef LAPACK_STRLEN
-LAPACK_FFLAGS += -DLAPACK_STRLEN=$(LAPACK_STRLEN)
-endif
 
 SUBDIRS_ALL = $(SUBDIRS) test ctest utest exports benchmark ../laswp ../bench cpp_thread_test
 
@@ -142,17 +130,17 @@ shared : libs netlib $(RELA)
 ifneq ($(NO_SHARED), 1)
 ifeq ($(OSNAME), $(filter $(OSNAME),Linux SunOS Android Haiku FreeBSD DragonFly))
 	@$(MAKE) -C exports so
-	@$(LNCMD) $(LIBSONAME) $(LIBPREFIX).so
-	@$(LNCMD) $(LIBSONAME) $(LIBPREFIX).so.$(MAJOR_VERSION)
+	@ln -fs $(LIBSONAME) $(LIBPREFIX).so
+	@ln -fs $(LIBSONAME) $(LIBPREFIX).so.$(MAJOR_VERSION)
 endif
 ifeq ($(OSNAME), $(filter $(OSNAME),OpenBSD NetBSD))
 	@$(MAKE) -C exports so
-	@$(LNCMD) $(LIBSONAME) $(LIBPREFIX).so
+	@ln -fs $(LIBSONAME) $(LIBPREFIX).so
 endif
 ifeq ($(OSNAME), Darwin)
 	@$(MAKE) -C exports dyn
-	@$(LNCMD) $(LIBDYNNAME) $(LIBPREFIX).dylib
-	@$(LNCMD) $(LIBDYNNAME) $(LIBPREFIX).$(MAJOR_VERSION).dylib
+	@ln -fs $(LIBDYNNAME) $(LIBPREFIX).dylib
+	@ln -fs $(LIBDYNNAME) $(LIBPREFIX).$(MAJOR_VERSION).dylib
 endif
 ifeq ($(OSNAME), WINNT)
 	@$(MAKE) -C exports dll
@@ -160,9 +148,6 @@ endif
 ifeq ($(OSNAME), CYGWIN_NT)
 	@$(MAKE) -C exports dll
 endif
-ifeq ($(OSNAME), AIX)
-	@$(MAKE) -C exports so
-endif
 endif
 
 tests : shared
@@ -221,32 +206,16 @@ ifeq ($(DYNAMIC_OLDER), 1)
 	@echo DYNAMIC_OLDER=1 >> Makefile.conf_last
 endif	
 endif
-	@echo TARGET=$(CORE) >> Makefile.conf_last
 ifdef USE_THREAD
 	@echo USE_THREAD=$(USE_THREAD) >>  Makefile.conf_last
 endif
-ifdef SMP
-ifdef NUM_THREADS
-	@echo NUM_THREADS=$(NUM_THREADS) >>  Makefile.conf_last
-else
-	@echo NUM_THREADS=$(NUM_CORES) >>  Makefile.conf_last
-endif
-endif
-ifeq ($(USE_OPENMP),1)
-	@echo USE_OPENMP=1 >>  Makefile.conf_last
-endif
-ifeq ($(INTERFACE64),1)
-	@echo INTERFACE64=1 >>  Makefile.conf_last
-endif
-	@echo THELIBNAME=$(LIBNAME) >>  Makefile.conf_last
-	@echo THELIBSONAME=$(LIBSONAME) >>  Makefile.conf_last
-	@-$(LNCMD) $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX)
+	@-ln -fs $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX)
 	@touch lib.grd
 
 prof : prof_blas prof_lapack
 
 prof_blas :
-	$(LNCMD) $(LIBNAME_P) $(LIBPREFIX)_p.$(LIBSUFFIX)
+	ln -fs $(LIBNAME_P) $(LIBPREFIX)_p.$(LIBSUFFIX)
 	for d in $(SUBDIRS) ; \
 	do if test -d $$d; then \
 	  $(MAKE) -C $$d prof || exit 1 ; \
@@ -257,7 +226,7 @@ ifeq ($(DYNAMIC_ARCH), 1)
 endif
 
 blas :
-	$(LNCMD) $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX)
+	ln -fs $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX)
 	for d in $(BLASDIRS) ; \
 	do if test -d $$d; then \
 	  $(MAKE) -C $$d libs || exit 1 ; \
@@ -265,7 +234,7 @@ blas :
 	done
 
 hpl :
-	$(LNCMD) $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX)
+	ln -fs $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX)
 	for d in $(BLASDIRS) ../laswp exports ; \
 	do if test -d $$d; then \
 	  $(MAKE) -C $$d $(@F) || exit 1 ; \
@@ -279,7 +248,7 @@ ifeq ($(DYNAMIC_ARCH), 1)
 endif
 
 hpl_p :
-	$(LNCMD) $(LIBNAME_P) $(LIBPREFIX)_p.$(LIBSUFFIX)
+	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 ; \
@@ -320,12 +289,8 @@ endif
 	-@echo "PNOOPT      = $(LAPACK_FPFLAGS) -O0" >> $(NETLIB_LAPACK_DIR)/make.inc
 ifeq ($(C_COMPILER)$(F_COMPILER)$(USE_OPENMP), CLANGGFORTRAN1)
 	-@echo "LDFLAGS     = $(FFLAGS) $(EXTRALIB) -lomp" >> $(NETLIB_LAPACK_DIR)/make.inc
-else
-ifeq ($(C_COMPILER)$(F_COMPILER)$(USE_OPENMP), CLANGIBM1)
-	-@echo "LDFLAGS     = $(FFLAGS) $(EXTRALIB) -lomp" >> $(NETLIB_LAPACK_DIR)/make.inc
 else
 	-@echo "LDFLAGS     = $(FFLAGS) $(EXTRALIB)" >> $(NETLIB_LAPACK_DIR)/make.inc
-endif
 endif
 	-@echo "CC          = $(CC)" >> $(NETLIB_LAPACK_DIR)/make.inc
 	-@echo "override CFLAGS      = $(LAPACK_CFLAGS)" >> $(NETLIB_LAPACK_DIR)/make.inc
@@ -416,7 +381,6 @@ lapack-runtest: lapack-test
 
 blas-test:
 	(cd $(NETLIB_LAPACK_DIR)/BLAS/TESTING && rm -f x* *.out)
-
 	$(MAKE) -j 1 -C $(NETLIB_LAPACK_DIR) blas_testing
 	(cd $(NETLIB_LAPACK_DIR)/BLAS/TESTING && cat *.out)
 

Makefile.arm64

@@ -58,13 +58,6 @@ FCOMMON_OPT += -march=armv8-a -mtune=cortex-a73
 endif
 endif
 
-ifeq ($(CORE), CORTEXA76)
-CCOMMON_OPT += -march=armv8.2-a -mtune=cortex-a76
-ifneq ($(F_COMPILER), NAG)
-FCOMMON_OPT += -march=armv8.2-a -mtune=cortex-a76
-endif
-endif
-
 ifeq ($(CORE), FT2000)
 CCOMMON_OPT += -march=armv8-a -mtune=cortex-a72
 ifneq ($(F_COMPILER), NAG)
@@ -76,7 +69,7 @@ endif
 # in GCC>=9
 ifeq ($(CORE), NEOVERSEN1)
 ifeq (1, $(filter 1,$(GCCVERSIONGTEQ7) $(ISCLANG)))
-ifeq (1, $(filter 1,$(GCCVERSIONGTEQ9) $(ISCLANG)))
+ifeq ($(GCCVERSIONGTEQ9), 1)
 CCOMMON_OPT += -march=armv8.2-a -mtune=neoverse-n1
 ifneq ($(F_COMPILER), NAG)
 FCOMMON_OPT += -march=armv8.2-a -mtune=neoverse-n1
@@ -99,37 +92,26 @@ endif
 # in GCC>=10.4
 ifeq ($(CORE), NEOVERSEV1)
 ifeq (1, $(filter 1,$(GCCVERSIONGTEQ7) $(ISCLANG)))
-ifeq (1, $(filter 1,$(GCCVERSIONGTEQ10) $(ISCLANG)))
-ifeq (1, $(filter 1,$(GCCMINORVERSIONGTEQ4) $(GCCVERSIONGTEQ11) $(ISCLANG)))
-CCOMMON_OPT += -march=armv8.4-a+sve
-ifeq (1, $(ISCLANG))
-CCOMMON_OPT += -mtune=cortex-x1
-else
-CCOMMON_OPT += -mtune=neoverse-v1
-endif
+ifeq ($(GCCVERSIONGTEQ10), 1)
+ifeq (1, $(filter 1,$(GCCMINORVERSIONGTEQ4) $(GCCVERSIONGTEQ11)))
+CCOMMON_OPT += -march=armv8.4-a+sve -mtune=neoverse-v1
 ifneq ($(F_COMPILER), NAG)
 FCOMMON_OPT += -march=armv8.4-a -mtune=neoverse-v1
 endif
 else
-CCOMMON_OPT += -march=armv8.4-a+sve 
-ifneq ($(CROSS), 1)
-CCOMMON_OPT += -mtune=native
-endif
+CCOMMON_OPT += -march=armv8.4-a+sve -mtune=native
 ifneq ($(F_COMPILER), NAG)
-FCOMMON_OPT += -march=armv8.4-a 
-ifneq ($(CROSS), 1)
-FCOMMON_OPT += -mtune=native
-endif
+FCOMMON_OPT += -march=armv8.4-a -mtune=native
 endif
 endif
 else
-CCOMMON_OPT += -march=armv8.2-a+sve -mtune=cortex-a72
+CCOMMON_OPT += -march=armv8.2-a -mtune=cortex-a72
 ifneq ($(F_COMPILER), NAG)
 FCOMMON_OPT += -march=armv8.2-a -mtune=cortex-a72
 endif
 endif
 else
-CCOMMON_OPT += -march=armv8-a+sve -mtune=cortex-a72
+CCOMMON_OPT += -march=armv8-a -mtune=cortex-a72
 ifneq ($(F_COMPILER), NAG)
 FCOMMON_OPT += -march=armv8-a -mtune=cortex-a72
 endif
@@ -140,56 +122,40 @@ endif
 # in GCC>=10.4
 ifeq ($(CORE), NEOVERSEN2)
 ifeq (1, $(filter 1,$(GCCVERSIONGTEQ7) $(ISCLANG)))
-ifeq (1, $(filter 1,$(GCCVERSIONGTEQ10) $(ISCLANG)))
-ifeq (1, $(filter 1,$(GCCMINORVERSIONGTEQ4) $(GCCVERSIONGTEQ11) $(ISCLANG)))
+ifeq ($(GCCVERSIONGTEQ10), 1)
+ifeq (1, $(filter 1,$(GCCMINORVERSIONGTEQ4) $(GCCVERSIONGTEQ11)))
 ifneq ($(OSNAME), Darwin)
 CCOMMON_OPT += -march=armv8.5-a+sve+sve2+bf16 -mtune=neoverse-n2
 else
-CCOMMON_OPT += -march=armv8.2-a+sve+bf16 -mtune=cortex-a72
+CCOMMON_OPT += -march=armv8.2-a -mtune=cortex-a72
 endif
 ifneq ($(F_COMPILER), NAG)
 FCOMMON_OPT += -march=armv8.5-a+sve+sve2+bf16 -mtune=neoverse-n2
 endif
 else
-CCOMMON_OPT += -march=armv8.5-a+sve+bf16
-ifneq ($(CROSS), 1)
-CCOMMON_OPT += -mtune=native
-endif
+CCOMMON_OPT += -march=armv8.5-a+sve -mtune=native
 ifneq ($(F_COMPILER), NAG)
-FCOMMON_OPT += -march=armv8.5-a 
-ifneq ($(CROSS), 1)
-FCOMMON_OPT += -mtune=native
-endif
+FCOMMON_OPT += -march=armv8.5-a -mtune=native
 endif
 endif
 else
-CCOMMON_OPT += -march=armv8.2-a+sve+bf16 -mtune=cortex-a72
+CCOMMON_OPT += -march=armv8.2-a -mtune=cortex-a72
 ifneq ($(F_COMPILER), NAG)
 FCOMMON_OPT += -march=armv8.2-a -mtune=cortex-a72
 endif
 endif
 else
-CCOMMON_OPT += -march=armv8-a+sve+bf16 -mtune=cortex-a72
+CCOMMON_OPT += -march=armv8-a -mtune=cortex-a72
 ifneq ($(F_COMPILER), NAG)
 FCOMMON_OPT += -march=armv8-a -mtune=cortex-a72
 endif
 endif
 endif
 
-# Detect ARM Neoverse V2.
-ifeq ($(CORE), NEOVERSEV2)
-ifeq (1, $(filter 1,$(GCCVERSIONGTEQ12) $(ISCLANG)))
-CCOMMON_OPT += -march=armv9-a -mtune=neoverse-v2
-ifneq ($(F_COMPILER), NAG)
-FCOMMON_OPT += -march=armv9-a -mtune=neoverse-v2
-endif
-endif
-endif
-
 # Use a53 tunings because a55 is only available in GCC>=8.1
 ifeq ($(CORE), CORTEXA55)
 ifeq (1, $(filter 1,$(GCCVERSIONGTEQ7) $(ISCLANG)))
-ifeq (1, $(filter 1,$(GCCVERSIONGTEQ8) $(ISCLANG)))
+ifeq ($(GCCVERSIONGTEQ8), 1)
 CCOMMON_OPT += -march=armv8.2-a -mtune=cortex-a55
 ifneq ($(F_COMPILER), NAG)
 FCOMMON_OPT += -march=armv8.2-a -mtune=cortex-a55
@@ -230,13 +196,8 @@ endif
 endif
 
 ifeq ($(CORE), THUNDERX3T110)
-ifeq (1, $(filter 1,$(GCCVERSIONGTEQ10) $(ISCLANG)))
-CCOMMON_OPT += -march=armv8.3-a 
-ifeq (0, $(ISCLANG))
-CCOMMON_OPT += -mtune=thunderx3t110
-else
-CCOMMON_OPT += -mtune=thunderx2t99
-endif
+ifeq ($(GCCVERSIONGTEQ10), 1)
+CCOMMON_OPT += -march=armv8.3-a -mtune=thunderx3t110
 ifneq ($(F_COMPILER), NAG)
 FCOMMON_OPT += -march=armv8.3-a -mtune=thunderx3t110
 endif
@@ -264,47 +225,29 @@ endif
 endif
 endif
 
-ifeq (1, $(filter 1,$(GCCVERSIONGTEQ9) $(ISCLANG)))
+ifeq ($(GCCVERSIONGTEQ9), 1)
 ifeq ($(CORE), EMAG8180)
-CCOMMON_OPT += -march=armv8-a
-ifeq  ($(ISCLANG), 0)
-CCOMMON_OPT += -mtune=emag
-endif
+CCOMMON_OPT += -march=armv8-a -mtune=emag
 ifneq ($(F_COMPILER), NAG)
 FCOMMON_OPT += -march=armv8-a -mtune=emag
 endif
 endif
 endif
 
+ifeq (1, $(filter 1,$(GCCVERSIONGTEQ11) $(ISCLANG)))
 ifeq ($(CORE), A64FX)
-ifeq (1, $(filter 1,$(GCCVERSIONGTEQ10) $(ISCLANG)))
-ifeq (1, $(filter 1,$(GCCMINORVERSIONGTEQ3) $(GCCVERSIONGTEQ11) $(ISCLANG)))
 CCOMMON_OPT += -march=armv8.2-a+sve -mtune=a64fx
 ifneq ($(F_COMPILER), NAG)
 FCOMMON_OPT += -march=armv8.2-a+sve -mtune=a64fx
 endif
-else
-CCOMMON_OPT += -march=armv8.4-a+sve -mtune=neoverse-n1
-ifneq ($(F_COMPILER), NAG)
-FCOMMON_OPT += -march=armv8.4-a -mtune=neoverse-n1
-endif
-endif
 endif
 endif
 
 ifeq (1, $(filter 1,$(GCCVERSIONGTEQ11) $(ISCLANG)))
 ifeq ($(CORE), CORTEXX1)
-CCOMMON_OPT += -march=armv8.2-a
-ifeq (1, $(filter 1,$(GCCMINORVERSIONGTEQ4) $(GCCVERSIONGTEQ12) $(ISCLANG)))
-CCOMMON_OPT += -mtune=cortex-x1
+CCOMMON_OPT += -march=armv8.2-a -mtune=cortexa72
 ifneq ($(F_COMPILER), NAG)
-FCOMMON_OPT += -march=armv8.2-a -mtune=cortex-x1
-endif
-else
-CCOMMON_OPT += -mtune=cortex-a72
-ifneq ($(F_COMPILER), NAG)
-FCOMMON_OPT += -march=armv8.2-a -mtune=cortex-a72
-endif
+FCOMMON_OPT += -march=armv8.2-a -mtune=cortexa72
 endif
 endif
 endif
@@ -315,12 +258,6 @@ CCOMMON_OPT += -march=armv8.4-a+sve
 ifneq ($(F_COMPILER), NAG)
 FCOMMON_OPT += -march=armv8.4-a+sve
 endif
-ifeq (1, $(filter 1,$(GCCVERSIONGTEQ12) $(ISCLANG)))
-CCOMMON_OPT += -mtune=cortex-x2
-ifneq ($(F_COMPILER), NAG)
-FCOMMON_OPT += -mtune=cortex-x2
-endif
-endif
 endif
 endif
 
@@ -340,12 +277,6 @@ CCOMMON_OPT += -march=armv8.4-a+sve
 ifneq ($(F_COMPILER), NAG)
 FCOMMON_OPT += -march=armv8.4-a+sve
 endif
-ifeq (1, $(filter 1,$(GCCVERSIONGTEQ12) $(ISCLANG)))
-CCOMMON_OPT += -mtune=cortex-a710
-ifneq ($(F_COMPILER), NAG)
-FCOMMON_OPT += -mtune=cortex-a710
-endif
-endif
 endif
 endif
 

Makefile.csky

@@ -1,4 +0,0 @@
-ifeq ($(CORE), CK860FV)
-CCOMMON_OPT += -march=ck860v -mcpu=ck860fv -mfdivdu -mhard-float
-FCOMMON_OPT += -march=ck860v -mcpu=ck860fv -mfdivdu -mhard-float -static
-endif

Makefile.install

@@ -2,21 +2,6 @@ TOPDIR	= .
 export GOTOBLAS_MAKEFILE = 1
 -include $(TOPDIR)/Makefile.conf_last
 include ./Makefile.system
-LNCMD = ln -fs
-
-ifdef THELIBNAME
-LIBNAME=$(THELIBNAME)
-LIBSONAME=$(THELIBSONAME)
-endif
-ifeq ($(FIXED_LIBNAME), 1)
-LNCMD = true
-endif
-ifeq ($(INTERFACE64),1)
-USE_64BITINT=1
-endif
-ifeq ($(USE_OPENMP),1)
-	FOMP_OPT:= -fopenmp
-endif
 
 PREFIX ?= /opt/OpenBLAS
 
@@ -75,18 +60,18 @@ ifndef NO_CBLAS
 	@echo Generating cblas.h in $(DESTDIR)$(OPENBLAS_INCLUDE_DIR)
 	@cp cblas.h cblas.tmp
 ifdef SYMBOLPREFIX
-	@sed 's/cblas[^() ]*/$(SYMBOLPREFIX)&/g' cblas.tmp > cblas.tmp2
-	@sed 's/openblas[^() ]*/$(SYMBOLPREFIX)&/g'  cblas.tmp2 > cblas.tmp
+	@sed 's/cblas[^( ]*/$(SYMBOLPREFIX)&/g' cblas.tmp > cblas.tmp2
+	@sed 's/openblas[^( ]*/$(SYMBOLPREFIX)&/g'  cblas.tmp2 > cblas.tmp
 	#change back any openblas_complex_float and double that got hit
 	@sed 's/$(SYMBOLPREFIX)openblas_complex_/openblas_complex_/g'  cblas.tmp > cblas.tmp2
-	@sed 's/goto[^() ]*/$(SYMBOLPREFIX)&/g'  cblas.tmp2 > cblas.tmp
+	@sed 's/goto[^( ]*/$(SYMBOLPREFIX)&/g'  cblas.tmp2 > cblas.tmp
 endif
 ifdef SYMBOLSUFFIX
-	@sed 's/cblas[^() ]*/&$(SYMBOLSUFFIX)/g' cblas.tmp > cblas.tmp2
-	@sed 's/openblas[^() ]*/&$(SYMBOLSUFFIX)/g'  cblas.tmp2 > cblas.tmp
+	@sed 's/cblas[^( ]*/&$(SYMBOLSUFFIX)/g' cblas.tmp > cblas.tmp2
+	@sed 's/openblas[^( ]*/&$(SYMBOLSUFFIX)/g'  cblas.tmp2 > cblas.tmp
 	#change back any openblas_complex_float and double that got hit
 	@sed 's/\(openblas_complex_\)\([^ ]*\)$(SYMBOLSUFFIX)/\1\2 /g'  cblas.tmp > cblas.tmp2
-	@sed 's/goto[^() ]*/&$(SYMBOLSUFFIX)/g'  cblas.tmp2 > cblas.tmp
+	@sed 's/goto[^( ]*/&$(SYMBOLSUFFIX)/g'  cblas.tmp2 > cblas.tmp
 endif
 	@sed 's/common/openblas_config/g' cblas.tmp > "$(DESTDIR)$(OPENBLAS_INCLUDE_DIR)/cblas.h"
 endif
@@ -106,7 +91,7 @@ ifneq ($(NO_STATIC),1)
 	@echo Copying the static library to $(DESTDIR)$(OPENBLAS_LIBRARY_DIR)
 	@install -m644 $(LIBNAME) "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)"
 	@cd "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)" ; \
-	$(LNCMD) $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX)
+	ln -fs $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX)
 endif
 #for install shared library
 ifneq ($(NO_SHARED),1)
@@ -114,21 +99,21 @@ ifneq ($(NO_SHARED),1)
 ifeq ($(OSNAME), $(filter $(OSNAME),Linux SunOS Android Haiku FreeBSD DragonFly))
 	@install -m755 $(LIBSONAME) "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)"
 	@cd "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)" ; \
-	$(LNCMD) $(LIBSONAME) $(LIBPREFIX).so ; \
-	$(LNCMD) $(LIBSONAME) $(LIBPREFIX).so.$(MAJOR_VERSION)
+	ln -fs $(LIBSONAME) $(LIBPREFIX).so ; \
+	ln -fs $(LIBSONAME) $(LIBPREFIX).so.$(MAJOR_VERSION)
 endif
 
 ifeq ($(OSNAME), $(filter $(OSNAME),OpenBSD NetBSD))
 	@cp $(LIBSONAME) "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)"
 	@cd "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)" ; \
-	$(LNCMD) $(LIBSONAME) $(LIBPREFIX).so
+	ln -fs $(LIBSONAME) $(LIBPREFIX).so
 endif
 ifeq ($(OSNAME), Darwin)
 	@-cp $(LIBDYNNAME) "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)"
 	@-install_name_tool -id "$(OPENBLAS_LIBRARY_DIR)/$(LIBPREFIX).$(MAJOR_VERSION).dylib" "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)/$(LIBDYNNAME)"
 	@cd "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)" ; \
-	$(LNCMD) $(LIBDYNNAME) $(LIBPREFIX).dylib ; \
-	$(LNCMD) $(LIBDYNNAME) $(LIBPREFIX).$(MAJOR_VERSION).dylib
+	ln -fs $(LIBDYNNAME) $(LIBPREFIX).dylib ; \
+	ln -fs $(LIBDYNNAME) $(LIBPREFIX).$(MAJOR_VERSION).dylib
 endif
 ifeq ($(OSNAME), WINNT)
 	@-cp $(LIBDLLNAME) "$(DESTDIR)$(OPENBLAS_BINARY_DIR)"
@@ -156,15 +141,15 @@ ifneq ($(NO_STATIC),1)
 	@echo Copying the static library to $(DESTDIR)$(OPENBLAS_LIBRARY_DIR)
 	@installbsd -c -m 644 $(LIBNAME) "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)"
 	@cd "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)" ; \
-	$(LNCMD) $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX)
+	ln -fs $(LIBNAME) $(LIBPREFIX).$(LIBSUFFIX)
 endif
 #for install shared library
 ifneq ($(NO_SHARED),1)
 	@echo Copying the shared library to $(DESTDIR)$(OPENBLAS_LIBRARY_DIR)
 	@installbsd -c -m 755 $(LIBSONAME) "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)"
 	@cd "$(DESTDIR)$(OPENBLAS_LIBRARY_DIR)" ; \
-	$(LNCMD) $(LIBSONAME) $(LIBPREFIX).so ; \
-	$(LNCMD) $(LIBSONAME) $(LIBPREFIX).so.$(MAJOR_VERSION)
+	ln -fs $(LIBSONAME) $(LIBPREFIX).so ; \
+	ln -fs $(LIBSONAME) $(LIBPREFIX).so.$(MAJOR_VERSION)
 endif
 
 endif
@@ -177,12 +162,9 @@ endif
 
 	@echo Generating $(LIBSONAMEBASE)$(SUFFIX64).pc in "$(DESTDIR)$(OPENBLAS_PKGCONFIG_DIR)"
 	@echo 'libdir='$(OPENBLAS_LIBRARY_DIR) > "$(PKGFILE)"
-	@echo 'libprefix='$(LIBNAMEPREFIX) >> "$(PKGFILE)"
-	@echo 'libnamesuffix='$(LIBNAMESUFFIX) >> "$(PKGFILE)"
 	@echo 'libsuffix='$(SYMBOLSUFFIX) >> "$(PKGFILE)"
 	@echo 'includedir='$(OPENBLAS_INCLUDE_DIR) >> "$(PKGFILE)"
-	@echo 'omp_opt='$(FOMP_OPT) >> "$(PKGFILE)"
-	@echo 'openblas_config= USE_64BITINT='$(INTERFACE64) 'DYNAMIC_ARCH='$(DYNAMIC_ARCH) 'DYNAMIC_OLDER='$(DYNAMIC_OLDER) 'NO_CBLAS='$(NO_CBLAS) 'NO_LAPACK='$(NO_LAPACK) 'NO_LAPACKE='$(NO_LAPACKE) 'NO_AFFINITY='$(NO_AFFINITY) 'USE_OPENMP='$(USE_OPENMP) $(TARGET) 'MAX_THREADS='$(NUM_THREADS)>> "$(PKGFILE)"
+	@echo 'openblas_config= USE_64BITINT='$(INTERFACE64) 'DYNAMIC_ARCH='$(DYNAMIC_ARCH) 'DYNAMIC_OLDER='$(DYNAMIC_OLDER) 'NO_CBLAS='$(NO_CBLAS) 'NO_LAPACK='$(NO_LAPACK) 'NO_LAPACKE='$(NO_LAPACKE) 'NO_AFFINITY='$(NO_AFFINITY) 'USE_OPENMP='$(USE_OPENMP) $(CORE) 'MAX_THREADS='$(NUM_THREADS)>> "$(PKGFILE)"
 	@echo 'version='$(VERSION) >> "$(PKGFILE)"
 	@echo 'extralib='$(PKG_EXTRALIB) >> "$(PKGFILE)"
 	@cat openblas.pc.in >> "$(PKGFILE)"
@@ -196,7 +178,7 @@ endif
 ifneq ($(NO_SHARED),1)
 #ifeq logical or
 ifeq ($(OSNAME), $(filter $(OSNAME),Linux FreeBSD NetBSD OpenBSD DragonFly))
-	@echo "SET(OpenBLAS_LIBRARIES ${OPENBLAS_LIBRARY_DIR}/$(LIBPREFIX)$(SYMBOLSUFFIX).so)" >> "$(DESTDIR)$(OPENBLAS_CMAKE_DIR)/$(OPENBLAS_CMAKE_CONFIG)"
+	@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)"

Makefile.power

@@ -11,23 +11,11 @@ endif
 
 ifeq ($(CORE), POWER10)
 ifneq ($(C_COMPILER), PGI)
-ifeq ($(C_COMPILER), GCC)
-ifeq ($(GCCVERSIONGTEQ10), 1)
 CCOMMON_OPT += -Ofast -mcpu=power10 -mtune=power10 -mvsx -fno-fast-math
-else ifneq ($(GCCVERSIONGT4), 1)
-$(warning your compiler is too old to fully support POWER9, getting a newer version of gcc is recommended)
-CCOMMON_OPT += -Ofast -mcpu=power8 -mtune=power8 -mvsx -fno-fast-math
-else
-$(warning your compiler is too old to fully support POWER10, getting a newer version of gcc is recommended)
-CCOMMON_OPT += -Ofast -mcpu=power9 -mtune=power9 -mvsx -fno-fast-math
-endif
-else
-CCOMMON_OPT += -Ofast -mcpu=power10 -mtune=power10 -mvsx -fno-fast-math
-endif
 ifeq ($(F_COMPILER), IBM)
-FCOMMON_OPT += -O2 -qrecur -qnosave -qarch=pwr10 -qtune=pwr10 -qfloat=nomaf -qzerosize
+FCOMMON_OPT += -O2 -qrecur -qnosave
 else
-FCOMMON_OPT += -O2 -frecursive -mcpu=power10 -mtune=power10 -fno-fast-math
+FCOMMON_OPT += -O2 -frecursive -mcpu=power10 -mtune=power10  -fno-fast-math
 endif
 endif
 endif
@@ -50,18 +38,19 @@ CCOMMON_OPT += -fast -Mvect=simd -Mcache_align
 endif
 ifneq ($(F_COMPILER), PGI)
 ifeq ($(F_COMPILER), IBM)
-FCOMMON_OPT += -O2 -qrecur -qnosave -qarch=pwr9 -qtune=pwr9 -qfloat=nomaf -qzerosize
+FCOMMON_OPT += -O2 -qrecur -qnosave
 else
-FCOMMON_OPT += -O2 -frecursive -fno-fast-math -mcpu=power9 -mtune=power9
+FCOMMON_OPT += -O2 -frecursive -fno-fast-math
 endif
-
-ifeq ($(F_COMPILER), GFORTRAN)
+ifeq ($(C_COMPILER), GCC)
 ifneq ($(GCCVERSIONGT4), 1)
 $(warning your compiler is too old to fully support POWER9, getting a newer version of gcc is recommended)
 FCOMMON_OPT += -mcpu=power8 -mtune=power8 
 else
 FCOMMON_OPT += -mcpu=power9 -mtune=power9 
 endif
+else
+FCOMMON_OPT += -mcpu=power9 -mtune=power9
 endif
 else
 FCOMMON_OPT += -O2 -Mrecursive
@@ -77,16 +66,12 @@ endif
 ifneq ($(F_COMPILER), PGI)
 ifeq ($(OSNAME), AIX)
 ifeq ($(F_COMPILER), IBM)
-FCOMMON_OPT += -O2 -qrecur -qnosave -qarch=pwr8 -qtune=pwr8 -qfloat=nomaf -qzerosize
+FCOMMON_OPT += -O2 -qrecur -qnosave
 else
-FCOMMON_OPT += -O1 -frecursive -mcpu=power8 -mtune=power8 -fno-fast-math
+FCOMMON_OPT += -O1 -frecursive -mcpu=power8 -mtune=power8  -fno-fast-math 
 endif
 else
-ifeq ($(F_COMPILER), IBM)
-FCOMMON_OPT += -O2 -qrecur -qnosave -qarch=pwr8 -qtune=pwr8 -qfloat=nomaf -qzerosize
-else
-FCOMMON_OPT += -O2 -frecursive -mcpu=power8 -mtune=power8 -fno-fast-math
-endif
+FCOMMON_OPT += -O2 -frecursive -mcpu=power8 -mtune=power8  -fno-fast-math 
 endif
 else
 FCOMMON_OPT += -O2 -Mrecursive
@@ -99,20 +84,13 @@ CCOMMON_OPT += -DUSE_OPENMP -fopenmp
 else
 CCOMMON_OPT += -DUSE_OPENMP -mp
 endif
-ifeq ($(F_COMPILER), IBM)
-FCOMMON_OPT += -DUSE_OPENMP 
-else
 ifneq ($(F_COMPILER), PGI)
 FCOMMON_OPT += -DUSE_OPENMP -fopenmp
 else
 FCOMMON_OPT += -DUSE_OPENMP -mp
 endif
 endif
-endif
 
-ifeq ($(C_COMPILER), CLANG)
-CCOMMON_OPT += -fno-integrated-as
-endif
 # workaround for C->FORTRAN ABI violation in LAPACKE
 ifeq ($(F_COMPILER), GFORTRAN)
 FCOMMON_OPT += -fno-optimize-sibling-calls
@@ -147,19 +125,8 @@ endif
 ifdef BINARY64
 
 
-ifeq ($(C_COMPILER)$(F_COMPILER)$(OSNAME), GCCIBMAIX)
-$(error Using GCC and XLF on AIX is not a supported combination.)
-endif
-ifeq ($(C_COMPILER)$(F_COMPILER)$(OSNAME), CLANGGFORTRANAIX)
-$(error Using Clang and gFortran on AIX is not a supported combination.)
-endif
-
 ifeq ($(OSNAME), AIX)
-ifeq ($(C_COMPILER), GCC)
 CCOMMON_OPT	+= -mpowerpc64 -maix64
-else
-CCOMMON_OPT	+= -m64
-endif
 ifeq ($(COMPILER_F77), g77)
 FCOMMON_OPT	+= -mpowerpc64 -maix64
 endif

Makefile.prebuild

@@ -55,26 +55,6 @@ ifeq ($(TARGET), C910V)
 TARGET_FLAGS = -march=rv64gcv0p7_zfh_xtheadc -mabi=lp64d
 endif
 
-ifeq ($(TARGET), CK860FV)
-TARGET_FLAGS = -march=ck860v -mcpu=ck860fv -mfdivdu -mhard-float
-endif
-
-ifeq ($(TARGET), x280)
-TARGET_FLAGS = -march=rv64imafdcv_zba_zbb_zfh -mabi=lp64d
-endif
-
-ifeq ($(TARGET), RISCV64_ZVL256B)
-TARGET_FLAGS = -march=rv64imafdcv -mabi=lp64d
-endif
-
-ifeq ($(TARGET), RISCV64_ZVL128B)
-TARGET_FLAGS = -march=rv64imafdcv -mabi=lp64d
-endif
-
-ifeq ($(TARGET), RISCV64_GENERIC)
-TARGET_FLAGS = -march=rv64imafdc -mabi=lp64d
-endif
-
 all: getarch_2nd
 	./getarch_2nd  0 >> $(TARGET_MAKE)
 	./getarch_2nd  1 >> $(TARGET_CONF)

Makefile.riscv64

@@ -1,20 +1,4 @@
 ifeq ($(CORE), C910V)
-CCOMMON_OPT += -march=rv64imafdcv0p7_zfh_xtheadc -mabi=lp64d -mtune=c920
+CCOMMON_OPT += -march=rv64imafdcv0p7_zfh_xtheadc -mabi=lp64d -mtune=c920 -O1
 FCOMMON_OPT += -march=rv64imafdcv0p7_zfh_xtheadc -mabi=lp64d -mtune=c920 -static
 endif
-ifeq ($(CORE), x280)
-CCOMMON_OPT += -march=rv64imafdcv_zba_zbb_zfh_zvl512b -mabi=lp64d -ffast-math
-FCOMMON_OPT += -march=rv64imafdcv_zba_zbb_zfh -mabi=lp64d -static
-endif
-ifeq ($(CORE), RISCV64_ZVL256B)
-CCOMMON_OPT += -march=rv64imafdcv_zvl256b -mabi=lp64d
-FCOMMON_OPT += -march=rv64imafdcv -mabi=lp64d
-endif
-ifeq ($(CORE), RISCV64_ZVL128B)
-CCOMMON_OPT += -march=rv64imafdcv -mabi=lp64d 
-FCOMMON_OPT += -march=rv64imafdcv -mabi=lp64d
-endif
-ifeq ($(CORE), RISCV64_GENERIC)
-CCOMMON_OPT += -march=rv64imafdc -mabi=lp64d
-FCOMMON_OPT += -march=rv64imafdc -mabi=lp64d
-endif

Makefile.rule

@@ -3,12 +3,7 @@
 #
 
 # This library's version
-VERSION = 0.3.28.dev
-
-# If you set this prefix, the library name will be lib$(LIBNAMESUFFIX)openblas.a
-# and lib$(LIBNAMESUFFIX)openblas.so, with a matching soname in the shared library
-# 
-# LIBNAMEPREFIX = scipy
+VERSION = 0.3.23.dev
 
 # If you set the suffix, the library name will be libopenblas_$(LIBNAMESUFFIX).a
 # and libopenblas_$(LIBNAMESUFFIX).so. Meanwhile, the soname in shared library
@@ -134,12 +129,6 @@ VERSION = 0.3.28.dev
 # Build LAPACK Deprecated functions since LAPACK 3.6.0
 BUILD_LAPACK_DEPRECATED = 1
 
-# The variable type assumed for the length of character arguments when passing
-# data between Fortran LAPACK and C BLAS (defaults to "size_t", but older GCC
-# versions used "int"). Mismatches will not cause runtime failures but may result
-# in build warnings or errors when building with link-time optimization (LTO)
-# LAPACK_STRLEN=int
-
 # Build RecursiveLAPACK on top of LAPACK
 # BUILD_RELAPACK = 1
 # Have RecursiveLAPACK actually replace standard LAPACK routines instead of 
@@ -179,10 +168,6 @@ NO_AFFINITY = 1
 # If you are compiling for Linux and you have more than 16 numa nodes or more than 256 cpus
 # BIGNUMA = 1
 
-# If you are compiling for an embedded system ("bare metal") like Cortex M series
-# Note that you will have to provide implementations of malloc() and free() in this case
-# EMBEDDED = 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
@@ -225,16 +210,6 @@ NO_AFFINITY = 1
 # to the user space. If bigphysarea is enabled, it will use it.
 # DEVICEDRIVER_ALLOCATION = 1
 
-# Use large page allocation (called hugepage support in Linux context)
-# for the thread buffers (with access by shared memory operations)
-# HUGETLB_ALLOCATION = 1
-
-# Use large page allocation called hugepages in Linux) based on mmap accessing
-# a memory-backed pseudofile (requires hugetlbfs to be mounted in the system,
-# the example below has it mounted on /hugepages. OpenBLAS will create the backing
-# file as gotoblas.processid in that path)
-# HUGETLBFILE_ALLOCATION = /hugepages
-
 # If you need to synchronize FP CSR between threads (for x86/x86_64 and aarch64 only).
 # CONSISTENT_FPCSR = 1
 

Makefile.system

@@ -268,39 +268,19 @@ SMALL_MATRIX_OPT = 1
 else ifeq ($(ARCH), power)
 SMALL_MATRIX_OPT = 1
 BUILD_BFLOAT16 = 1
-else ifeq ($(ARCH), arm64)
-SMALL_MATRIX_OPT = 1
 endif
-ifeq ($(ARCH), loongarch64)
-SMALL_MATRIX_OPT = 1
-endif
-ifeq ($(ARCH), arm64)
-GEMM_GEMV_FORWARD = 1
-endif
-ifeq ($(ARCH), riscv)
-GEMM_GEMV_FORWARD = 1
-endif
-ifeq ($(ARCH), power)
-GEMM_GEMV_FORWARD = 1
-GEMM_GEMV_FORWARD_BF16 = 1
-endif
-
 ifeq ($(SMALL_MATRIX_OPT), 1)
 CCOMMON_OPT += -DSMALL_MATRIX_OPT
 endif
-ifneq ($(ONLY_CBLAS), 1)
-ifeq ($(GEMM_GEMV_FORWARD), 1)
-CCOMMON_OPT += -DGEMM_GEMV_FORWARD
-endif
-ifeq ($(GEMM_GEMV_FORWARD_BF16), 1)
-CCOMMON_OPT += -DGEMM_GEMV_FORWARD_BF16
-endif
-endif
 
 # This operation is expensive, so execution should be once.
 ifndef GOTOBLAS_MAKEFILE
 export GOTOBLAS_MAKEFILE = 1
 
+# Determine if the assembler is GNU Assembler
+HAVE_GAS := $(shell $(AS) -v < /dev/null 2>&1 | grep GNU 2>&1 >/dev/null ; echo $$?)
+GETARCH_FLAGS += -DHAVE_GAS=$(HAVE_GAS)
+
 # Generating Makefile.conf and config.h
 DUMMY := $(shell $(MAKE) -C $(TOPDIR) -f Makefile.prebuild CC="$(CC)" FC="$(FC)" HOSTCC="$(HOSTCC)" HOST_CFLAGS="$(GETARCH_FLAGS)" CFLAGS="$(CFLAGS)" BINARY=$(BINARY) USE_OPENMP=$(USE_OPENMP) DYNAMIC_ARCH=$(DYNAMIC_ARCH) TARGET_CORE=$(TARGET_CORE) ONLY_CBLAS=$(ONLY_CBLAS) TARGET=$(TARGET) all)
 
@@ -389,9 +369,8 @@ GCCVERSIONGT5 := $(shell expr `$(CC) -dumpversion | cut -f1 -d.` \> 5)
 GCCVERSIONGTEQ7 := $(shell expr `$(CC) -dumpversion | cut -f1 -d.` \>= 7)
 GCCVERSIONGTEQ8 := $(shell expr `$(CC) -dumpversion | cut -f1 -d.` \>= 8)
 GCCVERSIONGTEQ9 := $(shell expr `$(CC) -dumpversion | cut -f1 -d.` \>= 9)
-GCCVERSIONGTEQ10 := $(shell expr `$(CC) -dumpversion | cut -f1 -d.` \>= 10)
 GCCVERSIONGTEQ11 := $(shell expr `$(CC) -dumpversion | cut -f1 -d.` \>= 11)
-GCCVERSIONGTEQ12 := $(shell expr `$(CC) -dumpversion | cut -f1 -d.` \>= 12)
+GCCVERSIONGTEQ10 := $(shell expr `$(CC) -dumpversion | cut -f1 -d.` \>= 10)
 # Note that the behavior of -dumpversion is compile-time-configurable for
 # gcc-7.x and newer. Use -dumpfullversion there
 ifeq ($(GCCVERSIONGTEQ7),1)
@@ -405,11 +384,6 @@ GCCMINORVERSIONGTEQ4 := $(shell expr `$(CC) $(GCCDUMPVERSION_PARAM) | cut -f2 -d
 GCCMINORVERSIONGTEQ7 := $(shell expr `$(CC) $(GCCDUMPVERSION_PARAM) | cut -f2 -d.` \>= 7)
 endif
 
-ifeq ($(C_COMPILER), CLANG)
-CLANGVERSIONGTEQ9 := $(shell expr `$(CC) -dumpversion | cut -f1 -d.` \>= 9)
-CLANGVERSIONGTEQ12 := $(shell expr `$(CC) -dumpversion | cut -f1 -d.` \>= 12)
-endif
-
 #
 #  OS dependent settings
 #
@@ -418,22 +392,11 @@ ifeq ($(OSNAME), Darwin)
 ifndef MACOSX_DEPLOYMENT_TARGET
 ifeq ($(ARCH), arm64)
 export MACOSX_DEPLOYMENT_TARGET=11.0
-ifeq ($(C_COMPILER), GCC)
-export NO_SVE = 1
-endif
 else
 export MACOSX_DEPLOYMENT_TARGET=10.8
 endif
 endif
 MD5SUM = md5 -r
-XCVER = $(shell pkgutil --pkg-info=com.apple.pkg.Xcode |awk '/version:/ {print $2}'|cut -d: -f2|cut -f1 -d.)
-ifeq (x$(XCVER)x,xx)
-XCVER = $(shell pkgutil --pkg-info=com.apple.pkg.CLTools_Executables |awk '/version:/ {print $2}'|cut -d: -f2|cut -f1 -d.)
-endif
-ifeq (x$(XCVER), x 15)
-CCOMMON_OPT += -Wl,-ld_classic
-FCOMMON_OPT += -Wl,-ld_classic
-endif
 endif
 
 ifneq (,$(findstring $(OSNAME), FreeBSD OpenBSD DragonFly))
@@ -634,9 +597,6 @@ endif
 
 ifeq ($(C_COMPILER), CLANG)
 CCOMMON_OPT    += -fopenmp
-ifeq ($(F_COMPILER), GFORTRAN)
-FEXTRALIB := $(subst -lgomp,-lomp,$(FEXTRALIB))
-endif
 endif
 
 ifeq ($(C_COMPILER), INTEL)
@@ -702,13 +662,15 @@ ifeq ($(ARCH), arm64)
 DYNAMIC_CORE =  ARMV8
 DYNAMIC_CORE += CORTEXA53
 DYNAMIC_CORE += CORTEXA57
+DYNAMIC_CORE += CORTEXA72
+DYNAMIC_CORE += CORTEXA73
 DYNAMIC_CORE += NEOVERSEN1
 ifneq ($(NO_SVE), 1)
 DYNAMIC_CORE += NEOVERSEV1
 DYNAMIC_CORE += NEOVERSEN2
-DYNAMIC_CORE += ARMV8SVE
-DYNAMIC_CORE += A64FX
 endif
+DYNAMIC_CORE += CORTEXA55
+DYNAMIC_CORE += FALKOR
 DYNAMIC_CORE += THUNDERX
 DYNAMIC_CORE += THUNDERX2T99
 DYNAMIC_CORE += TSV110
@@ -731,18 +693,7 @@ endif
 endif
 
 ifeq ($(ARCH), loongarch64)
-DYNAMIC_CORE = LA64_GENERIC LA264 LA464
-endif
-
-ifeq ($(ARCH), riscv64)
-DYNAMIC_CORE = RISCV64_GENERIC
-DYNAMIC_CORE += RISCV64_ZVL128B
-DYNAMIC_CORE += RISCV64_ZVL256B
-ifdef DYNAMIC_LIST
-override DYNAMIC_CORE = RISCV64_GENERIC $(DYNAMIC_LIST)
-XCCOMMON_OPT = -DDYNAMIC_LIST -DDYN_RISCV64_GENERIC
-XCCOMMON_OPT += $(foreach dcore,$(DYNAMIC_LIST),-DDYN_$(dcore))
-endif
+DYNAMIC_CORE = LOONGSON3R5 LOONGSON2K1000 LOONGSONGENERIC
 endif
 
 ifeq ($(ARCH), zarch)
@@ -793,11 +744,7 @@ DYNAMIC_CORE += POWER9
 else
 $(info, OpenBLAS: Your gcc version is too old to build the POWER9 kernels.)
 endif
-ifeq ($(OSNAME), AIX)
-LDVERSIONGTEQ35 := 1
-else
 LDVERSIONGTEQ35 := $(shell expr `$(CC) -Wl,--version 2> /dev/null | head -1 | cut -f2 -d "." | cut -f1 -d "-"` \>= 35)
-endif
 ifeq ($(GCCVERSIONGTEQ11)$(LDVERSIONGTEQ35), 11)
 DYNAMIC_CORE += POWER10
 CCOMMON_OPT += -DHAVE_P10_SUPPORT
@@ -847,12 +794,8 @@ ifeq ($(ARCH), arm)
 NO_BINARY_MODE  = 1
 BINARY_DEFINED  = 1
 
-ifneq ($(EMBEDDED), 1)
 CCOMMON_OPT += -marm
 FCOMMON_OPT += -marm
-else
-CCOMMON_OPT += -DOS_EMBEDDED -mthumb -mcpu=cortex-m4 -mfloat-abi=hard -mfpu=fpv4-sp-d16
-endif
 
 # If softfp abi is mentioned on the command line, force it.
 ifeq ($(ARM_SOFTFP_ABI), 1)
@@ -914,11 +857,6 @@ endif
 endif
 endif
 
-ifeq ($(ARCH), csky)
-NO_BINARY_MODE	= 1
-BINARY_DEFINED	= 1
-endif
-
 #
 #  C Compiler dependent settings
 #
@@ -995,18 +933,12 @@ endif
 
 ifeq ($(ARCH), loongarch64)
 LA64_ABI=$(shell $(CC) -mabi=lp64d -c $(TOPDIR)/cpuid_loongarch64.c -o /dev/null > /dev/null 2> /dev/null && echo lp64d)
-LA64_ARCH=$(shell $(CC) -march=loongarch64 -c $(TOPDIR)/cpuid_loongarch64.c -o /dev/null > /dev/null 2> /dev/null && echo loongarch64)
 ifneq ($(LA64_ABI), lp64d)
 LA64_ABI=lp64
 endif
-ifneq ($(LA64_ARCH), loongarch64)
-CCOMMON_OPT += -mabi=$(LA64_ABI)
-FCOMMON_OPT += -mabi=$(LA64_ABI)
-else
 CCOMMON_OPT += -march=loongarch64 -mabi=$(LA64_ABI)
 FCOMMON_OPT += -march=loongarch64 -mabi=$(LA64_ABI)
 endif
-endif
 
 endif
 
@@ -1154,9 +1086,8 @@ endif
 endif
 endif
 
-ifeq ($(F_COMPILER), $(filter $(F_COMPILER),GFORTRAN FLANGNEW))
-CCOMMON_OPT += -DF_INTERFACE_GFORT
 ifeq ($(F_COMPILER), GFORTRAN)
+CCOMMON_OPT += -DF_INTERFACE_GFORT
 FCOMMON_OPT += -Wall
 # make single-threaded LAPACK calls thread-safe #1847
 FCOMMON_OPT += -frecursive
@@ -1170,7 +1101,6 @@ EXTRALIB += -lgfortran
 endif
 endif
 endif
-endif
 ifdef NO_BINARY_MODE
 ifeq ($(ARCH), $(filter $(ARCH),mips64))
 ifdef BINARY64
@@ -1226,10 +1156,6 @@ endif
 
 ifeq ($(F_COMPILER), IBM)
 CCOMMON_OPT += -DF_INTERFACE_IBM
-FEXTRALIB += -lxlf90
-ifeq ($(C_COMPILER), $(filter $(C_COMPILER),GCC CLANG))
-FCOMMON_OPT += -qextname -qzerosize
-endif
 # FCOMMON_OPT	+= -qarch=440
 ifdef BINARY64
 FCOMMON_OPT += -q64
@@ -1241,6 +1167,9 @@ endif
 else
 FCOMMON_OPT += -q32
 endif
+ifeq ($(USE_OPENMP), 1)
+FCOMMON_OPT += -openmp
+endif
 endif
 
 ifeq ($(F_COMPILER), PGI)
@@ -1423,8 +1352,6 @@ ifeq ($(F_COMPILER), SUN)
 FCOMMON_OPT  += -pic
 else ifeq ($(F_COMPILER), NAG)
 FCOMMON_OPT += -PIC
-else ifeq ($(F_COMPILER), IBM)
-FCOMMON_OPT += -qpic=large
 else
 FCOMMON_OPT += -fPIC
 endif
@@ -1560,28 +1487,16 @@ ifndef LIBSONAMEBASE
 LIBSONAMEBASE = openblas
 endif
 
-ifndef LIBNAMEPREFIX
-LIBNAMEPREFIX =
-endif
-
-SYMPREFIX=$(SYMBOLPREFIX)
-ifeq ($(SYMBOLPREFIX),$(LIBNAMEPREFIX))
-SYMPREFIX=
-endif
-SYMSUFFIX=$(SYMBOLSUFFIX)
-ifeq ($(SYMBOLSUFFIX),$(LIBNAMESUFFIX))
-SYMSUFFIX=
-endif
 ifndef LIBNAMESUFFIX
-LIBNAMEBASE = $(SYMPREFIX)$(LIBSONAMEBASE)$(SYMSUFFIX)
+LIBNAMEBASE = $(SYMBOLPREFIX)$(LIBSONAMEBASE)$(SYMBOLSUFFIX)
 else
-LIBNAMEBASE = $(SYMPREFIX)$(LIBSONAMEBASE)$(SYMSUFFIX)$(LIBNAMESUFFIX)
+LIBNAMEBASE = $(SYMBOLPREFIX)$(LIBSONAMEBASE)$(SYMBOLSUFFIX)_$(LIBNAMESUFFIX)
 endif
 
 ifeq ($(OSNAME), CYGWIN_NT)
-LIBPREFIX = cyg$(LIBNAMEPREFIX)$(LIBNAMEBASE)
+LIBPREFIX = cyg$(LIBNAMEBASE)
 else
-LIBPREFIX = lib$(LIBNAMEPREFIX)$(LIBNAMEBASE)
+LIBPREFIX = lib$(LIBNAMEBASE)
 endif
 
 KERNELDIR	= $(TOPDIR)/kernel/$(ARCH)
@@ -1625,23 +1540,13 @@ ifdef FUNCTION_PROFILE
 CCOMMON_OPT	+= -DFUNCTION_PROFILE
 endif
 
-ifdef SHMEM_ALLOCATION
-ifneq ($(SHMEM_ALLOCATION), 0)
-CCOMMON_OPT	+= -DALLOC_SHM
-endif
-endif
-
 ifdef HUGETLB_ALLOCATION
-ifneq ($(HUGETLB_ALLOCATION), 0)
 CCOMMON_OPT	+= -DALLOC_HUGETLB
 endif
-endif
 
 ifdef HUGETLBFILE_ALLOCATION
-ifneq ($(HUGETLBFILE_ALLOCATION), 0)
 CCOMMON_OPT	+= -DALLOC_HUGETLBFILE -DHUGETLB_FILE_NAME=$(HUGETLBFILE_ALLOCATION)
 endif
-endif
 
 ifdef STATIC_ALLOCATION
 CCOMMON_OPT	+= -DALLOC_STATIC
@@ -1699,11 +1604,9 @@ override FPFLAGS    += $(FCOMMON_OPT) $(COMMON_PROF)
 
 ifeq ($(NEED_PIC), 1)
 ifeq (,$(findstring PIC,$(FFLAGS)))
-ifneq ($(F_COMPILER),IBM)
 override FFLAGS += -fPIC
 endif
 endif
-endif
 
 #For LAPACK Fortran codes.
 #Disable -fopenmp for LAPACK Fortran codes on Windows.
@@ -1711,21 +1614,22 @@ ifdef OS_WINDOWS
 LAPACK_FFLAGS := $(filter-out -fopenmp -mp -openmp -xopenmp=parallel,$(FFLAGS))
 LAPACK_FPFLAGS := $(filter-out -fopenmp -mp -openmp -xopenmp=parallel,$(FPFLAGS))
 else
+ifeq ($(CORE),C910V)
+LAPACK_FFLAGS := $(filter-out -O2,$(FFLAGS))
+LAPACK_FFLAGS += -O1
+else
 LAPACK_FFLAGS := $(FFLAGS)
+endif
 LAPACK_FPFLAGS := $(FPFLAGS)
 endif
 
 ifeq ($(F_COMPILER),NAG)
 LAPACK_FFLAGS := $(filter-out -msse3 -mssse3 -msse4.1 -mavx -mavx2 -mskylake-avx512 ,$(FFLAGS))
-override FFLAGS := $(filter-out -msse3 -mssse3 -msse4.1 -mavx -mavx2 -mskylake-avx512 ,$(FFLAGS))
+FFLAGS := $(filter-out -msse3 -mssse3 -msse4.1 -mavx -mavx2 -mskylake-avx512 ,$(FFLAGS))
 endif
 ifeq ($(F_COMPILER),CRAY)
 LAPACK_FFLAGS := $(filter-out -msse3 -mssse3 -msse4.1 -mavx -mavx2 -mskylake-avx512 ,$(FFLAGS))
-override FFLAGS := $(filter-out -msse3 -mssse3 -msse4.1 -mavx -mavx2 -mskylake-avx512 ,$(FFLAGS))
-endif
-ifeq ($(F_COMPILER),FLANGNEW)
-LAPACK_FFLAGS := $(filter-out -m32 -m64 -msse3 -mssse3 -msse4.1 -mavx -mavx2 -mskylake-avx512 -mtune=% -mabi=% ,$(FFLAGS))
-override FFLAGS := $(filter-out -m32 -m64 -msse3 -mssse3 -msse4.1 -mavx -mavx2 -mskylake-avx512 -mtune=% -mabi=% ,$(FFLAGS))
+FFLAGS := $(filter-out -msse3 -mssse3 -msse4.1 -mavx -mavx2 -mskylake-avx512 ,$(FFLAGS))
 endif
 
 LAPACK_CFLAGS = $(CFLAGS)
@@ -1774,14 +1678,14 @@ LIBNAME_P	= $(LIBPREFIX)p$(REVISION)_p.$(LIBSUFFIX)
 endif
 endif
 
-ifeq ($(FIXED_LIBNAME),1)
-	LIBNAME = lib$(LIBNAMEPREFIX)$(LIBSONAMEBASE)$(LIBNAMESUFFIX).$(LIBSUFFIX)
-	LIBNAME_P = lib$(LIBNAMEPREFIX)$(LISOBNAMEBASE)$(LIBNAMESUFFIX)_p.$(LIBSUFFIX)
-endif
 
 LIBDLLNAME   = $(LIBPREFIX).dll
 IMPLIBNAME   = lib$(LIBNAMEBASE).dll.a
+ifneq ($(OSNAME), AIX)
 LIBSONAME    = $(LIBNAME:.$(LIBSUFFIX)=.so)
+else
+LIBSONAME    = $(LIBNAME:.$(LIBSUFFIX)=.a)
+endif
 LIBDYNNAME   = $(LIBNAME:.$(LIBSUFFIX)=.dylib)
 LIBDEFNAME   = $(LIBNAME:.$(LIBSUFFIX)=.def)
 LIBEXPNAME   = $(LIBNAME:.$(LIBSUFFIX)=.exp)
@@ -1868,8 +1772,6 @@ export TARGET_CORE
 export NO_AVX512
 export NO_AVX2
 export BUILD_BFLOAT16
-export NO_LSX
-export NO_LASX
 
 export SBGEMM_UNROLL_M
 export SBGEMM_UNROLL_N

Makefile.x86_64

@@ -8,11 +8,6 @@ endif
 endif
 endif
 
-ifeq ($(C_COMPILER), CLANG)
-ifeq ($(findstring icx,$(CC)),icx)
-CCOMMON_OPT += -fp-model=consistent
-endif
-endif
 
 ifneq ($(DYNAMIC_ARCH),1)
 ADD_CPUFLAGS = 1
@@ -80,31 +75,18 @@ endif
 ifeq ($(CORE), COOPERLAKE)
 ifndef NO_AVX512
 ifeq ($(C_COMPILER), GCC)
- # cooperlake support was added in 10.1
- ifeq ($(GCCVERSIONGTEQ10)$(GCCMINORVERSIONGTEQ1), 11)
-  CCOMMON_OPT += -march=cooperlake
-  ifneq ($(F_COMPILER), NAG)
-   FCOMMON_OPT += -march=cooperlake
-  endif
- else  # gcc not support, fallback to avx512
-  CCOMMON_OPT += -march=skylake-avx512
-  ifneq ($(F_COMPILER), NAG)
-   FCOMMON_OPT += -march=skylake-avx512
-  endif
- endif
-else ifeq ($(C_COMPILER), CLANG)
- # cooperlake support was added in clang 9
- ifeq ($(CLANGVERSIONGTEQ9), 1)
-  CCOMMON_OPT += -march=cooperlake
-  ifneq ($(F_COMPILER), NAG)
-   FCOMMON_OPT += -march=cooperlake
-  endif
- else  # not supported in clang, fallback to avx512
-  CCOMMON_OPT += -march=skylake-avx512
-  ifneq ($(F_COMPILER), NAG)
-   FCOMMON_OPT += -march=skylake-avx512
-  endif
- endif
+# cooperlake support was added in 10.1
+ifeq ($(GCCVERSIONGTEQ10)$(GCCMINORVERSIONGTEQ1), 11)
+CCOMMON_OPT += -march=cooperlake
+ifneq ($(F_COMPILER), NAG)
+FCOMMON_OPT += -march=cooperlake
+endif
+else  # gcc not support, fallback to avx512
+CCOMMON_OPT += -march=skylake-avx512
+ifneq ($(F_COMPILER), NAG)
+FCOMMON_OPT += -march=skylake-avx512
+endif
+endif
 endif
 ifeq ($(OSNAME), CYGWIN_NT)
 CCOMMON_OPT += -fno-asynchronous-unwind-tables
@@ -122,31 +104,18 @@ endif
 ifeq ($(CORE), SAPPHIRERAPIDS)
 ifndef NO_AVX512
 ifeq ($(C_COMPILER), GCC)
- # sapphire rapids support was added in 11
- ifeq ($(GCCVERSIONGTEQ11), 1)
-  CCOMMON_OPT += -march=sapphirerapids
-  ifneq ($(F_COMPILER), NAG)
-   FCOMMON_OPT += -march=sapphirerapids
-  endif
- else  # gcc not support, fallback to avx512
-  CCOMMON_OPT += -march=skylake-avx512
-  ifneq ($(F_COMPILER), NAG)
-   FCOMMON_OPT += -march=skylake-avx512
-  endif
- endif
-else ifeq ($(C_COMPILER), CLANG)
- # sapphire rapids support was added in clang 12
- ifeq ($(CLANGVERSIONGTEQ12), 1)
-  CCOMMON_OPT += -march=sapphirerapids
-  ifneq ($(F_COMPILER), NAG)
-   FCOMMON_OPT += -march=sapphirerapids
-  endif
- else  # not supported in clang, fallback to avx512
-  CCOMMON_OPT += -march=skylake-avx512
-  ifneq ($(F_COMPILER), NAG)
-   FCOMMON_OPT += -march=skylake-avx512
-  endif
- endif
+# sapphire rapids support was added in 11
+ifeq ($(GCCVERSIONGTEQ11), 1)
+CCOMMON_OPT += -march=sapphirerapids
+ifneq ($(F_COMPILER), NAG)
+FCOMMON_OPT += -march=sapphirerapids
+endif
+else  # gcc not support, fallback to avx512
+CCOMMON_OPT += -march=skylake-avx512
+ifneq ($(F_COMPILER), NAG)
+FCOMMON_OPT += -march=skylake-avx512
+endif
+endif
 endif
 ifeq ($(OSNAME), CYGWIN_NT)
 CCOMMON_OPT += -fno-asynchronous-unwind-tables

README.md

@@ -2,20 +2,21 @@
 
 [![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.com/xianyi/OpenBLAS.svg?branch=develop)](https://travis-ci.com/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)
+
 Cirrus CI: [![Build Status](https://api.cirrus-ci.com/github/xianyi/OpenBLAS.svg?branch=develop)](https://cirrus-ci.com/github/xianyi/OpenBLAS)
-
-
+<!-- Drone CI: [![Build Status](https://cloud.drone.io/api/badges/xianyi/OpenBLAS/status.svg?branch=develop)](https://cloud.drone.io/xianyi/OpenBLAS/)-->
 
 [![Build Status](https://dev.azure.com/xianyi/OpenBLAS/_apis/build/status/xianyi.OpenBLAS?branchName=develop)](https://dev.azure.com/xianyi/OpenBLAS/_build/latest?definitionId=1&branchName=develop)
 
-OSUOSL POWERCI [![Build Status](https://powerci.osuosl.org/buildStatus/icon?job=OpenBLAS_gh%2Fdevelop)](http://powerci.osuosl.org/job/OpenBLAS_gh/job/develop/)
 
-OSUOSL IBMZ-CI [![Build Status](http://ibmz-ci.osuosl.org/buildStatus/icon?job=OpenBLAS-Z%2Fdevelop)](http://ibmz-ci.osuosl.org/job/OpenBLAS-Z/job/develop/)
 ## Introduction
 
 OpenBLAS is an optimized BLAS (Basic Linear Algebra Subprograms) library based on GotoBLAS2 1.13 BSD version.
 
-Please read the documentation in the OpenBLAS folder: <https://github.com/OpenMathLib/OpenBLAS/docs>.
+Please read the documentation on the OpenBLAS wiki pages: <https://github.com/xianyi/OpenBLAS/wiki>.
 
 For a general introduction to the BLAS routines, please refer to the extensive documentation of their reference implementation hosted at netlib:
 <https://www.netlib.org/blas>. On that site you will likewise find documentation for the reference implementation of the higher-level library LAPACK - the **L**inear **A**lgebra **Pack**age that comes included with OpenBLAS. If you are looking for a general primer or refresher on Linear Algebra, the set of six
@@ -27,12 +28,12 @@ We provide official 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/) or from the Releases section of the github project page, [https://github.com/OpenMathLib/OpenBLAS/releases](https://github.com/OpenMathLib/OpenBLAS/releases).
+You can download them from [file hosting on sourceforge.net](https://sourceforge.net/projects/openblas/files/) or from the Releases section of the github project page, [https://github.com/xianyi/OpenBLAS/releases](https://github.com/xianyi/OpenBLAS/releases).
 
 ## Installation from Source
 
-Download from project homepage, https://github.com/OpenMathLib/OpenBLAS/, or check out the code
-using Git from https://github.com/OpenMathLib/OpenBLAS.git. (If you want the most up to date version, be
+Download from project homepage, https://xianyi.github.com/OpenBLAS/, or check out the code
+using Git from https://github.com/xianyi/OpenBLAS.git. (If you want the most up to date version, be
 sure to use the develop branch - master is several years out of date due to a change of maintainership.)
 Buildtime parameters can be chosen in Makefile.rule, see there for a short description of each option.
 Most can also be given directly on the make or cmake command line.
@@ -41,45 +42,40 @@ Most can also be given directly on the make or cmake command line.
 
 Building OpenBLAS requires the following to be installed:
 
-* GNU Make or CMake
+* GNU Make
 * A C compiler, e.g. GCC or Clang
 * A Fortran compiler (optional, for LAPACK)
-
+* IBM MASS (optional, see below)
 
 ### Normal compile
 
 Simply invoking `make` (or `gmake` on BSD) will detect the CPU automatically.
 To set a specific target CPU, use `make TARGET=xxx`, e.g. `make TARGET=NEHALEM`.
-The full target list is in the file `TargetList.txt`, other build optionss are documented in Makefile.rule and
-can either be set there (typically by removing the comment character from the respective line), or used on the
-`make` command line. 
-Note that when you run `make install` after building, you need to repeat all command line options you provided to `make`
-in the build step, as some settings like the supported maximum number of threads are automatically derived from the
-build host by default, which might not be what you want.
-For building with `cmake`, the usual conventions apply, i.e. create a build directory either underneath the toplevel
-OpenBLAS source directory or separate from it, and invoke `cmake` there with the path to the source tree and any 
-build options you plan to set.
+The full target list is in the file `TargetList.txt`. For building with `cmake`, the
+usual conventions apply, i.e. create a build directory either underneath the toplevel
+OpenBLAS source directory or separate from it, and invoke `cmake` there with the path
+to the source tree and any build options you plan to set.
 
 ### Cross compile
 
-Set `CC` and `FC` to point to the cross toolchains, and if you use `make`, also set `HOSTCC` to your host C compiler.
+Set `CC` and `FC` to point to the cross toolchains, and set `HOSTCC` to your host C compiler.
 The target must be specified explicitly when cross compiling.
 
 Examples:
 
-* On a Linux system, cross-compiling to an older MIPS64 router board:
+* On an x86 box, compile this library for a loongson3a CPU:
   ```sh
-  make BINARY=64 CC=mipsisa64r6el-linux-gnuabi64-gcc FC=mipsisa64r6el-linux-gnuabi64-gfortran HOSTCC=gcc TARGET=P6600
+  make BINARY=64 CC=mips64el-unknown-linux-gnu-gcc FC=mips64el-unknown-linux-gnu-gfortran HOSTCC=gcc TARGET=LOONGSON3A
   ```
-*  or to a Windows x64 host: 
+  or same with the newer mips-crosscompiler put out by Loongson that defaults to the 32bit ABI:
   ```sh
-  make CC="i686-w64-mingw32-gcc -Bstatic" FC="i686-w64-mingw32-gfortran -static-libgfortran" TARGET=HASWELL BINARY=32 CROSS=1 NUM_THREADS=20 CONSISTENT_FPCSR=1 HOSTCC=gcc
+  make HOSTCC=gcc CC='/opt/mips-loongson-gcc7.3-linux-gnu/2019.06-29/bin/mips-linux-gnu-gcc -mabi=64' FC='/opt/mips-loongson-gcc7.3-linux-gnu/2019.06-29/bin/mips-linux-gnu-gfortran -mabi=64' TARGET=LOONGSON3A
   ```
 
-You can find instructions for other cases both in the "Supported Systems" section below and in the docs folder. The .yml scripts included with the sources (which contain the
-build scripts for the "continuous integration" (CI) build tests automatically run on every proposed change to the sources) may also provide additional hints.
-
-When compiling for a more modern CPU TARGET of the same architecture, e.g. TARGET=SKYLAKEX on a HASWELL host, option "CROSS=1" can be used to suppress the automatic invocation of the tests at the end of the build.
+* On an x86 box, compile this library for a loongson3a CPU with loongcc (based on Open64) compiler:
+  ```sh
+  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
 
@@ -118,7 +114,7 @@ Use `PREFIX=` when invoking `make`, for example
 ```sh
 make install PREFIX=your_installation_directory
 ```
-(along with all options you added on the `make` command line in the preceding build step)
+
 The default installation directory is `/opt/OpenBLAS`.
 
 ## Supported CPUs and Operating Systems
@@ -138,7 +134,7 @@ Please read `GotoBLAS_01Readme.txt` for older CPU models already supported by th
 - **AMD Bulldozer**: x86-64 ?GEMM FMA4 kernels. (Thanks to Werner Saar)
 - **AMD PILEDRIVER**: Uses Bulldozer codes with some optimizations.
 - **AMD STEAMROLLER**: Uses Bulldozer codes with some optimizations.
-- **AMD ZEN**: Uses Haswell codes with some optimizations for Zen 2/3 (use SkylakeX for Zen4)
+- **AMD ZEN**: Uses Haswell codes with some optimizations.
 
 #### MIPS32
 
@@ -163,7 +159,6 @@ Please read `GotoBLAS_01Readme.txt` for older CPU models already supported by th
 - **Cortex A57**: Optimized Level-3 and Level-2 functions
 - **Cortex A72**: same as A57 ( different cpu specifications)
 - **Cortex A73**: same as A57 (different cpu specifications)
-- **Cortex A76**: same as A57 (different cpu specifications)
 - **Falkor**: same as A57 (different cpu specifications)
 - **ThunderX**: Optimized some Level-1 functions
 - **ThunderX2T99**: Optimized Level-3 BLAS and parts of Levels 1 and 2
@@ -171,21 +166,13 @@ Please read `GotoBLAS_01Readme.txt` for older CPU models already supported by th
 - **TSV110**: Optimized some Level-3 helper functions
 - **EMAG 8180**: preliminary support based on A57
 - **Neoverse N1**: (AWS Graviton2) preliminary support
-- **Neoverse V1**: (AWS Graviton3) optimized Level-3 BLAS
-- **Apple Vortex**: preliminary support based on ThunderX2/3
-- **A64FX**:  preliminary support, optimized Level-3 BLAS
-- **ARMV8SVE**: any ARMV8 cpu with SVE extensions 
+- **Apple Vortex**: preliminary support based on ARMV8
 
 #### PPC/PPC64
 
 - **POWER8**: Optimized BLAS, only for PPC64LE (Little Endian), only with `USE_OPENMP=1`
 - **POWER9**: Optimized Level-3 BLAS (real) and some Level-1,2. PPC64LE with OpenMP only. 
-- **POWER10**: Optimized Level-3 BLAS including SBGEMM and some Level-1,2.
-
-- **AIX**: Dynamic architecture with OpenXL and OpenMP.
-  ```sh
-  make CC=ibm-clang_r FC=xlf_r TARGET=POWER7 BINARY=64 USE_OPENMP=1 INTERFACE64=1 DYNAMIC_ARCH=1 USE_THREAD=1
-  ```
+- **POWER10**:
 
 #### IBM zEnterprise System
 
@@ -198,66 +185,23 @@ Please read `GotoBLAS_01Readme.txt` for older CPU models already supported by th
   ```sh
   make HOSTCC=gcc TARGET=C910V CC=riscv64-unknown-linux-gnu-gcc FC=riscv64-unknown-linux-gnu-gfortran
   ```
-  (also known to work on C906 as long as you use only single-precision functions - its instruction set support appears to be incomplete in double precision)
-
-- **x280**: Level-3 BLAS and Level-1,2 are optimized by RISC-V Vector extension 1.0.
-  ```sh
-  make HOSTCC=gcc TARGET=x280 NUM_THREADS=8 CC=riscv64-unknown-linux-gnu-clang FC=riscv64-unknown-linux-gnu-gfortran
-  ```
-
-- **ZVL???B**: Level-3 BLAS and Level-1,2 including vectorised kernels targeting generic RISCV cores with vector support with registers of at least the corresponding width; ZVL128B and ZVL256B are available.
-e.g.:
-  ```sh
-    make TARGET=RISCV64_ZVL256B CFLAGS="-DTARGET=RISCV64_ZVL256B" \
-    BINARY=64 ARCH=riscv64 CC='clang -target riscv64-unknown-linux-gnu' \
-    AR=riscv64-unknown-linux-gnu-ar AS=riscv64-unknown-linux-gnu-gcc \
-    LD=riscv64-unknown-linux-gnu-gcc FC=riscv64-unknown-linux-gnu-gfortran \
-    HOSTCC=gcc HOSTFC=gfortran -j
-  ```
-
-#### LOONGARCH64
-
-- **LA64_GENERIC**: Optimized Level-3, Level-2 and Level-1 BLAS with scalar instruction
-  ```sh
-  make HOSTCC=gcc TARGET=LA64_GENERIC CC=loongarch64-unknown-linux-gnu-gcc FC=loongarch64-unknown-linux-gnu-gfortran USE_SIMPLE_THREADED_LEVEL3=1
-  ```
-  The old-style TARGET=LOONGSONGENERIC is still supported
-
-- **LA264**: Optimized Level-3, Level-2 and Level-1 BLAS with LSX instruction
-  ```sh
-  make HOSTCC=gcc TARGET=LA264 CC=loongarch64-unknown-linux-gnu-gcc FC=loongarch64-unknown-linux-gnu-gfortran USE_SIMPLE_THREADED_LEVEL3=1
-  ```
-  The old-style TARGET=LOONGSON2K1000 is still supported
-
-- **LA464**: Optimized Level-3, Level-2 and Level-1 BLAS with LASX instruction
-  ```sh
-  make HOSTCC=gcc TARGET=LA464 CC=loongarch64-unknown-linux-gnu-gcc FC=loongarch64-unknown-linux-gnu-gfortran USE_SIMPLE_THREADED_LEVEL3=1
-  ```
-  The old-style TARGET=LOONGSON3R5 is still supported
+  (also known to work on C906)
 
 ### Support for multiple targets in a single library
 
 OpenBLAS can be built for multiple targets with runtime detection of the target cpu by specifiying `DYNAMIC_ARCH=1` in Makefile.rule, on the gmake command line or as `-DDYNAMIC_ARCH=TRUE` in cmake.
 
-For **x86_64**, the list of targets this activates contains Prescott, Core2, Nehalem, Barcelona, Sandybridge, Bulldozer, Piledriver, Steamroller, Excavator, Haswell, Zen, SkylakeX, Cooper Lake, Sapphire Rapids. For cpu generations not included in this list, the corresponding older model is used. If you also specify `DYNAMIC_OLDER=1`, specific support for Penryn, Dunnington, Opteron, Opteron/SSE3, Bobcat, Atom and Nano is added. Finally there is an option `DYNAMIC_LIST` that allows to specify an individual list of targets to include instead of the default.
+For **x86_64**, the list of targets this activates contains Prescott, Core2, Nehalem, Barcelona, Sandybridge, Bulldozer, Piledriver, Steamroller, Excavator, Haswell, Zen, SkylakeX. For cpu generations not included in this list, the corresponding older model is used. If you also specify `DYNAMIC_OLDER=1`, specific support for Penryn, Dunnington, Opteron, Opteron/SSE3, Bobcat, Atom and Nano is added. Finally there is an option `DYNAMIC_LIST` that allows to specify an individual list of targets to include instead of the default.
 
 `DYNAMIC_ARCH` is also supported on **x86**, where it translates to Katmai, Coppermine, Northwood, Prescott, Banias,
 Core2, Penryn, Dunnington, Nehalem, Athlon, Opteron, Opteron_SSE3, Barcelona, Bobcat, Atom and Nano.
 
-On **ARMV8**, it enables support for CortexA53, CortexA57, CortexA72, CortexA73, Falkor, ThunderX, ThunderX2T99, TSV110 as well as generic ARMV8 cpus. If compiler support for SVE is available at build time, support for NeoverseN2, NeoverseV1 as well as generic ArmV8SVE targets is also enabled.
+On **ARMV8**, it enables support for CortexA53, CortexA57, CortexA72, CortexA73, Falkor, ThunderX, ThunderX2T99, TSV110 as well as generic ARMV8 cpus.
 
-For **POWER**, the list encompasses POWER6, POWER8 and POWER9. POWER10 is additionally available if a sufficiently recent compiler is used for the build.
-
-on **ZARCH** it comprises Z13 and Z14 as well as generic zarch support.
-
-On **riscv64**, DYNAMIC_ARCH enables support for riscv64_zvl128b and riscv64_zvl256b in addition to generic riscv64 support.  A compiler that supports RVV 1.0 is required to build OpenBLAS for riscv64 when DYNAMIC_ARCH is enabled.
-
-On **LoongArch64**, it comprises LA264 and LA464 as well as generic LoongArch64 support.
-
-The `TARGET` option can - and usually **should** - be used in conjunction with `DYNAMIC_ARCH=1` to specify which cpu model should be assumed for all the common code in the library, usually you will want to set this to the oldest model you expect to encounter.
-Failure to specify this may lead to advanced instructions being used by the compiler, just because the build host happens to support them. This is most likely to happen when aggressive optimization options are in effect, and the resulting library may then crash with an
-illegal instruction error on weaker hardware, before it even reaches the BLAS routines specifically included for that cpu.
+For **POWER**, the list encompasses POWER6, POWER8 and POWER9, on **ZARCH** it comprises Z13 and Z14.
 
+The `TARGET` option can be used in conjunction with `DYNAMIC_ARCH=1` to specify which cpu model should be assumed for all the
+common code in the library, usually you will want to set this to the oldest model you expect to encounter.
 Please note that it is not possible to combine support for different architectures, so no combined 32 and 64 bit or x86_64 and arm64 in the same library.
 
 ### Supported OS
@@ -270,7 +214,7 @@ Please note that it is not possible to combine support for different architectur
 - **NetBSD**: Supported by the community. We don't actively test the library on this OS.
 - **DragonFly BSD**: Supported by the community. We don't actively test the library on this OS.
 - **Android**: Supported by the community. Please read <https://github.com/xianyi/OpenBLAS/wiki/How-to-build-OpenBLAS-for-Android>.
-- **AIX**: Supported on PPC up to POWER10
+- **AIX**: Supported on PPC up to POWER8
 - **Haiku**: Supported by the community. We don't actively test the library on this OS.
 - **SunOS**: Supported by the community. We don't actively test the library on this OS.
 - **Cortex-M**: Supported by the community. Please read <https://github.com/xianyi/OpenBLAS/wiki/How-to-use-OpenBLAS-on-Cortex-M>.
@@ -311,21 +255,20 @@ If you compile this library with `USE_OPENMP=1`, you should use the above functi
 
 ## Reporting bugs
 
-Please submit an issue in https://github.com/OpenMathLib/OpenBLAS/issues.
+Please submit an issue in https://github.com/xianyi/OpenBLAS/issues.
 
 ## Contact
 
-+ Use github discussions: https://github.com/OpenMathLib/OpenBLAS/discussions
 * OpenBLAS users mailing list: https://groups.google.com/forum/#!forum/openblas-users
 * OpenBLAS developers mailing list: https://groups.google.com/forum/#!forum/openblas-dev
 
 ## Change log
 
-Please see Changelog.txt.
+Please see Changelog.txt to view the differences between OpenBLAS and GotoBLAS2 1.13 BSD version.
 
 ## Troubleshooting
 
-* Please read the [FAQ](https://github.com/OpenMathLib/OpenBLAS/docs/faq,md) in the docs folder first.
+* Please read the [FAQ](https://github.com/xianyi/OpenBLAS/wiki/Faq) 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.
   Clang 3.0 will generate the wrong AVX binary code.
@@ -342,9 +285,9 @@ Please see Changelog.txt.
 
 ## Contributing
 
-1. [Check for open issues](https://github.com/OpenMathLib/OpenBLAS/issues) or open a fresh issue
+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.
-2. Fork the [OpenBLAS](https://github.com/OpenMathLib/OpenBLAS) repository to start making your changes.
+2. Fork the [OpenBLAS](https://github.com/xianyi/OpenBLAS) repository to start making your changes.
 3. Write a test which shows that the bug was fixed or that the feature works as expected.
 4. Send a pull request. Make sure to add yourself to `CONTRIBUTORS.md`.
 

TargetList.txt

@@ -93,7 +93,6 @@ CORTEXA53
 CORTEXA57
 CORTEXA72
 CORTEXA73
-CORTEXA76
 CORTEXA510
 CORTEXA710
 CORTEXX1
@@ -119,24 +118,13 @@ Z13
 Z14
 
 10.RISC-V 64:
-RISCV64_GENERIC (e.g. PolarFire Soc/SiFive U54)
-RISCV64_ZVL128B
+RISCV64_GENERIC
 C910V
-x280
-RISCV64_ZVL256B
 
 11.LOONGARCH64:
-// LOONGSONGENERIC/LOONGSON2K1000/LOONGSON3R5 are legacy names,
-// and it is recommended to use the more standardized naming conventions
-// LA64_GENERIC/LA264/LA464. You can still specify TARGET as
-// LOONGSONGENERIC/LOONGSON2K1000/LOONGSON3R5 during compilation or runtime,
-// and they will be internally relocated to LA64_GENERIC/LA264/LA464.
 LOONGSONGENERIC
-LOONGSON2K1000
 LOONGSON3R5
-LA64_GENERIC
-LA264
-LA464
+LOONGSON2K1000
 
 12. Elbrus E2000:
 E2K
@@ -145,7 +133,3 @@ E2K
 EV4
 EV5
 EV6
-
-14.CSKY
-CSKY
-CK860FV

azure-pipelines.yml

@@ -115,7 +115,7 @@ jobs:
       mkdir build 
       cd build
       call "C:\Program Files\Microsoft Visual Studio\2022\Enterprise\VC\Auxiliary\Build\vcvars64.bat"
-      cmake -G "Ninja" -DCMAKE_C_COMPILER=clang-cl -DCMAKE_CXX_COMPILER=clang-cl -DCMAKE_Fortran_COMPILER="flang -I C:\Miniconda\Library\include\flang" -DBUILD_TESTING=OFF -DCMAKE_MT=mt -DCMAKE_BUILD_TYPE=Release -DMSVC_STATIC_CRT=ON ..
+      cmake -G "Ninja" -DCMAKE_C_COMPILER=clang-cl -DCMAKE_CXX_COMPILER=clang-cl -DCMAKE_Fortran_COMPILER=flang -DBUILD_TESTING=OFF -DCMAKE_MT=mt -DCMAKE_BUILD_TYPE=Release -DMSVC_STATIC_CRT=ON ..
       cmake --build . --config Release
       ctest
 
@@ -133,29 +133,29 @@ jobs:
       mkdir build 
       cd build
       call "C:\Program Files\Microsoft Visual Studio\2022\Enterprise\VC\Auxiliary\Build\vcvars64.bat"
-      cmake -G "Ninja" -DCMAKE_C_COMPILER=cl -DCMAKE_Fortran_COMPILER=flang-new -DC_LAPACK=1 -DCMAKE_MT=mt -DCMAKE_BUILD_TYPE=Release -DMSVC_STATIC_CRT=ON ..
+      cmake -G "Ninja" -DCMAKE_C_COMPILER=cl -DCMAKE_Fortran_COMPILER=flang -DC_LAPACK=1 -DCMAKE_MT=mt -DCMAKE_BUILD_TYPE=Release -DMSVC_STATIC_CRT=ON ..
       cmake --build . --config Release
       ctest
-      ctest --rerun-failed --output-on-failure
+
 
 
 - job: OSX_OpenMP
   pool:
-     vmImage: 'macOS-12'
+     vmImage: 'macOS-11'
   steps:   
   - script: |
       brew update
-      make TARGET=CORE2 DYNAMIC_ARCH=1 USE_OPENMP=1 INTERFACE64=1 CC=gcc-13 FC=gfortran-13
-      make TARGET=CORE2 DYNAMIC_ARCH=1 USE_OPENMP=1 INTERFACE64=1 CC=gcc-13 FC=gfortran-13 PREFIX=../blasinst install
+      make TARGET=CORE2 DYNAMIC_ARCH=1 USE_OPENMP=1 INTERFACE64=1 CC=gcc-10 FC=gfortran-10
+      make TARGET=CORE2 DYNAMIC_ARCH=1 USE_OPENMP=1 INTERFACE64=1 CC=gcc-10 FC=gfortran-10 PREFIX=../blasinst install
       ls -lR ../blasinst
      
 - job: OSX_GCC_Nothreads
   pool:
-     vmImage: 'macOS-12'
+     vmImage: 'macOS-11'
   steps:   
   - script: |
       brew update
-      make USE_THREADS=0 CC=gcc-13 FC=gfortran-13
+      make USE_THREADS=0 CC=gcc-10 FC=gfortran-10
      
 - job: OSX_GCC12
   pool:
@@ -167,10 +167,11 @@ jobs:
      
 - job: OSX_OpenMP_Clang
   pool:
-     vmImage: 'macOS-latest'
+     vmImage: 'macOS-11'
   variables:
      LD_LIBRARY_PATH: /usr/local/opt/llvm/lib
      LIBRARY_PATH: /usr/local/opt/llvm/lib
+     MACOSX_DEPLOYMENT_TARGET: 11.0
   steps:   
   - script: |
       brew update
@@ -179,7 +180,7 @@ jobs:
 
 - job: OSX_OpenMP_Clang_cmake
   pool:
-     vmImage: 'macOS-latest'
+     vmImage: 'macOS-11'
   variables:
      LD_LIBRARY_PATH: /usr/local/opt/llvm/lib
      LIBRARY_PATH: /usr/local/opt/llvm/lib
@@ -195,7 +196,7 @@ jobs:
       
 - job: OSX_dynarch_cmake
   pool:
-     vmImage: 'macOS-12'
+     vmImage: 'macOS-11'
   variables:
      LD_LIBRARY_PATH: /usr/local/opt/llvm/lib
      LIBRARY_PATH: /usr/local/opt/llvm/lib
@@ -203,16 +204,16 @@ jobs:
   - script: |
       mkdir build
       cd build
-      cmake -DTARGET=CORE2 -DDYNAMIC_ARCH=1 -DDYNAMIC_LIST='NEHALEM HASWELL SKYLAKEX' -DCMAKE_C_COMPILER=gcc-13 -DCMAKE_Fortran_COMPILER=gfortran-13 -DBUILD_SHARED_LIBS=ON ..
+      cmake -DTARGET=CORE2 -DDYNAMIC_ARCH=1 -DDYNAMIC_LIST='NEHALEM HASWELL SKYLAKEX' -DCMAKE_C_COMPILER=gcc-10 -DCMAKE_Fortran_COMPILER=gfortran-10 -DBUILD_SHARED_LIBS=ON ..
       cmake --build .
       ctest
 
 - job: OSX_Ifort_Clang
   pool:
-     vmImage: 'macOS-latest'
+     vmImage: 'macOS-11'
   variables:
      LD_LIBRARY_PATH: /usr/local/opt/llvm/lib
-     MACOS_HPCKIT_URL: https://registrationcenter-download.intel.com/akdlm/IRC_NAS/edb4dc2f-266f-47f2-8d56-21bc7764e119/m_HPCKit_p_2023.2.0.49443.dmg
+     MACOS_HPCKIT_URL: https://registrationcenter-download.intel.com/akdlm/irc_nas/17643/m_HPCKit_p_2021.2.0.2903_offline.dmg
      LIBRARY_PATH: /usr/local/opt/llvm/lib
      MACOS_FORTRAN_COMPONENTS: intel.oneapi.mac.ifort-compiler
   steps:   
@@ -242,7 +243,7 @@ jobs:
  
 - job: OSX_NDK_ARMV7
   pool:
-     vmImage: 'macOS-12'
+     vmImage: 'macOS-11'
   steps:   
   - script: | 
       brew update
@@ -252,45 +253,32 @@ jobs:
 
 - job: OSX_IOS_ARMV8
   pool:
-     vmImage: 'macOS-12'
+     vmImage: 'macOS-11'
   variables:
-     CC: /Applications/Xcode_14.2.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/clang
-     CFLAGS: -O2 -Wno-macro-redefined -isysroot /Applications/Xcode_14.2.app/Contents/Developer/Platforms/iPhoneOS.platform/Developer/SDKs/iPhoneOS16.2.sdk -arch arm64 -miphoneos-version-min=10.0
+     CC: /Applications/Xcode_12.4.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/clang
+     CFLAGS: -O2 -Wno-macro-redefined -isysroot /Applications/Xcode_12.4.app/Contents/Developer/Platforms/iPhoneOS.platform/Developer/SDKs/iPhoneOS14.4.sdk -arch arm64 -miphoneos-version-min=10.0
   steps:
   - script: |
      make TARGET=ARMV8 DYNAMIC_ARCH=1 NUM_THREADS=32 HOSTCC=clang NOFORTRAN=1
 
 - job: OSX_IOS_ARMV7
   pool:
-     vmImage: 'macOS-12'
+     vmImage: 'macOS-11'
   variables:
-     CC: /Applications/Xcode_14.2.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/clang
-     CFLAGS: -O2 -mno-thumb -Wno-macro-redefined -isysroot /Applications/Xcode_14.2.app/Contents/Developer/Platforms/iPhoneOS.platform/Developer/SDKs/iPhoneOS16.2.sdk -arch armv7 -miphoneos-version-min=5.1
+     CC: /Applications/Xcode_12.4.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/clang
+     CFLAGS: -O2 -mno-thumb -Wno-macro-redefined -isysroot /Applications/Xcode_12.4.app/Contents/Developer/Platforms/iPhoneOS.platform/Developer/SDKs/iPhoneOS14.4.sdk -arch armv7 -miphoneos-version-min=5.1
   steps:
   - script: |
      make TARGET=ARMV7 DYNAMIC_ARCH=1 NUM_THREADS=32 HOSTCC=clang NOFORTRAN=1
 
-- job: OSX_xbuild_DYNAMIC_ARM64
-  pool:
-     vmImage: 'macOS-12'
-  variables:
-     CC: /Applications/Xcode_14.2.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/clang
-     CFLAGS: -O2 -Wno-macro-redefined -isysroot /Applications/Xcode_14.2.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs/MacOSX13.1.sdk -arch arm64
-  steps:
-  - script: |
-     ls /Applications/Xcode_14.2.app/Contents/Developer/Platforms/MacOSX.platform/Developer/SDKs
-     /Applications/Xcode_12.2.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/clang -arch arm64 --print-supported-cpus
-     /Applications/Xcode_14.2.app/Contents/Developer/Toolchains/XcodeDefault.xctoolchain/usr/bin/clang --version
-     make TARGET=ARMV8 DYNAMIC_ARCH=1 NUM_THREADS=32 HOSTCC=clang NOFORTRAN=1
-
 - job: ALPINE_MUSL
   pool:
      vmImage: 'ubuntu-latest'
   steps:
   - script: |
-        wget https://raw.githubusercontent.com/alpinelinux/alpine-chroot-install/v0.14.0/alpine-chroot-install \
-        && echo 'ccbf65f85cdc351851f8ad025bb3e65bae4d5b06  alpine-chroot-install' | sha1sum -c \
-        || exit 1
+        wget https://raw.githubusercontent.com/alpinelinux/alpine-chroot-install/v0.13.2/alpine-chroot-install \
+          && echo '60c7e0b5d82e21d1a549fc9a46ba3b36688c09dc  alpine-chroot-install' | sha1sum -c \
+          || exit 1
         alpine() { /alpine/enter-chroot -u "$USER" "$@"; }
         sudo sh alpine-chroot-install -p 'build-base gfortran perl linux-headers sudo'
         alpine make DYNAMIC_ARCH=1 BINARY=64

benchmark/Makefile

@@ -37,12 +37,6 @@ ESSL=/opt/ibm/lib
 #LIBESSL = -lesslsmp $(ESSL)/libxlomp_ser.so.1 $(ESSL)/libxlf90_r.so.1 $(ESSL)/libxlfmath.so.1 $(ESSL)/libxlsmp.so.1 /opt/ibm/xlC/13.1.3/lib/libxl.a
 LIBESSL = -lesslsmp  $(ESSL)/libxlf90_r.so.1 $(ESSL)/libxlfmath.so.1 $(ESSL)/libxlsmp.so.1 /opt/ibm/xlC/13.1.3/lib/libxl.a
 
-# x280 temporary workaround for gfortran
-ifeq ($(TARGET), x280)
-CCOMMON_OPT:=$(filter-out -mllvm --riscv-v-vector-bits-min=512,$(CCOMMON_OPT))
-endif
-
-
 ifneq ($(NO_LAPACK), 1)
 GOTO_LAPACK_TARGETS=slinpack.goto dlinpack.goto clinpack.goto zlinpack.goto \
 		    scholesky.goto dcholesky.goto ccholesky.goto zcholesky.goto \
@@ -103,7 +97,6 @@ goto :: slinpack.goto dlinpack.goto clinpack.goto zlinpack.goto \
        sgetri.goto dgetri.goto cgetri.goto zgetri.goto \
        spotrf.goto dpotrf.goto cpotrf.goto zpotrf.goto \
        ssymm.goto dsymm.goto csymm.goto zsymm.goto \
-       somatcopy.goto domatcopy.goto comatcopy.goto zomatcopy.goto \
        saxpby.goto daxpby.goto caxpby.goto zaxpby.goto $(GOTO_HALF_TARGETS)
 
 acml :: slinpack.acml dlinpack.acml clinpack.acml zlinpack.acml \
@@ -277,7 +270,6 @@ goto :: sgemm.goto dgemm.goto cgemm.goto zgemm.goto \
        samin.goto damin.goto camin.goto zamin.goto \
        smin.goto dmin.goto \
        saxpby.goto daxpby.goto caxpby.goto zaxpby.goto \
-       somatcopy.goto domatcopy.goto comatcopy.goto zomatcopy.goto \
        snrm2.goto dnrm2.goto scnrm2.goto dznrm2.goto $(GOTO_LAPACK_TARGETS) $(GOTO_HALF_TARGETS)
 
 acml :: slinpack.acml dlinpack.acml clinpack.acml zlinpack.acml \
@@ -2908,29 +2900,6 @@ dznrm2.goto : dznrm2.$(SUFFIX) ../$(LIBNAME)
 dznrm2.atlas : dznrm2.$(SUFFIX)
 	-$(CC) $(CFLAGS) -o $(@F) $^ $(LIBATLAS) $(CEXTRALIB) $(EXTRALIB) $(FEXTRALIB)
 
-###################################################################################################
-
-############################################ SOMATCOPY ############################################
-somatcopy.goto : somatcopy.$(SUFFIX) ../$(LIBNAME)
-	$(CC) $(CFLAGS) -o $(@F) $^ $(CEXTRALIB) $(EXTRALIB) $(FEXTRALIB) -lm
-
-###################################################################################################
-
-############################################ DOMATCOPY ############################################
-domatcopy.goto : domatcopy.$(SUFFIX) ../$(LIBNAME)
-	$(CC) $(CFLAGS) -o $(@F) $^ $(CEXTRALIB) $(EXTRALIB) $(FEXTRALIB) -lm
-
-###################################################################################################
-
-############################################ COMATCOPY ############################################
-comatcopy.goto : comatcopy.$(SUFFIX) ../$(LIBNAME)
-	$(CC) $(CFLAGS) -o $(@F) $^ $(CEXTRALIB) $(EXTRALIB) $(FEXTRALIB) -lm
-
-###################################################################################################
-
-############################################ ZOMATCOPY ############################################
-zomatcopy.goto : zomatcopy.$(SUFFIX) ../$(LIBNAME)
-	$(CC) $(CFLAGS) -o $(@F) $^ $(CEXTRALIB) $(EXTRALIB) $(FEXTRALIB) -lm
 
 ###################################################################################################
 
@@ -3460,18 +3429,6 @@ scnrm2.$(SUFFIX) : nrm2.c
 dznrm2.$(SUFFIX) : nrm2.c
 	$(CC) $(CFLAGS) -c -DCOMPLEX -DDOUBLE -o $(@F) $^
 
-somatcopy.$(SUFFIX) : omatcopy.c
-	$(CC) $(CFLAGS) -c -UCOMPLEX -UDOUBLE -o $(@F) $^
-
-domatcopy.$(SUFFIX) : omatcopy.c
-	$(CC) $(CFLAGS) -c -UCOMPLEX -DDOUBLE -o $(@F) $^
-
-comatcopy.$(SUFFIX) : omatcopy.c
-	$(CC) $(CFLAGS) -c -DCOMPLEX -UDOUBLE -o $(@F) $^
-
-zomatcopy.$(SUFFIX) : omatcopy.c
-	$(CC) $(CFLAGS) -c -DCOMPLEX -DDOUBLE -o $(@F) $^
-
 
 smallscaling: smallscaling.c ../$(LIBNAME)
 	$(CC) $(CFLAGS) -o $(@F) $^ $(EXTRALIB) -fopenmp -lm -lpthread

benchmark/getri.c

@@ -92,7 +92,7 @@ int main(int argc, char *argv[]){
 
   if ((p = getenv("OPENBLAS_TEST"))) btest=*p;
   
-  if ((p = getenv("OPENBLAS_LOOPS"))) loops=atoi(p);
+  if ((p = getenv("OPENBLAS_LOOPS"))) loops=*p;
 
   fprintf(stderr, "From : %3d  To : %3d Step = %3d\n", from, to, step);
 

benchmark/linpack.c

@@ -85,7 +85,7 @@ int main(int argc, char *argv[]){
   double time1, time2, timeg1,timeg2;
 
   char *p;
-  if ((p = getenv("OPENBLAS_LOOPS"))) loops=atoi(p);
+  if ((p = getenv("OPENBLAS_LOOPS"))) loops=*p;
   
   argc--;argv++;
 

benchmark/omatcopy.c

@@ -1,122 +0,0 @@
-/***************************************************************************
-Copyright (c) 2024, 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 "bench.h"
-
-#undef OMATCOPY
-
-#ifndef COMPLEX
-#ifdef DOUBLE
-#define OMATCOPY BLASFUNC(domatcopy)
-#else
-#define OMATCOPY BLASFUNC(somatcopy)
-#endif
-#else
-#ifdef DOUBLE
-#define OMATCOPY BLASFUNC(zomatcopy)
-#else
-#define OMATCOPY BLASFUNC(comatcopy)
-#endif
-#endif
-int main(int argc, char *argv[]){
-  FLOAT *a, *b;
-  FLOAT alpha[] = {1.0, 0.0};
-  char trans = 'N';
-  char order = 'C';
-  blasint crows, ccols, clda, cldb;
-  int loops = 1;
-  char *p;
-
-  int from =   1;
-  int to   = 200;
-  int step =   1;
-  int i, j;
-
-  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;
-  }
-  if ((p = getenv("OPENBLAS_ORDER"))) {
-    order=*p;
-  }
-  TOUPPER(trans);
-  TOUPPER(order);
-  fprintf(stderr, "From : %3d  To : %3d Step=%d : Trans=%c : Order=%c\n", from, to, step, trans, order);
-  p = getenv("OPENBLAS_LOOPS");
-  if ( p != NULL ) {
-    loops = atoi(p);
-  }
-
-  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);
-  }
-
-#ifdef __linux
-  srandom(getpid());
-#endif
-
-  for (i = 0; i < to * to * COMPSIZE; i++) {
-    a[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-  }
-  for (i = 0; i < to * to * COMPSIZE; i++) {
-    b[i] = ((FLOAT) rand() / (FLOAT) RAND_MAX) - 0.5;
-  }
-
-  fprintf(stderr, "          SIZE                   Flops             Time\n");
-  for (i = from; i <= to; i += step) {
-    cldb = clda = crows = ccols = i;
-    fprintf(stderr, " ROWS=%4d, COLS=%4d : ", (int)crows, (int)ccols);
-    begin();
-
-    for (j=0; j<loops; j++) {
-      OMATCOPY (&order, &trans, &crows, &ccols, alpha, a, &clda, b, &cldb);
-    }
-
-    end();
-    time1 = getsec();
-
-    timeg = time1/loops;
-    fprintf(stderr,
-	    " %10.2f MFlops %10.6f sec\n",
-	    COMPSIZE * COMPSIZE * (double)ccols * (double)crows / timeg * 1.e-6, time1);
-  }
-
-  free(a);
-  free(b);
-
-  return 0;
-}

benchmark/potrf.c

@@ -120,7 +120,7 @@ int main(int argc, char *argv[]){
 
   if ((p = getenv("OPENBLAS_TEST"))) btest=*p;
 
-  if ((p = getenv("OPENBLAS_LOOPS"))) loops=atoi(p);
+  if ((p = getenv("OPENBLAS_LOOPS"))) loops=*p;
 
   fprintf(stderr, "From : %3d  To : %3d Step = %3d Uplo = %c\n", from, to, step,*uplo[uplos]);
 

benchmark/pybench/README.md

@@ -1,49 +0,0 @@
-# Continuous benchmarking of OpenBLAS performance
-
-We run a set of benchmarks of subset of OpenBLAS functionality.
-
-## Benchmark runner
-
-[![CodSpeed Badge](https://img.shields.io/endpoint?url=https://codspeed.io/badge.json)](https://codspeed.io/OpenMathLib/OpenBLAS/)
-
-Click on [benchmarks](https://codspeed.io/OpenMathLib/OpenBLAS/benchmarks) to see the performance of a particular benchmark over time;
-Click on [branches](https://codspeed.io/OpenMathLib/OpenBLAS/branches/) and then on the last PR link to see the flamegraphs.
-
-## What are the benchmarks
-
-We run raw BLAS/LAPACK subroutines, via f2py-generated python wrappers. The wrappers themselves are equivalent to [those from SciPy](https://docs.scipy.org/doc/scipy/reference/linalg.lapack.html).
-In fact, the wrappers _are_ from SciPy, we take a small subset simply to avoid having to build the whole SciPy for each CI run.
-
-
-## Adding a new benchmark
-
-`.github/workflows/codspeed-bench.yml` does all the orchestration on CI.
-
-Benchmarks live in the `benchmark/pybench` directory. It is organized as follows:
-
-- benchmarks themselves live in the `benchmarks` folder. Note that the LAPACK routines are imported from the `openblas_wrap` package.
-- the `openblas_wrap` package is a simple trampoline: it contains an f2py extension, `_flapack`, which talks to OpenBLAS, and exports the python names in its `__init__.py`.
-This way, the `openblas_wrap` package shields the benchmarks from the details of where a particular LAPACK function comes from. If wanted, you may for instance swap the `_flapack` extension to
-`scipy.linalg.blas` and `scipy.linalg.lapack`.
-
-To change parameters of an existing benchmark, edit python files in the `benchmark/pybench/benchmarks` directory.
-
-To add a benchmark for a new BLAS or LAPACK function, you need to:
-
-- add an f2py wrapper for the bare LAPACK function. You can simply copy a wrapper from SciPy (look for `*.pyf.src` files in https://github.com/scipy/scipy/tree/main/scipy/linalg)
-- add an import to `benchmark/pybench/openblas_wrap/__init__.py`
-
-
-## Running benchmarks locally
-
-This benchmarking layer is orchestrated from python, therefore you'll need to
-have all what it takes to build OpenBLAS from source, plus `python` and
-
-```
-$ python -mpip install numpy meson ninja pytest pytest-benchmark
-```
-
-The benchmark syntax is consistent with that of `pytest-benchmark` framework. The incantation to run the suite locally is `$ pytest benchmark/pybench/benchmarks/test_blas.py`.
-
-An ASV compatible benchmark suite is planned but currently not implemented.
-

benchmark/pybench/benchmarks/bench_blas.py

@@ -1,274 +0,0 @@
-import pytest
-import numpy as np
-import openblas_wrap as ow
-
-dtype_map = {
-    's': np.float32,
-    'd': np.float64,
-    'c': np.complex64,
-    'z': np.complex128,
-    'dz': np.complex128,
-}
-
-
-# ### BLAS level 1 ###
-
-# dnrm2
-
-dnrm2_sizes = [100, 1000]
-
-def run_dnrm2(n, x, incx, func):
-    res = func(x, n, incx=incx)
-    return res
-
-
-@pytest.mark.parametrize('variant', ['d', 'dz'])
-@pytest.mark.parametrize('n', dnrm2_sizes)
-def test_nrm2(benchmark, n, variant):
-    rndm = np.random.RandomState(1234)
-    dtyp = dtype_map[variant]
-
-    x = np.array(rndm.uniform(size=(n,)), dtype=dtyp)
-    nrm2 = ow.get_func('nrm2', variant)
-    result = benchmark(run_dnrm2, n, x, 1, nrm2)
-
-
-# ddot
-
-ddot_sizes = [100, 1000]
-
-def run_ddot(x, y, func):
-    res = func(x, y)
-    return res
-
-
-@pytest.mark.parametrize('n', ddot_sizes)
-def test_dot(benchmark, n):
-    rndm = np.random.RandomState(1234)
-
-    x = np.array(rndm.uniform(size=(n,)), dtype=float)
-    y = np.array(rndm.uniform(size=(n,)), dtype=float)
-    dot = ow.get_func('dot', 'd')
-    result = benchmark(run_ddot, x, y, dot)
-
-
-# daxpy
-
-daxpy_sizes = [100, 1000]
-
-def run_daxpy(x, y, func):
-    res = func(x, y, a=2.0)
-    return res
-
-
-@pytest.mark.parametrize('variant', ['s', 'd', 'c', 'z'])
-@pytest.mark.parametrize('n', daxpy_sizes)
-def test_daxpy(benchmark, n, variant):
-    rndm = np.random.RandomState(1234)
-    dtyp = dtype_map[variant]
-
-    x = np.array(rndm.uniform(size=(n,)), dtype=dtyp)
-    y = np.array(rndm.uniform(size=(n,)), dtype=dtyp)
-    axpy = ow.get_func('axpy', variant)
-    result = benchmark(run_daxpy, x, y, axpy)
-
-
-# ### BLAS level 2 ###
-
-gemv_sizes = [100, 1000]
-
-def run_gemv(a, x, y, func):
-    res = func(1.0, a, x, y=y, overwrite_y=True)
-    return res
-
-
-@pytest.mark.parametrize('variant', ['s', 'd', 'c', 'z'])
-@pytest.mark.parametrize('n', gemv_sizes)
-def test_dgemv(benchmark, n, variant):
-    rndm = np.random.RandomState(1234)
-    dtyp = dtype_map[variant]
-
-    x = np.array(rndm.uniform(size=(n,)), dtype=dtyp)
-    y = np.empty(n, dtype=dtyp)
-
-    a = np.array(rndm.uniform(size=(n,n)), dtype=dtyp)
-    x = np.array(rndm.uniform(size=(n,)), dtype=dtyp)
-    y = np.zeros(n, dtype=dtyp)
-
-    gemv = ow.get_func('gemv', variant)
-    result = benchmark(run_gemv, a, x, y, gemv)
-
-    assert result is y
-
-
-# dgbmv
-
-dgbmv_sizes = [100, 1000]
-
-def run_gbmv(m, n, kl, ku, a, x, y, func):
-    res = func(m, n, kl, ku, 1.0, a, x, y=y, overwrite_y=True)
-    return res
-
-
-
-@pytest.mark.parametrize('variant', ['s', 'd', 'c', 'z'])
-@pytest.mark.parametrize('n', dgbmv_sizes)
-@pytest.mark.parametrize('kl', [1])
-def test_dgbmv(benchmark, n, kl, variant):
-    rndm = np.random.RandomState(1234)
-    dtyp = dtype_map[variant]
-
-    x = np.array(rndm.uniform(size=(n,)), dtype=dtyp)
-    y = np.empty(n, dtype=dtyp)
-
-    m = n
-
-    a = rndm.uniform(size=(2*kl + 1, n))
-    a = np.array(a, dtype=dtyp, order='F')
-
-    gbmv = ow.get_func('gbmv', variant)
-    result = benchmark(run_gbmv, m, n, kl, kl, a, x, y, gbmv)
-    assert result is y
-
-
-# ### BLAS level 3 ###
-
-# dgemm
-
-gemm_sizes = [100, 1000]
-
-def run_gemm(a, b, c, func):
-    alpha = 1.0
-    res = func(alpha, a, b, c=c, overwrite_c=True)
-    return res
-
-
-@pytest.mark.parametrize('variant', ['s', 'd', 'c', 'z'])
-@pytest.mark.parametrize('n', gemm_sizes)
-def test_gemm(benchmark, n, variant):
-    rndm = np.random.RandomState(1234)
-    dtyp = dtype_map[variant]
-    a = np.array(rndm.uniform(size=(n, n)), dtype=dtyp, order='F')
-    b = np.array(rndm.uniform(size=(n, n)), dtype=dtyp, order='F')
-    c = np.empty((n, n), dtype=dtyp, order='F')
-    gemm = ow.get_func('gemm', variant)
-    result = benchmark(run_gemm, a, b, c, gemm)
-    assert result is c
-
-
-# dsyrk
-
-syrk_sizes = [100, 1000]
-
-
-def run_syrk(a, c, func):
-    res = func(1.0, a, c=c, overwrite_c=True)
-    return res
-
-
-@pytest.mark.parametrize('variant', ['s', 'd', 'c', 'z'])
-@pytest.mark.parametrize('n', syrk_sizes)
-def test_syrk(benchmark, n, variant):
-    rndm = np.random.RandomState(1234)
-    dtyp = dtype_map[variant]
-    a = np.array(rndm.uniform(size=(n, n)), dtype=dtyp, order='F')
-    c = np.empty((n, n), dtype=dtyp, order='F')
-    syrk = ow.get_func('syrk', variant)
-    result = benchmark(run_syrk, a, c, syrk)
-    assert result is c
-
-
-# ### LAPACK ###
-
-# linalg.solve
-
-gesv_sizes = [100, 1000]
-
-
-def run_gesv(a, b, func):
-    res = func(a, b, overwrite_a=True, overwrite_b=True)
-    return res
-
-
-@pytest.mark.parametrize('variant', ['s', 'd', 'c', 'z'])
-@pytest.mark.parametrize('n', gesv_sizes)
-def test_gesv(benchmark, n, variant):
-    rndm = np.random.RandomState(1234)
-    dtyp = dtype_map[variant]
-
-    a = (np.array(rndm.uniform(size=(n, n)), dtype=dtyp, order='F') +
-         np.eye(n, dtype=dtyp, order='F'))
-    b = np.array(rndm.uniform(size=(n, 1)), dtype=dtyp, order='F')
-    gesv = ow.get_func('gesv', variant)
-    lu, piv, x, info = benchmark(run_gesv, a, b, gesv)
-    assert lu is a
-    assert x is b
-    assert info == 0
-
-
-# linalg.svd
-
-gesdd_sizes = [(100, 5), (1000, 222)]
-
-
-def run_gesdd(a, lwork, func):
-    res = func(a, lwork=lwork, full_matrices=False, overwrite_a=False)
-    return res
-
-
-@pytest.mark.parametrize('variant', ['s', 'd'])
-@pytest.mark.parametrize('mn', gesdd_sizes)
-def test_gesdd(benchmark, mn, variant):
-    m, n = mn
-    rndm = np.random.RandomState(1234)
-    dtyp = dtype_map[variant]
-
-    a = np.array(rndm.uniform(size=(m, n)), dtype=dtyp, order='F')
-
-    gesdd_lwork = ow.get_func('gesdd_lwork', variant)
-
-    lwork, info = gesdd_lwork(m, n)
-    lwork = int(lwork)
-    assert info == 0
-
-    gesdd = ow.get_func('gesdd', variant)
-    u, s, vt, info = benchmark(run_gesdd, a, lwork, gesdd)
-
-    assert info == 0
-
-    atol = {'s': 1e-5, 'd': 1e-13}
-    np.testing.assert_allclose(u @ np.diag(s) @ vt, a, atol=atol[variant])
-
-
-# linalg.eigh
-
-syev_sizes = [50, 200]
-
-
-def run_syev(a, lwork, func):
-    res = func(a, lwork=lwork, overwrite_a=True)
-    return res
-
-
-@pytest.mark.parametrize('variant', ['s', 'd'])
-@pytest.mark.parametrize('n', syev_sizes)
-def test_syev(benchmark, n, variant):
-    rndm = np.random.RandomState(1234)
-    dtyp = dtype_map[variant]
-
-    a = rndm.uniform(size=(n, n))
-    a = np.asarray(a + a.T, dtype=dtyp, order='F')
-    a_ = a.copy()
-
-    dsyev_lwork = ow.get_func('syev_lwork', variant)
-    lwork, info = dsyev_lwork(n)
-    lwork = int(lwork)
-    assert info == 0
-
-    syev = ow.get_func('syev', variant)
-    w, v, info = benchmark(run_syev, a, lwork, syev)
-
-    assert info == 0
-    assert a is v  # overwrite_a=True
-
-

benchmark/pybench/meson.build

@@ -1,48 +0,0 @@
-#
-# Taken from SciPy (of course)
-#
-project(
-  'openblas-wrap',
-  'c', 'fortran',
-  version: '0.1',
-  license: 'BSD-3',
-  meson_version: '>= 1.1.0',
-  default_options: [
-    'buildtype=debugoptimized',
-    'b_ndebug=if-release',
-    'c_std=c17',
-    'fortran_std=legacy',
-  ],
-)
-
-py3 = import('python').find_installation(pure: false)
-py3_dep = py3.dependency()
-
-cc = meson.get_compiler('c')
-
-_global_c_args = cc.get_supported_arguments(
-  '-Wno-unused-but-set-variable',
-  '-Wno-unused-function',
-  '-Wno-conversion',
-  '-Wno-misleading-indentation',
-)
-add_project_arguments(_global_c_args, language : 'c')
-
-# We need -lm for all C code (assuming it uses math functions, which is safe to
-# assume for SciPy). For C++ it isn't needed, because libstdc++/libc++ is
-# guaranteed to depend on it. For Fortran code, Meson already adds `-lm`.
-m_dep = cc.find_library('m', required : false)
-if m_dep.found()
-  add_project_link_arguments('-lm', language : 'c')
-endif
-
-generate_f2pymod = find_program('openblas_wrap/generate_f2pymod.py')
-
-openblas = dependency('openblas', method: 'pkg-config', required: true)
-openblas_dep = declare_dependency(
-  dependencies: openblas,
-  compile_args: []
-)
-
-
-subdir('openblas_wrap')

benchmark/pybench/openblas_wrap/__init__.py

@@ -1,17 +0,0 @@
-"""
-Trampoline to hide the LAPACK details (scipy.lapack.linalg or scipy_openblas32 or...)
-from benchmarking.
-"""
-
-__version__ = "0.1"  
-
-
-from . import _flapack
-
-PREFIX = ''
-
-
-def get_func(name, variant):
-    """get_func('gesv', 'c') -> cgesv etc."""
-    return getattr(_flapack, PREFIX + variant + name)
-

benchmark/pybench/openblas_wrap/blas_lapack.pyf.src

@@ -1,417 +0,0 @@
-!
-! Taken from scipy/linalg
-!
-! Shorthand notations
-!
-! <tchar=s,d,cs,zd>
-! <tchar2c=cs,zd>
-!
-! <prefix2=s,d>
-! <prefix2c=c,z>
-! <prefix3=s,sc>
-! <prefix4=d,dz>
-! <prefix6=s,d,c,z,c,z>
-!
-! <ftype2=real,double precision>
-! <ftype2c=complex,double complex>
-! <ftype3=real,complex>
-! <ftype4=double precision,double complex>
-! <ftypereal3=real,real>
-! <ftypereal4=double precision,double precision>
-! <ftype6=real,double precision,complex,double complex,\2,\3>
-! <ftype6creal=real,double precision,complex,double complex,\0,\1>
-!
-! <ctype2=float,double>
-! <ctype2c=complex_float,complex_double>
-! <ctype3=float,complex_float>
-! <ctype4=double,complex_double>
-! <ctypereal3=float,float>
-! <ctypereal4=double,double>
-! <ctype6=float,double,complex_float,complex_double,\2,\3>
-! <ctype6creal=float,double,complex_float,complex_double,\0,\1>
-!
-!
-! Level 1 BLAS
-!
-
-
-python module _flapack
-    usercode '''
-#define F_INT int
-'''
-
-interface
-
-
-subroutine <prefix>axpy(n,a,x,offx,incx,y,offy,incy)
-  ! Calculate z = a*x+y, where a is scalar.
-
-  callstatement (*f2py_func)(&n,&a,x+offx,&incx,y+offy,&incy)
-  callprotoargument F_INT*,<ctype>*,<ctype>*,F_INT*,<ctype>*,F_INT*
-
-  <ftype> dimension(*), intent(in) :: x
-  <ftype> dimension(*), intent(in,out,out=z) :: y
-  <ftype> optional, intent(in):: a=<1.0,\0,(1.0\,0.0),\2>
-  integer optional, intent(in),check(incx>0||incx<0) :: incx = 1
-  integer optional, intent(in),check(incy>0||incy<0) :: incy = 1
-  integer optional, intent(in),depend(x) :: offx=0
-  integer optional, intent(in),depend(y) :: offy=0
-  check(offx>=0 && offx<len(x)) :: offx
-  check(offy>=0 && offy<len(y)) :: offy
-  integer optional, intent(in),depend(x,incx,offx,y,incy,offy) :: &
-       n = (len(x)-offx)/abs(incx)
-  check(len(x)-offx>(n-1)*abs(incx)) :: n
-  check(len(y)-offy>(n-1)*abs(incy)) :: n
-
-end subroutine <prefix>axpy
-
-function ddot(n,x,offx,incx,y,offy,incy) result (xy)
-  ! Computes a vector-vector dot product.
-
-  callstatement ddot_return_value = (*f2py_func)(&n,x+offx,&incx,y+offy,&incy)
-  callprotoargument F_INT*,double*,F_INT*,double*,F_INT*
-  intent(c) ddot
-  fortranname F_FUNC(ddot,DDOT)
-
-  double precision dimension(*), intent(in) :: x
-  double precision dimension(*), intent(in) :: y
-  double precision ddot,xy
-  integer optional, intent(in),check(incx>0||incx<0) :: incx = 1
-  integer optional, intent(in),check(incy>0||incy<0) :: incy = 1
-  integer optional, intent(in),depend(x) :: offx=0
-  integer optional, intent(in),depend(y) :: offy=0
-  check(offx>=0 && offx<len(x)) :: offx
-  check(offy>=0 && offy<len(y)) :: offy
-  integer optional, intent(in),depend(x,incx,offx,y,incy,offy) :: &
-       n = (len(x)-offx)/abs(incx)
-  check(len(x)-offx>(n-1)*abs(incx)) :: n
-  check(len(y)-offy>(n-1)*abs(incy)) :: n
-
-end function ddot
-
-
-function <prefix4>nrm2(n,x,offx,incx) result(n2)
-
-  <ftypereal4> <prefix4>nrm2, n2
-
-  callstatement <prefix4>nrm2_return_value = (*f2py_func)(&n,x+offx,&incx)
-  callprotoargument F_INT*,<ctype4>*,F_INT*
-  intent(c) <prefix4>nrm2
-  fortranname F_FUNC(<prefix4>nrm2,<D,DZ>NRM2)
-
-  <ftype4> dimension(*),intent(in) :: x
-
-  integer optional, intent(in),check(incx>0) :: incx = 1
-
-  integer optional,intent(in),depend(x) :: offx=0
-  check(offx>=0 && offx<len(x)) :: offx
-
-  integer optional,intent(in),depend(x,incx,offx) :: n = (len(x)-offx)/abs(incx)
-  check(len(x)-offx>(n-1)*abs(incx)) :: n
-
-end function <prefix4>nrm2
-
-
-!
-! Level 2 BLAS
-!
-
-
-subroutine <prefix>gemv(m,n,alpha,a,x,beta,y,offx,incx,offy,incy,trans,rows,cols,ly)
-  ! Computes a matrix-vector product using a general matrix
-  !
-  ! y = gemv(alpha,a,x,beta=0,y=0,offx=0,incx=1,offy=0,incy=0,trans=0)
-  ! Calculate y <- alpha * op(A) * x + beta * y
-
-  callstatement (*f2py_func)((trans?(trans==2?"C":"T"):"N"),&m,&n,&alpha,a,&m, &
-       x+offx,&incx,&beta,y+offy,&incy)
-  callprotoargument char*,F_INT*,F_INT*,<ctype>*,<ctype>*,F_INT*,<ctype>*,F_INT*,<ctype>*, &
-       <ctype>*,F_INT*
-
-  integer optional, intent(in), check(trans>=0 && trans <=2) :: trans = 0
-  integer optional, intent(in), check(incx>0||incx<0) :: incx = 1
-  integer optional, intent(in), check(incy>0||incy<0) :: incy = 1
-  <ftype> intent(in) :: alpha
-  <ftype> intent(in), optional :: beta = <0.0,\0,(0.0\,0.0),\2>
-
-  <ftype> dimension(*), intent(in) :: x
-  <ftype> dimension(ly), intent(in,copy,out), depend(ly),optional :: y
-  integer intent(hide), depend(incy,rows,offy) :: ly = &
-       (y_capi==Py_None?1+offy+(rows-1)*abs(incy):-1)
-  <ftype> dimension(m,n), intent(in) :: a
-  integer depend(a), intent(hide):: m = shape(a,0)
-  integer depend(a), intent(hide):: n = shape(a,1)
-
-  integer optional, intent(in) :: offx=0
-  integer optional, intent(in) :: offy=0
-  check(offx>=0 && offx<len(x)) :: x
-  check(len(x)>offx+(cols-1)*abs(incx)) :: x
-  depend(offx,cols,incx) :: x
-
-  check(offy>=0 && offy<len(y)) :: y
-  check(len(y)>offy+(rows-1)*abs(incy)) :: y
-  depend(offy,rows,incy) :: y
-
-  integer depend(m,n,trans), intent(hide) :: rows = (trans?n:m)
-  integer depend(m,n,trans), intent(hide) :: cols = (trans?m:n)
-
-end subroutine <prefix>gemv
-
-
-subroutine <prefix>gbmv(m,n,kl,ku,alpha,a,lda,x,incx,offx,beta,y,incy,offy,trans,ly)
-  ! Performs one of the matrix-vector operations
-  !
-  !    y := alpha*A*x + beta*y,   or   y := alpha*A**T*x + beta*y,
-  !                               or   y := alpha*A**H*x + beta*y,
-  !
-  ! where alpha and beta are scalars, x and y are vectors and A is an
-  ! m by n band matrix, with kl sub-diagonals and ku super-diagonals.
-
-  callstatement (*f2py_func)((trans?(trans==2?"C":"T"):"N"),&m,&n,&kl,&ku,&alpha,a,&lda,x+offx,&incx,&beta,y+offy,&incy)
-  callprotoargument char*,F_INT*,F_INT*,F_INT*,F_INT*,<ctype>*,<ctype>*,F_INT*,<ctype>*,F_INT*,<ctype>*,<ctype>*,F_INT*
-
-  integer optional,intent(in),check(trans>=0 && trans <=2) :: trans = 0
-  integer intent(in), depend(ku,kl),check(m>=ku+kl+1) :: m
-  integer intent(in),check(n>=0&&n==shape(a,1)),depend(a) :: n
-  integer intent(in),check(kl>=0) :: kl
-  integer intent(in),check(ku>=0) :: ku
-  integer intent(hide),depend(a) :: lda = MAX(shape(a,0),1)
-  integer optional, intent(in),check(incx>0||incx<0) :: incx = 1
-  integer optional, intent(in),check(incy>0||incy<0) :: incy = 1
-  integer intent(hide),depend(m,n,incy,offy,trans) :: ly = &
-      (y_capi==Py_None?1+offy+(trans==0?m-1:n-1)*abs(incy):-1)
-  integer optional, intent(in) :: offx=0
-  integer optional, intent(in) :: offy=0
-
-  <ftype> intent(in) :: alpha
-  <ftype> intent(in),optional :: beta = <0.0,\0,(0.0\,0.0),\2>
-
-  <ftype> dimension(lda,n),intent(in) :: a
-
-  <ftype> dimension(ly), intent(in,out,copy,out=yout),depend(ly),optional :: y
-  check(offy>=0 && offy<len(y)) :: y
-  check(len(y)>offy+(trans==0?m-1:n-1)*abs(incy)) :: y
-  depend(offy,n,incy) :: y
-
-  <ftype> dimension(*), intent(in) :: x
-  check(offx>=0 && offx<len(x)) :: x
-  check(len(x)>offx+(trans==0?n-1:m-1)*abs(incx)) :: x
-  depend(offx,n,incx) :: x
-
-end subroutine <prefix>gbmv
-
-
-
-!
-! Level 3 BLAS
-!
-
-
-subroutine <prefix>gemm(m,n,k,alpha,a,b,beta,c,trans_a,trans_b,lda,ka,ldb,kb)
-  ! Computes a scalar-matrix-matrix product and adds the result to a
-  ! scalar-matrix product.
-  !
-  ! c = gemm(alpha,a,b,beta=0,c=0,trans_a=0,trans_b=0,overwrite_c=0)
-  ! Calculate C <- alpha * op(A) * op(B) + beta * C
-
-  callstatement (*f2py_func)((trans_a?(trans_a==2?"C":"T"):"N"), &
-       (trans_b?(trans_b==2?"C":"T"):"N"),&m,&n,&k,&alpha,a,&lda,b,&ldb,&beta,c,&m)
-  callprotoargument char*,char*,F_INT*,F_INT*,F_INT*,<ctype>*,<ctype>*,F_INT*,<ctype>*, &
-       F_INT*,<ctype>*,<ctype>*,F_INT*
-
-  integer optional,intent(in),check(trans_a>=0 && trans_a <=2) :: trans_a = 0
-  integer optional,intent(in),check(trans_b>=0 && trans_b <=2) :: trans_b = 0
-  <ftype> intent(in) :: alpha
-  <ftype> intent(in),optional :: beta = <0.0,\0,(0.0\,0.0),\2>
-
-  <ftype> dimension(lda,ka),intent(in) :: a
-  <ftype> dimension(ldb,kb),intent(in) :: b
-  <ftype> dimension(m,n),intent(in,out,copy),depend(m,n),optional :: c
-  check(shape(c,0)==m && shape(c,1)==n) :: c
-
-  integer depend(a),intent(hide) :: lda = shape(a,0)
-  integer depend(a),intent(hide) :: ka = shape(a,1)
-  integer depend(b),intent(hide) :: ldb = shape(b,0)
-  integer depend(b),intent(hide) :: kb = shape(b,1)
-
-  integer depend(a,trans_a,ka,lda),intent(hide):: m = (trans_a?ka:lda)
-  integer depend(a,trans_a,ka,lda),intent(hide):: k = (trans_a?lda:ka)
-  integer depend(b,trans_b,kb,ldb,k),intent(hide),check(trans_b?kb==k:ldb==k) :: &
-       n = (trans_b?ldb:kb)
-
-end subroutine <prefix>gemm
-
-
-subroutine <prefix6><sy,\0,\0,\0,he,he>rk(n,k,alpha,a,beta,c,trans,lower,lda,ka)
-  !  performs one of the symmetric rank k operations
-  !     C := alpha*A*A**T + beta*C,  or   C := alpha*A**T*A + beta*C,
-  !
-  ! c = syrk(alpha,a,beta=0,c=0,trans=0,lower=0,overwrite_c=0)
-  !
-  callstatement (*f2py_func)((lower?"L":"U"), &
-        (trans?(trans==2?"C":"T"):"N"), &n,&k,&alpha,a,&lda,&beta,c,&n)
-  callprotoargument char*,char*,F_INT*,F_INT*,<ctype6>*,<ctype6>*,F_INT*,<ctype6>*, &
-        <ctype6>*,F_INT*
-
-  integer optional, intent(in),check(lower==0||lower==1) :: lower = 0
-  integer optional,intent(in),check(trans>=0 && trans <=2) :: trans = 0
-
-  <ftype6> intent(in) :: alpha
-  <ftype6> intent(in),optional :: beta = <0.0,\0,(0.0\,0.0),\2,\2,\2>
-
-  <ftype6> dimension(lda,ka),intent(in) :: a
-  <ftype6> dimension(n,n),intent(in,out,copy),depend(n),optional :: c
-  check(shape(c,0)==n && shape(c,1)==n) :: c
-
-  integer depend(a),intent(hide) :: lda = shape(a,0)
-  integer depend(a),intent(hide) :: ka = shape(a,1)
-
-  integer depend(a, trans, ka, lda), intent(hide) :: n = (trans ? ka : lda)
-  integer depend(a, trans, ka, lda), intent(hide) :: k = (trans ? lda : ka)
-
-end subroutine <prefix6><sy,\0,\0,\0,he,he>rk
-
-
-!
-! LAPACK
-!
-
-subroutine <prefix>gesv(n,nrhs,a,piv,b,info)
-    ! lu,piv,x,info = gesv(a,b,overwrite_a=0,overwrite_b=0)
-    ! Solve A * X = B.
-    ! A = P * L * U
-    ! U is upper diagonal triangular, L is unit lower triangular,
-    ! piv pivots columns.
-
-    callstatement {F_INT i;(*f2py_func)(&n,&nrhs,a,&n,piv,b,&n,&info);for(i=0;i\<n;--piv[i++]);}
-    callprotoargument F_INT*,F_INT*,<ctype>*,F_INT*,F_INT*,<ctype>*,F_INT*,F_INT*
-
-    integer depend(a),intent(hide):: n = shape(a,0)
-    integer depend(b),intent(hide):: nrhs = shape(b,1)
-    <ftype> dimension(n,n),check(shape(a,0)==shape(a,1)) :: a
-    integer dimension(n),depend(n),intent(out) :: piv
-    <ftype> dimension(n,nrhs),check(shape(a,0)==shape(b,0)),depend(n) :: b
-    integer intent(out)::info
-    intent(in,out,copy,out=x) b
-    intent(in,out,copy,out=lu) a
-end subroutine <prefix>gesv
-
-
-subroutine <prefix2>gesdd(m,n,minmn,u0,u1,vt0,vt1,a,compute_uv,full_matrices,u,s,vt,work,lwork,iwork,info)
-    ! u,s,vt,info = gesdd(a,compute_uv=1,lwork=..,overwrite_a=0)
-    ! Compute the singular value decomposition (SVD) using divide and conquer:
-    !   A = U * SIGMA * transpose(V)
-    ! A - M x N matrix
-    ! U - M x M matrix or min(M,N) x N if full_matrices=False
-    ! SIGMA - M x N zero matrix with a main diagonal filled with min(M,N)
-    !               singular values
-    ! transpose(V) - N x N matrix or N x min(M,N) if full_matrices=False
-
-    callstatement (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,a,&m,s,u,&u0,vt,&vt0,work,&lwork,iwork,&info)
-    callprotoargument char*,F_INT*,F_INT*,<ctype2>*,F_INT*,<ctype2>*,<ctype2>*,F_INT*,<ctype2>*,F_INT*,<ctype2>*,F_INT*,F_INT*,F_INT*
-
-    integer intent(in),optional,check(compute_uv==0||compute_uv==1):: compute_uv = 1
-    integer intent(in),optional,check(full_matrices==0||full_matrices==1):: full_matrices = 1
-    integer intent(hide),depend(a):: m = shape(a,0)
-    integer intent(hide),depend(a):: n = shape(a,1)
-    integer intent(hide),depend(m,n):: minmn = MIN(m,n)
-    integer intent(hide),depend(compute_uv,minmn) :: u0 = (compute_uv?m:1)
-    integer intent(hide),depend(compute_uv,minmn, full_matrices) :: u1 = (compute_uv?(full_matrices?m:minmn):1)
-    integer intent(hide),depend(compute_uv,minmn, full_matrices) :: vt0 = (compute_uv?(full_matrices?n:minmn):1)
-    integer intent(hide),depend(compute_uv,minmn) :: vt1 = (compute_uv?n:1)
-    <ftype2> dimension(m,n),intent(in,copy,aligned8) :: a
-    <ftype2> dimension(minmn),intent(out),depend(minmn) :: s
-    <ftype2> dimension(u0,u1),intent(out),depend(u0, u1) :: u
-    <ftype2> dimension(vt0,vt1),intent(out),depend(vt0, vt1) :: vt
-    <ftype2> dimension(lwork),intent(hide,cache),depend(lwork) :: work
-    integer optional,intent(in),depend(minmn,compute_uv) &
-        :: lwork = max((compute_uv?4*minmn*minmn+MAX(m,n)+9*minmn:MAX(14*minmn+4,10*minmn+2+25*(25+8))+MAX(m,n)),1)
-    integer intent(hide,cache),dimension(8*minmn),depend(minmn) :: iwork
-    integer intent(out)::info
-
-end subroutine <prefix2>gesdd
-
-subroutine <prefix2>gesdd_lwork(m,n,minmn,u0,vt0,a,compute_uv,full_matrices,u,s,vt,work,lwork,iwork,info)
-    ! LWORK computation for (S/D)GESDD
-
-    fortranname <prefix2>gesdd
-    callstatement (*f2py_func)((compute_uv?(full_matrices?"A":"S"):"N"),&m,&n,&a,&m,&s,&u,&u0,&vt,&vt0,&work,&lwork,&iwork,&info)
-    callprotoargument char*,F_INT*,F_INT*,<ctype2>*,F_INT*,<ctype2>*,<ctype2>*,F_INT*,<ctype2>*,F_INT*,<ctype2>*,F_INT*,F_INT*,F_INT*
-
-    integer intent(in),optional,check(compute_uv==0||compute_uv==1):: compute_uv = 1
-    integer intent(in),optional,check(full_matrices==0||full_matrices==1):: full_matrices = 1
-    integer intent(in) :: m
-    integer intent(in) :: n
-    integer intent(hide),depend(m,n):: minmn = MIN(m,n)
-    integer intent(hide),depend(compute_uv,minmn) :: u0 = (compute_uv?m:1)
-    integer intent(hide),depend(compute_uv,minmn, full_matrices) :: vt0 = (compute_uv?(full_matrices?n:minmn):1)
-    <ftype2> intent(hide) :: a
-    <ftype2> intent(hide) :: s
-    <ftype2> intent(hide) :: u
-    <ftype2> intent(hide) :: vt
-    <ftype2> intent(out) :: work
-    integer intent(hide) :: lwork = -1
-    integer intent(hide) :: iwork
-    integer intent(out) :: info
-
-end subroutine <prefix2>gesdd_lwork
-
-
-subroutine <prefix2>syev(compute_v,lower,n,w,a,lda,work,lwork,info)
-    ! w,v,info = syev(a,compute_v=1,lower=0,lwork=3*n-1,overwrite_a=0)
-    ! Compute all eigenvalues and, optionally, eigenvectors of a
-    ! real symmetric matrix A.
-    !
-    ! Performance tip:
-    !   If compute_v=0 then set also overwrite_a=1.
-
-    callstatement (*f2py_func)((compute_v?"V":"N"),(lower?"L":"U"),&n,a,&lda,w,work,&lwork,&info)
-    callprotoargument char*,char*,F_INT*,<ctype2>*,F_INT*,<ctype2>*,<ctype2>*,F_INT*,F_INT*
-
-    integer optional,intent(in):: compute_v = 1
-    check(compute_v==1||compute_v==0) compute_v
-    integer optional,intent(in),check(lower==0||lower==1) :: lower = 0
-
-    integer intent(hide),depend(a):: n = shape(a,0)
-    integer intent(hide),depend(a):: lda = MAX(1,shape(a,0))
-    <ftype2> dimension(n,n),check(shape(a,0)==shape(a,1)) :: a
-    intent(in,copy,out,out=v) :: a
-
-    <ftype2> dimension(n),intent(out),depend(n) :: w
-
-    integer optional,intent(in),depend(n) :: lwork=max(3*n-1,1)
-    check(lwork>=3*n-1) :: lwork
-    <ftype2> dimension(lwork),intent(hide),depend(lwork) :: work
-
-    integer intent(out) :: info
-
-end subroutine <prefix2>syev
-
-
-subroutine <prefix2>syev_lwork(lower,n,w,a,lda,work,lwork,info)
-    ! LWORK routines for syev
-
-    fortranname <prefix2>syev
-
-    callstatement (*f2py_func)("N",(lower?"L":"U"),&n,&a,&lda,&w,&work,&lwork,&info)
-    callprotoargument char*,char*,F_INT*,<ctype2>*,F_INT*,<ctype2>*,<ctype2>*,F_INT*,F_INT*
-    
-     integer intent(in):: n
-     integer optional,intent(in),check(lower==0||lower==1) :: lower = 0
-     
-     integer intent(hide),depend(n):: lda = MAX(1, n)
-     <ftype2> intent(hide):: a
-     <ftype2> intent(hide):: w
-     integer intent(hide):: lwork = -1
-    
-     <ftype2> intent(out):: work
-     integer intent(out):: info
-     
-end subroutine <prefix2>syev_lwork
-
-end interface
-
-end python module _flapack
-
-
-

benchmark/pybench/openblas_wrap/generate_f2pymod.py

@@ -1,299 +0,0 @@
-#!/usr/bin/env python3
-"""
-Process f2py template files (`filename.pyf.src` -> `filename.pyf`)
-
-Usage: python generate_pyf.py filename.pyf.src -o filename.pyf
-"""
-
-import os
-import sys
-import re
-import subprocess
-import argparse
-
-
-# START OF CODE VENDORED FROM `numpy.distutils.from_template`
-#############################################################
-"""
-process_file(filename)
-
-  takes templated file .xxx.src and produces .xxx file where .xxx
-  is .pyf .f90 or .f using the following template rules:
-
-  '<..>' denotes a template.
-
-  All function and subroutine blocks in a source file with names that
-  contain '<..>' will be replicated according to the rules in '<..>'.
-
-  The number of comma-separated words in '<..>' will determine the number of
-  replicates.
-
-  '<..>' may have two different forms, named and short. For example,
-
-  named:
-   <p=d,s,z,c> where anywhere inside a block '<p>' will be replaced with
-   'd', 's', 'z', and 'c' for each replicate of the block.
-
-   <_c>  is already defined: <_c=s,d,c,z>
-   <_t>  is already defined: <_t=real,double precision,complex,double complex>
-
-  short:
-   <s,d,c,z>, a short form of the named, useful when no <p> appears inside
-   a block.
-
-  In general, '<..>' contains a comma separated list of arbitrary
-  expressions. If these expression must contain a comma|leftarrow|rightarrow,
-  then prepend the comma|leftarrow|rightarrow with a backslash.
-
-  If an expression matches '\\<index>' then it will be replaced
-  by <index>-th expression.
-
-  Note that all '<..>' forms in a block must have the same number of
-  comma-separated entries.
-
- Predefined named template rules:
-  <prefix=s,d,c,z>
-  <ftype=real,double precision,complex,double complex>
-  <ftypereal=real,double precision,\\0,\\1>
-  <ctype=float,double,complex_float,complex_double>
-  <ctypereal=float,double,\\0,\\1>
-"""
-
-routine_start_re = re.compile(
-    r'(\n|\A)((     (\$|\*))|)\s*(subroutine|function)\b',
-    re.I
-)
-routine_end_re = re.compile(r'\n\s*end\s*(subroutine|function)\b.*(\n|\Z)', re.I)
-function_start_re = re.compile(r'\n     (\$|\*)\s*function\b', re.I)
-
-def parse_structure(astr):
-    """ Return a list of tuples for each function or subroutine each
-    tuple is the start and end of a subroutine or function to be
-    expanded.
-    """
-
-    spanlist = []
-    ind = 0
-    while True:
-        m = routine_start_re.search(astr, ind)
-        if m is None:
-            break
-        start = m.start()
-        if function_start_re.match(astr, start, m.end()):
-            while True:
-                i = astr.rfind('\n', ind, start)
-                if i==-1:
-                    break
-                start = i
-                if astr[i:i+7]!='\n     $':
-                    break
-        start += 1
-        m = routine_end_re.search(astr, m.end())
-        ind = end = m and m.end()-1 or len(astr)
-        spanlist.append((start, end))
-    return spanlist
-
-template_re = re.compile(r"<\s*(\w[\w\d]*)\s*>")
-named_re = re.compile(r"<\s*(\w[\w\d]*)\s*=\s*(.*?)\s*>")
-list_re = re.compile(r"<\s*((.*?))\s*>")
-
-def find_repl_patterns(astr):
-    reps = named_re.findall(astr)
-    names = {}
-    for rep in reps:
-        name = rep[0].strip() or unique_key(names)
-        repl = rep[1].replace(r'\,', '@comma@')
-        thelist = conv(repl)
-        names[name] = thelist
-    return names
-
-def find_and_remove_repl_patterns(astr):
-    names = find_repl_patterns(astr)
-    astr = re.subn(named_re, '', astr)[0]
-    return astr, names
-
-item_re = re.compile(r"\A\\(?P<index>\d+)\Z")
-def conv(astr):
-    b = astr.split(',')
-    l = [x.strip() for x in b]
-    for i in range(len(l)):
-        m = item_re.match(l[i])
-        if m:
-            j = int(m.group('index'))
-            l[i] = l[j]
-    return ','.join(l)
-
-def unique_key(adict):
-    """ Obtain a unique key given a dictionary."""
-    allkeys = list(adict.keys())
-    done = False
-    n = 1
-    while not done:
-        newkey = '__l%s' % (n)
-        if newkey in allkeys:
-            n += 1
-        else:
-            done = True
-    return newkey
-
-
-template_name_re = re.compile(r'\A\s*(\w[\w\d]*)\s*\Z')
-def expand_sub(substr, names):
-    substr = substr.replace(r'\>', '@rightarrow@')
-    substr = substr.replace(r'\<', '@leftarrow@')
-    lnames = find_repl_patterns(substr)
-    substr = named_re.sub(r"<\1>", substr)  # get rid of definition templates
-
-    def listrepl(mobj):
-        thelist = conv(mobj.group(1).replace(r'\,', '@comma@'))
-        if template_name_re.match(thelist):
-            return "<%s>" % (thelist)
-        name = None
-        for key in lnames.keys():    # see if list is already in dictionary
-            if lnames[key] == thelist:
-                name = key
-        if name is None:      # this list is not in the dictionary yet
-            name = unique_key(lnames)
-            lnames[name] = thelist
-        return "<%s>" % name
-
-    substr = list_re.sub(listrepl, substr) # convert all lists to named templates
-                                           # newnames are constructed as needed
-
-    numsubs = None
-    base_rule = None
-    rules = {}
-    for r in template_re.findall(substr):
-        if r not in rules:
-            thelist = lnames.get(r, names.get(r, None))
-            if thelist is None:
-                raise ValueError('No replicates found for <%s>' % (r))
-            if r not in names and not thelist.startswith('_'):
-                names[r] = thelist
-            rule = [i.replace('@comma@', ',') for i in thelist.split(',')]
-            num = len(rule)
-
-            if numsubs is None:
-                numsubs = num
-                rules[r] = rule
-                base_rule = r
-            elif num == numsubs:
-                rules[r] = rule
-            else:
-                print("Mismatch in number of replacements (base <{}={}>) "
-                      "for <{}={}>. Ignoring."
-                      .format(base_rule, ','.join(rules[base_rule]), r, thelist))
-    if not rules:
-        return substr
-
-    def namerepl(mobj):
-        name = mobj.group(1)
-        return rules.get(name, (k+1)*[name])[k]
-
-    newstr = ''
-    for k in range(numsubs):
-        newstr += template_re.sub(namerepl, substr) + '\n\n'
-
-    newstr = newstr.replace('@rightarrow@', '>')
-    newstr = newstr.replace('@leftarrow@', '<')
-    return newstr
-
-def process_str(allstr):
-    newstr = allstr
-    writestr = ''
-
-    struct = parse_structure(newstr)
-
-    oldend = 0
-    names = {}
-    names.update(_special_names)
-    for sub in struct:
-        cleanedstr, defs = find_and_remove_repl_patterns(newstr[oldend:sub[0]])
-        writestr += cleanedstr
-        names.update(defs)
-        writestr += expand_sub(newstr[sub[0]:sub[1]], names)
-        oldend =  sub[1]
-    writestr += newstr[oldend:]
-
-    return writestr
-
-include_src_re = re.compile(
-    r"(\n|\A)\s*include\s*['\"](?P<name>[\w\d./\\]+\.src)['\"]",
-    re.I
-)
-
-def resolve_includes(source):
-    d = os.path.dirname(source)
-    with open(source) as fid:
-        lines = []
-        for line in fid:
-            m = include_src_re.match(line)
-            if m:
-                fn = m.group('name')
-                if not os.path.isabs(fn):
-                    fn = os.path.join(d, fn)
-                if os.path.isfile(fn):
-                    lines.extend(resolve_includes(fn))
-                else:
-                    lines.append(line)
-            else:
-                lines.append(line)
-    return lines
-
-def process_file(source):
-    lines = resolve_includes(source)
-    return process_str(''.join(lines))
-
-_special_names = find_repl_patterns('''
-<_c=s,d,c,z>
-<_t=real,double precision,complex,double complex>
-<prefix=s,d,c,z>
-<ftype=real,double precision,complex,double complex>
-<ctype=float,double,complex_float,complex_double>
-<ftypereal=real,double precision,\\0,\\1>
-<ctypereal=float,double,\\0,\\1>
-''')
-
-# END OF CODE VENDORED FROM `numpy.distutils.from_template`
-###########################################################
-
-
-def main():
-    parser = argparse.ArgumentParser()
-    parser.add_argument("infile", type=str,
-                        help="Path to the input file")
-    parser.add_argument("-o", "--outdir", type=str,
-                        help="Path to the output directory")
-    args = parser.parse_args()
-
-    if not args.infile.endswith(('.pyf', '.pyf.src', '.f.src')):
-        raise ValueError(f"Input file has unknown extension: {args.infile}")
-
-    outdir_abs = os.path.join(os.getcwd(), args.outdir)
-
-    # Write out the .pyf/.f file
-    if args.infile.endswith(('.pyf.src', '.f.src')):
-        code = process_file(args.infile)
-        fname_pyf = os.path.join(args.outdir,
-                                 os.path.splitext(os.path.split(args.infile)[1])[0])
-
-        with open(fname_pyf, 'w') as f:
-            f.write(code)
-    else:
-        fname_pyf = args.infile
-
-    # Now invoke f2py to generate the C API module file
-    if args.infile.endswith(('.pyf.src', '.pyf')):
-        p = subprocess.Popen([sys.executable, '-m', 'numpy.f2py', fname_pyf,
-                            '--build-dir', outdir_abs], #'--quiet'],
-                            stdout=subprocess.PIPE, stderr=subprocess.PIPE,
-                            cwd=os.getcwd())
-        out, err = p.communicate()
-        if not (p.returncode == 0):
-            raise RuntimeError(f"Writing {args.outfile} with f2py failed!\n"
-                            f"{out}\n"
-                            r"{err}")
-
-
-if __name__ == "__main__":
-    main()

benchmark/pybench/openblas_wrap/meson.build

@@ -1,50 +0,0 @@
-# find numpy & f2py includes
-inc_numpy = run_command(py3,
-  ['-c', 'import os; os.chdir(".."); import numpy; print(numpy.get_include())'],
-  check : true
-).stdout().strip()
-
-inc_f2py = run_command(py3,
-    ['-c', 'import os; os.chdir(".."); import numpy.f2py; print(numpy.f2py.get_include())'],
-    check : true
-).stdout().strip()
-
-
-inc_np = include_directories(inc_numpy, inc_f2py)
-fortranobject_c = inc_f2py / 'fortranobject.c'
-
-
-fortranobject_lib = static_library('_fortranobject',
-  fortranobject_c,
-#  c_args: numpy_nodepr_api,
-  dependencies: py3_dep,
-  include_directories: [inc_np, inc_f2py],
-  gnu_symbol_visibility: 'hidden',
-)
-fortranobject_dep = declare_dependency(
-  link_with: fortranobject_lib,
-  include_directories: [inc_np, inc_f2py],
-)
-
-
-# f2py generated wrappers
-
-flapack_module = custom_target('flapack_module',
-  output: ['_flapackmodule.c'],
-  input: 'blas_lapack.pyf.src',
-  command: [generate_f2pymod, '@INPUT@', '-o', '@OUTDIR@'],
-)
-
-py3.extension_module('_flapack',
-  flapack_module,
-  link_args: [],  # version_link_args,
-  dependencies: [openblas_dep, fortranobject_dep],
-  install: true,
-  subdir: 'openblas_wrap'
-)
-
-
-py3.install_sources(
-  ['__init__.py'],
-  subdir: 'openblas_wrap'
-)

benchmark/pybench/scipy_openblas.pc

@@ -1,12 +0,0 @@
-libdir=/home/br/repos/OpenBLAS/
-includedir=/home/br/repos/OpenBLAS/
-openblas_config= OpenBLAS 0.3.27 DYNAMIC_ARCH NO_AFFINITY Haswell MAX_THREADS=64
-version=0.3.27
-extralib=-lm -lpthread -lgfortran -lquadmath -L${libdir} -lopenblas
-Name: openblas
-Description: OpenBLAS is an optimized BLAS library based on GotoBLAS2 1.13 BSD version
-Version: ${version}
-URL: https://github.com/xianyi/OpenBLAS
-Libs: -L${libdir} -lopenblas
-Libs.private: ${extralib}
-Cflags: -I${includedir}

benchmark/syr2.c

@@ -54,7 +54,7 @@ int main(int argc, char *argv[]){
   int step =   1;
   int loops =  1;
 
-  if ((p = getenv("OPENBLAS_LOOPS"))) loops=atoi(p);
+  if ((p = getenv("OPENBLAS_LOOPS"))) loops=*p;
 
   double time1,timeg;
 

benchmark/trsv.c

@@ -127,7 +127,7 @@ int main(int argc, char *argv[]){
       long long muls = n*(n+1)/2.0;
       long long adds = (n - 1.0)*n/2.0;
 
-      fprintf(stderr, "%10d :   %10.2f MFlops %10.6f sec\n", n,(muls+adds) / timeg * 1.e-6, timeg);
+      fprintf(stderr, "%10d   %10.2f MFlops %10.6f sec\n", n,(muls+adds) / timeg * 1.e-6, timeg);
       if(a != NULL){
         free(a);
       }

c_check

@@ -31,11 +31,11 @@ flags="$*"
 
 cross_suffix=""
 
-if [ "`dirname "$compiler_name"`" != '.' ]; then
-    cross_suffix="$cross_suffix`dirname "$compiler_name"`/"
+if [ "`dirname \"$compiler_name\"`" != '.' ]; then
+    cross_suffix="$cross_suffix`dirname \"$compiler_name\"`/"
 fi
 
-cn=`echo $compiler_name | sed -e 's/ -.*//'`
+cn= `echo $compiler_name | sed -e 's/ -.*//'`
 bn=`basename "$cn"`
 
 case "$bn" in
@@ -91,25 +91,16 @@ case "$data" in
     *ARCH_ZARCH*) architecture=zarch ;;
     *ARCH_RISCV64*) architecture=riscv64 ;;
     *ARCH_LOONGARCH64*) architecture=loongarch64 ;;
-    *ARCH_CSKY*) architecture=csky ;;
 esac
 
 defined=0
 
 if [ "$os" = "AIX" ]; then
-    if [ "$compiler" = "GCC" ]; then
-        case "$BINARY" in
-            32) compiler_name="$compiler_name -maix32" ;;
-            64) compiler_name="$compiler_name -maix64" ;;
-        esac
-        defined=1
-    else
-        case "$BINARY" in
-            32) compiler_name="$compiler_name -m32" ;;
-            64) compiler_name="$compiler_name -m64" ;;
-        esac
-        defined=1
-    fi
+    case "$BINARY" in
+        32) compiler_name="$compiler_name -maix32" ;;
+        64) compiler_name="$compiler_name -maix64" ;;
+    esac
+    defined=1
 fi
 
 case "$architecture" in
@@ -194,46 +185,6 @@ if [ "$architecture" = "mips" ] || [ "$architecture" = "mips64" ]; then
     rm -rf "$tmpd"
 fi
 
-no_lsx=0
-no_lasx=0
-if [ "$architecture" = "loongarch64" ]; then
-    lasx_flags='-march=loongarch64'
-    lsx_flags='-march=loongarch64'
-
-    tmpd="$(mktemp -d)"
-    tmparch="$tmpd/arch.c"
-    printf "void main(void){ }\n" >> "$tmparch"
-    args="-march=loongarch64 -o $tmparch.o $tmparch"
-    {
-        $compiler_name $flags $args >/dev/null 2>&1
-    } || {
-        lasx_flags=''
-        lsx_flags=''
-    }
-
-    tmplsx="$tmpd/lsx.c"
-    codelsx='"vadd.b $vr0, $vr0, $vr0"'
-    printf "void main(void){ __asm__ volatile(%s);}\n" "$codelsx" >> "$tmplsx"
-    args="$lsx_flags -o $tmplsx.o $tmplsx"
-    {
-        $compiler_name $flags $args >/dev/null 2>&1
-    } || {
-        no_lsx=1
-    }
-
-    tmplasx="$tmpd/lasx.c"
-    codelasx='"xvadd.b $xr0, $xr0, $xr0"'
-    printf "void main(void){ __asm__ volatile(%s);}\n" "$codelasx" >> "$tmplasx"
-    args="$lasx_flags -o $tmplasx.o $tmplasx"
-    {
-        $compiler_name $flags $args >/dev/null 2>&1
-    } || {
-        no_lasx=1
-    }
-
-    rm -rf "$tmpd"
-fi
-
 case "$data" in
     *ARCH_X86_64*) architecture=x86_64 ;;
     *ARCH_X86*) architecture=x86 ;;
@@ -248,7 +199,6 @@ case "$data" in
     *ARCH_ARM*) architecture=arm ;;
     *ARCH_ZARCH*) architecture=zarch ;;
     *ARCH_LOONGARCH64*) architecture=loongarch64 ;;
-    *ARCH_CSKY*) architecture=csky ;;
 esac
 
 binformat='bin32'
@@ -257,7 +207,6 @@ case "$data" in
 esac
 
 no_avx512=0
-no_avx512bf=0
 if [ "$architecture" = "x86" ] || [ "$architecture" = "x86_64" ]; then
     tmpd=$(mktemp -d 2>/dev/null || mktemp -d -t 'OBC')
     tmpf="$tmpd/a.c"
@@ -276,25 +225,6 @@ if [ "$architecture" = "x86" ] || [ "$architecture" = "x86_64" ]; then
     }
 
     rm -rf "$tmpd"
-    if [ "$no_avx512" -eq 0 ]; then
-    tmpd=$(mktemp -d 2>/dev/null || mktemp -d -t 'OBC')
-    tmpf="$tmpd/a.c"
-    code='"__m512 a= _mm512_dpbf16_ps(a, (__m512bh) _mm512_loadu_si512(%1]), (__m512bh) _mm512_loadu_si512(%2]));"'
-    printf "#include <immintrin.h>\n\nint main(void){ %s; }\n" "$code" >> "$tmpf"
-    if [ "$compiler" = "PGI" ]; then
-        args=" -tp cooperlake -c -o $tmpf.o $tmpf"
-    else
-        args=" -march=cooperlake -c -o $tmpf.o $tmpf"
-    fi
-    no_avx512bf=0
-    {
-        $compiler_name $flags $args >/dev/null 2>&1
-    } || {
-        no_avx512bf=1
-    }
-
-    rm -rf "$tmpd"
-  fi
 fi
 
 no_rv64gv=0
@@ -322,9 +252,6 @@ if [ "$architecture" = "arm64" ]; then
     no_sve=0
     {
         $compiler_name $flags $args >/dev/null 2>&1
-    } || {
-        args=" -Msve_intrinsics -c -o $tmpf.o $tmpf"
-        $compiler_name $flags $args >/dev/null 2>&1
     } || {
         no_sve=1
     }
@@ -356,9 +283,6 @@ if [ "$compiler" = "GCC" ]; then
         no_avx2=0
         oldgcc=0
         data=`$compiler_name -dumpversion`
-        case "$data" in *-*)
-            data="${data%-*}"
-        esac
         case "$data" in *.*.*)
             data="${data%.*}"
         esac
@@ -445,7 +369,6 @@ done
  [ "$makefile" = "-" ] && {
     [ "$no_rv64gv" -eq 1 ] && printf "NO_RV64GV=1\n"
     [ "$no_avx512" -eq 1 ] && printf "NO_AVX512=1\n"
-    [ "$no_avx512bf" -eq 1 ] && printf "NO_AVX512BF16=1\n"
     [ "$no_avx2" -eq 1 ] && printf "NO_AVX2=1\n"
     [ "$oldgcc" -eq 1 ] && printf "OLDGCC=1\n"
     exit 0
@@ -474,11 +397,8 @@ done
     [ "$no_sve" -eq 1 ] && printf "NO_SVE=1\n"
     [ "$no_rv64gv" -eq 1 ] && printf "NO_RV64GV=1\n"
     [ "$no_avx512" -eq 1 ] && printf "NO_AVX512=1\n"
-    [ "$no_avx512bf" -eq 1 ] && printf "NO_AVX512BF16=1\n"
     [ "$no_avx2" -eq 1 ] && printf "NO_AVX2=1\n"
     [ "$oldgcc" -eq 1 ] && printf "OLDGCC=1\n"
-    [ "$no_lsx" -eq 1 ] && printf "NO_LSX=1\n"
-    [ "$no_lasx" -eq 1 ] && printf "NO_LASX=1\n"
 } >> "$makefile"
 
 os=`echo "$os" | tr '[[:lower:]]' '[[:upper:]]'/ `
@@ -494,8 +414,6 @@ compiler=`echo "$compiler" | tr '[[:lower:]]' '[[:upper:]]' `
     [ -n "$need_fu" ] && printf "#define FUNDERSCORE\t%s\n" "$need_fu"
     [ "$no_msa" -eq 1 ] && printf "#define NO_MSA\t1\n"
     [ "$c11_atomics" -eq 1 ] && printf "#define HAVE_C11\t1\n"
-    [ "$no_lsx" -eq 1 ] && printf "#define NO_LSX\t1\n"
-    [ "$no_lasx" -eq 1 ] && printf "#define NO_LASX\t1\n"
 } >> "$config"
 
 

c_check.pl

@@ -97,7 +97,6 @@ $architecture = arm64        if ($data =~ /ARCH_ARM64/);
 $architecture = zarch        if ($data =~ /ARCH_ZARCH/);
 $architecture = riscv64      if ($data =~ /ARCH_RISCV64/);
 $architecture = loongarch64  if ($data =~ /ARCH_LOONGARCH64/);
-$architecture = csky         if ($data =~ /ARCH_CSKY/);
 
 $defined = 0;
 
@@ -157,11 +156,6 @@ if ($architecture eq "loongarch64") {
     $binary = 64;
 }
 
-if ($architecture eq "csky") {
-    $defined = 1;
-    $binary = 32;
-}
-
 if ($compiler eq "PGI") {
     $compiler_name .= " -tp p7"    if ($binary eq "32");
     $compiler_name .= " -tp p7-64" if ($binary eq "64");
@@ -238,45 +232,6 @@ if (($architecture eq "mips") || ($architecture eq "mips64")) {
     }
 }
 
-$no_lsx = 0;
-$no_lasx = 0;
-if (($architecture eq "loongarch64")) {
-    eval "use File::Temp qw(tempfile)";
-    if ($@){
-	warn "could not load PERL module File::Temp, so could not check LSX and LASX capatibility";
-    } else {
-	$tmplsx = new File::Temp( SUFFIX => '.c' , UNLINK => 1 );
-	$codelsx = '"vadd.b $vr0, $vr0, $vr0"';
-	$lsx_flags = "-march=loongarch64";
-	print $tmplsx "void main(void){ __asm__ volatile($codelsx); }\n";
-
-	$args = "$lsx_flags -o $tmplsx.o $tmplsx";
-	my @cmd = ("$compiler_name $flags $args >/dev/null 2>/dev/null");
-	system(@cmd) == 0;
-	if ($? != 0) {
-	    $no_lsx = 1;
-	} else {
-	    $no_lsx = 0;
-	}
-	unlink("$tmplsx.o");
-
-	$tmplasx = new File::Temp( SUFFIX => '.c' , UNLINK => 1 );
-	$codelasx = '"xvadd.b $xr0, $xr0, $xr0"';
-	$lasx_flags = "-march=loongarch64";
-	print $tmplasx "void main(void){ __asm__ volatile($codelasx); }\n";
-
-	$args = "$lasx_flags -o $tmplasx.o $tmplasx";
-	my @cmd = ("$compiler_name $flags $args >/dev/null 2>/dev/null");
-	system(@cmd) == 0;
-	if ($? != 0) {
-	    $no_lasx = 1;
-	} else {
-	    $no_lasx = 0;
-	}
-	unlink("$tmplasx.o");
-    }
-}
-
 $architecture = x86          if ($data =~ /ARCH_X86/);
 $architecture = x86_64       if ($data =~ /ARCH_X86_64/);
 $architecture = e2k          if ($data =~ /ARCH_E2K/);
@@ -290,7 +245,6 @@ $architecture = arm          if ($data =~ /ARCH_ARM/);
 $architecture = arm64        if ($data =~ /ARCH_ARM64/);
 $architecture = zarch        if ($data =~ /ARCH_ZARCH/);
 $architecture = loongarch64  if ($data =~ /ARCH_LOONGARCH64/);
-$architecture = csky         if ($data =~ /ARCH_CSKY/);
 
 $binformat    = bin32;
 $binformat    = bin64  if ($data =~ /BINARY_64/);
@@ -470,8 +424,6 @@ print MAKEFILE "NO_RV64GV=1\n" if $no_rv64gv eq 1;
 print MAKEFILE "NO_AVX512=1\n" if $no_avx512 eq 1;
 print MAKEFILE "NO_AVX2=1\n" if $no_avx2 eq 1;
 print MAKEFILE "OLDGCC=1\n" if $oldgcc eq 1;
-print MAKEFILE "NO_LSX=1\n" if $no_lsx eq 1;
-print MAKEFILE "NO_LASX=1\n" if $no_lasx eq 1;
 
 $os           =~ tr/[a-z]/[A-Z]/;
 $architecture =~ tr/[a-z]/[A-Z]/;
@@ -485,8 +437,6 @@ print CONFFILE "#define __64BIT__\t1\n"  if $binformat eq bin64;
 print CONFFILE "#define FUNDERSCORE\t$need_fu\n" if $need_fu ne "";
 print CONFFILE "#define HAVE_MSA\t1\n"  if $have_msa eq 1;
 print CONFFILE "#define HAVE_C11\t1\n" if $c11_atomics eq 1;
-print CONFFILE "#define NO_LSX\t1\n" if $no_lsx eq 1;
-print CONFFILE "#define NO_LASX\t1\n" if $no_lasx eq 1;
 
 
 if ($os eq "LINUX") {

cblas.h

@@ -12,7 +12,6 @@ extern "C" {
 /*Set the number of threads on runtime.*/
 void openblas_set_num_threads(int num_threads);
 void goto_set_num_threads(int num_threads);
-int openblas_set_num_threads_local(int num_threads);
 
 /*Get the number of threads on runtime.*/
 int openblas_get_num_threads(void);
@@ -26,11 +25,6 @@ char* openblas_get_config(void);
 /*Get the CPU corename on runtime.*/
 char* openblas_get_corename(void);
 
-/*Set the threading backend to a custom callback.*/
-typedef void (*openblas_dojob_callback)(int thread_num, void *jobdata, int dojob_data);
-typedef void (*openblas_threads_callback)(int sync, openblas_dojob_callback dojob, int numjobs, size_t jobdata_elsize, void *jobdata, int dojob_data);
-void openblas_set_threads_callback_function(openblas_threads_callback callback);
-
 #ifdef OPENBLAS_OS_LINUX
 /* Sets thread affinity for OpenBLAS threads. `thread_idx` is in [0, openblas_get_num_threads()-1]. */
 int openblas_setaffinity(int thread_idx, size_t cpusetsize, cpu_set_t* cpu_set);
@@ -106,16 +100,6 @@ CBLAS_INDEX cblas_idamin(OPENBLAS_CONST blasint n, OPENBLAS_CONST double *x, OPE
 CBLAS_INDEX cblas_icamin(OPENBLAS_CONST blasint n, OPENBLAS_CONST void  *x, OPENBLAS_CONST blasint incx);
 CBLAS_INDEX cblas_izamin(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx);
 
-float cblas_samax(OPENBLAS_CONST blasint n, OPENBLAS_CONST float  *x, OPENBLAS_CONST blasint incx);
-double cblas_damax(OPENBLAS_CONST blasint n, OPENBLAS_CONST double *x, OPENBLAS_CONST blasint incx);
-float cblas_scamax(OPENBLAS_CONST blasint n, OPENBLAS_CONST void  *x, OPENBLAS_CONST blasint incx);
-double cblas_dzamax(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx);
-
-float cblas_samin(OPENBLAS_CONST blasint n, OPENBLAS_CONST float  *x, OPENBLAS_CONST blasint incx);
-double cblas_damin(OPENBLAS_CONST blasint n, OPENBLAS_CONST double *x, OPENBLAS_CONST blasint incx);
-float cblas_scamin(OPENBLAS_CONST blasint n, OPENBLAS_CONST void  *x, OPENBLAS_CONST blasint incx);
-double cblas_dzamin(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx);
-
 CBLAS_INDEX cblas_ismax(OPENBLAS_CONST blasint n, OPENBLAS_CONST float  *x, OPENBLAS_CONST blasint incx);
 CBLAS_INDEX cblas_idmax(OPENBLAS_CONST blasint n, OPENBLAS_CONST double *x, OPENBLAS_CONST blasint incx);
 CBLAS_INDEX cblas_icmax(OPENBLAS_CONST blasint n, OPENBLAS_CONST void  *x, OPENBLAS_CONST blasint incx);
@@ -131,9 +115,6 @@ void cblas_daxpy(OPENBLAS_CONST blasint n, OPENBLAS_CONST double alpha, OPENBLAS
 void cblas_caxpy(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx, void *y, OPENBLAS_CONST blasint incy);
 void cblas_zaxpy(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx, void *y, OPENBLAS_CONST blasint incy);
 
-void cblas_caxpyc(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx, void *y, OPENBLAS_CONST blasint incy);
-void cblas_zaxpyc(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx, void *y, OPENBLAS_CONST blasint incy);
-
 void cblas_scopy(OPENBLAS_CONST blasint n, OPENBLAS_CONST float *x, OPENBLAS_CONST blasint incx, float *y, OPENBLAS_CONST blasint incy);
 void cblas_dcopy(OPENBLAS_CONST blasint n, OPENBLAS_CONST double *x, OPENBLAS_CONST blasint incx, double *y, OPENBLAS_CONST blasint incy);
 void cblas_ccopy(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx, void *y, OPENBLAS_CONST blasint incy);
@@ -308,14 +289,6 @@ void cblas_zgemm(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLA
 void cblas_zgemm3m(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransB, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint N, OPENBLAS_CONST blasint K,
 		 OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *A, OPENBLAS_CONST blasint lda, OPENBLAS_CONST void *B, OPENBLAS_CONST blasint ldb, OPENBLAS_CONST void *beta, void *C, OPENBLAS_CONST blasint ldc);
 
-void cblas_sgemmt(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransB, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint K,
-		 OPENBLAS_CONST float alpha, OPENBLAS_CONST float *A, OPENBLAS_CONST blasint lda, OPENBLAS_CONST float *B, OPENBLAS_CONST blasint ldb, OPENBLAS_CONST float beta, float *C, OPENBLAS_CONST blasint ldc);
-void cblas_dgemmt(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransB, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint K,
-		 OPENBLAS_CONST double alpha, OPENBLAS_CONST double *A, OPENBLAS_CONST blasint lda, OPENBLAS_CONST double *B, OPENBLAS_CONST blasint ldb, OPENBLAS_CONST double beta, double *C, OPENBLAS_CONST blasint ldc);
-void cblas_cgemmt(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransB, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint K,
-		 OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *A, OPENBLAS_CONST blasint lda, OPENBLAS_CONST void *B, OPENBLAS_CONST blasint ldb, OPENBLAS_CONST void *beta, void *C, OPENBLAS_CONST blasint ldc);
-void cblas_zgemmt(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransB, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint K,
-		 OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *A, OPENBLAS_CONST blasint lda, OPENBLAS_CONST void *B, OPENBLAS_CONST blasint ldb, OPENBLAS_CONST void *beta, void *C, OPENBLAS_CONST blasint ldc);
 
 void cblas_ssymm(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_SIDE Side, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint N,
                  OPENBLAS_CONST float alpha, OPENBLAS_CONST float *A, OPENBLAS_CONST blasint lda, OPENBLAS_CONST float *B, OPENBLAS_CONST blasint ldb, OPENBLAS_CONST float beta, float *C, OPENBLAS_CONST blasint ldc);
@@ -407,27 +380,15 @@ void cblas_cimatcopy(OPENBLAS_CONST enum CBLAS_ORDER CORDER, OPENBLAS_CONST enum
 void cblas_zimatcopy(OPENBLAS_CONST enum CBLAS_ORDER CORDER, OPENBLAS_CONST enum CBLAS_TRANSPOSE CTRANS, OPENBLAS_CONST blasint crows, OPENBLAS_CONST blasint ccols, OPENBLAS_CONST double* calpha, double* a, 
 		     OPENBLAS_CONST blasint clda, OPENBLAS_CONST blasint cldb); 
 
-void cblas_sgeadd(OPENBLAS_CONST enum CBLAS_ORDER CORDER,OPENBLAS_CONST blasint crows, OPENBLAS_CONST blasint ccols, OPENBLAS_CONST float calpha, OPENBLAS_CONST float *a, OPENBLAS_CONST blasint clda, OPENBLAS_CONST float cbeta, 
+void cblas_sgeadd(OPENBLAS_CONST enum CBLAS_ORDER CORDER,OPENBLAS_CONST blasint crows, OPENBLAS_CONST blasint ccols, OPENBLAS_CONST float calpha, float *a, OPENBLAS_CONST blasint clda, OPENBLAS_CONST float cbeta, 
 		  float *c, OPENBLAS_CONST blasint cldc); 
-void cblas_dgeadd(OPENBLAS_CONST enum CBLAS_ORDER CORDER,OPENBLAS_CONST blasint crows, OPENBLAS_CONST blasint ccols, OPENBLAS_CONST double calpha, OPENBLAS_CONST double *a, OPENBLAS_CONST blasint clda, OPENBLAS_CONST double cbeta, 
+void cblas_dgeadd(OPENBLAS_CONST enum CBLAS_ORDER CORDER,OPENBLAS_CONST blasint crows, OPENBLAS_CONST blasint ccols, OPENBLAS_CONST double calpha, double *a, OPENBLAS_CONST blasint clda, OPENBLAS_CONST double cbeta, 
 		  double *c, OPENBLAS_CONST blasint cldc); 
-void cblas_cgeadd(OPENBLAS_CONST enum CBLAS_ORDER CORDER,OPENBLAS_CONST blasint crows, OPENBLAS_CONST blasint ccols, OPENBLAS_CONST float *calpha, OPENBLAS_CONST float *a, OPENBLAS_CONST blasint clda, OPENBLAS_CONST float *cbeta, 
+void cblas_cgeadd(OPENBLAS_CONST enum CBLAS_ORDER CORDER,OPENBLAS_CONST blasint crows, OPENBLAS_CONST blasint ccols, OPENBLAS_CONST float *calpha, float *a, OPENBLAS_CONST blasint clda, OPENBLAS_CONST float *cbeta, 
 		  float *c, OPENBLAS_CONST blasint cldc); 
-void cblas_zgeadd(OPENBLAS_CONST enum CBLAS_ORDER CORDER,OPENBLAS_CONST blasint crows, OPENBLAS_CONST blasint ccols, OPENBLAS_CONST double *calpha, OPENBLAS_CONST double *a, OPENBLAS_CONST blasint clda, OPENBLAS_CONST double *cbeta, 
+void cblas_zgeadd(OPENBLAS_CONST enum CBLAS_ORDER CORDER,OPENBLAS_CONST blasint crows, OPENBLAS_CONST blasint ccols, OPENBLAS_CONST double *calpha, double *a, OPENBLAS_CONST blasint clda, OPENBLAS_CONST double *cbeta, 
 		  double *c, OPENBLAS_CONST blasint cldc); 
 
-void cblas_sgemm_batch(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_TRANSPOSE * TransA_array, OPENBLAS_CONST enum CBLAS_TRANSPOSE * TransB_array, OPENBLAS_CONST blasint * M_array, OPENBLAS_CONST blasint * N_array, OPENBLAS_CONST blasint * K_array,
-		       OPENBLAS_CONST float * alpha_array, OPENBLAS_CONST float ** A_array, OPENBLAS_CONST blasint * lda_array, OPENBLAS_CONST float ** B_array, OPENBLAS_CONST blasint * ldb_array, OPENBLAS_CONST float * beta_array, float ** C_array, OPENBLAS_CONST blasint * ldc_array, OPENBLAS_CONST blasint group_count, OPENBLAS_CONST blasint * group_size);
-
-void cblas_dgemm_batch(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_TRANSPOSE * TransA_array, OPENBLAS_CONST enum CBLAS_TRANSPOSE * TransB_array, OPENBLAS_CONST blasint * M_array, OPENBLAS_CONST blasint * N_array, OPENBLAS_CONST blasint * K_array,
-		       OPENBLAS_CONST double * alpha_array, OPENBLAS_CONST double ** A_array, OPENBLAS_CONST blasint * lda_array, OPENBLAS_CONST double ** B_array, OPENBLAS_CONST blasint * ldb_array, OPENBLAS_CONST double * beta_array, double ** C_array, OPENBLAS_CONST blasint * ldc_array, OPENBLAS_CONST blasint group_count, OPENBLAS_CONST blasint * group_size);
-
-void cblas_cgemm_batch(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_TRANSPOSE * TransA_array, OPENBLAS_CONST enum CBLAS_TRANSPOSE * TransB_array, OPENBLAS_CONST blasint * M_array, OPENBLAS_CONST blasint * N_array, OPENBLAS_CONST blasint * K_array,
-		       OPENBLAS_CONST void * alpha_array, OPENBLAS_CONST void ** A_array, OPENBLAS_CONST blasint * lda_array, OPENBLAS_CONST void ** B_array, OPENBLAS_CONST blasint * ldb_array, OPENBLAS_CONST void * beta_array, void ** C_array, OPENBLAS_CONST blasint * ldc_array, OPENBLAS_CONST blasint group_count, OPENBLAS_CONST blasint * group_size);
-
-void cblas_zgemm_batch(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_TRANSPOSE * TransA_array, OPENBLAS_CONST enum CBLAS_TRANSPOSE * TransB_array, OPENBLAS_CONST blasint * M_array, OPENBLAS_CONST blasint * N_array, OPENBLAS_CONST blasint * K_array,
-		       OPENBLAS_CONST void * alpha_array, OPENBLAS_CONST void ** A_array, OPENBLAS_CONST blasint * lda_array, OPENBLAS_CONST void ** B_array, OPENBLAS_CONST blasint * ldb_array, OPENBLAS_CONST void * beta_array, void ** C_array, OPENBLAS_CONST blasint * ldc_array, OPENBLAS_CONST blasint group_count, OPENBLAS_CONST blasint * group_size);
-
 /*** BFLOAT16 and INT8 extensions ***/
 /* convert float array to BFLOAT16 array by rounding */
 void   cblas_sbstobf16(OPENBLAS_CONST blasint n, OPENBLAS_CONST float  *in, OPENBLAS_CONST blasint incin, bfloat16 *out, OPENBLAS_CONST blasint incout);
@@ -443,9 +404,6 @@ void   cblas_sbgemv(OPENBLAS_CONST enum CBLAS_ORDER order,  OPENBLAS_CONST enum
 
 void   cblas_sbgemm(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransB, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint N, OPENBLAS_CONST blasint K,
 		    OPENBLAS_CONST float alpha, OPENBLAS_CONST bfloat16 *A, OPENBLAS_CONST blasint lda, OPENBLAS_CONST bfloat16 *B, OPENBLAS_CONST blasint ldb, OPENBLAS_CONST float beta, float *C, OPENBLAS_CONST blasint ldc);
-void cblas_sbgemm_batch(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_TRANSPOSE * TransA_array, OPENBLAS_CONST enum CBLAS_TRANSPOSE * TransB_array, OPENBLAS_CONST blasint * M_array, OPENBLAS_CONST blasint * N_array, OPENBLAS_CONST blasint * K_array,
-		       OPENBLAS_CONST float * alpha_array, OPENBLAS_CONST bfloat16 ** A_array, OPENBLAS_CONST blasint * lda_array, OPENBLAS_CONST bfloat16 ** B_array, OPENBLAS_CONST blasint * ldb_array, OPENBLAS_CONST float * beta_array, float ** C_array, OPENBLAS_CONST blasint * ldc_array, OPENBLAS_CONST blasint group_count, OPENBLAS_CONST blasint * group_size);
-
 #ifdef __cplusplus
 }
 #endif  /* __cplusplus */

cmake/arch.cmake

@@ -44,9 +44,9 @@ endif ()
 
 if (DYNAMIC_ARCH)
   if (ARM64)
-	  set(DYNAMIC_CORE ARMV8 CORTEXA53 CORTEXA57 THUNDERX THUNDERX2T99 TSV110 EMAG8180 NEOVERSEN1 THUNDERX3T110)
+	  set(DYNAMIC_CORE ARMV8 CORTEXA53 CORTEXA55 CORTEXA57 CORTEXA72 CORTEXA73 FALKOR THUNDERX THUNDERX2T99 TSV110 EMAG8180 NEOVERSEN1 THUNDERX3T110)
     if (${CMAKE_C_COMPILER_VERSION} VERSION_GREATER 9.99)
-	    set(DYNAMIC_CORE ${DYNAMIC_CORE} NEOVERSEV1 NEOVERSEN2 ARMV8SVE A64FX)
+          set(DYNAMIC_CORE "${DYNAMIC_CORE} NEOVERSEV1 NEOVERSEN2")
     endif ()
     if (DYNAMIC_LIST)
 	  set(DYNAMIC_CORE ARMV8 ${DYNAMIC_LIST})
@@ -57,11 +57,7 @@ if (DYNAMIC_ARCH)
 	  set(DYNAMIC_CORE POWER6 POWER8 POWER9 POWER10)
 	  set(CCOMMON_OPT "${CCOMMON_OPT} -DHAVE_P10_SUPPORT")
   endif ()
- 
-  if (RISCV64)
-	  set(DYNAMIC_CORE RISCV64_GENERIC RISCV64_ZVL128B RISCV64_ZVL256B) 
-  endif ()
-
+  
   if (X86)
     set(DYNAMIC_CORE KATMAI COPPERMINE NORTHWOOD PRESCOTT BANIAS CORE2 PENRYN DUNNINGTON NEHALEM ATHLON OPTERON OPTERON_SSE3 BARCELONA BOBCAT ATOM NANO)
   endif ()
@@ -94,10 +90,6 @@ if (DYNAMIC_ARCH)
     endif ()
   endif ()
 
-  if (LOONGARCH64)
-    set(DYNAMIC_CORE LA64_GENERIC LA264 LA464)
-  endif ()
-
   if (EXISTS ${PROJECT_SOURCE_DIR}/config_kernel.h)
 	  message (FATAL_ERROR "Your build directory contains a file config_kernel.h, probably from a previous compilation with make. This will conflict with the cmake compilation and cause strange compiler errors - please remove the file before trying again")
   endif ()
@@ -143,7 +135,7 @@ if (ARM64)
   set(BINARY_DEFINED 1)
 endif ()
 
-if (RISCV64)
+if (${ARCH} STREQUAL "riscv64")
   set(NO_BINARY_MODE 1)
   set(BINARY_DEFINED 1)
 endif ()

cmake/cc.cmake

@@ -2,18 +2,12 @@
 ## Author: Hank Anderson <hank@statease.com>
 ## Description: Ported from portion of OpenBLAS/Makefile.system
 ##              Sets C related variables.
-include(CheckCCompilerFlag)
-
-if (${CMAKE_C_COMPILER_ID} MATCHES "IntelLLVM")
-  set(CCOMMON_OPT "${CCOMMON_OPT} -fp-model=consistent")
-  set(GCC_VERSION 100)
-endif ()
 
 if (${CMAKE_C_COMPILER_ID} STREQUAL "GNU" OR ${CMAKE_C_COMPILER_ID} STREQUAL "LSB" OR ${CMAKE_C_COMPILER_ID} MATCHES "Clang")
+
   set(CCOMMON_OPT "${CCOMMON_OPT} -Wall")
   set(COMMON_PROF "${COMMON_PROF} -fno-inline")
   set(NO_UNINITIALIZED_WARN "-Wno-uninitialized")
-  set(GCC_VERSION ${CMAKE_C_COMPILER_VERSION})
 
   if (QUIET_MAKE)
     set(CCOMMON_OPT "${CCOMMON_OPT} ${NO_UNINITIALIZED_WARN} -Wno-unused")
@@ -42,19 +36,9 @@ if (${CMAKE_C_COMPILER_ID} STREQUAL "GNU" OR ${CMAKE_C_COMPILER_ID} STREQUAL "LS
 
     if (LOONGARCH64)
       if (BINARY64)
-	CHECK_C_COMPILER_FLAG("-mabi=lp64d" COMPILER_SUPPORT_LP64D_ABI)
-        if(COMPILER_SUPPORT_LP64D_ABI)
-	  set(CCOMMON_OPT "${CCOMMON_OPT} -mabi=lp64d")
-	else()
-	  set(CCOMMON_OPT "${CCOMMON_OPT} -mabi=lp64")
-	endif ()
+        set(CCOMMON_OPT "${CCOMMON_OPT} -mabi=lp64")
       else ()
-	CHECK_C_COMPILER_FLAG("-mabi=ilp32d" COMPILER_SUPPORT_ILP32D_ABI)
-	if(COMPILER_SUPPORT_ILP32D_ABI)
-	  set(CCOMMON_OPT "${CCOMMON_OPT} -mabi=ilp32d")
-	else()
-	  set(CCOMMON_OPT "${CCOMMON_OPT} -mabi=lp32")
-	endif ()
+        set(CCOMMON_OPT "${CCOMMON_OPT} -mabi=lp32")
       endif ()
       set(BINARY_DEFINED 1)
     endif ()
@@ -145,6 +129,7 @@ endif ()
 if (${CORE} STREQUAL COOPERLAKE)
   if (NOT DYNAMIC_ARCH)
     if (NOT NO_AVX512)
+      execute_process(COMMAND ${CMAKE_C_COMPILER} -dumpversion OUTPUT_VARIABLE GCC_VERSION)
       if (${GCC_VERSION} VERSION_GREATER 10.1 OR ${GCC_VERSION} VERSION_EQUAL 10.1)
         set (CCOMMON_OPT  "${CCOMMON_OPT} -march=cooperlake")
       else ()
@@ -157,6 +142,7 @@ endif ()
 if (${CORE} STREQUAL SAPPHIRERAPIDS)
   if (NOT DYNAMIC_ARCH)
     if (NOT NO_AVX512)
+      execute_process(COMMAND ${CMAKE_C_COMPILER} -dumpversion OUTPUT_VARIABLE GCC_VERSION)
       if (${GCC_VERSION} VERSION_GREATER 11.0 OR ${GCC_VERSION} VERSION_EQUAL 11.0)
         set (CCOMMON_OPT  "${CCOMMON_OPT} -march=sapphirerapids")
       else ()
@@ -170,6 +156,7 @@ if (${CORE} STREQUAL ZEN)
   if (HAVE_AVX512VL)
     if (NOT DYNAMIC_ARCH)
       if (NOT NO_AVX512)
+        execute_process(COMMAND ${CMAKE_C_COMPILER} -dumpversion OUTPUT_VARIABLE GCC_VERSION)
         if (${GCC_VERSION} VERSION_GREATER 13.0 OR ${GCC_VERSION} VERSION_EQUAL 13.0)
           set (CCOMMON_OPT  "${CCOMMON_OPT} -march=znver4")
         else ()
@@ -182,6 +169,7 @@ endif ()
 
 if (${CORE} STREQUAL A64FX)
   if (NOT DYNAMIC_ARCH)
+    execute_process(COMMAND ${CMAKE_C_COMPILER} -dumpversion OUTPUT_VARIABLE GCC_VERSION)
     if (${GCC_VERSION} VERSION_GREATER 11.0 OR ${GCC_VERSION} VERSION_EQUAL 11.0)
       set (CCOMMON_OPT  "${CCOMMON_OPT} -march=armv8.2-a+sve -mtune=a64fx")
     else ()
@@ -192,34 +180,29 @@ endif ()
 
 if (${CORE} STREQUAL NEOVERSEN2)
   if (NOT DYNAMIC_ARCH)
-    if (${CMAKE_C_COMPILER_ID} STREQUAL "PGI" AND NOT NO_SVE)
-	set (CCOMMON_OPT  "${CCOMMON_OPT} -Msve_intrinsics -march=armv8.5-a+sve+sve2+bf16 -mtune=neoverse-n2")
+    execute_process(COMMAND ${CMAKE_C_COMPILER} -dumpversion OUTPUT_VARIABLE GCC_VERSION)
+    if (${GCC_VERSION} VERSION_GREATER 10.4 OR ${GCC_VERSION} VERSION_EQUAL 10.4)
+      set (CCOMMON_OPT  "${CCOMMON_OPT} -march=armv8.5-a+sve+sve2+bf16 -mtune=neoverse-n2")
     else ()
-      if (${GCC_VERSION} VERSION_GREATER 10.4 OR ${GCC_VERSION} VERSION_EQUAL 10.4)
-	set (CCOMMON_OPT  "${CCOMMON_OPT} -march=armv8.5-a+sve+sve2+bf16 -mtune=neoverse-n2")
-      else ()
-	set (CCOMMON_OPT "${CCOMMON_OPT} -march=armv8.2-a+sve")
-      endif()
-    endif ()
+      set (CCOMMON_OPT "${CCOMMON_OPT} -march=armv8.2-a+sve")
+    endif()
   endif ()
 endif ()
 
 if (${CORE} STREQUAL NEOVERSEV1)
   if (NOT DYNAMIC_ARCH)
-    if (${CMAKE_C_COMPILER_ID} STREQUAL "PGI" AND NOT NO_SVE)
-	set (CCOMMON_OPT  "${CCOMMON_OPT} -Msve_intrinsics -march=armv8.4-a+sve -mtune=neoverse-v1")
+    execute_process(COMMAND ${CMAKE_C_COMPILER} -dumpversion OUTPUT_VARIABLE GCC_VERSION)
+    if (${GCC_VERSION} VERSION_GREATER 10.4 OR ${GCC_VERSION} VERSION_EQUAL 10.4)
+      set (CCOMMON_OPT  "${CCOMMON_OPT} -march=armv8.4-a+sve -mtune=neoverse-v1")
     else ()
-      if (${GCC_VERSION} VERSION_GREATER 10.4 OR ${GCC_VERSION} VERSION_EQUAL 10.4)
-        set (CCOMMON_OPT  "${CCOMMON_OPT} -march=armv8.4-a+sve -mtune=neoverse-v1")
-      else ()
-        set (CCOMMON_OPT "${CCOMMON_OPT} -march=armv8.2-a+sve")
-      endif()
+      set (CCOMMON_OPT "${CCOMMON_OPT} -march=armv8.2-a+sve")
     endif()
   endif ()
 endif ()
 
 if (${CORE} STREQUAL NEOVERSEN1)
   if (NOT DYNAMIC_ARCH)
+    execute_process(COMMAND ${CMAKE_C_COMPILER} -dumpversion OUTPUT_VARIABLE GCC_VERSION)
     if (${GCC_VERSION} VERSION_GREATER 9.4 OR ${GCC_VERSION} VERSION_EQUAL 9.4)
       set (CCOMMON_OPT  "${CCOMMON_OPT} -march=armv8.2-a+sve -mtune=neoverse-n1")
     else ()
@@ -230,11 +213,7 @@ endif ()
 
 if (${CORE} STREQUAL ARMV8SVE)
   if (NOT DYNAMIC_ARCH)
-    if (${CMAKE_C_COMPILER_ID} STREQUAL "PGI" AND NOT NO_SVE)
-	set (CCOMMON_OPT  "${CCOMMON_OPT} -Msve_intrinsics -march=armv8-a+sve")
-    else ()
-      set (CCOMMON_OPT "${CCOMMON_OPT} -march=armv8-a+sve")
-    endif ()
+    set (CCOMMON_OPT "${CCOMMON_OPT} -march=armv8-a+sve")
   endif ()
 endif ()
 
@@ -264,21 +243,23 @@ endif ()
 
 if (${CORE} STREQUAL POWER10)
   if (NOT DYNAMIC_ARCH)
+    execute_process(COMMAND ${CMAKE_C_COMPILER} -dumpversion OUTPUT_VARIABLE GCC_VERSION)
     if (${GCC_VERSION} VERSION_GREATER 10.2 OR ${GCC_VERSION} VERSION_EQUAL 10.2)
       set (CCOMMON_OPT  "${CCOMMON_OPT} -mcpu=power10 -mtune=power10 -mvsx -fno-fast-math")
     else ()
-      message(FATAL_ERROR "Compiler GCC ${GCC_VERSION} does not support Power10." )
+      message(FATAL_ERROR "Compiler GCC.${GCC_VERSION} does not support Power10." )
     endif()
   endif ()
 endif ()
 
 if (${CORE} STREQUAL POWER9)
   if (NOT DYNAMIC_ARCH)
+    execute_process(COMMAND ${CMAKE_C_COMPILER} -dumpversion OUTPUT_VARIABLE GCC_VERSION)
     if (${GCC_VERSION} VERSION_GREATER 5.0 OR ${GCC_VERSION} VERSION_EQUAL 5.0)
       set (CCOMMON_OPT  "${CCOMMON_OPT} -mcpu=power9 -mtune=power9 -mvsx -fno-fast-math")
     else ()
       set (CCOMMON_OPT  "${CCOMMON_OPT} -mcpu=power8 -mtune=power8 -mvsx -fno-fast-math")
-      message(WARNING "Compiler GCC ${GCC_VERSION} does not fully support Power9.")
+      message(WARNING "Compiler GCC.${GCC_VERSION} does not fully support Power9.")
     endif ()
   endif ()
 endif ()
@@ -289,27 +270,6 @@ if (${CORE} STREQUAL POWER8)
   endif ()
 endif ()
 
-# With -mcpu=970 added it compiles, but library is broken, at least on macOS. If someone
-# tests on *BSD or Linux and adds this flag, please make sure it is not used for macOS case.
-if (${CORE} STREQUAL PPC970)
-  if (NOT DYNAMIC_ARCH)
-    set (CCOMMON_OPT  "${CCOMMON_OPT} -mtune=970 -maltivec -fno-fast-math")
-  endif ()
-  if (APPLE)
-    set (CCOMMON_OPT  "${CCOMMON_OPT} -force_cpusubtype_ALL")
-  endif ()
-endif ()
-
-# -mcpu=G4 seems to work fine, but perhaps avoid it for the sake of consistency?
-if (${CORE} STREQUAL PPCG4)
-  if (NOT DYNAMIC_ARCH)
-    set (CCOMMON_OPT  "${CCOMMON_OPT} -mtune=G4 -maltivec -fno-fast-math")
-  endif ()
-  if (APPLE)
-    set (CCOMMON_OPT  "${CCOMMON_OPT} -force_cpusubtype_ALL")
-  endif ()
-endif ()
-
 if (NOT DYNAMIC_ARCH)
 	if (HAVE_AVX2)
         set (CCOMMON_OPT  "${CCOMMON_OPT} -mavx2")

cmake/f_check.cmake

@@ -64,7 +64,6 @@ else ()
     "#define NEEDBUNDERSCORE 1\n")
 endif()
 
-if (CMAKE_Fortran_COMPILER)
 get_filename_component(F_COMPILER ${CMAKE_Fortran_COMPILER} NAME_WE)
 string(TOUPPER ${F_COMPILER} F_COMPILER)
-endif()
+

cmake/fc.cmake

@@ -3,9 +3,11 @@
 ## Description: Ported from portion of OpenBLAS/Makefile.system
 ##              Sets Fortran related variables.
 
-if (${F_COMPILER} STREQUAL "FLANG" AND NOT CMAKE_Fortran_COMPILER_ID STREQUAL "LLVMFlang")
-  # This is for classic Flang. LLVM Flang is handled with gfortran below.
+if (${F_COMPILER} STREQUAL "FLANG")
   set(CCOMMON_OPT "${CCOMMON_OPT} -DF_INTERFACE_FLANG")
+  if (BINARY64 AND INTERFACE64)
+    set(FCOMMON_OPT "${FCOMMON_OPT} -i8")
+  endif ()
   if (USE_OPENMP)
     set(FCOMMON_OPT "${FCOMMON_OPT} -fopenmp")
   endif ()
@@ -36,68 +38,34 @@ if (${F_COMPILER} STREQUAL "G95")
   endif ()
 endif ()
 
-if (${F_COMPILER} STREQUAL "GFORTRAN" OR ${F_COMPILER} STREQUAL "F95" OR CMAKE_Fortran_COMPILER_ID STREQUAL "LLVMFlang")
+if (${F_COMPILER} STREQUAL "GFORTRAN" OR ${F_COMPILER} STREQUAL "F95")
   set(CCOMMON_OPT "${CCOMMON_OPT} -DF_INTERFACE_GFORT")
-  if (NOT CMAKE_Fortran_COMPILER_ID STREQUAL "LLVMFlang")
-    # ensure reentrancy of lapack codes
-    set(FCOMMON_OPT "${FCOMMON_OPT} -Wall -frecursive")
-    # work around ABI violation in passing string arguments from C
-    set(FCOMMON_OPT "${FCOMMON_OPT} -fno-optimize-sibling-calls")
-    if (NOT NO_LAPACK)
-      # Don't include -lgfortran, when NO_LAPACK=1 or lsbcc
-      set(EXTRALIB "${EXTRALIB} -lgfortran")
-    endif ()
+  # ensure reentrancy of lapack codes
+  set(FCOMMON_OPT "${FCOMMON_OPT} -Wall -frecursive")
+  # work around ABI violation in passing string arguments from C
+  set(FCOMMON_OPT "${FCOMMON_OPT} -fno-optimize-sibling-calls")
+  #Don't include -lgfortran, when NO_LAPACK=1 or lsbcc
+  if (NOT NO_LAPACK)
+    set(EXTRALIB "${EXTRALIB} -lgfortran")
   endif ()
   if (NO_BINARY_MODE)
     if (MIPS64)
       if (BINARY64)
         set(FCOMMON_OPT "${FCOMMON_OPT} -mabi=64")
-        if (INTERFACE64)
-          set(FCOMMON_OPT "${FCOMMON_OPT} -fdefault-integer-8")
-	endif ()
       else ()
         set(FCOMMON_OPT "${FCOMMON_OPT} -mabi=n32")
       endif ()
     endif ()
     if (LOONGARCH64)
       if (BINARY64)
-        if (NOT CMAKE_Fortran_COMPILER_ID MATCHES "LLVMFlang.*")
-	  CHECK_C_COMPILER_FLAG("-mabi=lp64d" COMPILER_SUPPORT_LP64D_ABI)
-          if(COMPILER_SUPPORT_LP64D_ABI)
-	    set(FCOMMON_OPT "${FCOMMON_OPT} -mabi=lp64d")
-	  else()
-	    set(FCOMMON_OPT "${FCOMMON_OPT} -mabi=lp64")
-	  endif ()
-        endif ()
-        if (INTERFACE64) 
-          set(FCOMMON_OPT "${FCOMMON_OPT} -fdefault-integer-8") 
-        endif () 
+        set(FCOMMON_OPT "${FCOMMON_OPT} -mabi=lp64")
       else ()
-        if (NOT CMAKE_Fortran_COMPILER_ID MATCHES "LLVMFlang.*")
-	  CHECK_C_COMPILER_FLAG("-mabi=ilp32d" COMPILER_SUPPORT_ILP32D_ABI)
-	  if(COMPILER_SUPPORT_ILP32D_ABI)
-	    set(FCOMMON_OPT "${FCOMMON_OPT} -mabi=ilp32d")
-	  else()
-	    set(FCOMMON_OPT "${FCOMMON_OPT} -mabi=lp32")
-          endif ()
-	endif ()
+        set(FCOMMON_OPT "${FCOMMON_OPT} -mabi=lp32")
       endif ()
     endif ()
-    if (RISCV64)
-      if (BINARY64)
-        if (INTERFACE64)
-          set(FCOMMON_OPT "${FCOMMON_OPT} -fdefault-integer-8")
-        endif ()
-      endif ()
-    endif ()
-    if (ARM64 AND INTERFACE64)
-          set(FCOMMON_OPT "${FCOMMON_OPT} -fdefault-integer-8")
-    endif ()
   else ()
     if (BINARY64)
-      if (NOT CMAKE_Fortran_COMPILER_ID MATCHES "LLVMFlang.*")
       set(FCOMMON_OPT "${FCOMMON_OPT} -m64")
-      endif ()
       if (INTERFACE64)
         if (CMAKE_Fortran_COMPILER_ID STREQUAL "Intel")
           if (WIN32)
@@ -110,9 +78,7 @@ if (${F_COMPILER} STREQUAL "GFORTRAN" OR ${F_COMPILER} STREQUAL "F95" OR CMAKE_F
         endif ()
       endif ()
     else ()
-        if (NOT CMAKE_Fortran_COMPILER_ID MATCHES "LLVMFlang.*")
-           set(FCOMMON_OPT "${FCOMMON_OPT} -m32")
-	endif ()
+      set(FCOMMON_OPT "${FCOMMON_OPT} -m32")
     endif ()
   endif ()
 
@@ -121,12 +87,12 @@ if (${F_COMPILER} STREQUAL "GFORTRAN" OR ${F_COMPILER} STREQUAL "F95" OR CMAKE_F
   endif ()
 endif ()
 
-if (${F_COMPILER} STREQUAL "INTEL" OR CMAKE_Fortran_COMPILER_ID MATCHES "Intel")
+if (${F_COMPILER} STREQUAL "INTEL")
   set(CCOMMON_OPT "${CCOMMON_OPT} -DF_INTERFACE_INTEL")
   if (INTERFACE64)
     set(FCOMMON_OPT "${FCOMMON_OPT} -i8")
   endif ()
-  set(FCOMMON_OPT "${FCOMMON_OPT} -recursive -fp-model=consistent")
+  set(FCOMMON_OPT "${FCOMMON_OPT} -recursive")
   if (USE_OPENMP)
     set(FCOMMON_OPT "${FCOMMON_OPT} -openmp")
   endif ()

cmake/lapack.cmake

@@ -52,7 +52,7 @@ set(SLASRC
    sgebrd.f sgecon.f sgeequ.f sgees.f  sgeesx.f sgeev.f  sgeevx.f
    sgehd2.f sgehrd.f sgelq2.f sgelqf.f
    sgels.f  sgelsd.f sgelss.f sgelsy.f sgeql2.f sgeqlf.f
-   sgeqp3.f sgeqp3rk.f sgeqr2.f sgeqr2p.f sgeqrf.f sgeqrfp.f sgerfs.f sgerq2.f sgerqf.f
+   sgeqp3.f sgeqr2.f sgeqr2p.f sgeqrf.f sgeqrfp.f sgerfs.f sgerq2.f sgerqf.f
    sgesc2.f sgesdd.f sgesvd.f sgesvdx.f sgesvx.f sgetc2.f
    sgetrf2.f sgetri.f
    sggbak.f sggbal.f
@@ -67,7 +67,7 @@ set(SLASRC
    slangb.f slange.f slangt.f slanhs.f slansb.f slansp.f
    slansy.f slantb.f slantp.f slantr.f slanv2.f
    slapll.f slapmt.f
-   slaqgb.f slaqge.f slaqp2.f slaqps.f slaqp2rk.f slaqp3rk.f slaqsb.f slaqsp.f slaqsy.f
+   slaqgb.f slaqge.f slaqp2.f slaqps.f slaqsb.f slaqsp.f slaqsy.f
    slaqr0.f slaqr1.f slaqr2.f slaqr3.f slaqr4.f slaqr5.f
    slaqtr.f slar1v.f slar2v.f ilaslr.f ilaslc.f
    slarf.f  slarfb.f slarfb_gett.f slarfg.f slarfgp.f slarft.f slarfx.f slarfy.f slargv.f
@@ -124,7 +124,7 @@ set(SLASRC
    ssbev_2stage.f ssbevx_2stage.f ssbevd_2stage.f ssygv_2stage.f
    sgesvdq.f slaorhr_col_getrfnp.f
    slaorhr_col_getrfnp2.f sorgtsqr.f sorgtsqr_row.f sorhr_col.f 
-   slatrs3.f strsyl3.f sgelst.f sgedmd.f90 sgedmdq.f90)
+   slatrs3.f strsyl3.f sgelst.f)
 
 set(SXLASRC sgesvxx.f sgerfsx.f sla_gerfsx_extended.f sla_geamv.f
    sla_gercond.f sla_gerpvgrw.f ssysvxx.f ssyrfsx.f
@@ -139,7 +139,7 @@ set(CLASRC
    cgbtf2.f cgbtrf.f cgbtrs.f cgebak.f cgebal.f cgebd2.f cgebrd.f
    cgecon.f cgeequ.f cgees.f  cgeesx.f cgeev.f  cgeevx.f
    cgehd2.f cgehrd.f cgelq2.f cgelqf.f
-   cgels.f  cgelsd.f cgelss.f cgelsy.f cgeql2.f cgeqlf.f cgeqp3.f cgeqp3rk.f
+   cgels.f  cgelsd.f cgelss.f cgelsy.f cgeql2.f cgeqlf.f cgeqp3.f
    cgeqr2.f cgeqr2p.f cgeqrf.f cgeqrfp.f cgerfs.f cgerq2.f cgerqf.f
    cgesc2.f cgesdd.f cgesvd.f cgesvdx.f
    cgesvj.f cgejsv.f cgsvj0.f cgsvj1.f
@@ -173,7 +173,7 @@ set(CLASRC
    clanhb.f clanhe.f
    clanhp.f clanhs.f clanht.f clansb.f clansp.f clansy.f clantb.f
    clantp.f clantr.f clapll.f clapmt.f clarcm.f claqgb.f claqge.f
-   claqhb.f claqhe.f claqhp.f claqp2.f claqps.f claqp2rk.f claqp3rk.f claqsb.f
+   claqhb.f claqhe.f claqhp.f claqp2.f claqps.f claqsb.f
    claqr0.f claqr1.f claqr2.f claqr3.f claqr4.f claqr5.f
    claqz0.f claqz1.f claqz2.f claqz3.f
    claqsp.f claqsy.f clar1v.f clar2v.f ilaclr.f ilaclc.f
@@ -187,7 +187,7 @@ set(CLASRC
    cposv.f  cposvx.f cpotrf2.f cpotri.f cpstrf.f cpstf2.f
    cppcon.f cppequ.f cpprfs.f cppsv.f  cppsvx.f cpptrf.f cpptri.f cpptrs.f
    cptcon.f cpteqr.f cptrfs.f cptsv.f  cptsvx.f cpttrf.f cpttrs.f cptts2.f
-   crot.f crscl.f cspcon.f csprfs.f cspsv.f
+   crot.f   cspcon.f csprfs.f cspsv.f
    cspsvx.f csptrf.f csptri.f csptrs.f csrscl.f cstedc.f
    cstegr.f cstein.f csteqr.f csycon.f
    csyrfs.f csysv.f  csysvx.f csytf2.f csytrf.f csytri.f
@@ -223,7 +223,7 @@ set(CLASRC
    chbev_2stage.f chbevx_2stage.f chbevd_2stage.f chegv_2stage.f
    cgesvdq.f claunhr_col_getrfnp.f claunhr_col_getrfnp2.f 
    cungtsqr.f cungtsqr_row.f cunhr_col.f 
-   clatrs3.f ctrsyl3.f cgelst.f cgedmd.f90 cgedmdq.f90)
+   clatrs3.f ctrsyl3.f cgelst.f)
 
 set(CXLASRC cgesvxx.f cgerfsx.f cla_gerfsx_extended.f cla_geamv.f
    cla_gercond_c.f cla_gercond_x.f cla_gerpvgrw.f
@@ -243,7 +243,7 @@ set(DLASRC
    dgebrd.f dgecon.f dgeequ.f dgees.f  dgeesx.f dgeev.f  dgeevx.f
    dgehd2.f dgehrd.f dgelq2.f dgelqf.f
    dgels.f  dgelsd.f dgelss.f dgelsy.f dgeql2.f dgeqlf.f
-   dgeqp3.f dgeqp3rk.f dgeqr2.f dgeqr2p.f dgeqrf.f dgeqrfp.f dgerfs.f dgerq2.f dgerqf.f
+   dgeqp3.f dgeqr2.f dgeqr2p.f dgeqrf.f dgeqrfp.f dgerfs.f dgerq2.f dgerqf.f
    dgesc2.f dgesdd.f dgesvd.f dgesvdx.f dgesvx.f dgetc2.f
    dgetrf2.f dgetri.f
    dggbak.f dggbal.f
@@ -258,7 +258,7 @@ set(DLASRC
    dlangb.f dlange.f dlangt.f dlanhs.f dlansb.f dlansp.f
    dlansy.f dlantb.f dlantp.f dlantr.f dlanv2.f
    dlapll.f dlapmt.f
-   dlaqgb.f dlaqge.f dlaqp2.f dlaqp2rk.f dlaqp3rk.f dlaqps.f dlaqsb.f dlaqsp.f dlaqsy.f
+   dlaqgb.f dlaqge.f dlaqp2.f dlaqps.f dlaqsb.f dlaqsp.f dlaqsy.f
    dlaqr0.f dlaqr1.f dlaqr2.f dlaqr3.f dlaqr4.f dlaqr5.f
    dlaqtr.f dlar1v.f dlar2v.f iladlr.f iladlc.f
    dlarf.f  dlarfb.f dlarfb_gett.f dlarfg.f dlarfgp.f dlarft.f dlarfx.f dlarfy.f
@@ -316,7 +316,7 @@ set(DLASRC
    dsbev_2stage.f dsbevx_2stage.f dsbevd_2stage.f dsygv_2stage.f
    dcombssq.f dgesvdq.f dlaorhr_col_getrfnp.f
    dlaorhr_col_getrfnp2.f dorgtsqr.f dorgtsqr_row.f dorhr_col.f 
-   dlatrs3.f dtrsyl3.f dgelst.f dgedmd.f90 dgedmdq.f90)
+   dlatrs3.f dtrsyl3.f dgelst.f)
 
 set(DXLASRC dgesvxx.f dgerfsx.f dla_gerfsx_extended.f dla_geamv.f
    dla_gercond.f dla_gerpvgrw.f dsysvxx.f dsyrfsx.f
@@ -331,7 +331,7 @@ set(ZLASRC
    zgbtf2.f zgbtrf.f zgbtrs.f zgebak.f zgebal.f zgebd2.f zgebrd.f
    zgecon.f zgeequ.f zgees.f  zgeesx.f zgeev.f  zgeevx.f
    zgehd2.f zgehrd.f zgelq2.f zgelqf.f
-   zgels.f  zgelsd.f zgelss.f zgelsy.f zgeql2.f zgeqlf.f zgeqp3.f zgeqp3rk.f
+   zgels.f  zgelsd.f zgelss.f zgelsy.f zgeql2.f zgeqlf.f zgeqp3.f
    zgeqr2.f zgeqr2p.f zgeqrf.f zgeqrfp.f zgerfs.f zgerq2.f zgerqf.f
    zgesc2.f zgesdd.f zgesvd.f zgesvdx.f zgesvx.f
    zgesvj.f zgejsv.f zgsvj0.f zgsvj1.f
@@ -367,7 +367,7 @@ set(ZLASRC
    zlanhe.f
    zlanhp.f zlanhs.f zlanht.f zlansb.f zlansp.f zlansy.f zlantb.f
    zlantp.f zlantr.f zlapll.f zlapmt.f zlaqgb.f zlaqge.f
-   zlaqhb.f zlaqhe.f zlaqhp.f zlaqp2.f zlaqp2rk.f zlaqp3rk.f zlaqps.f zlaqsb.f
+   zlaqhb.f zlaqhe.f zlaqhp.f zlaqp2.f zlaqps.f zlaqsb.f
    zlaqr0.f zlaqr1.f zlaqr2.f zlaqr3.f zlaqr4.f zlaqr5.f
    zlaqsp.f zlaqsy.f zlar1v.f zlar2v.f ilazlr.f ilazlc.f
    zlarcm.f zlarf.f  zlarfb.f zlarfb_gett.f
@@ -381,7 +381,7 @@ set(ZLASRC
    zposv.f  zposvx.f zpotrf2.f zpotri.f zpotrs.f zpstrf.f zpstf2.f
    zppcon.f zppequ.f zpprfs.f zppsv.f  zppsvx.f zpptrf.f zpptri.f zpptrs.f
    zptcon.f zpteqr.f zptrfs.f zptsv.f  zptsvx.f zpttrf.f zpttrs.f zptts2.f
-   zrot.f zrscl.f zspcon.f zsprfs.f zspsv.f
+   zrot.f   zspcon.f zsprfs.f zspsv.f
    zspsvx.f zsptrf.f zsptri.f zsptrs.f zdrscl.f zstedc.f
    zstegr.f zstein.f zsteqr.f zsycon.f
    zsyrfs.f zsysv.f  zsysvx.f zsytf2.f zsytrf.f zsytri.f
@@ -419,7 +419,7 @@ set(ZLASRC
    zhbev_2stage.f zhbevx_2stage.f zhbevd_2stage.f zhegv_2stage.f
    zgesvdq.f zlaunhr_col_getrfnp.f zlaunhr_col_getrfnp2.f
    zungtsqr.f zungtsqr_row.f zunhr_col.f
-   zlatrs3.f ztrsyl3.f zgelst.f zgedmd.f90 zgedmdq.f90)
+   zlatrs3.f ztrsyl3.f zgelst.f)
 
 set(ZXLASRC zgesvxx.f zgerfsx.f zla_gerfsx_extended.f zla_geamv.f
    zla_gercond_c.f zla_gercond_x.f zla_gerpvgrw.f zsysvxx.f zsyrfsx.f
@@ -438,19 +438,15 @@ endif()
 
 if(BUILD_LAPACK_DEPRECATED)
 list(APPEND SLASRC DEPRECATED/sgegs.f DEPRECATED/sgegv.f
-  DEPRECATED/sgelqs.f DEPRECATED/sgeqrs.f
   DEPRECATED/sgeqpf.f DEPRECATED/sgelsx.f DEPRECATED/sggsvd.f
   DEPRECATED/sggsvp.f DEPRECATED/slahrd.f DEPRECATED/slatzm.f DEPRECATED/stzrqf.f)
 list(APPEND DLASRC DEPRECATED/dgegs.f DEPRECATED/dgegv.f
-  DEPRECATED/dgelqs.f DEPRECATED/dgeqrs.f
   DEPRECATED/dgeqpf.f DEPRECATED/dgelsx.f DEPRECATED/dggsvd.f
   DEPRECATED/dggsvp.f DEPRECATED/dlahrd.f DEPRECATED/dlatzm.f DEPRECATED/dtzrqf.f)
 list(APPEND CLASRC DEPRECATED/cgegs.f DEPRECATED/cgegv.f
-  DEPRECATED/cgelqs.f DEPRECATED/cgeqrs.f
   DEPRECATED/cgeqpf.f DEPRECATED/cgelsx.f DEPRECATED/cggsvd.f
   DEPRECATED/cggsvp.f DEPRECATED/clahrd.f DEPRECATED/clatzm.f DEPRECATED/ctzrqf.f)
 list(APPEND ZLASRC DEPRECATED/zgegs.f DEPRECATED/zgegv.f
-  DEPRECATED/zgelqs.f DEPRECATED/zgeqrs.f
   DEPRECATED/zgeqpf.f DEPRECATED/zgelsx.f DEPRECATED/zggsvd.f
   DEPRECATED/zggsvp.f DEPRECATED/zlahrd.f DEPRECATED/zlatzm.f DEPRECATED/ztzrqf.f)
 message(STATUS "Building deprecated routines")
@@ -557,7 +553,7 @@ set(SLASRC
    sgebrd.c sgecon.c sgeequ.c sgees.c  sgeesx.c sgeev.c  sgeevx.c
    sgehd2.c sgehrd.c sgelq2.c sgelqf.c
    sgels.c  sgelsd.c sgelss.c sgelsy.c sgeql2.c sgeqlf.c
-   sgeqp3.c sgeqp3rk.c sgeqr2.c sgeqr2p.c sgeqrf.c sgeqrfp.c sgerfs.c sgerq2.c sgerqf.c
+   sgeqp3.c sgeqr2.c sgeqr2p.c sgeqrf.c sgeqrfp.c sgerfs.c sgerq2.c sgerqf.c
    sgesc2.c sgesdd.c sgesvd.c sgesvdx.c sgesvx.c sgetc2.c
    sgetrf2.c sgetri.c
    sggbak.c sggbal.c
@@ -571,7 +567,7 @@ set(SLASRC
    slangb.c slange.c slangt.c slanhs.c slansb.c slansp.c
    slansy.c slantb.c slantp.c slantr.c slanv2.c
    slapll.c slapmt.c
-   slaqgb.c slaqge.c slaqp2.c slaqp2rk.c slaqp3rk.c slaqps.c slaqsb.c slaqsp.c slaqsy.c
+   slaqgb.c slaqge.c slaqp2.c slaqps.c slaqsb.c slaqsp.c slaqsy.c
    slaqr0.c slaqr1.c slaqr2.c slaqr3.c slaqr4.c slaqr5.c
    slaqtr.c slar1v.c slar2v.c ilaslr.c ilaslc.c
    slarf.c  slarfb.c slarfb_gett.c slarfg.c slarfgp.c slarft.c slarfx.c slarfy.c slargv.c
@@ -628,7 +624,7 @@ set(SLASRC
    ssbev_2stage.c ssbevx_2stage.c ssbevd_2stage.c ssygv_2stage.c
    sgesvdq.c slaorhr_col_getrfnp.c
    slaorhr_col_getrfnp2.c sorgtsqr.c sorgtsqr_row.c sorhr_col.c 
-   slatrs3.c strsyl3.c sgelst.c sgedmd.c sgedmdq.c)
+   slatrs3.c strsyl3.c sgelst.c)
 
 set(SXLASRC sgesvxx.c sgerfsx.c sla_gerfsx_extended.c sla_geamv.c
    sla_gercond.c sla_gerpvgrw.c ssysvxx.c ssyrfsx.c
@@ -643,7 +639,7 @@ set(CLASRC
    cgbtf2.c cgbtrf.c cgbtrs.c cgebak.c cgebal.c cgebd2.c cgebrd.c
    cgecon.c cgeequ.c cgees.c  cgeesx.c cgeev.c  cgeevx.c
    cgehd2.c cgehrd.c cgelq2.c cgelqf.c
-   cgels.c  cgelsd.c cgelss.c cgelsy.c cgeql2.c cgeqlf.c cgeqp3.c cgeqp3rk.c
+   cgels.c  cgelsd.c cgelss.c cgelsy.c cgeql2.c cgeqlf.c cgeqp3.c
    cgeqr2.c cgeqr2p.c cgeqrf.c cgeqrfp.c cgerfs.c cgerq2.c cgerqf.c
    cgesc2.c cgesdd.c cgesvd.c cgesvdx.c
    cgesvj.c cgejsv.c cgsvj0.c cgsvj1.c
@@ -677,7 +673,7 @@ set(CLASRC
    clanhb.c clanhe.c
    clanhp.c clanhs.c clanht.c clansb.c clansp.c clansy.c clantb.c
    clantp.c clantr.c clapll.c clapmt.c clarcm.c claqgb.c claqge.c
-   claqhb.c claqhe.c claqhp.c claqp2.c claqp2rk.c claqp3rk.c claqps.c claqsb.c
+   claqhb.c claqhe.c claqhp.c claqp2.c claqps.c claqsb.c
    claqr0.c claqr1.c claqr2.c claqr3.c claqr4.c claqr5.c
    claqsp.c claqsy.c clar1v.c clar2v.c ilaclr.c ilaclc.c
    clarf.c  clarfb.c clarfb_gett.c clarfg.c clarfgp.c clarft.c
@@ -690,7 +686,7 @@ set(CLASRC
    cposv.c  cposvx.c cpotrf2.c cpotri.c cpstrf.c cpstf2.c
    cppcon.c cppequ.c cpprfs.c cppsv.c  cppsvx.c cpptrf.c cpptri.c cpptrs.c
    cptcon.c cpteqr.c cptrfs.c cptsv.c  cptsvx.c cpttrf.c cpttrs.c cptts2.c
-   crot.c crscl.c  cspcon.c csprfs.c cspsv.c
+   crot.c   cspcon.c csprfs.c cspsv.c
    cspsvx.c csptrf.c csptri.c csptrs.c csrscl.c cstedc.c
    cstegr.c cstein.c csteqr.c csycon.c
    csyrfs.c csysv.c  csysvx.c csytf2.c csytrf.c csytri.c
@@ -726,7 +722,7 @@ set(CLASRC
    chbev_2stage.c chbevx_2stage.c chbevd_2stage.c chegv_2stage.c
    cgesvdq.c claunhr_col_getrfnp.c claunhr_col_getrfnp2.c 
    cungtsqr.c cungtsqr_row.c cunhr_col.c 
-   clatrs3.c ctrsyl3.c cgelst.c cgedmd.c cgedmdq.c)
+   clatrs3.c ctrsyl3.c cgelst.c)
 
 set(CXLASRC cgesvxx.c cgerfsx.c cla_gerfsx_extended.c cla_geamv.c
    cla_gercond_c.c cla_gercond_x.c cla_gerpvgrw.c
@@ -746,7 +742,7 @@ set(DLASRC
    dgebrd.c dgecon.c dgeequ.c dgees.c  dgeesx.c dgeev.c  dgeevx.c
    dgehd2.c dgehrd.c dgelq2.c dgelqf.c
    dgels.c  dgelsd.c dgelss.c dgelsy.c dgeql2.c dgeqlf.c
-   dgeqp3.c dgeqp3rk.c dgeqr2.c dgeqr2p.c dgeqrf.c dgeqrfp.c dgerfs.c dgerq2.c dgerqf.c
+   dgeqp3.c dgeqr2.c dgeqr2p.c dgeqrf.c dgeqrfp.c dgerfs.c dgerq2.c dgerqf.c
    dgesc2.c dgesdd.c dgesvd.c dgesvdx.c dgesvx.c dgetc2.c
    dgetrf2.c dgetri.c
    dggbak.c dggbal.c
@@ -760,7 +756,7 @@ set(DLASRC
    dlangb.c dlange.c dlangt.c dlanhs.c dlansb.c dlansp.c
    dlansy.c dlantb.c dlantp.c dlantr.c dlanv2.c
    dlapll.c dlapmt.c
-   dlaqgb.c dlaqge.c dlaqp2.c dlaqp2rk.c dlaqp3rk.c dlaqps.c dlaqsb.c dlaqsp.c dlaqsy.c
+   dlaqgb.c dlaqge.c dlaqp2.c dlaqps.c dlaqsb.c dlaqsp.c dlaqsy.c
    dlaqr0.c dlaqr1.c dlaqr2.c dlaqr3.c dlaqr4.c dlaqr5.c
    dlaqtr.c dlar1v.c dlar2v.c iladlr.c iladlc.c
    dlarf.c  dlarfb.c dlarfb_gett.c dlarfg.c dlarfgp.c dlarft.c dlarfx.c dlarfy.c
@@ -818,7 +814,7 @@ set(DLASRC
    dsbev_2stage.c dsbevx_2stage.c dsbevd_2stage.c dsygv_2stage.c
    dcombssq.c dgesvdq.c dlaorhr_col_getrfnp.c
    dlaorhr_col_getrfnp2.c dorgtsqr.c dorgtsqr_row.c dorhr_col.c 
-   dlatrs3.c dtrsyl3.c dgelst.c dgedmd.c dgedmdq.c)
+   dlatrs3.c dtrsyl3.c dgelst.c)
 
 set(DXLASRC dgesvxx.c dgerfsx.c dla_gerfsx_extended.c dla_geamv.c
    dla_gercond.c dla_gerpvgrw.c dsysvxx.c dsyrfsx.c
@@ -833,7 +829,7 @@ set(ZLASRC
    zgbtf2.c zgbtrf.c zgbtrs.c zgebak.c zgebal.c zgebd2.c zgebrd.c
    zgecon.c zgeequ.c zgees.c  zgeesx.c zgeev.c  zgeevx.c
    zgehd2.c zgehrd.c zgelq2.c zgelqf.c
-   zgels.c  zgelsd.c zgelss.c zgelsy.c zgeql2.c zgeqlf.c zgeqp3.c zgeqp3rk.c
+   zgels.c  zgelsd.c zgelss.c zgelsy.c zgeql2.c zgeqlf.c zgeqp3.c
    zgeqr2.c zgeqr2p.c zgeqrf.c zgeqrfp.c zgerfs.c zgerq2.c zgerqf.c
    zgesc2.c zgesdd.c zgesvd.c zgesvdx.c zgesvx.c
    zgesvj.c zgejsv.c zgsvj0.c zgsvj1.c
@@ -868,7 +864,7 @@ set(ZLASRC
    zlanhe.c
    zlanhp.c zlanhs.c zlanht.c zlansb.c zlansp.c zlansy.c zlantb.c
    zlantp.c zlantr.c zlapll.c zlapmt.c zlaqgb.c zlaqge.c
-   zlaqhb.c zlaqhe.c zlaqhp.c zlaqp2.c zlaqp2rk.c zlaqp3rk.c zlaqps.c zlaqsb.c
+   zlaqhb.c zlaqhe.c zlaqhp.c zlaqp2.c zlaqps.c zlaqsb.c
    zlaqr0.c zlaqr1.c zlaqr2.c zlaqr3.c zlaqr4.c zlaqr5.c
    zlaqsp.c zlaqsy.c zlar1v.c zlar2v.c ilazlr.c ilazlc.c
    zlarcm.c zlarf.c  zlarfb.c zlarfb_gett.c
@@ -882,7 +878,7 @@ set(ZLASRC
    zposv.c  zposvx.c zpotrf2.c zpotri.c zpotrs.c zpstrf.c zpstf2.c
    zppcon.c zppequ.c zpprfs.c zppsv.c  zppsvx.c zpptrf.c zpptri.c zpptrs.c
    zptcon.c zpteqr.c zptrfs.c zptsv.c  zptsvx.c zpttrf.c zpttrs.c zptts2.c
-   zrot.c zrscl.c  zspcon.c zsprfs.c zspsv.c
+   zrot.c   zspcon.c zsprfs.c zspsv.c
    zspsvx.c zsptrf.c zsptri.c zsptrs.c zdrscl.c zstedc.c
    zstegr.c zstein.c zsteqr.c zsycon.c
    zsyrfs.c zsysv.c  zsysvx.c zsytf2.c zsytrf.c zsytri.c
@@ -919,8 +915,7 @@ set(ZLASRC
    zheevd_2stage.c zheev_2stage.c zheevx_2stage.c zheevr_2stage.c
    zhbev_2stage.c zhbevx_2stage.c zhbevd_2stage.c zhegv_2stage.c
    zgesvdq.c zlaunhr_col_getrfnp.c zlaunhr_col_getrfnp2.c
-   zungtsqr.c zungtsqr_row.c zunhr_col.c zlatrs3.c ztrsyl3.c zgelst.c
-   zgedmd.c zgedmdq.c)
+   zungtsqr.c zungtsqr_row.c zunhr_col.c zlatrs3.c ztrsyl3.c zgelst.c)
 
 set(ZXLASRC zgesvxx.c zgerfsx.c zla_gerfsx_extended.c zla_geamv.c
    zla_gercond_c.c zla_gercond_x.c zla_gerpvgrw.c zsysvxx.c zsyrfsx.c
@@ -939,19 +934,15 @@ endif()
 
 if(BUILD_LAPACK_DEPRECATED)
 list(APPEND SLASRC DEPRECATED/sgegs.c DEPRECATED/sgegv.c
-  DEPRECATED/sgelqs.c DEPRECATED/sgeqrs.c
   DEPRECATED/sgeqpf.c DEPRECATED/sgelsx.c DEPRECATED/sggsvd.c
   DEPRECATED/sggsvp.c DEPRECATED/slahrd.c DEPRECATED/slatzm.c DEPRECATED/stzrqf.c)
 list(APPEND DLASRC DEPRECATED/dgegs.c DEPRECATED/dgegv.c
-  DEPRECATED/dgelqs.c DEPRECATED/dgeqrs.c
   DEPRECATED/dgeqpf.c DEPRECATED/dgelsx.c DEPRECATED/dggsvd.c
   DEPRECATED/dggsvp.c DEPRECATED/dlahrd.c DEPRECATED/dlatzm.c DEPRECATED/dtzrqf.c)
 list(APPEND CLASRC DEPRECATED/cgegs.c DEPRECATED/cgegv.c
-  DEPRECATED/cgelqs.c DEPRECATED/cgeqrs.c
   DEPRECATED/cgeqpf.c DEPRECATED/cgelsx.c DEPRECATED/cggsvd.c
   DEPRECATED/cggsvp.c DEPRECATED/clahrd.c DEPRECATED/clatzm.c DEPRECATED/ctzrqf.c)
 list(APPEND ZLASRC DEPRECATED/zgegs.c DEPRECATED/zgegv.c
-  DEPRECATED/zgelqs.c DEPRECATED/zgeqrs.c
   DEPRECATED/zgeqpf.c DEPRECATED/zgelsx.c DEPRECATED/zggsvd.c
   DEPRECATED/zggsvp.c DEPRECATED/zlahrd.c DEPRECATED/zlatzm.c DEPRECATED/ztzrqf.c)
 message(STATUS "Building deprecated routines")

cmake/lapacke.cmake

@@ -90,10 +90,6 @@ set(CSRC
   lapacke_cgerqf_work.c
   lapacke_cgesdd.c
   lapacke_cgesdd_work.c
-  lapacke_cgedmd.c
-  lapacke_cgedmd_work.c
-  lapacke_cgedmdq.c
-  lapacke_cgedmdq_work.c
   lapacke_cgesv.c
   lapacke_cgesv_work.c
   lapacke_cgesvd.c
@@ -562,8 +558,6 @@ set(CSRC
   lapacke_ctrsna_work.c
   lapacke_ctrsyl.c
   lapacke_ctrsyl_work.c
-  lapacke_ctrsyl3.c
-  lapacke_ctrsyl3_work.c
   lapacke_ctrtri.c
   lapacke_ctrtri_work.c
   lapacke_ctrtrs.c
@@ -717,10 +711,6 @@ set(DSRC
   lapacke_dgerqf_work.c
   lapacke_dgesdd.c
   lapacke_dgesdd_work.c
-  lapacke_dgedmd.c
-  lapacke_dgedmd_work.c
-  lapacke_dgedmdq.c
-  lapacke_dgedmdq_work.c
   lapacke_dgesv.c
   lapacke_dgesv_work.c
   lapacke_dgesvd.c
@@ -1188,8 +1178,6 @@ set(DSRC
   lapacke_dtrsna_work.c
   lapacke_dtrsyl.c
   lapacke_dtrsyl_work.c
-  lapacke_dtrsyl3.c
-  lapacke_dtrsyl3_work.c
   lapacke_dtrtri.c
   lapacke_dtrtri_work.c
   lapacke_dtrtrs.c
@@ -1299,10 +1287,6 @@ set(SSRC
   lapacke_sgerqf_work.c
   lapacke_sgesdd.c
   lapacke_sgesdd_work.c
-  lapacke_sgedmd.c
-  lapacke_sgedmd_work.c
-  lapacke_sgedmdq.c
-  lapacke_sgedmdq_work.c
   lapacke_sgesv.c
   lapacke_sgesv_work.c
   lapacke_sgesvd.c
@@ -1766,8 +1750,6 @@ set(SSRC
   lapacke_strsna_work.c
   lapacke_strsyl.c
   lapacke_strsyl_work.c
-  lapacke_ctrsyl3.c
-  lapacke_ctrsyl3_work.c
   lapacke_strtri.c
   lapacke_strtri_work.c
   lapacke_strtrs.c
@@ -1875,10 +1857,6 @@ set(ZSRC
   lapacke_zgerqf_work.c
   lapacke_zgesdd.c
   lapacke_zgesdd_work.c
-  lapacke_zgedmd.c
-  lapacke_zgedmd_work.c
-  lapacke_zgedmdq.c
-  lapacke_zgedmdq_work.c
   lapacke_zgesv.c
   lapacke_zgesv_work.c
   lapacke_zgesvd.c
@@ -2347,8 +2325,6 @@ set(ZSRC
   lapacke_ztrsna_work.c
   lapacke_ztrsyl.c
   lapacke_ztrsyl_work.c
-  lapacke_ztrsyl3.c
-  lapacke_ztrsyl3_work.c
   lapacke_ztrtri.c
   lapacke_ztrtri_work.c
   lapacke_ztrtrs.c

cmake/openblas.pc.in

@@ -1,13 +1,11 @@
 libdir=@CMAKE_INSTALL_FULL_LIBDIR@
-libnameprefix=@LIBNAMEPREFIX@
-libnamesuffix=@LIBNAMESUFFIX@
 libsuffix=@SUFFIX64_UNDERSCORE@
 includedir=@CMAKE_INSTALL_FULL_INCLUDEDIR@
 
 openblas_config=USE_64BITINT=@INTERFACE64@ NO_CBLAS=@NO_CBLAS@ NO_LAPACK=@NO_LAPACK@ NO_LAPACKE=@NO_LAPACKE@ DYNAMIC_ARCH=@DYNAMIC_ARCH@ DYNAMIC_OLDER=@DYNAMIC_OLDER@ NO_AFFINITY=@NO_AFFINITY@ USE_OPENMP=@USE_OPENMP@ @CORE@ MAX_THREADS=@NUM_THREADS@ 
 Name: OpenBLAS
 Description: OpenBLAS is an optimized BLAS library based on GotoBLAS2 1.13 BSD version
-Version: @OpenBLAS_VERSION@
-URL: https://github.com/OpenMathLib/OpenBLAS
-Libs: -L${libdir} -l${libnameprefix}openblas${libnamesuffix}${libsuffix} 
-Cflags: -I${includedir} @OpenMP_C_FLAGS@ 
+Version: @OPENBLAS_VERSION@
+URL: https://github.com/xianyi/OpenBLAS
+Libs: @OpenMP_C_FLAGS@ -L${libdir} -lopenblas${libsuffix} 
+Cflags: -I${includedir}

cmake/os.cmake

@@ -38,7 +38,7 @@ if (${CMAKE_SYSTEM_NAME} STREQUAL "Windows")
 
     # Test for supporting MS_ABI
     # removed string parsing in favor of CMake's version comparison -hpa
-    set(GCC_VERSION ${CMAKE_C_COMPILER_VERSION})
+    execute_process(COMMAND ${CMAKE_C_COMPILER} -dumpversion OUTPUT_VARIABLE GCC_VERSION)
     if (${GCC_VERSION} VERSION_GREATER 4.7 OR ${GCC_VERSION} VERSION_EQUAL 4.7)
       # GCC Version >=4.7
       # It is compatible with MSVC ABI.

cmake/prebuild.cmake

@@ -932,7 +932,7 @@ endif ()
     set(ZGEMM_UNROLL_M 4)
     set(ZGEMM_UNROLL_N 4)
     set(SYMV_P 16)
-  elseif ("${TCORE}" STREQUAL "CORTEXA72" OR "${TCORE}" STREQUAL "CORTEXA73" OR "${TCORE}" STREQUAL "CORTEXA76")
+  elseif ("${TCORE}" STREQUAL "CORTEXA72" OR "${TCORE}" STREQUAL "CORTEXA73")
     file(APPEND ${TARGET_CONF_TEMP}
       "#define L1_CODE_SIZE\t49152\n"
       "#define L1_CODE_LINESIZE\t64\n"
@@ -1218,37 +1218,6 @@ endif ()
     set(ZGEMM_UNROLL_M 4)
     set(ZGEMM_UNROLL_N 4)
     set(SYMV_P 16)
-  elseif ("${TCORE}" STREQUAL "A64FX")
-    file(APPEND ${TARGET_CONF_TEMP}
-      "#define L1_CODE_SIZE\t65536\n"
-      "#define L1_CODE_LINESIZE\t256\n"
-      "#define L1_CODE_ASSOCIATIVE\t8\n"
-      "#define L1_DATA_SIZE\t32768\n"
-      "#define L1_DATA_LINESIZE\t256\n"
-      "#define L1_DATA_ASSOCIATIVE\t8\n"
-      "#define L2_SIZE\t8388608\n\n"
-      "#define L2_LINESIZE\t256\n"
-      "#define L2_ASSOCIATIVE\t8\n"
-      "#define L3_SIZE\t0\n\n"
-      "#define L3_LINESIZE\t0\n\n"
-      "#define L3_ASSOCIATIVE\t0\n\n"
-      "#define DTB_DEFAULT_ENTRIES\t64\n"
-      "#define DTB_SIZE\t4096\n"
-      "#define HAVE_VFPV4\n"
-      "#define HAVE_VFPV3\n"
-      "#define HAVE_VFP\n"
-      "#define HAVE_NEON\n"
-      "#define HAVE_SVE\n"
-      "#define ARMV8\n")
-    set(SGEMM_UNROLL_M 4)
-    set(SGEMM_UNROLL_N 8)
-    set(DGEMM_UNROLL_M 2)
-    set(DGEMM_UNROLL_N 8)
-    set(CGEMM_UNROLL_M 2)
-    set(CGEMM_UNROLL_N 4)
-    set(ZGEMM_UNROLL_M 2)
-    set(ZGEMM_UNROLL_N 4)
-    set(SYMV_P 16)
   elseif ("${TCORE}" STREQUAL "P5600")
     file(APPEND ${TARGET_CONF_TEMP}
       "#define L2_SIZE 1048576\n"
@@ -1340,63 +1309,6 @@ endif ()
       "#define DTB_DEFAULT_ENTRIES 128\n"
       "#define DTB_SIZE 4096\n"
       "#define L2_ASSOCIATIVE 8\n")
-  elseif ("${TCORE}" STREQUAL "RISCV64_GENERIC")
-    file(APPEND ${TARGET_CONF_TEMP}
-        "#define L1_DATA_SIZE 32768\n"
-      "#define L1_DATA_LINESIZE 32\n"
-      "#define L2_SIZE 1048576\n"
-      "#define L2_LINESIZE 32 \n"
-      "#define DTB_DEFAULT_ENTRIES 128\n"
-      "#define DTB_SIZE 4096\n"
-      "#define L2_ASSOCIATIVE 4\n")
-  elseif ("${TCORE}" STREQUAL "LA64_GENERIC")
-    file(APPEND ${TARGET_CONF_TEMP}
-      "#define DTB_DEFAULT_ENTRIES 64\n")
-      set(SGEMM_UNROLL_M 2)
-      set(SGEMM_UNROLL_N 8)
-      set(DGEMM_UNROLL_M 2)
-      set(DGEMM_UNROLL_N 8)
-      set(CGEMM_UNROLL_M 1)
-      set(CGEMM_UNROLL_N 4)
-      set(ZGEMM_UNROLL_M 1)
-      set(ZGEMM_UNROLL_N 4)
-      set(CGEMM3M_UNROLL_M 2)
-      set(CGEMM3M_UNROLL_N 8)
-      set(ZGEMM3M_UNROLL_M 2)
-      set(ZGEMM3M_UNROLL_N 8)
-  elseif ("${TCORE}" STREQUAL "LA264")
-    file(APPEND ${TARGET_CONF_TEMP}
-      "#define DTB_DEFAULT_ENTRIES 64\n")
-      set(HAVE_LSX  1)
-      set(SGEMM_UNROLL_M 2)
-      set(SGEMM_UNROLL_N 8)
-      set(DGEMM_UNROLL_M 8)
-      set(DGEMM_UNROLL_N 4)
-      set(CGEMM_UNROLL_M 8)
-      set(CGEMM_UNROLL_N 4)
-      set(ZGEMM_UNROLL_M 4)
-      set(ZGEMM_UNROLL_N 4)
-      set(CGEMM3M_UNROLL_M 2)
-      set(CGEMM3M_UNROLL_N 8)
-      set(ZGEMM3M_UNROLL_M 8)
-      set(ZGEMM3M_UNROLL_N 4)
-  elseif ("${TCORE}" STREQUAL "LA464")
-    file(APPEND ${TARGET_CONF_TEMP}
-      "#define DTB_DEFAULT_ENTRIES 64\n")
-      set(HAVE_LASX 1)
-      set(HAVE_LSX  1)
-      set(SGEMM_UNROLL_M 16)
-      set(SGEMM_UNROLL_N 8)
-      set(DGEMM_UNROLL_M 16)
-      set(DGEMM_UNROLL_N 6)
-      set(CGEMM_UNROLL_M 16)
-      set(CGEMM_UNROLL_N 4)
-      set(ZGEMM_UNROLL_M 8)
-      set(ZGEMM_UNROLL_N 4)
-      set(CGEMM3M_UNROLL_M 16)
-      set(CGEMM3M_UNROLL_N 8)
-      set(ZGEMM3M_UNROLL_M 16)
-      set(ZGEMM3M_UNROLL_N 6)
   endif()
   set(SBGEMM_UNROLL_M 8)
   set(SBGEMM_UNROLL_N 4)
@@ -1430,7 +1342,7 @@ else(NOT CMAKE_CROSSCOMPILING)
 
   if ("${CMAKE_C_COMPILER_ID}" STREQUAL "MSVC")
     #Use generic for MSVC now
-    message(STATUS "MSVC")
+    message("MSVC")
     set(GETARCH_FLAGS ${GETARCH_FLAGS} -DFORCE_GENERIC)
   else()
     list(APPEND GETARCH_SRC ${PROJECT_SOURCE_DIR}/cpuid.S)

cmake/system.cmake

@@ -160,16 +160,11 @@ else()
   endif ()
 endif ()
 
-if (C_LAPACK)
-  if (${CMAKE_C_COMPILER_ID} STREQUAL "GNU")
-    set(CCOMMON_OPT "${CCOMMON_OPT} -Wno-error=incompatible-pointer-types")
-  endif ()
-endif ()
-
 include("${PROJECT_SOURCE_DIR}/cmake/prebuild.cmake")
 if (DEFINED TARGET)
   if (${TARGET} STREQUAL COOPERLAKE AND NOT NO_AVX512)
     if (${CMAKE_C_COMPILER_ID} STREQUAL "GNU")
+      execute_process(COMMAND ${CMAKE_C_COMPILER} -dumpversion OUTPUT_VARIABLE GCC_VERSION)
         if (${CMAKE_C_COMPILER_VERSION} VERSION_GREATER 10.09)
           set (KERNEL_DEFINITIONS "${KERNEL_DEFINITIONS} -march=cooperlake")
         else()
@@ -177,14 +172,15 @@ if (DEFINED TARGET)
         endif()
     elseif (${CMAKE_C_COMPILER_ID} STREQUAL "Clang" OR ${CMAKE_C_COMPILER_ID} STREQUAL "AppleClang")
          if (${CMAKE_C_COMPILER_VERSION} VERSION_GREATER 8.99)
-          set (KERNEL_DEFINITIONS "${KERNEL_DEFINITIONS} -march=cooperlake -mllvm -exhaustive-register-search")
+          set (KERNEL_DEFINITIONS "${KERNEL_DEFINITIONS} -march=cooperlake -exhaustive-register-search")
         else()
-          set (KERNEL_DEFINITIONS "${KERNEL_DEFINITIONS} -march=skylake-avx512 -mllvm -exhaustive-register-search")
+          set (KERNEL_DEFINITIONS "${KERNEL_DEFINITIONS} -march=skylake-avx512 -exhaustive-register-search")
         endif()
     endif()    
   endif()
   if (${TARGET} STREQUAL SAPPHIRERAPIDS AND NOT NO_AVX512)
     if (${CMAKE_C_COMPILER_ID} STREQUAL "GNU")
+      execute_process(COMMAND ${CMAKE_C_COMPILER} -dumpversion OUTPUT_VARIABLE GCC_VERSION)
         if (${CMAKE_C_COMPILER_VERSION} VERSION_GREATER 11.0)
           set (KERNEL_DEFINITIONS "${KERNEL_DEFINITIONS} -march=sapphirerapids")
         else()
@@ -192,21 +188,22 @@ if (DEFINED TARGET)
         endif()
     elseif (${CMAKE_C_COMPILER_ID} STREQUAL "Clang" OR ${CMAKE_C_COMPILER_ID} STREQUAL "AppleClang")
          if (${CMAKE_C_COMPILER_VERSION} VERSION_GREATER 12.0)
-          set (KERNEL_DEFINITIONS "${KERNEL_DEFINITIONS} -march=sapphirerapids -mllvm -exhaustive-register-search")
+          set (KERNEL_DEFINITIONS "${KERNEL_DEFINITIONS} -march=sapphirerapids -exhaustive-register-search")
         else()
-          set (KERNEL_DEFINITIONS "${KERNEL_DEFINITIONS} -march=skylake-avx512 -mllvm -exhaustive-register-search")
+          set (KERNEL_DEFINITIONS "${KERNEL_DEFINITIONS} -march=skylake-avx512 -exhaustive-register-search")
         endif()
     endif()    
   endif()
   if (${TARGET} STREQUAL SKYLAKEX AND NOT NO_AVX512)
     	  set (KERNEL_DEFINITIONS "${KERNEL_DEFINITIONS} -march=skylake-avx512")
   	  if (${CMAKE_C_COMPILER_ID} STREQUAL "Clang" OR ${CMAKE_C_COMPILER_ID} STREQUAL "AppleClang")
-	 	set (KERNEL_DEFINITIONS "${KERNEL_DEFINITIONS} -mllvm -exhaustive-register-search")
+	 	set (KERNEL_DEFINITIONS "${KERNEL_DEFINITIONS} -exhaustive-register-search")
   	  endif()
   endif()
   
   if (((${TARGET} STREQUAL ZEN) AND HAVE_AVX512VL) AND NOT NO_AVX512)
     if (${CMAKE_C_COMPILER_ID} STREQUAL "GNU")
+      execute_process(COMMAND ${CMAKE_C_COMPILER} -dumpversion OUTPUT_VARIABLE GCC_VERSION)
         if (${CMAKE_C_COMPILER_VERSION} VERSION_GREATER 12.99)
           set (KERNEL_DEFINITIONS "${KERNEL_DEFINITIONS} -march=znver4")
 	else()
@@ -218,13 +215,14 @@ if (DEFINED TARGET)
 	else()
     	  set (KERNEL_DEFINITIONS "${KERNEL_DEFINITIONS} -march=skylake-avx512")
         endif()
-	set (KERNEL_DEFINITIONS "${KERNEL_DEFINITIONS} -mllvm -exhaustive-register-search")
+	set (KERNEL_DEFINITIONS "${KERNEL_DEFINITIONS} -exhaustive-register-search")
     endif()
   endif()
   
   if ((${TARGET} STREQUAL HASWELL OR (${TARGET} STREQUAL ZEN AND NOT HAVE_AVX512VL)) AND NOT NO_AVX2)
     if (${CMAKE_C_COMPILER_ID} STREQUAL "GNU")
-	    if (CMAKE_C_COMPILER_VERSION VERSION_GREATER 4.7 OR CMAKE_C_COMPILER_VERSION VERSION_EQUAL 4.7)
+      execute_process(COMMAND ${CMAKE_C_COMPILER} -dumpversion OUTPUT_VARIABLE GCC_VERSION)
+      if (${GCC_VERSION} VERSION_GREATER 4.7 OR ${GCC_VERSION} VERSION_EQUAL 4.7)
         set (KERNEL_DEFINITIONS "${KERNEL_DEFINITIONS} -mavx2")
       endif()
     elseif (${CMAKE_C_COMPILER_ID} STREQUAL "CLANG")
@@ -263,68 +261,26 @@ if (DEFINED TARGET)
   endif()
 
   if (${TARGET} STREQUAL POWER10)
-    if (CMAKE_C_COMPILER_VERSION VERSION_GREATER 10.2 OR CMAKE_C_COMPILER_VERSION VERSION_EQUAL 10.2)
+    execute_process(COMMAND ${CMAKE_C_COMPILER} -dumpversion OUTPUT_VARIABLE GCC_VERSION)
+    if (${GCC_VERSION} VERSION_GREATER 10.2 OR ${GCC_VERSION} VERSION_EQUAL 10.2)
       set (KERNEL_DEFINITIONS  "${KERNEL_DEFINITIONS} -mcpu=power10 -mtune=power10 -mvsx -fno-fast-math")
     else ()
-	    message(FATAL_ERROR "Compiler GCC ${CMAKE_C_COMPILER_VERSION} does not support Power10.")
+      message(FATAL_ERROR "Compiler GCC.${GCC_VERSION} does not support Power10.")
     endif()
   endif()
   if (${TARGET} STREQUAL POWER9)
-    if (CMAKE_C_COMPILER_VERSION VERSION_GREATER 5.0 OR CMAKE_C_COMPILER_VERSION VERSION_EQUAL 5.0)
+    execute_process(COMMAND ${CMAKE_C_COMPILER} -dumpversion OUTPUT_VARIABLE GCC_VERSION)
+    if (${GCC_VERSION} VERSION_GREATER 5.0 OR ${GCC_VERSION} VERSION_EQUAL 5.0)
       set (KERNEL_DEFINITIONS  "${KERNEL_DEFINITIONS} -mcpu=power9 -mtune=power9 -mvsx -fno-fast-math")
     else ()
       set (KERNEL_DEFINITIONS  "${KERNEL_DEFINITIONS} -mcpu=power8 -mtune=power8 -mvsx -fno-fast-math")
-      message(WARNING "Compiler GCC ${CMAKE_C_COMPILER_VERSION} does not support fully Power9.")
+      message(WARNING "Compiler GCC.${GCC_VERSION} does not support fully Power9.")
     endif()
   endif()
   if (${TARGET} STREQUAL POWER8)
     set (KERNEL_DEFINITIONS  "${KERNEL_DEFINITIONS} -mcpu=power8 -mtune=power8 -mvsx -fno-fast-math")
   endif()
-
-if (${TARGET} STREQUAL NEOVERSEV1)
-    if (${CMAKE_C_COMPILER_ID} STREQUAL "PGI" AND NOT NO_SVE)
-	set (KERNEL_DEFINITIONS  "${KERNEL_DEFINITIONS} -Msve_intrinsics -march=armv8.4-a+sve -mtune=neoverse-v1")
-    else ()
-    if (CMAKE_C_COMPILER_VERSION VERSION_GREATER 10.4 OR CMAKE_C_COMPILER_VERSION VERSION_EQUAL 10.4)
-      set (KERNEL_DEFINITIONS  "${KERNEL_DEFINITIONS} -march=armv8.4-a+sve -mtune=neoverse-v1")
-    else ()
-	    message(FATAL_ERROR "Compiler ${CMAKE_C_COMPILER} ${CMAKE_C_COMPILER_VERSION} does not support Neoverse V1.")
-    endif()
-    endif()
-  endif()
-  if (${TARGET} STREQUAL NEOVERSEN2)
-    if (${CMAKE_C_COMPILER_ID} STREQUAL "PGI" AND NOT NO_SVE)
-	set (KERNEL_DEFINITIONS  "${KERNEL_DEFINITIONS} -Msve-intrinsics -march=armv8.5-a+sve+sve2+bf16 -mtune=neoverse-n2")
-    else ()
-    if (CMAKE_C_COMPILER_VERSION VERSION_GREATER 10.4 OR CMAKE_C_COMPILER_VERSION VERSION_EQUAL 10.4)
-      set (KERNEL_DEFINITIONS  "${KERNEL_DEFINITIONS} -march=armv8.5-a+sve+sve2+bf16 -mtune=neoverse-n2")
-    else ()
-	    message(FATAL_ERROR "Compiler $${CMAKE_C_COMPILER} ${CMAKE_C_COMPILER_VERSION} does not support Neoverse N2.")
-    endif()
-    endif()
-  endif()
-  if (${TARGET} STREQUAL ARMV8SVE)
-    if (${CMAKE_C_COMPILER_ID} STREQUAL "PGI" AND NOT NO_SVE)
-      set (KERNEL_DEFINITIONS  "${KERNEL_DEFINITIONS} -Msve-intrinsics -march=armv8.2-a+sve")
-    else ()
-      set (KERNEL_DEFINITIONS  "${KERNEL_DEFINITIONS} -march=armv8.2-a+sve")
-    endif()
-  endif()
-  if (${TARGET} STREQUAL A64FX)
-    if (${CMAKE_C_COMPILER_ID} STREQUAL "PGI" AND NOT NO_SVE)
-      set (KERNEL_DEFINITIONS  "${KERNEL_DEFINITIONS} -Msve-intrinsics -march=armv8.2-a+sve -mtune=a64fx")
-    else ()
-      execute_process(COMMAND ${CMAKE_C_COMPILER} -dumpversion OUTPUT_VARIABLE GCC_VERSION)
-      if (${GCC_VERSION} VERSION_GREATER 10.4 OR ${GCC_VERSION} VERSION_EQUAL 10.4)
-        set (KERNEL_DEFINITIONS  "${KERNEL_DEFINITIONS} -march=armv8.2-a+sve -mtune=a64fx")
-      else ()
-        message(FATAL_ERROR "Compiler $${CMAKE_C_COMPILER} {GCC_VERSION} does not support A64FX.")
-      endif()
-    endif()
-  endif()
-
 endif()
-
 if (DEFINED BINARY)
   message(STATUS "Compiling a ${BINARY}-bit binary.")
 endif ()
@@ -388,25 +344,15 @@ if (NEED_PIC)
   endif()
 endif ()
 
-if (X86_64 OR ${CORE} STREQUAL POWER10 OR ARM64 OR LOONGARCH64)
+if (X86_64 OR ${CORE} STREQUAL POWER10)
   set(SMALL_MATRIX_OPT TRUE)
 endif ()
-if (ARM64)
-  set(GEMM_GEMV_FORWARD TRUE)
-endif ()
-
-if (GEMM_GEMV_FORWARD AND NOT ONLY_CBLAS)
-  set(CCOMMON_OPT "${CCOMMON_OPT} -DGEMM_GEMV_FORWARD")
-endif ()
-if (GEMM_GEMV_FORWARD_BF16 AND NOT ONLY_CBLAS)
-    set(CCOMMON_OPT "${CCOMMON_OPT} -DGEMM_GEMV_FORWARD_BF16")
-endif ()
 if (SMALL_MATRIX_OPT)
   set(CCOMMON_OPT "${CCOMMON_OPT} -DSMALL_MATRIX_OPT")
 endif ()
 
 if (DYNAMIC_ARCH)
-  if (X86 OR X86_64 OR ARM64 OR POWER OR RISCV64 OR LOONGARCH64)
+  if (X86 OR X86_64 OR ARM64 OR POWER)
     set(CCOMMON_OPT "${CCOMMON_OPT} -DDYNAMIC_ARCH")
     if (DYNAMIC_OLDER)
       set(CCOMMON_OPT "${CCOMMON_OPT} -DDYNAMIC_OLDER")
@@ -521,11 +467,10 @@ set(CCOMMON_OPT "${CCOMMON_OPT} -DBLAS3_MEM_ALLOC_THRESHOLD=${BLAS3_MEM_ALLOC_TH
 endif()
 endif()
 endif()
-  
-set(LIBPREFIX "lib${LIBNAMEPREFIX}openblas")
-
 if (DEFINED LIBNAMESUFFIX)
-  set(LIBPREFIX "${LIBNAMEPREFIX}_${LIBNAMESUFFIX}")
+  set(LIBPREFIX "libopenblas_${LIBNAMESUFFIX}")
+else ()
+  set(LIBPREFIX "libopenblas")
 endif ()
 
 if (NOT DEFINED SYMBOLPREFIX)
@@ -624,10 +569,7 @@ set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} ${FCOMMON_OPT}")
 set(FPFLAGS "${FPFLAGS} ${FCOMMON_OPT} ${COMMON_PROF}")
 
 #For LAPACK Fortran codes.
-set(LAPACK_FFLAGS "${LAPACK_FFLAGS} ${CMAKE_Fortran_FLAGS}" )
-if (LAPACK_STRLEN)
-	set (LAPACK_FFLAGS "${LAPACK_FFLAGS} -DLAPACK_STRLEN=${LAPACK_STRLEN}")
-endif()
+set(LAPACK_FFLAGS "${LAPACK_FFLAGS} ${CMAKE_Fortran_FLAGS}")
 set(LAPACK_FPFLAGS "${LAPACK_FPFLAGS} ${FPFLAGS}")
 
 #Disable -fopenmp for LAPACK Fortran codes on Windows.
@@ -639,19 +581,13 @@ if (${CMAKE_SYSTEM_NAME} STREQUAL "Windows")
   endforeach ()
 endif ()
 
-if (CMAKE_Fortran_COMPILER)
-if ("${F_COMPILER}" STREQUAL "NAG" OR "${F_COMPILER}" STREQUAL "CRAY" OR CMAKE_Fortran_COMPILER_ID MATCHES "LLVMFlang.*")
+if ("${F_COMPILER}" STREQUAL "NAG" OR "${F_COMPILER}" STREQUAL "CRAY")
   set(FILTER_FLAGS "-msse3;-mssse3;-msse4.1;-mavx;-mavx2,-mskylake-avx512")
-  if (CMAKE_Fortran_COMPILER_ID MATCHES "LLVMFlang.*")
-message(STATUS "removing fortran flags")
-    set(FILTER_FLAGS "${FILTER_FLAGS};-m32;-m64")
-  endif ()
   foreach (FILTER_FLAG ${FILTER_FLAGS})
     string(REPLACE ${FILTER_FLAG} "" LAPACK_FFLAGS ${LAPACK_FFLAGS})
     string(REPLACE ${FILTER_FLAG} "" LAPACK_FPFLAGS ${LAPACK_FPFLAGS})
   endforeach ()
 endif ()
-endif ()
 
 if ("${F_COMPILER}" STREQUAL "GFORTRAN")
   # lapack-netlib is rife with uninitialized warnings -hpa
@@ -709,10 +645,6 @@ else ()
   endif ()
 endif ()
 
-if (DEFINED FIXED_LIBNAME)
-  set (LIBNAME "${LIBPREFIX}.${LIBSUFFIX}")
-  set (LIBNAME "${LIBPREFIX}_p.${LIBSUFFIX}")
-endif()
 
 set(LIBDLLNAME "${LIBPREFIX}.dll")
 set(LIBSONAME "${LIBNAME}.${LIBSUFFIX}.so")

cmake/system_check.cmake

@@ -38,15 +38,13 @@ if(CMAKE_CL_64 OR MINGW64)
   endif()
 elseif(MINGW OR (MSVC AND NOT CMAKE_CROSSCOMPILING))
   set(X86 1)
-elseif(CMAKE_SYSTEM_PROCESSOR MATCHES "ppc.*|power.*|Power.*" OR (CMAKE_SYSTEM_NAME MATCHES "Darwin" AND CMAKE_OSX_ARCHITECTURES MATCHES "ppc.*"))
+elseif(CMAKE_SYSTEM_PROCESSOR MATCHES "ppc.*|power.*|Power.*")
   set(POWER 1)
 elseif(CMAKE_SYSTEM_PROCESSOR MATCHES "mips64.*")
   set(MIPS64 1)
 elseif(CMAKE_SYSTEM_PROCESSOR MATCHES "loongarch64.*")
   set(LOONGARCH64 1)
-elseif(CMAKE_SYSTEM_PROCESSOR MATCHES "riscv64.*")
-  set(RISCV64 1)
-elseif(CMAKE_SYSTEM_PROCESSOR MATCHES "amd64.*|x86_64.*|AMD64.*" OR (CMAKE_SYSTEM_NAME MATCHES "Darwin" AND CMAKE_SYSTEM_PROCESSOR MATCHES "i686.*|i386.*|x86.*"))
+elseif(CMAKE_SYSTEM_PROCESSOR MATCHES "amd64.*|x86_64.*|AMD64.*")
   if (NOT BINARY)
     if("${CMAKE_SIZEOF_VOID_P}" EQUAL "8")
       set(X86_64 1)
@@ -62,7 +60,7 @@ elseif(CMAKE_SYSTEM_PROCESSOR MATCHES "amd64.*|x86_64.*|AMD64.*" OR (CMAKE_SYSTE
   endif()
 elseif(CMAKE_SYSTEM_PROCESSOR MATCHES "i686.*|i386.*|x86.*|amd64.*|AMD64.*")
   set(X86 1)
-elseif(CMAKE_SYSTEM_PROCESSOR MATCHES "^(aarch64.*|AARCH64.*|arm64.*|ARM64.*|armv8.*)")
+elseif(CMAKE_SYSTEM_PROCESSOR MATCHES "^(aarch64.*|AARCH64.*|arm64.*|ARM64.*)")
   if("${CMAKE_SIZEOF_VOID_P}" EQUAL "8")
     set(ARM64 1)
   else()
@@ -104,14 +102,12 @@ elseif(ARM)
   set(ARCH "arm")
 elseif(ARM64)
   set(ARCH "arm64")
-elseif(LOONGARCH64)
-  set(ARCH "loongarch64")
 else()
   set(ARCH ${CMAKE_SYSTEM_PROCESSOR} CACHE STRING "Target Architecture")
 endif ()
 
 if (NOT BINARY)
-  if (X86_64 OR ARM64 OR MIPS64 OR LOONGARCH64 OR RISCV64 OR (POWER AND NOT (CMAKE_OSX_ARCHITECTURES STREQUAL "ppc")))
+  if (X86_64 OR ARM64 OR POWER OR MIPS64 OR LOONGARCH64)
     set(BINARY 64)
   else ()
     set(BINARY 32)

cmake/utils.cmake

@@ -187,8 +187,8 @@ macro(ParseMakefileVars MAKEFILE_IN)
         set (HasValidGroup 1)
         set (STR ${CMAKE_MATCH_4})
       endif ()
-      if (DEFINED CMAKE_MATCH_1 AND ${HasValidGroup} EQUAL 1)
-        if (NOT (CMAKE_MATCH_1 STREQUAL ${STR}))
+      if (DEFINED ${CMAKE_MATCH_1} AND ${HasValidGroup} EQUAL 1)
+        if (NOT (${${CMAKE_MATCH_1}} STREQUAL ${STR}))
           #message (STATUS "condition is true")
           set (IfElse 1)
           continue ()

common.h

@@ -358,6 +358,12 @@ typedef int blasint;
 #define YIELDING        __asm__ __volatile__ ("nop;nop;nop;nop;nop;nop;nop;nop; \n");
 #endif
 
+#ifdef BULLDOZER
+#ifndef YIELDING
+#define YIELDING        __asm__ __volatile__ ("nop;nop;nop;nop;nop;nop;nop;nop;\n");
+#endif
+#endif
+
 
 #if defined(POWER8) || defined(POWER9) || defined(POWER10)
 #ifndef YIELDING
@@ -365,13 +371,21 @@ typedef int blasint;
 #endif
 #endif
 
-
-#if defined(ARCH_X86_64)
+/*
+#ifdef PILEDRIVER
 #ifndef YIELDING
 #define YIELDING        __asm__ __volatile__ ("nop;nop;nop;nop;nop;nop;nop;nop;\n");
 #endif
 #endif
+*/
 
+/*
+#ifdef STEAMROLLER
+#ifndef YIELDING
+#define YIELDING        __asm__ __volatile__ ("nop;nop;nop;nop;nop;nop;nop;nop;\n");
+#endif
+#endif
+*/
 
 #ifdef __EMSCRIPTEN__
 #define YIELDING
@@ -382,7 +396,7 @@ typedef int blasint;
 #endif
 
 /***
-To alloc job_t on heap or stack.
+To alloc job_t on heap or statck.
 please https://github.com/xianyi/OpenBLAS/issues/246
 ***/
 #if defined(OS_WINDOWS)
@@ -468,10 +482,6 @@ please https://github.com/xianyi/OpenBLAS/issues/246
 #include "common_e2k.h"
 #endif
 
-#ifdef ARCH_CSKY
-#include "common_csky.h"
-#endif
-
 #ifndef ASSEMBLER
 #ifdef OS_WINDOWSSTORE
 typedef char env_var_t[MAX_PATH];
@@ -515,7 +525,7 @@ static inline unsigned long long rpcc(void){
 #endif // !RPCC_DEFINED
 
 #if !defined(BLAS_LOCK_DEFINED) && defined(__GNUC__)
-static __inline void blas_lock(volatile BLASULONG *address){
+static void __inline blas_lock(volatile BLASULONG *address){
 
   do {
     while (*address) {YIELDING;};

common_alpha.h

@@ -45,7 +45,7 @@
 #define WMB asm("wmb")
 #define RMB asm("mb")
 
-static __inline void blas_lock(unsigned long *address){
+static void __inline blas_lock(unsigned long *address){
 #ifndef __DECC
   unsigned long tmp1, tmp2;
   asm volatile(

common_arm.h

@@ -47,13 +47,15 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 
 #endif
 
+#define INLINE inline
+
 #define RETURN_BY_COMPLEX
 
 #ifndef ASSEMBLER
 
 #if defined(ARMV6) || defined(ARMV7) || defined(ARMV8)
 
-static __inline void blas_lock(volatile BLASULONG *address){
+static void __inline blas_lock(volatile BLASULONG *address){
 
   int register ret;
 

common_arm64.h

@@ -44,6 +44,8 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 #define RMB  __asm__ __volatile__ ("dmb  ishld" : : : "memory")
 #endif
 
+#define INLINE inline
+
 #if defined( F_INTERFACE_FLANG) || defined(F_INTERFACE_PGI)
 #define RETURN_BY_STACK
 #else
@@ -53,22 +55,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 #ifndef ASSEMBLER
 
 
-#ifndef NO_AFFINITY
-static __inline int WhereAmI(void){
-  uint64_t ret;
-  __asm__ volatile (
-       "         mrs x0, mpidr_el1 \n"
-       "         and x0, x0, 0xff  \n"
-                 :"=r" (ret)
-                 :: "memory"
-               );
-  ret +=1;
-  if ((int)ret <0) ret = 0;
-  return (int)ret;
-}
-#endif
-
-static __inline void blas_lock(volatile BLASULONG *address){
+static void __inline blas_lock(volatile BLASULONG *address){
 
   BLASULONG ret;
 
@@ -175,11 +162,7 @@ REALNAME:
 #define HUGE_PAGESIZE   ( 4 << 20)
 
 #ifndef BUFFERSIZE
-#if defined(NEOVERSEN1) || defined(NEOVERSEN2) || defined(NEOVERSEV1) || defined(A64FX) || defined(ARMV8SVE)
-#define BUFFER_SIZE     (32 << 22)
-#else
 #define BUFFER_SIZE     (32 << 20)
-#endif
 #else
 #define BUFFER_SIZE	(32 << BUFFERSIZE)
 #endif

common_csky.h

@@ -1,56 +0,0 @@
-/*****************************************************************************
-Copyright (c) 2011-2015, 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.
-**********************************************************************************/
-
-#ifndef COMMON_CSKY
-#define COMMON_CSKY
-
-#define MB  __sync_synchronize()
-#define WMB __sync_synchronize()
-#define RMB __sync_synchronize()
-
-#define INLINE inline
-
-#ifndef ASSEMBLER
-
-
-static inline int blas_quickdivide(blasint x, blasint y){
-  return x / y;
-}
-
-#endif
-
-
-
-#define BUFFER_SIZE     ( 32 << 20)
-#define SEEK_ADDRESS
-
-#endif

common_e2k.h

@@ -41,6 +41,8 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 #define WMB do { __asm__ __volatile__("": : :"memory"); } while (0)
 #define RMB
 
+#define INLINE __attribute__((__always_inline__)) inline
+
 static inline int blas_quickdivide(blasint x, blasint y) {
   return x / y;
 }

common_interface.h

@@ -47,11 +47,6 @@ int    BLASFUNC(xerbla)(char *, blasint *info, blasint);
 
 void    openblas_set_num_threads_(int *);
 
-/*Set the threading backend to a custom callback.*/
-typedef void (*openblas_dojob_callback)(int thread_num, void *jobdata, int dojob_data);
-typedef void (*openblas_threads_callback)(int sync, openblas_dojob_callback dojob, int numjobs, size_t jobdata_elsize, void *jobdata, int dojob_data);
-extern openblas_threads_callback openblas_threads_callback_;
-
 FLOATRET  BLASFUNC(sdot)  (blasint *, float  *, blasint *, float  *, blasint *);
 FLOATRET  BLASFUNC(sdsdot)(blasint *, float  *,        float  *, blasint *, float  *, blasint *);
 
@@ -503,15 +498,6 @@ void BLASFUNC(zgemm3m)(char *, char *, blasint *, blasint *, blasint *, double *
 void BLASFUNC(xgemm3m)(char *, char *, blasint *, blasint *, blasint *, xdouble *,
 	   xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *);
 
-void BLASFUNC(sgemmt)(char*, char *, char *, blasint *, blasint *, float *,
-	   float  *, blasint *, float  *, blasint *, float  *, float  *, blasint *);
-void BLASFUNC(dgemmt)(char*, char *, char *, blasint *, blasint *, double *,
-	   double *, blasint *, double *, blasint *, double *, double *, blasint *);
-void BLASFUNC(cgemmt)(char*, char *, char *, blasint *, blasint *, float *,
-	   float  *, blasint *, float  *, blasint *, float  *, float  *, blasint *);
-void BLASFUNC(zgemmt)(char*, char *, char *, blasint *, blasint *, double *,
-	   double *, blasint *, double *, blasint *, double *, double *, blasint *);
-
 int BLASFUNC(sge2mm)(char *, char *, char *, blasint *, blasint *,
 		     float *, float  *, blasint *, float  *, blasint *,
 		     float *, float  *, blasint *);
@@ -778,8 +764,8 @@ xdouble   BLASFUNC(qlamc3)(xdouble *, xdouble *);
 
 void    BLASFUNC(saxpby) (blasint *, float  *, float  *, blasint *, float *, float  *, blasint *);
 void    BLASFUNC(daxpby) (blasint *, double  *, double  *, blasint *, double *, double  *, blasint *);
-void    BLASFUNC(caxpby) (blasint *, void  *, float  *, blasint *, void *, float  *, blasint *);
-void    BLASFUNC(zaxpby) (blasint *, void  *, double *, blasint *, void *, double  *, blasint *);
+void    BLASFUNC(caxpby) (blasint *, float  *, float  *, blasint *, float *, float  *, blasint *);
+void    BLASFUNC(zaxpby) (blasint *, double  *, double  *, blasint *, double *, double  *, blasint *);
 
 void    BLASFUNC(somatcopy) (char *, char *, blasint *, blasint *, float  *, float  *, blasint *, float  *, blasint *);
 void    BLASFUNC(domatcopy) (char *, char *, blasint *, blasint *, double  *, double  *, blasint *, double  *, blasint *);

common_level3.h

@@ -1937,13 +1937,8 @@ int zimatcopy_k_rtc(BLASLONG, BLASLONG,  double, double, double *, BLASLONG);
 int sgeadd_k(BLASLONG, BLASLONG, float, float*, BLASLONG, float, float *, BLASLONG); 
 int dgeadd_k(BLASLONG, BLASLONG, double, double*, BLASLONG, double, double *, BLASLONG); 
 int cgeadd_k(BLASLONG, BLASLONG, float, float, float*, BLASLONG, float, float, float *, BLASLONG); 
-int zgeadd_k(BLASLONG, BLASLONG, double,double, double*, BLASLONG, double, double, double *, BLASLONG);
+int zgeadd_k(BLASLONG, BLASLONG, double,double, double*, BLASLONG, double, double, double *, BLASLONG); 
 
-int sgemm_batch_thread(blas_arg_t * queue, BLASLONG nums);
-int dgemm_batch_thread(blas_arg_t * queue, BLASLONG nums);
-int cgemm_batch_thread(blas_arg_t * queue, BLASLONG nums);
-int zgemm_batch_thread(blas_arg_t * queue, BLASLONG nums);
-int sbgemm_batch_thread(blas_arg_t * queue, BLASLONG nums);
 
 #ifdef __CUDACC__
 }

common_loongarch64.h

@@ -75,51 +75,14 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 #define WMB __sync_synchronize()
 #define RMB __sync_synchronize()
 
+#define INLINE inline
+
 #ifndef ASSEMBLER
 
 static inline int blas_quickdivide(blasint x, blasint y){
   return x / y;
 }
 
-#ifndef NO_AFFINITY
-static inline int WhereAmI(void){
-  int ret = 0, counter = 0;
-  __asm__ volatile (
-    "rdtimel.w  %[counter],   %[id]"
-    : [id]"=r"(ret), [counter]"=r"(counter)
-    :
-    : "memory"
-  );
-  return ret;
-}
-#endif
-
-static inline int get_cpu_model(char *model_name) {
-  FILE *cpuinfo_file = fopen("/proc/cpuinfo", "r");
-  if (!cpuinfo_file) {
-    return 0;
-  }
-  char line[1024];
-  while (fgets(line, sizeof(line), cpuinfo_file)) {
-    if (strstr(line, "model name")) {
-      char *token = strtok(line, ":");
-      token = strtok(NULL, ":");
-      while (*token == ' ')
-        token++;
-      char *end = token + strlen(token) - 1;
-      while (end > token && (*end == '\n' || *end == '\r')) {
-        *end = '\0';
-        end--;
-      }
-      strcpy(model_name, token);
-      fclose(cpuinfo_file);
-      return 1;
-    }
-  }
-  fclose(cpuinfo_file);
-  return 0;
-}
-
 #ifdef DOUBLE
 #define GET_IMAGE(res)  __asm__ __volatile__("fmov.d %0, $f2" : "=f"(res)  : : "memory")
 #else
@@ -143,50 +106,12 @@ static inline int get_cpu_model(char *model_name) {
 #define MOV     fmov.d
 #define CMOVT   fsel
 #define MTC     movgr2fr.d
-#define MTG     movfr2gr.d
 #define FABS    fabs.d
-#define FMIN    fmin.d
-#define FMINA   fmina.d
-#define FMAX    fmax.d
-#define FMAXA   fmaxa.d
 #define CMPEQ   fcmp.ceq.d
 #define CMPLE   fcmp.cle.d
 #define CMPLT   fcmp.clt.d
 #define NEG     fneg.d
-#define FFINT   ffint.d.l
-
-#define XVFSUB  xvfsub.d
-#define XVFADD  xvfadd.d
-#define XVFMUL  xvfmul.d
-#define XVFMADD xvfmadd.d
-#define XVFMIN  xvfmin.d
-#define XVFMINA xvfmina.d
-#define XVFMAX  xvfmax.d
-#define XVFMAXA xvfmaxa.d
-#define XVCMPEQ xvfcmp.ceq.d
-#define XVCMPLE xvfcmp.cle.d
-#define XVCMPLT xvfcmp.clt.d
-#define XVMUL   xvfmul.d
-#define XVMSUB  xvfmsub.d
-#define XVNMSUB xvfnmsub.d
-
-#define VFSUB  vfsub.d
-#define VFADD  vfadd.d
-#define VFMUL  vfmul.d
-#define VFMADD vfmadd.d
-#define VFMIN  vfmin.d
-#define VFMINA vfmina.d
-#define VFMAX  vfmax.d
-#define VFMAXA vfmaxa.d
-#define VCMPEQ vfcmp.ceq.d
-#define VCMPLE vfcmp.cle.d
-#define VCMPLT vfcmp.clt.d
-#define VMUL   vfmul.d
-#define VMSUB  vfmsub.d
-#define VNMSUB vfnmsub.d
-
 #else
-
 #define LD      fld.s
 #define ST      fst.s
 #define MADD    fmadd.s
@@ -199,48 +124,11 @@ static inline int get_cpu_model(char *model_name) {
 #define MOV     fmov.s
 #define CMOVT   fsel
 #define MTC     movgr2fr.w
-#define MTG     movfr2gr.s
 #define FABS    fabs.s
-#define FMIN    fmin.s
-#define FMINA   fmina.s
-#define FMAX    fmax.s
-#define FMAXA   fmaxa.s
 #define CMPEQ   fcmp.ceq.s
 #define CMPLE   fcmp.cle.s
 #define CMPLT   fcmp.clt.s
 #define NEG     fneg.s
-#define FFINT   ffint.s.l
-
-#define XVFSUB  xvfsub.s
-#define XVFADD  xvfadd.s
-#define XVFMUL  xvfmul.s
-#define XVFMADD xvfmadd.s
-#define XVFMIN  xvfmin.s
-#define XVFMINA xvfmina.s
-#define XVFMAX  xvfmax.s
-#define XVFMAXA xvfmaxa.s
-#define XVCMPEQ xvfcmp.ceq.s
-#define XVCMPLE xvfcmp.cle.s
-#define XVCMPLT xvfcmp.clt.s
-#define XVMUL   xvfmul.s
-#define XVMSUB  xvfmsub.s
-#define XVNMSUB xvfnmsub.s
-
-#define VFSUB  vfsub.s
-#define VFADD  vfadd.s
-#define VFMUL  vfmul.s
-#define VFMADD vfmadd.s
-#define VFMIN  vfmin.s
-#define VFMINA vfmina.s
-#define VFMAX  vfmax.s
-#define VFMAXA vfmaxa.s
-#define VCMPEQ vfcmp.ceq.s
-#define VCMPLE vfcmp.cle.s
-#define VCMPLT vfcmp.clt.s
-#define VMUL   vfmul.s
-#define VMSUB  vfmsub.s
-#define VNMSUB vfnmsub.s
-
 #endif /* defined(DOUBLE) */
 
 #if defined(__64BIT__) && defined(USE64BITINT)
@@ -279,13 +167,9 @@ REALNAME: ;\
 #define GNUSTACK
 #endif /* defined(__linux__) && defined(__ELF__) */
 
-#ifdef __clang__
-#define EPILOGUE .end
-#else
 #define EPILOGUE      \
     .end    REALNAME ;\
     GNUSTACK
-#endif
 
 #define PROFCODE
 

common_macro.h

@@ -2655,20 +2655,9 @@ typedef struct {
   BLASLONG prea, preb, prec, pred;
 #endif
 
-
-  //for gemm_batch
-  void * routine;
-  int routine_mode;
-
 } blas_arg_t;
 #endif
 
-#ifdef SMALL_MATRIX_OPT
-#define BLAS_SMALL_OPT  0x10000U
-#define BLAS_SMALL_B0_OPT  0x30000U
-#endif
-
-
 #ifdef XDOUBLE
 
 #define TRSV_NUU qtrsv_NUU

common_mips.h

@@ -37,6 +37,8 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 #define WMB __sync_synchronize()
 #define RMB __sync_synchronize()
 
+#define INLINE inline
+
 #define RETURN_BY_COMPLEX
 
 #ifndef ASSEMBLER

common_mips64.h

@@ -75,6 +75,8 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 #define WMB __sync_synchronize()
 #define RMB __sync_synchronize()
 
+#define INLINE inline
+
 #ifndef ASSEMBLER
 
 static inline unsigned int rpcc(void){

common_power.h

@@ -78,6 +78,8 @@
 #define RMB		__asm__ __volatile__ ("sync")
 #endif
 
+#define INLINE inline
+
 #ifdef PPC440
 #define STDERR stdout
 #define QNONCACHE 0x1
@@ -89,7 +91,7 @@
 
 void *qalloc(int flags, size_t bytes);
 
-static inline void blas_lock(volatile unsigned long *address){
+static void INLINE blas_lock(volatile unsigned long *address){
 
   long int ret, val = 1;
 
@@ -839,17 +841,17 @@ Lmcount$lazy_ptr:
 #endif
 
 #if defined(PPC440)
-#define BUFFER_SIZE     (  2UL << 20)
+#define BUFFER_SIZE     (  2 << 20)
 #elif defined(PPC440FP2)
-#define BUFFER_SIZE     ( 16UL << 20)
+#define BUFFER_SIZE     ( 16 << 20)
 #elif defined(POWER6) || defined(POWER8) || defined(POWER9) || defined(POWER10)
-#define BUFFER_SIZE     ( 64UL << 22)
+#define BUFFER_SIZE     ( 64 << 22)
 #else
-#define BUFFER_SIZE     ( 16UL << 20)
+#define BUFFER_SIZE     ( 16 << 20)
 #endif
 #ifdef DYNAMIC_ARCH
 #undef BUFFER_SIZE
-#define BUFFER_SIZE (64UL << 22)
+#define BUFFER_SIZE (64 << 22)
 #endif
 
 #ifndef PAGESIZE

common_riscv64.h

@@ -75,6 +75,8 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 #define WMB __sync_synchronize()
 #define RMB __sync_synchronize()
 
+#define INLINE inline
+
 #ifndef ASSEMBLER
 
 
@@ -89,26 +91,8 @@ static inline int blas_quickdivide(blasint x, blasint y){
 #define BUFFER_SIZE     ( 32 << 20)
 #define SEEK_ADDRESS
 
-#if defined(C910V) || defined(RISCV64_ZVL256B) || defined(RISCV64_ZVL128B) || defined(x280)
-# include <riscv_vector.h>
-#endif
-
-#if defined( __riscv_xtheadc ) && defined( __riscv_v ) && ( __riscv_v <= 7000 )
-// t-head toolchain uses obsolete rvv intrinsics, can't build for C910V without this
-#define RISCV_0p10_INTRINSICS
-#define RISCV_RVV(x) x
-#else
-#define RISCV_RVV(x) __riscv_ ## x
-#endif
-
-#if defined(C910V) || defined(RISCV64_ZVL256B)
-# if !defined(DOUBLE)
-#  define EXTRACT_FLOAT(v) RISCV_RVV(vfmv_f_s_f32m1_f32)(v)
-# else
-#  define EXTRACT_FLOAT(v) RISCV_RVV(vfmv_f_s_f64m1_f64)(v)
-# endif
-#else
-# define EXTRACT_FLOAT(v) (v[0])
+#if defined(C910V)
+#include <riscv_vector.h>
 #endif
 
 #endif

common_sparc.h

@@ -45,7 +45,7 @@
 
 #ifndef ASSEMBLER
 
-static __inline void blas_lock(volatile unsigned long *address){
+static void __inline blas_lock(volatile unsigned long *address){
 
   long int ret = 1;
 

common_thread.h

@@ -53,6 +53,7 @@ extern void goto_set_num_threads(int nthreads);
 /* Global Parameter */
 extern int blas_cpu_number;
 extern int blas_num_threads;
+extern int blas_num_threads_set;
 extern int blas_omp_linked;
 
 #define BLAS_LEGACY	0x8000U
@@ -111,9 +112,8 @@ typedef struct blas_queue {
   struct blas_queue *next;
 
 #if defined( __WIN32__) || defined(__CYGWIN32__) || defined(_WIN32) || defined(__CYGWIN__)
-   CRITICAL_SECTION lock;
-   HANDLE finish;
-  volatile int finished;
+  CRITICAL_SECTION lock;
+  HANDLE finish;
 #else
   pthread_mutex_t	 lock;
   pthread_cond_t	 finished;
@@ -136,32 +136,27 @@ typedef struct blas_queue {
 #ifdef SMP_SERVER
 
 extern int blas_server_avail;
-extern int blas_omp_number_max;
-extern int blas_omp_threads_local;
 
 static __inline int num_cpu_avail(int level) {
 
 #ifdef USE_OPENMP
 int openmp_nthreads;
+	if (blas_num_threads_set == 0)
 	openmp_nthreads=omp_get_max_threads();
-	if (omp_in_parallel()) openmp_nthreads = blas_omp_threads_local;
+	else
+	openmp_nthreads=blas_cpu_number;
 #endif
 
 #ifndef USE_OPENMP 
   if (blas_cpu_number == 1
-#else
-     if (openmp_nthreads == 1 
+#endif
+#ifdef USE_OPENMP
+     if (openmp_nthreads == 1 || omp_in_parallel()
 #endif
       ) return 1;        
 
 #ifdef USE_OPENMP
-     if (openmp_nthreads > blas_omp_number_max){
-#ifdef DEBUG
-     fprintf(stderr,"WARNING - more OpenMP threads requested (%d) than available (%d)\n",openmp_nthreads,blas_omp_number_max);
-#endif
-     openmp_nthreads = blas_omp_number_max;
-     }
-     if (blas_cpu_number != openmp_nthreads) {
+  if (blas_cpu_number != openmp_nthreads) {
 	  goto_set_num_threads(openmp_nthreads);
   }
 #endif
@@ -194,27 +189,27 @@ int exec_blas(BLASLONG num_cpu, blas_param_t *param, void *buffer);
 int blas_level1_thread(int mode, BLASLONG m, BLASLONG n, BLASLONG k, void *alpha,
 		       void *a, BLASLONG lda,
 		       void *b, BLASLONG ldb,
-		       void *c, BLASLONG ldc, int (*function)(void), int threads);
+		       void *c, BLASLONG ldc, int (*function)(), int threads);
 
-int gemm_thread_m (int mode, blas_arg_t *, BLASLONG *, BLASLONG *, int (*function)(blas_arg_t*, BLASLONG*, BLASLONG*,FLOAT *, FLOAT *, BLASLONG ), void *, void *, BLASLONG);
+int gemm_thread_m (int mode, blas_arg_t *, BLASLONG *, BLASLONG *, int (*function)(), void *, void *, BLASLONG);
 
-int gemm_thread_n (int mode, blas_arg_t *, BLASLONG *, BLASLONG *, int (*function)(blas_arg_t*, BLASLONG*, BLASLONG*,FLOAT*, FLOAT*, BLASLONG), void *, void *, BLASLONG);
+int gemm_thread_n (int mode, blas_arg_t *, BLASLONG *, BLASLONG *, int (*function)(), void *, void *, BLASLONG);
 
-int gemm_thread_mn(int mode, blas_arg_t *, BLASLONG *, BLASLONG *, int (*function)(blas_arg_t*, BLASLONG*, BLASLONG*,FLOAT *, FLOAT *, BLASLONG), void *, void *, BLASLONG);
+int gemm_thread_mn(int mode, blas_arg_t *, BLASLONG *, BLASLONG *, int (*function)(), void *, void *, BLASLONG);
 
-int gemm_thread_variable(int mode, blas_arg_t *, BLASLONG *, BLASLONG *, int (*function)(blas_arg_t*, BLASLONG*, BLASLONG*,FLOAT *, FLOAT *, BLASLONG), void *, void *, BLASLONG, BLASLONG);
+int gemm_thread_variable(int mode, blas_arg_t *, BLASLONG *, BLASLONG *, int (*function)(), void *, void *, BLASLONG, BLASLONG);
 
 int trsm_thread(int mode, BLASLONG m, BLASLONG n,
 		double alpha_r, double alpha_i,
 		void *a, BLASLONG lda,
-		void *c, BLASLONG ldc, int (*function)(void), void *buffer);
+		void *c, BLASLONG ldc, int (*function)(), void *buffer);
 
-int syrk_thread(int mode, blas_arg_t *, BLASLONG *, BLASLONG *, int (*function)(blas_arg_t*, BLASLONG*, BLASLONG*, FLOAT *, FLOAT *, BLASLONG), void*, void*, BLASLONG);
+int syrk_thread(int mode, blas_arg_t *, BLASLONG *, BLASLONG *, int (*function)(), void *, void *, BLASLONG);
 
 int getrf_thread(int mode, BLASLONG m, BLASLONG n, BLASLONG k,
 		 void *offsetA, BLASLONG lda,
 		 void *offsetB, BLASLONG jb,
-		 void *ipiv, BLASLONG offset, int (*function)(void), void *buffer);
+		 void *ipiv, BLASLONG offset, int (*function)(), void *buffer);
 
 #endif  /* ENDIF ASSEMBLER */
 

common_x86.h

@@ -54,7 +54,7 @@
 #define	__volatile__
 #endif
 
-static __inline void blas_lock(volatile BLASULONG *address){
+static void __inline blas_lock(volatile BLASULONG *address){
 
   int ret;
 

common_x86_64.h

@@ -70,7 +70,7 @@
 #define RMB
 #endif
 
-static __inline void blas_lock(volatile BLASULONG *address){
+static void __inline blas_lock(volatile BLASULONG *address){
 
 	
 #ifndef C_MSVC
@@ -253,7 +253,7 @@ static __inline unsigned int blas_quickdivide(unsigned int x, unsigned int y){
 #ifndef BUFFERSIZE
 #define BUFFER_SIZE	(32 << 22)
 #else
-#define BUFFER_SIZE	(32UL << BUFFERSIZE)
+#define BUFFER_SIZE	(32 << BUFFERSIZE)
 #endif
 
 #define SEEK_ADDRESS

common_zarch.h

@@ -37,12 +37,15 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 #define WMB  
 #define RMB
 
+
+#define INLINE inline
+
 #define RETURN_BY_COMPLEX
 
 #ifndef ASSEMBLER
 
   /*
-static __inline void blas_lock(volatile BLASULONG *address){
+static void __inline blas_lock(volatile BLASULONG *address){
 
   BLASULONG ret;
 

cpuid_arm64.c

@@ -42,11 +42,9 @@ size_t length64=sizeof(value64);
 #define CPU_CORTEXA57     3
 #define CPU_CORTEXA72     4
 #define CPU_CORTEXA73     5
-#define CPU_CORTEXA76	  23
 #define CPU_NEOVERSEN1    11
 #define CPU_NEOVERSEV1    16
 #define CPU_NEOVERSEN2    17
-#define CPU_NEOVERSEV2   24
 #define CPU_CORTEXX1      18
 #define CPU_CORTEXX2	  19
 #define CPU_CORTEXA510	  20
@@ -91,9 +89,7 @@ static char *cpuname[] = {
   "CORTEXX2",
   "CORTEXA510",
   "CORTEXA710",
-  "FT2000",
-  "CORTEXA76",
-	"NEOVERSEV2"
+  "FT2000"
 };
 
 static char *cpuname_lower[] = {
@@ -119,9 +115,7 @@ static char *cpuname_lower[] = {
   "cortexx2",
   "cortexa510",
   "cortexa710",
-  "ft2000",
-  "cortexa76",
-	"neoversev2"
+  "ft2000"
 };
 
 int get_feature(char *search)
@@ -216,10 +210,6 @@ int detect(void)
 	return CPU_CORTEXX2;
       else if (strstr(cpu_part, "0xd4e")) //X3
 	return CPU_CORTEXX2;
-      else if (strstr(cpu_part, "0xd4f")) //NVIDIA Grace et al.
-        return CPU_NEOVERSEV2;
-      else if (strstr(cpu_part, "0xd0b")) 
-	return CPU_CORTEXA76;
     }
     // Qualcomm
     else if (strstr(cpu_implementer, "0x51") && strstr(cpu_part, "0xc00"))
@@ -280,7 +270,6 @@ int detect(void)
 	sysctlbyname("hw.cpufamily",&value64,&length64,NULL,0);
 	if (value64 ==131287967|| value64 == 458787763 ) return CPU_VORTEX; //A12/M1
 	if (value64 == 3660830781) return CPU_VORTEX; //A15/M2
-	if (value64 == 2271604202) return CPU_VORTEX; //A16/M3
 #endif
 	return CPU_ARMV8;	
 #endif
@@ -401,8 +390,6 @@ void get_cpuconfig(void)
 		break;
 
 	    case CPU_NEOVERSEV1:
-		printf("#define HAVE_SVE 1\n");
-	    case CPU_CORTEXA76:
                 printf("#define %s\n", cpuname[d]);
                 printf("#define L1_CODE_SIZE 65536\n");
                 printf("#define L1_CODE_LINESIZE 64\n");
@@ -430,32 +417,12 @@ void get_cpuconfig(void)
                 printf("#define L2_ASSOCIATIVE 8\n");
                 printf("#define DTB_DEFAULT_ENTRIES 48\n");
                 printf("#define DTB_SIZE 4096\n");
-		printf("#define HAVE_SVE 1\n");
-                break;
-      case CPU_NEOVERSEV2:
-                printf("#define ARMV9\n");
-	        printf("#define HAVE_SVE 1\n");
-                printf("#define %s\n", cpuname[d]);
-                printf("#define L1_CODE_SIZE 65536\n");
-                printf("#define L1_CODE_LINESIZE 64\n");
-                printf("#define L1_CODE_ASSOCIATIVE 4\n");
-                printf("#define L1_DATA_SIZE 65536\n");
-                printf("#define L1_DATA_LINESIZE 64\n");
-                printf("#define L1_DATA_ASSOCIATIVE 4\n");
-                printf("#define L2_SIZE 1048576\n");
-                printf("#define L2_LINESIZE 64\n");
-                printf("#define L2_ASSOCIATIVE 8\n");
-								// L1 Data TLB = 48 entries
-								// L2 Data TLB = 2048 entries
-                printf("#define DTB_DEFAULT_ENTRIES 48\n");
-                printf("#define DTB_SIZE 4096\n");  // Set to 4096 for symmetry with other configs.
                 break;
 	    case CPU_CORTEXA510:
 	    case CPU_CORTEXA710:
 	    case CPU_CORTEXX1:
 	    case CPU_CORTEXX2:
 		printf("#define ARMV9\n");
-		printf("#define HAVE_SVE 1\n");
                 printf("#define %s\n", cpuname[d]);
                 printf("#define L1_CODE_SIZE 65536\n");
                 printf("#define L1_CODE_LINESIZE 64\n");
@@ -572,7 +539,6 @@ void get_cpuconfig(void)
 		break;
 	    case CPU_A64FX:
 		printf("#define A64FX\n");
-		printf("#define HAVE_SVE 1\n");
     		printf("#define L1_CODE_SIZE 65535\n");
     		printf("#define L1_DATA_SIZE 65535\n");
     		printf("#define L1_DATA_LINESIZE 256\n");

cpuid_loongarch64.c

@@ -1,5 +1,5 @@
 /*****************************************************************************
-Copyright (c) 2011-2024, The OpenBLAS Project
+Copyright (c) 2011-2020, The OpenBLAS Project
 All rights reserved.
 
 Redistribution and use in source and binary forms, with or without
@@ -32,299 +32,58 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 **********************************************************************************/
 
 #include <stdint.h>
-#include <stdio.h>
-#include <math.h>
-#include <string.h>
-#include <sys/auxv.h>
 
-#define CPU_LA64_GENERIC     0
-#define CPU_LA264            1
-#define CPU_LA364            2
-#define CPU_LA464            3
-#define CPU_LA664            4
+/*  If LASX extension instructions supported,
+ *  using core LOONGSON3R5
+ *  If only LSX extension instructions supported,
+ *  using core LOONGSON2K1000
+ *  If neither LASX nor LSX extension instructions supported,
+ *  using core LOONGSONGENERIC (As far as I know, there is no such
+ *  CPU yet)
+ */
 
-#define CORE_LA64_GENERIC    0
-#define CORE_LA264           1
-#define CORE_LA464           2
+#define CPU_GENERIC        0
+#define CPU_LOONGSON3R5    1
+#define CPU_LOONGSON2K1000 2
 
-#define LA_HWCAP_LSX    (1U << 4)
-#define LA_HWCAP_LASX   (1U << 5)
+#define LOONGARCH_CFG2  0x02
+#define LOONGARCH_LASX  1<<7
+#define LOONGARCH_LSX   1<<6
 
-#define LOONGARCH_CFG0      0x00
-#define LOONGARCH_CFG2      0x02
-#define LOONGARCH_CFG10     0x10
-#define LOONGARCH_CFG11     0x11
-#define LOONGARCH_CFG12     0x12
-#define LOONGARCH_CFG13     0x13
-#define LOONGARCH_CFG14     0x14
-#define LASX_MASK           1<<7
-#define LSX_MASK            1<<6
-#define PRID_SERIES_MASK    0xf000
-#define PRID_SERIES_LA264   0xa000
-#define PRID_SERIES_LA364   0xb000
-#define PRID_SERIES_LA464   0xc000
-#define PRID_SERIES_LA664   0xd000
-
-#define CACHE_INFO_L1_IU    0
-#define CACHE_INFO_L1_D     1
-#define CACHE_INFO_L2_IU    2
-#define CACHE_INFO_L2_D     3
-#define CACHE_INFO_L3_IU    4
-#define CACHE_INFO_L3_D     5
-#define L1_IU_PRESENT_MASK  0x0001
-#define L1_IU_UNITY_MASK    0x0002
-#define L1_D_PRESENT_MASK   0x0004
-#define L2_IU_PRESENT_MASK  0x0008
-#define L2_IU_UNITY_MASK    0x0010
-#define L2_D_PRESENT_MASK   0x0080
-#define L3_IU_PRESENT_MASK  0x0400
-#define L3_IU_UNITY_MASK    0x0800
-#define L3_D_PRESENT_MASK   0x4000
-#define CACHE_WAY_MINUS_1_MASK      0x0000ffff
-#define CACHE_INDEX_LOG2_MASK       0x00ff0000
-#define CACHE_LINESIZE_LOG2_MASK    0x7f000000
-
-typedef struct {
-  int size;
-  int associative;
-  int linesize;
-  int unify;
-  int present;
-} cache_info_t;
-
-/* Using microarchitecture representation */
 static char *cpuname[] = {
-  "LA64_GENERIC",
-  "LA264", /* Loongson 64bit, 2-issue, Like 2K1000LA */
-  "LA364", /* Loongson 64bit, 3-issue, Like 2K2000 */
-  "LA464", /* Loongson 64bit, 4-issue, Like 3A5000, 3C5000L, 3C5000 and 3D5000 */
-  "LA664"  /* Loongson 64bit, 6-issue, Like 3A6000, 3C6000 and 3D6000 */
+  "LOONGSONGENERIC",
+  "LOONGSON3R5",
+  "LOONGSON2K1000"
 };
 
 static char *cpuname_lower[] = {
-  "la64_generic",
-  "la264",
-  "la364",
-  "la464",
-  "la664"
+  "loongsongeneric",
+  "loongson3r5",
+  "loongson2k1000"
 };
 
-static char *corename[] = {
-  "LA64_GENERIC", /* Implies using scalar instructions for optimization */
-  "LA264", /* Implies using LSX  instructions for optimization */
-  "LA464", /* Implies using LASX instructions for optimization */
-};
-
-static char *corename_lower[] = {
-  "la64_generic",
-  "la264",
-  "la464",
-};
-
-/*
- * Obtain cache and processor identification
- * through the cpucfg command.
- */
-static void get_cacheinfo(int type, cache_info_t *cacheinfo) {
-  cache_info_t cache_info;
-  memset(&cache_info, 0, sizeof(cache_info));
-  uint32_t reg_10 = 0;
-  __asm__ volatile (
-    "cpucfg %0, %1 \n\t"
-    : "+&r"(reg_10)
-    : "r"(LOONGARCH_CFG10)
-  );
-
-  switch (type) {
-    case CACHE_INFO_L1_IU:
-      if (reg_10 & L1_IU_PRESENT_MASK) {
-        uint32_t reg_11 = 0;
-        cache_info.present = reg_10 & L1_IU_PRESENT_MASK;
-        cache_info.unify   = reg_10 & L1_IU_UNITY_MASK;
-        __asm__ volatile (
-          "cpucfg %0, %1 \n\t"
-          : "+&r"(reg_11)
-          : "r"(LOONGARCH_CFG11)
-        );
-        cache_info.associative  = (reg_11 & CACHE_WAY_MINUS_1_MASK) + 1;
-        cache_info.linesize = 1 << ((reg_11 & CACHE_LINESIZE_LOG2_MASK) >> 24);
-        cache_info.size = cache_info.associative * cache_info.linesize *
-                          (1 << ((reg_11 & CACHE_INDEX_LOG2_MASK) >> 16));
-      }
-    break;
-
-    case CACHE_INFO_L1_D:
-      if (reg_10 & L1_D_PRESENT_MASK) {
-        uint32_t reg_12 = 0;
-        cache_info.present = reg_10 & L1_D_PRESENT_MASK;
-        __asm__ volatile (
-          "cpucfg %0, %1 \n\t"
-          : "+&r"(reg_12)
-          : "r"(LOONGARCH_CFG12)
-        );
-        cache_info.associative  = (reg_12 & CACHE_WAY_MINUS_1_MASK) + 1;
-        cache_info.linesize = 1 << ((reg_12 & CACHE_LINESIZE_LOG2_MASK) >> 24);
-        cache_info.size = cache_info.associative * cache_info.linesize *
-                          (1 << ((reg_12 & CACHE_INDEX_LOG2_MASK) >> 16));
-      }
-    break;
-
-    case CACHE_INFO_L2_IU:
-      if (reg_10 & L2_IU_PRESENT_MASK) {
-        uint32_t reg_13 = 0;
-        cache_info.present = reg_10 & L2_IU_PRESENT_MASK;
-        cache_info.unify   = reg_10 & L2_IU_UNITY_MASK;
-        __asm__ volatile (
-          "cpucfg %0, %1 \n\t"
-          : "+&r"(reg_13)
-          : "r"(LOONGARCH_CFG13)
-        );
-        cache_info.associative  = (reg_13 & CACHE_WAY_MINUS_1_MASK) + 1;
-        cache_info.linesize = 1 << ((reg_13 & CACHE_LINESIZE_LOG2_MASK) >> 24);
-        cache_info.size = cache_info.associative * cache_info.linesize *
-                          (1 << ((reg_13 & CACHE_INDEX_LOG2_MASK) >> 16));
-      }
-    break;
-
-    case CACHE_INFO_L2_D:
-      if (reg_10 & L2_D_PRESENT_MASK) {
-        cache_info.present = reg_10 & L2_D_PRESENT_MASK;
-        // No date fetch
-      }
-    break;
-
-    case CACHE_INFO_L3_IU:
-      if (reg_10 & L3_IU_PRESENT_MASK) {
-        uint32_t reg_14 = 0;
-        cache_info.present = reg_10 & L3_IU_PRESENT_MASK;
-        cache_info.unify   = reg_10 & L3_IU_UNITY_MASK;
-        __asm__ volatile (
-          "cpucfg %0, %1 \n\t"
-          : "+&r"(reg_14)
-          : "r"(LOONGARCH_CFG14)
-        );
-        cache_info.associative  = (reg_14 & CACHE_WAY_MINUS_1_MASK) + 1;
-        cache_info.linesize = 1 << ((reg_14 & CACHE_LINESIZE_LOG2_MASK) >> 24);
-        cache_info.size = cache_info.associative * cache_info.linesize *
-                          (1 << ((reg_14 & CACHE_INDEX_LOG2_MASK) >> 16));
-      }
-    break;
-
-    case CACHE_INFO_L3_D:
-      if (reg_10 & L3_D_PRESENT_MASK) {
-        cache_info.present = reg_10 & L3_D_PRESENT_MASK;
-        // No data fetch
-      }
-    break;
-
-    default:
-    break;
-  }
-  *cacheinfo = cache_info;
-}
-
-static uint32_t get_prid() {
+int detect(void) {
+#ifdef __linux
   uint32_t reg = 0;
+
   __asm__ volatile (
     "cpucfg %0, %1 \n\t"
     : "+&r"(reg)
-    : "r"(LOONGARCH_CFG0)
+    : "r"(LOONGARCH_CFG2)
   );
-  return reg;
-}
 
-static void get_cpucount(uint32_t *count) {
-  uint32_t num = 0;
-  FILE *f = fopen("/proc/cpuinfo", "r");
-  if (!f) return;
-  char buf[200];
-  while (fgets(buf, sizeof(buf), f))
-  {
-    if (!strncmp("processor", buf, 9))
-      num ++;
-  }
-  fclose(f);
-  *count = num;
-}
-
-/* Detect whether the OS supports the LASX instruction set */
-static int os_support_lasx() {
-  int hwcap  = (int)getauxval(AT_HWCAP);
-
-  if (hwcap & LA_HWCAP_LASX)
-    return 1;
+  if (reg & LOONGARCH_LASX)
+    return CPU_LOONGSON3R5;
+  else if (reg & LOONGARCH_LSX)
+    return CPU_LOONGSON2K1000;
   else
-    return 0;
-}
-
-/* Detect whether the OS supports the LSX instruction set */
-static int os_support_lsx() {
-  int hwcap  = (int)getauxval(AT_HWCAP);
-
-  if (hwcap & LA_HWCAP_LSX)
-    return 1;
-  else
-    return 0;
-}
-
-int get_coretype(void) {
-  uint32_t prid = get_prid();
-  switch (prid & PRID_SERIES_MASK) {
-    case (PRID_SERIES_LA464):
-    case (PRID_SERIES_LA664):
-      if (os_support_lasx())
-        return CORE_LA464;
-      else if (os_support_lsx())
-        return CORE_LA264;
-      else
-        return CORE_LA64_GENERIC;
-    break;
-
-    case (PRID_SERIES_LA264):
-    case (PRID_SERIES_LA364):
-      if (os_support_lsx())
-        return CORE_LA264;
-      else
-        return CORE_LA64_GENERIC;
-    break;
-
-    default:
-      return CORE_LA64_GENERIC;
-    break;
-  }
-}
-
-int get_cputype(void) {
-  uint32_t prid = get_prid();
-  switch (prid & PRID_SERIES_MASK) {
-    case (PRID_SERIES_LA264):
-      return CPU_LA264;
-    break;
-
-    case (PRID_SERIES_LA364):
-      return CPU_LA364;
-    break;
-
-    case (PRID_SERIES_LA464):
-      return CPU_LA464;
-    break;
-
-    case (PRID_SERIES_LA664):
-      return CPU_LA664;
-    break;
-
-    default:
-      return CPU_LA64_GENERIC;
-    break;
-  }
+    return CPU_GENERIC;
+#endif
+  return CPU_GENERIC;
 }
 
 char *get_corename(void) {
-  return corename[get_coretype()];
-}
-
-void get_libname(void){
-  printf("%s", corename_lower[get_coretype()]);
+  return cpuname[detect()];
 }
 
 void get_architecture(void) {
@@ -332,7 +91,8 @@ void get_architecture(void) {
 }
 
 void get_subarchitecture(void) {
-  printf("%s", cpuname[get_cputype()]);
+  int d = detect();
+  printf("%s", cpuname[d]);
 }
 
 void get_subdirname(void) {
@@ -340,69 +100,44 @@ void get_subdirname(void) {
 }
 
 void get_cpuconfig(void) {
-  cache_info_t info;
-  uint32_t num_cores = 0;
+  int d = detect();
+  switch (d) {
+    case CPU_LOONGSON3R5:
+      printf("#define LOONGSON3R5\n");
+      printf("#define L1_DATA_SIZE 65536\n");
+      printf("#define L1_DATA_LINESIZE 64\n");
+      printf("#define L2_SIZE 1048576\n");
+      printf("#define L2_LINESIZE 64\n");
+      printf("#define DTB_DEFAULT_ENTRIES 64\n");
+      printf("#define DTB_SIZE 4096\n");
+      printf("#define L2_ASSOCIATIVE 16\n");
+    break;
 
-  printf("#define %s\n", corename[get_coretype()]); // Core name
+    case CPU_LOONGSON2K1000:
+      printf("#define LOONGSON2K1000\n");
+      printf("#define L1_DATA_SIZE 65536\n");
+      printf("#define L1_DATA_LINESIZE 64\n");
+      printf("#define L2_SIZE 262144\n");
+      printf("#define L2_LINESIZE 64\n");
+      printf("#define DTB_DEFAULT_ENTRIES 64\n");
+      printf("#define DTB_SIZE 4096\n");
+      printf("#define L2_ASSOCIATIVE 16\n");
+    break;
 
-  printf("#define CPU_NAME %s\n", cpuname[get_cputype()]); // Cpu microarchitecture name
-
-  get_cacheinfo(CACHE_INFO_L1_IU, &info);
-  if (info.present) {
-    if (info.unify) { // Unified cache, without distinguishing between instructions and data
-      printf("#define L1_SIZE %d\n", info.size);
-      printf("#define L1_ASSOCIATIVE %d\n", info.associative);
-      printf("#define L1_LINESIZE %d\n", info.linesize);
-    } else {
-      printf("#define L1_CODE_SIZE %d\n", info.size);
-      printf("#define L1_CODE_ASSOCIATIVE %d\n", info.associative);
-      printf("#define L1_CODE_LINESIZE %d\n", info.linesize);
-    }
+    default:
+      printf("#define LOONGSONGENERIC\n");
+      printf("#define L1_DATA_SIZE 65536\n");
+      printf("#define L1_DATA_LINESIZE 64\n");
+      printf("#define L2_SIZE 262144\n");
+      printf("#define L2_LINESIZE 64\n");
+      printf("#define DTB_DEFAULT_ENTRIES 64\n");
+      printf("#define DTB_SIZE 4096\n");
+      printf("#define L2_ASSOCIATIVE 16\n");
+    break;
   }
-
-  if (!info.unify) {
-    get_cacheinfo(CACHE_INFO_L1_D, &info);
-    if (info.present) {
-      printf("#define L1_DATA_SIZE %d\n", info.size);
-      printf("#define L1_DATA_ASSOCIATIVE %d\n", info.associative);
-      printf("#define L1_DATA_LINESIZE %d\n", info.linesize);
-    }
-  }
-
-  get_cacheinfo(CACHE_INFO_L2_IU, &info);
-  if (info.present > 0) {
-    if (info.unify) {
-      printf("#define L2_SIZE %d\n", info.size);
-      printf("#define L2_ASSOCIATIVE %d\n", info.associative);
-      printf("#define L2_LINESIZE %d\n", info.linesize);
-    } else {
-      printf("#define L2_CODE_SIZE %d\n", info.size);
-      printf("#define L2_CODE_ASSOCIATIVE %d\n", info.associative);
-      printf("#define L2_CODE_LINESIZE %d\n", info.linesize);
-    }
-  }
-
-  get_cacheinfo(CACHE_INFO_L3_IU, &info);
-  if (info.present > 0) {
-    if (info.unify) {
-      printf("#define L3_SIZE %d\n", info.size);
-      printf("#define L3_ASSOCIATIVE %d\n", info.associative);
-      printf("#define L3_LINESIZE %d\n", info.linesize);
-    } else {
-      printf("#define L3_CODE_SIZE %d\n", info.size);
-      printf("#define L3_CODE_ASSOCIATIVE %d\n", info.associative);
-      printf("#define L3_CODE_LINESIZE %d\n", info.linesize);
-    }
-  }
-
-  if(os_support_lsx)  printf("#define HAVE_LSX\n");
-  if(os_support_lasx) printf("#define HAVE_LASX\n");
-
-  get_cpucount(&num_cores);
-  if (num_cores)
-    printf("#define NUM_CORES %d\n", num_cores);
-
-  //TODO: It’s unclear what this entry represents, but it is indeed necessary.
-  //It has been set based on reference to other platforms.
-  printf("#define DTB_DEFAULT_ENTRIES 64\n");
+}
+
+void get_libname(void){
+  int d = detect();
+  printf("%s", cpuname_lower[d]);
 }

cpuid_power.c

@@ -160,7 +160,6 @@ int detect(void){
   infoCount = HOST_BASIC_INFO_COUNT;
   host_info(mach_host_self(), HOST_BASIC_INFO, (host_info_t)&hostInfo, &infoCount);
 
-  if (hostInfo.cpu_subtype == CPU_SUBTYPE_POWERPC_7400) return CPUTYPE_PPCG4;
   if (hostInfo.cpu_subtype == CPU_SUBTYPE_POWERPC_7450) return CPUTYPE_PPCG4;
   if (hostInfo.cpu_subtype == CPU_SUBTYPE_POWERPC_970)  return CPUTYPE_PPC970;
 

cpuid_riscv64.c

@@ -70,26 +70,12 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 /* or implied, of The University of Texas at Austin.                 */
 /*********************************************************************/
 
-#define CPU_GENERIC         0
-#define CPU_C910V           1
-#define CPU_x280            2
-#define CPU_RISCV64_ZVL256B 3
-#define CPU_RISCV64_ZVL128B 4
+#define CPU_GENERIC   0
+#define CPU_C910V     1
 
 static char *cpuname[] = {
   "RISCV64_GENERIC",
-  "C910V",
-  "x280",
-  "CPU_RISCV64_ZVL256B",
-  "CPU_RISCV64_ZVL128B"
-};
-
-static char *cpuname_lower[] = {
-  "riscv64_generic",
-  "c910v",
-  "x280",
-  "riscv64_zvl256b",
-  "riscv64_zvl128b"
+  "C910V"
 };
 
 int detect(void){
@@ -100,29 +86,23 @@ int detect(void){
   char *pmodel = NULL, *pisa = NULL;
 
   infile = fopen("/proc/cpuinfo", "r");
-  if (!infile)
-    return CPU_GENERIC;
   while (fgets(buffer, sizeof(buffer), infile)){
     if(!strncmp(buffer, "model name", 10)){
       strcpy(model_buffer, buffer);
-      pmodel = strchr(model_buffer, ':');
-      if (pmodel)
-        pmodel++;
+      pmodel = strchr(isa_buffer, ':') + 1;
     }
 
     if(!strncmp(buffer, "isa", 3)){
       strcpy(isa_buffer, buffer);
-      pisa = strchr(isa_buffer, '4');
-      if (pisa)
-        pisa++;
+      pisa = strchr(isa_buffer, '4') + 1;
     }
   }
 
   fclose(infile);
 
-  if (!pmodel || !pisa)
+  if (!pmodel)
    return(CPU_GENERIC);
-
+   
   if (strstr(pmodel, check_c910_str) && strchr(pisa, 'v'))
     return CPU_C910V;
 
@@ -160,5 +140,5 @@ void get_cpuconfig(void){
 }
 
 void get_libname(void){
-  printf("%s", cpuname_lower[detect()]);
+  printf("riscv64\n");
 }

cpuid_x86.c

@@ -194,7 +194,7 @@ static C_INLINE void xgetbv(int op, int * eax, int * edx){
 }
 #endif
 
-int support_avx(void){
+int support_avx(){
 #ifndef NO_AVX
   int eax, ebx, ecx, edx;
   int ret=0;
@@ -212,7 +212,7 @@ int support_avx(void){
 #endif
 }
 
-int support_avx2(void){
+int support_avx2(){
 #ifndef NO_AVX2
   int eax, ebx, ecx=0, edx;
   int ret=0;
@@ -228,7 +228,7 @@ int support_avx2(void){
 #endif
 }
 
-int support_avx512(void){
+int support_avx512(){
 #if !defined(NO_AVX) && !defined(NO_AVX512)
   int eax, ebx, ecx, edx;
   int ret=0;
@@ -250,7 +250,7 @@ int support_avx512(void){
 #endif
 }
 
-int support_avx512_bf16(void){
+int support_avx512_bf16(){
 #if !defined(NO_AVX) && !defined(NO_AVX512)
   int eax, ebx, ecx, edx;
   int ret=0;
@@ -271,7 +271,7 @@ int support_avx512_bf16(void){
 #define BIT_AMX_BF16	0x00400000
 #define BIT_AMX_ENBD	0x00060000
 
-int support_amx_bf16(void) {
+int support_amx_bf16() {
 #if !defined(NO_AVX) && !defined(NO_AVX512)
   int eax, ebx, ecx, edx;
   int ret=0;
@@ -1527,29 +1527,14 @@ int get_cpuname(void){
       break;
       case 10: //family 6 exmodel 10
         switch (model) {
-	  case 13: // Granite Rapids
-	  if(support_amx_bf16())
-	    return CPUTYPE_SAPPHIRERAPIDS;
-	  if(support_avx512_bf16())
-            return CPUTYPE_COOPERLAKE;	
-          if(support_avx512())
-            return CPUTYPE_SKYLAKEX;
-          if(support_avx2())
-            return CPUTYPE_HASWELL;
-          if(support_avx())
-            return CPUTYPE_SANDYBRIDGE;
-          else
-          return CPUTYPE_NEHALEM;
           case 5: // Comet Lake H and S
           case 6: // Comet Lake U
-	  case 10: // Meteor Lake
             if(support_avx2())
               return CPUTYPE_HASWELL;
             if(support_avx())
               return CPUTYPE_SANDYBRIDGE;
             else
               return CPUTYPE_NEHALEM;
-	  case 0: // Meteor Lake
           case 7: // Rocket Lake           
 	    if(support_avx512())
               return CPUTYPE_SKYLAKEX;
@@ -1566,7 +1551,6 @@ int get_cpuname(void){
           case 7: // Raptor Lake
           case 10:
           case 15:
-	  case 14: // Alder Lake N
             if(support_avx2())
               return CPUTYPE_HASWELL;
 	    if(support_avx())
@@ -1575,19 +1559,6 @@ int get_cpuname(void){
 	      return CPUTYPE_NEHALEM;
         }
         break;
-      case 12: //family 6 exmodel 12
-	switch (model) {
-	  case 15:
-	    if(support_avx512())
-              return CPUTYPE_SAPPHIRERAPIDS;
-            if(support_avx2())
-              return CPUTYPE_HASWELL;
-            if(support_avx())
-	      return CPUTYPE_SANDYBRIDGE;
-	    else
-	    return CPUTYPE_NEHALEM;
-	  }
-	break;
       }
       break;    
     case 0x7:
@@ -1688,14 +1659,7 @@ int get_cpuname(void){
 	  else
 	    return CPUTYPE_BARCELONA;
         }
-      case 10: // Zen3/4
-      case 11: // Zen5
-#ifndef NO_AVX512
-          if(support_avx512_bf16())
-            return CPUTYPE_COOPERLAKE;
-          if(support_avx512())
-            return CPUTYPE_SKYLAKEX;
-#endif
+      case 10: // Zen3		      
 	if(support_avx())
 #ifndef NO_AVX2
 	    return CPUTYPE_ZEN;
@@ -2366,22 +2330,8 @@ int get_coretype(void){
 
       case 10:
         switch (model) {
-	  case 13: // Granite Rapids
-	  if(support_amx_bf16())
-	    return CORE_SAPPHIRERAPIDS;
-	  if(support_avx512_bf16())
-            return CORE_COOPERLAKE;	
-          if(support_avx512())
-            return CORE_SKYLAKEX;
-          if(support_avx2())
-            return CORE_HASWELL;
-          if(support_avx())
-	    return CORE_SANDYBRIDGE;
-	  else
-	    return CORE_NEHALEM;
 	  case 5: // Comet Lake H and S
     	  case 6: // Comet Lake U
-	  case 10: // Meteor Lake
             if(support_avx())
   #ifndef NO_AVX2
               return CORE_HASWELL;
@@ -2390,7 +2340,6 @@ int get_coretype(void){
   #endif
             else
               return CORE_NEHALEM;
-	  case 0: // Meteor Lake
 	  case 7:// Rocket Lake
 #ifndef NO_AVX512
 	  if(support_avx512())
@@ -2411,7 +2360,6 @@ int get_coretype(void){
 	  case 7: // Raptor Lake
           case 10:
           case 15:
-	  case 14: // Alder Lake N	  
 #ifndef NO_AVX2
 	  if(support_avx2())
             return CORE_HASWELL;
@@ -2421,10 +2369,10 @@ int get_coretype(void){
 	  else
 	  return CORE_NEHALEM;
 	}
+      case 15:
+	if (model <= 0x2) return CORE_NORTHWOOD;
+	else return CORE_PRESCOTT;
       }
-    case 15:
-      if (model <= 0x2) return CORE_NORTHWOOD;
-      else return CORE_PRESCOTT;
     }
   }
 
@@ -2480,7 +2428,7 @@ int get_coretype(void){
 	  }
 	  break;
 	}
-      } else if (exfamily == 8 || exfamily == 10 || exfamily == 11) {
+      } else if (exfamily == 8 || exfamily == 10) {
 	switch (model) {
 	case 1:
 	  // AMD Ryzen
@@ -2488,12 +2436,6 @@ int get_coretype(void){
 	  // Ryzen 2
 	default:
 	  // Matisse,Renoir Ryzen2 models		
-#ifndef NO_AVX512
-          if(support_avx512_bf16())
-            return CORE_COOPERLAKE;
-          if(support_avx512())
-            return CORE_SKYLAKEX;
-#endif
 	  if(support_avx())
 #ifndef NO_AVX2
 	    return CORE_ZEN;
@@ -2555,7 +2497,6 @@ int get_coretype(void){
       case 0x7:
         switch (exmodel) {
         case 5:
-	case 6:
           if (support_avx2())
             return CORE_ZEN;
           else

ctest.c

@@ -173,10 +173,6 @@ HAVE_C11
 ARCH_E2K
 #endif
 
-#if defined(__csky__)
-ARCH_CSKY
-#endif
-
 #if defined(__EMSCRIPTEN__)
 ARCH_RISCV64
 OS_WINDOWS

ctest/CMakeLists.txt

@@ -6,10 +6,6 @@ enable_language(Fortran)
 endif()
 
 set(CMAKE_C_FLAGS "${CMAKE_C_FLAGS} -DADD${BU} -DCBLAS")
-if (BINARY32 AND CMAKE_C_PLATFORM_ID MATCHES "MinGW" AND CMAKE_Fortran_COMPILER_VERSION VERSION_EQUAL 14.2)
-       list(REMOVE_ITEM ${CMAKE_Fortran_FLAGS} -O3 -O2 -O1 -Os)
-       set (CMAKE_Fortran_FLAGS_RELEASE "" CACHE STRING "" FORCE)
-endif()
 if (CMAKE_Fortran_COMPILER_ID STREQUAL GNU)
 	set(CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS} -fno-tree-vectorize")
 endif()
@@ -44,10 +40,6 @@ else()
     c_${float_char}blas1.c)
 endif()
   target_link_libraries(x${float_char}cblat1 ${OpenBLAS_LIBNAME})
-  if (USE_OPENMP AND (${CMAKE_Fortran_COMPILER_ID} STREQUAL GNU) AND (${CMAKE_C_COMPILER_ID} STREQUAL Clang))
-        string(REGEX REPLACE "-fopenmp" "" CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS}")
-        target_link_libraries(x${float_char}cblat1 omp pthread)
-  endif()
   if(${CMAKE_SYSTEM_NAME} MATCHES "Linux" OR ${CMAKE_SYSTEM_NAME} MATCHES "FreeBSD" OR ${CMAKE_SYSTEM_NAME} MATCHES "QNX")
       target_link_libraries(x${float_char}cblat1 m)
   endif()
@@ -73,10 +65,6 @@ else()
     constant.c)
 endif()
   target_link_libraries(x${float_char}cblat2 ${OpenBLAS_LIBNAME})
-  if (USE_OPENMP AND (${CMAKE_Fortran_COMPILER_ID} STREQUAL GNU) AND (${CMAKE_C_COMPILER_ID} STREQUAL Clang))
-        string(REGEX REPLACE "-fopenmp" "" CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS}")
-        target_link_libraries(x${float_char}cblat2 omp pthread)
-  endif()
   if(${CMAKE_SYSTEM_NAME} MATCHES "Linux" OR ${CMAKE_SYSTEM_NAME} MATCHES "FreeBSD" OR ${CMAKE_SYSTEM_NAME} MATCHES "QNX")
     target_link_libraries(x${float_char}cblat2 m)
   endif()
@@ -92,17 +80,6 @@ if (NOT NOFORTRAN)
     auxiliary.c
     c_xerbla.c
     constant.c)
-  if (USE_GEMM3M)
-  if ((${float_char} STREQUAL "c") OR (${float_char} STREQUAL "z"))
-  add_executable(x${float_char}cblat3_3m
-    c_${float_char}blat3_3m.f
-    c_${float_char}blas3_3m.c
-    c_${float_char}3chke_3m.c
-    auxiliary.c
-    c_xerbla.c
-    constant.c)
-  endif()
-  endif()
 else()
   add_executable(x${float_char}cblat3
     c_${float_char}blat3c.c
@@ -111,44 +88,12 @@ else()
     auxiliary.c
     c_xerbla.c
     constant.c)
-  if (USE_GEMM3M)
-  if ((${float_char} STREQUAL "c") OR (${float_char} STREQUAL "z"))
-  add_executable(x${float_char}cblat3_3m
-    c_${float_char}blat3c_3m.c
-    c_${float_char}blas3_3m.c
-    c_${float_char}3chke_3m.c
-    auxiliary.c
-    c_xerbla.c
-    constant.c)
-  endif()
-  endif()
 endif()
   target_link_libraries(x${float_char}cblat3 ${OpenBLAS_LIBNAME})
-  if (USE_OPENMP AND (${CMAKE_Fortran_COMPILER_ID} STREQUAL GNU) AND (${CMAKE_C_COMPILER_ID} STREQUAL Clang))
-        string(REGEX REPLACE "-fopenmp" "" CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS}")
-        target_link_libraries(x${float_char}cblat3 omp pthread)
-  endif()
   if(${CMAKE_SYSTEM_NAME} MATCHES "Linux" OR ${CMAKE_SYSTEM_NAME} MATCHES "FreeBSD" OR ${CMAKE_SYSTEM_NAME} MATCHES "QNX")
     target_link_libraries(x${float_char}cblat3 m)
   endif()
-  if (USE_GEMM3M)
-  if ((${float_char} STREQUAL "c") OR (${float_char} STREQUAL "z"))
-  target_link_libraries(x${float_char}cblat3_3m ${OpenBLAS_LIBNAME})
-  if (USE_OPENMP AND (${CMAKE_Fortran_COMPILER_ID} STREQUAL GNU) AND (${CMAKE_C_COMPILER_ID} STREQUAL Clang))
-        string(REGEX REPLACE "-fopenmp" "" CMAKE_Fortran_FLAGS "${CMAKE_Fortran_FLAGS}")
-        target_link_libraries(x${float_char}cblat3 omp pthread)
-  endif()
-  if(${CMAKE_SYSTEM_NAME} MATCHES "Linux" OR ${CMAKE_SYSTEM_NAME} MATCHES "FreeBSD" OR ${CMAKE_SYSTEM_NAME} MATCHES "QNX")
-    target_link_libraries(x${float_char}cblat3_3m m)
-  endif()
-  endif()
-  endif()
   add_test(NAME "x${float_char}cblat3"
     COMMAND ${test_helper} $<TARGET_FILE:x${float_char}cblat3> "${PROJECT_SOURCE_DIR}/ctest/${float_char}in3")
-    if (USE_GEMM3M)
-    if ((${float_char} STREQUAL "c") OR (${float_char} STREQUAL "z"))
-  add_test(NAME "x${float_char}cblat3_3m"
-    COMMAND ${test_helper} $<TARGET_FILE:x${float_char}cblat3_3m> "${PROJECT_SOURCE_DIR}/ctest/${float_char}in3_3m")
-    endif()
-  endif()
+
 endforeach()

ctest/Makefile

@@ -5,29 +5,8 @@
 TOPDIR = ..
 include $(TOPDIR)/Makefile.system
 
-SUPPORT_GEMM3M = 0
-
-ifeq ($(ARCH), x86)
-SUPPORT_GEMM3M = 1
-endif
-
-ifeq ($(ARCH), x86_64)
-SUPPORT_GEMM3M = 1
-endif
-
-ifeq ($(ARCH), ia64)
-SUPPORT_GEMM3M = 1
-endif
-
-ifeq ($(ARCH), MIPS)
-SUPPORT_GEMM3M = 1
-endif
-
 override CFLAGS += -DADD$(BU) -DCBLAS
 ifeq ($(F_COMPILER),GFORTRAN)
-ifneq (, $(filter $(CORE),LOONGSON3R3 LOONGSON3R4))
-	override FFLAGS := $(filter_out(-O2 -O3,$(FFLAGS))) -O0
-endif
 	override FFLAGS += -fno-tree-vectorize
 endif
 override TARGET_ARCH=
@@ -165,15 +144,9 @@ all3targets += xdcblat3
 endif
 ifeq ($(BUILD_COMPLEX),1)
 all3targets += xccblat3
-ifeq ($(SUPPORT_GEMM3M),1)
-all3targets += xccblat3_3m
-endif
 endif
 ifeq ($(BUILD_COMPLEX16),1)
 all3targets += xzcblat3
-ifeq ($(SUPPORT_GEMM3M),1)
-all3targets += xzcblat3_3m
-endif
 endif
 
 all3: $(all3targets)
@@ -206,10 +179,11 @@ ifeq ($(BUILD_COMPLEX16),1)
 	OPENBLAS_NUM_THREADS=2 ./xzcblat3 < zin3
 endif
 endif
+endif
 
-ifeq ($(SUPPORT_GEMM3M),1)
+all3_3m: xzcblat3_3m xccblat3_3m
 ifeq ($(USE_OPENMP), 1)
-ifeq ($(BUILD_COMPLEX),1)
+ifeq ($(BUILD_SINGLE),1)
 	OMP_NUM_THREADS=2 ./xccblat3_3m < cin3_3m
 endif
 ifeq ($(BUILD_COMPLEX16),1)
@@ -223,8 +197,7 @@ ifeq ($(BUILD_COMPLEX16),1)
 	OPENBLAS_NUM_THREADS=2 ./xzcblat3_3m < zin3_3m
 endif
 endif
-endif
-endif
+
 
 
 
@@ -235,20 +208,12 @@ FLDFLAGS = $(FFLAGS:-fPIC=) $(LDFLAGS)
 ifeq ($(USE_OPENMP), 1)
 ifeq ($(F_COMPILER), GFORTRAN)
 ifeq ($(C_COMPILER), CLANG)
-CEXTRALIB += -lomp
+CEXTRALIB = -lomp
 endif
 endif
 ifeq ($(F_COMPILER), NAG)
 CEXTRALIB = -lgomp
 endif
-ifeq ($(F_COMPILER), IBM)
-ifeq ($(C_COMPILER), GCC)
-CEXTRALIB += -lgomp
-endif
-ifeq ($(C_COMPILER), CLANG)
-CEXTRALIB += -lomp
-endif
-endif
 endif
 
 ifeq ($(BUILD_SINGLE),1)
@@ -298,10 +263,8 @@ xccblat2: $(ctestl2o) c_cblat2.o $(TOPDIR)/$(LIBNAME)
 	$(FC) $(FLDFLAGS) -o xccblat2 c_cblat2.o $(ctestl2o) $(LIB) $(EXTRALIB) $(CEXTRALIB)
 xccblat3: $(ctestl3o) c_cblat3.o $(TOPDIR)/$(LIBNAME)
 	$(FC) $(FLDFLAGS) -o xccblat3 c_cblat3.o $(ctestl3o) $(LIB) $(EXTRALIB) $(CEXTRALIB)
-ifeq ($(SUPPORT_GEMM3M),1)
 xccblat3_3m: $(ctestl3o_3m) c_cblat3_3m.o $(TOPDIR)/$(LIBNAME)
 	$(FC) $(FLDFLAGS) -o xccblat3_3m c_cblat3_3m.o $(ctestl3o_3m) $(LIB) $(EXTRALIB) $(CEXTRALIB)
-endif
 else
 xccblat1: $(ctestl1o) c_cblat1c.o $(TOPDIR)/$(LIBNAME)
 	$(CC) $(CFLAGS) -o xccblat1 c_cblat1c.o $(ctestl1o) $(LIB) $(CEXTRALIB) $(filter-out -lgfortran,$(EXTRALIB)) 
@@ -309,10 +272,6 @@ xccblat2: $(ctestl2o) c_cblat2c.o $(TOPDIR)/$(LIBNAME)
 	$(CC) $(CFLAGS) -o xccblat2 c_cblat2c.o $(ctestl2o) $(LIB) $(CEXTRALIB) $(filter-out -lgfortran,$(EXTRALIB))
 xccblat3: $(ctestl3o) c_cblat3c.o $(TOPDIR)/$(LIBNAME)
 	$(CC) $(CFLAGS) -o xccblat3 c_cblat3c.o $(ctestl3o) $(LIB) $(CEXTRALIB) $(filter-out -lgfortran,$(EXTRALIB))
-ifeq ($(SUPPORT_GEMM3M),1)
-xccblat3_3m: $(ctestl3o_3m) c_cblat3c_3m.o $(TOPDIR)/$(LIBNAME)
-	$(CC) $(CFLAGS) -o xccblat3_3m c_cblat3c_3m.o $(ctestl3o_3m) $(LIB) $(EXTRALIB) $(CEXTRALIB)
-endif
 endif
 endif
 
@@ -326,10 +285,8 @@ xzcblat2: $(ztestl2o) c_zblat2.o $(TOPDIR)/$(LIBNAME)
 	$(FC) $(FLDFLAGS) -o xzcblat2 c_zblat2.o $(ztestl2o) $(LIB) $(EXTRALIB) $(CEXTRALIB)
 xzcblat3: $(ztestl3o) c_zblat3.o $(TOPDIR)/$(LIBNAME)
 	$(FC) $(FLDFLAGS) -o xzcblat3 c_zblat3.o $(ztestl3o) $(LIB) $(EXTRALIB) $(CEXTRALIB)
-ifeq ($(SUPPORT_GEMM3M),1)
 xzcblat3_3m: $(ztestl3o_3m) c_zblat3_3m.o $(TOPDIR)/$(LIBNAME)
 	$(FC) $(FLDFLAGS) -o xzcblat3_3m c_zblat3_3m.o $(ztestl3o_3m) $(LIB) $(EXTRALIB) $(CEXTRALIB)
-endif
 else
 xzcblat1: $(ztestl1o) c_zblat1c.o $(TOPDIR)/$(LIBNAME)
 	$(CC) $(CFLAGS) -o xzcblat1 c_zblat1c.o $(ztestl1o) $(LIB) $(CEXTRALIB) $(filter-out -lgfortran,$(EXTRALIB)) 
@@ -337,10 +294,6 @@ xzcblat2: $(ztestl2o) c_zblat2c.o $(TOPDIR)/$(LIBNAME)
 	$(CC) $(CFLAGS) -o xzcblat2 c_zblat2c.o $(ztestl2o) $(LIB) $(CEXTRALIB) $(filter-out -lgfortran,$(EXTRALIB))
 xzcblat3: $(ztestl3o) c_zblat3c.o $(TOPDIR)/$(LIBNAME)
 	$(CC) $(CFLAGS) -o xzcblat3 c_zblat3c.o $(ztestl3o) $(LIB) $(CEXTRALIB) $(filter-out -lgfortran,$(EXTRALIB))
-ifeq ($(SUPPORT_GEMM3M),1)
-xzcblat3_3m: $(ztestl3o_3m) c_zblat3c_3m.o $(TOPDIR)/$(LIBNAME)
-	$(CC) $(CFLAGS) -o xzcblat3_3m c_zblat3c_3m.o $(ztestl3o_3m) $(LIB) $(EXTRALIB) $(CEXTRALIB)
-endif
 endif
 endif
 

ctest/c_cblat1.f

@@ -38,12 +38,9 @@
             CALL CHECK1(SFAC)
          END IF
 *        -- Print
-         IF (PASS) THEN
-            WRITE (NOUT,99998)
-         ELSE
-            CALL ABORT
-        END IF
+         IF (PASS) WRITE (NOUT,99998)
    20 CONTINUE
+      STOP
 *
 99999 FORMAT (' Complex CBLAS Test Program Results',/1X)
 99998 FORMAT ('                                    ----- PASS -----')
@@ -99,7 +96,7 @@
       INTEGER           ICAMAXTEST
       EXTERNAL          SCASUMTEST, SCNRM2TEST, ICAMAXTEST
 *     .. External Subroutines ..
-      EXTERNAL          CSCALTEST, CSSCALTEST, CTEST, ITEST1, STEST1
+      EXTERNAL          CSCAL, CSSCALTEST, CTEST, ITEST1, STEST1
 *     .. Intrinsic Functions ..
       INTRINSIC         MAX
 *     .. Common blocks ..
@@ -217,8 +214,8 @@
                CALL STEST1(SCASUMTEST(N,CX,INCX),STRUE4(NP1),
      +                     STRUE4(NP1),SFAC)
             ELSE IF (ICASE.EQ.8) THEN
-*              .. CSCALTEST ..
-               CALL CSCALTEST(N,CA,CX,INCX)
+*              .. CSCAL ..
+               CALL CSCAL(N,CA,CX,INCX)
                CALL CTEST(LEN,CX,CTRUE5(1,NP1,INCX),CTRUE5(1,NP1,INCX),
      +                    SFAC)
             ELSE IF (ICASE.EQ.9) THEN
@@ -231,7 +228,7 @@
                CALL ITEST1(ICAMAXTEST(N,CX,INCX),ITRUE3(NP1))
             ELSE
                WRITE (NOUT,*) ' Shouldn''t be here in CHECK1'
-               CALL ABORT
+               STOP
             END IF
 *
    40    CONTINUE
@@ -239,14 +236,14 @@
 *
       INCX = 1
       IF (ICASE.EQ.8) THEN
-*        CSCALTEST
+*        CSCAL
 *        Add a test for alpha equal to zero.
          CA = (0.0E0,0.0E0)
          DO 80 I = 1, 5
             MWPCT(I) = (0.0E0,0.0E0)
             MWPCS(I) = (1.0E0,1.0E0)
    80    CONTINUE
-         CALL CSCALTEST(5,CA,CX,INCX)
+         CALL CSCAL(5,CA,CX,INCX)
          CALL CTEST(5,CX,MWPCT,MWPCS,SFAC)
       ELSE IF (ICASE.EQ.9) THEN
 *        CSSCALTEST
@@ -515,7 +512,7 @@
                CALL CTEST(LENY,CY,CT10Y(1,KN,KI),CSIZE3,1.0E0)
             ELSE
                WRITE (NOUT,*) ' Shouldn''t be here in CHECK2'
-               CALL ABORT
+               STOP
             END IF
 *
    40    CONTINUE

ctest/c_cblat1c.c

@@ -242,6 +242,251 @@ typedef struct Namelist Namelist;
 /* procedure parameter types for -A and -C++ */
 
 #define F2C_proc_par_types 1
+#ifdef __cplusplus
+typedef logical (*L_fp)(...);
+#else
+typedef logical (*L_fp)();
+#endif
+
+#if 0
+static float spow_ui(float x, integer n) {
+	float pow=1.0; unsigned long int u;
+	if(n != 0) {
+		if(n < 0) n = -n, x = 1/x;
+		for(u = n; ; ) {
+			if(u & 01) pow *= x;
+			if(u >>= 1) x *= x;
+			else break;
+		}
+	}
+	return pow;
+}
+static double dpow_ui(double x, integer n) {
+	double pow=1.0; unsigned long int u;
+	if(n != 0) {
+		if(n < 0) n = -n, x = 1/x;
+		for(u = n; ; ) {
+			if(u & 01) pow *= x;
+			if(u >>= 1) x *= x;
+			else break;
+		}
+	}
+	return pow;
+}
+#ifdef _MSC_VER
+static _Fcomplex cpow_ui(complex x, integer n) {
+	complex pow={1.0,0.0}; unsigned long int u;
+		if(n != 0) {
+		if(n < 0) n = -n, x.r = 1/x.r, x.i=1/x.i;
+		for(u = n; ; ) {
+			if(u & 01) pow.r *= x.r, pow.i *= x.i;
+			if(u >>= 1) x.r *= x.r, x.i *= x.i;
+			else break;
+		}
+	}
+	_Fcomplex p={pow.r, pow.i};
+	return p;
+}
+#else
+static _Complex float cpow_ui(_Complex float x, integer n) {
+	_Complex float pow=1.0; unsigned long int u;
+	if(n != 0) {
+		if(n < 0) n = -n, x = 1/x;
+		for(u = n; ; ) {
+			if(u & 01) pow *= x;
+			if(u >>= 1) x *= x;
+			else break;
+		}
+	}
+	return pow;
+}
+#endif
+#ifdef _MSC_VER
+static _Dcomplex zpow_ui(_Dcomplex x, integer n) {
+	_Dcomplex pow={1.0,0.0}; unsigned long int u;
+	if(n != 0) {
+		if(n < 0) n = -n, x._Val[0] = 1/x._Val[0], x._Val[1] =1/x._Val[1];
+		for(u = n; ; ) {
+			if(u & 01) pow._Val[0] *= x._Val[0], pow._Val[1] *= x._Val[1];
+			if(u >>= 1) x._Val[0] *= x._Val[0], x._Val[1] *= x._Val[1];
+			else break;
+		}
+	}
+	_Dcomplex p = {pow._Val[0], pow._Val[1]};
+	return p;
+}
+#else
+static _Complex double zpow_ui(_Complex double x, integer n) {
+	_Complex double pow=1.0; unsigned long int u;
+	if(n != 0) {
+		if(n < 0) n = -n, x = 1/x;
+		for(u = n; ; ) {
+			if(u & 01) pow *= x;
+			if(u >>= 1) x *= x;
+			else break;
+		}
+	}
+	return pow;
+}
+#endif
+static integer pow_ii(integer x, integer n) {
+	integer pow; unsigned long int u;
+	if (n <= 0) {
+		if (n == 0 || x == 1) pow = 1;
+		else if (x != -1) pow = x == 0 ? 1/x : 0;
+		else n = -n;
+	}
+	if ((n > 0) || !(n == 0 || x == 1 || x != -1)) {
+		u = n;
+		for(pow = 1; ; ) {
+			if(u & 01) pow *= x;
+			if(u >>= 1) x *= x;
+			else break;
+		}
+	}
+	return pow;
+}
+static integer dmaxloc_(double *w, integer s, integer e, integer *n)
+{
+	double m; integer i, mi;
+	for(m=w[s-1], mi=s, i=s+1; i<=e; i++)
+		if (w[i-1]>m) mi=i ,m=w[i-1];
+	return mi-s+1;
+}
+static integer smaxloc_(float *w, integer s, integer e, integer *n)
+{
+	float m; integer i, mi;
+	for(m=w[s-1], mi=s, i=s+1; i<=e; i++)
+		if (w[i-1]>m) mi=i ,m=w[i-1];
+	return mi-s+1;
+}
+#endif
+#if 0
+static inline void cdotc_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
+	integer n = *n_, incx = *incx_, incy = *incy_, i;
+#ifdef _MSC_VER
+	_Fcomplex zdotc = {0.0, 0.0};
+	if (incx == 1 && incy == 1) {
+		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
+			zdotc._Val[0] += conjf(Cf(&x[i]))._Val[0] * Cf(&y[i])._Val[0];
+			zdotc._Val[1] += conjf(Cf(&x[i]))._Val[1] * Cf(&y[i])._Val[1];
+		}
+	} else {
+		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
+			zdotc._Val[0] += conjf(Cf(&x[i*incx]))._Val[0] * Cf(&y[i*incy])._Val[0];
+			zdotc._Val[1] += conjf(Cf(&x[i*incx]))._Val[1] * Cf(&y[i*incy])._Val[1];
+		}
+	}
+	pCf(z) = zdotc;
+}
+#else
+	_Complex float zdotc = 0.0;
+	if (incx == 1 && incy == 1) {
+		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
+			zdotc += conjf(Cf(&x[i])) * Cf(&y[i]);
+		}
+	} else {
+		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
+			zdotc += conjf(Cf(&x[i*incx])) * Cf(&y[i*incy]);
+		}
+	}
+	pCf(z) = zdotc;
+}
+#endif
+static inline void zdotc_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
+	integer n = *n_, incx = *incx_, incy = *incy_, i;
+#ifdef _MSC_VER
+	_Dcomplex zdotc = {0.0, 0.0};
+	if (incx == 1 && incy == 1) {
+		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
+			zdotc._Val[0] += conj(Cd(&x[i]))._Val[0] * Cd(&y[i])._Val[0];
+			zdotc._Val[1] += conj(Cd(&x[i]))._Val[1] * Cd(&y[i])._Val[1];
+		}
+	} else {
+		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
+			zdotc._Val[0] += conj(Cd(&x[i*incx]))._Val[0] * Cd(&y[i*incy])._Val[0];
+			zdotc._Val[1] += conj(Cd(&x[i*incx]))._Val[1] * Cd(&y[i*incy])._Val[1];
+		}
+	}
+	pCd(z) = zdotc;
+}
+#else
+	_Complex double zdotc = 0.0;
+	if (incx == 1 && incy == 1) {
+		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
+			zdotc += conj(Cd(&x[i])) * Cd(&y[i]);
+		}
+	} else {
+		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
+			zdotc += conj(Cd(&x[i*incx])) * Cd(&y[i*incy]);
+		}
+	}
+	pCd(z) = zdotc;
+}
+#endif	
+static inline void cdotu_(complex *z, integer *n_, complex *x, integer *incx_, complex *y, integer *incy_) {
+	integer n = *n_, incx = *incx_, incy = *incy_, i;
+#ifdef _MSC_VER
+	_Fcomplex zdotc = {0.0, 0.0};
+	if (incx == 1 && incy == 1) {
+		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
+			zdotc._Val[0] += Cf(&x[i])._Val[0] * Cf(&y[i])._Val[0];
+			zdotc._Val[1] += Cf(&x[i])._Val[1] * Cf(&y[i])._Val[1];
+		}
+	} else {
+		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
+			zdotc._Val[0] += Cf(&x[i*incx])._Val[0] * Cf(&y[i*incy])._Val[0];
+			zdotc._Val[1] += Cf(&x[i*incx])._Val[1] * Cf(&y[i*incy])._Val[1];
+		}
+	}
+	pCf(z) = zdotc;
+}
+#else
+	_Complex float zdotc = 0.0;
+	if (incx == 1 && incy == 1) {
+		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
+			zdotc += Cf(&x[i]) * Cf(&y[i]);
+		}
+	} else {
+		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
+			zdotc += Cf(&x[i*incx]) * Cf(&y[i*incy]);
+		}
+	}
+	pCf(z) = zdotc;
+}
+#endif
+static inline void zdotu_(doublecomplex *z, integer *n_, doublecomplex *x, integer *incx_, doublecomplex *y, integer *incy_) {
+	integer n = *n_, incx = *incx_, incy = *incy_, i;
+#ifdef _MSC_VER
+	_Dcomplex zdotc = {0.0, 0.0};
+	if (incx == 1 && incy == 1) {
+		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
+			zdotc._Val[0] += Cd(&x[i])._Val[0] * Cd(&y[i])._Val[0];
+			zdotc._Val[1] += Cd(&x[i])._Val[1] * Cd(&y[i])._Val[1];
+		}
+	} else {
+		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
+			zdotc._Val[0] += Cd(&x[i*incx])._Val[0] * Cd(&y[i*incy])._Val[0];
+			zdotc._Val[1] += Cd(&x[i*incx])._Val[1] * Cd(&y[i*incy])._Val[1];
+		}
+	}
+	pCd(z) = zdotc;
+}
+#else
+	_Complex double zdotc = 0.0;
+	if (incx == 1 && incy == 1) {
+		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
+			zdotc += Cd(&x[i]) * Cd(&y[i]);
+		}
+	} else {
+		for (i=0;i<n;i++) { /* zdotc = zdotc + dconjg(x(i))* y(i) */
+			zdotc += Cd(&x[i*incx]) * Cd(&y[i*incy]);
+		}
+	}
+	pCd(z) = zdotc;
+}
+#endif
+#endif
 
 /* Common Block Declarations */
 
@@ -258,16 +503,16 @@ static integer c__1 = 1;
 static integer c__5 = 5;
 static real c_b43 = (float)1.;
 
-/* Main program */ int main(void)
+/* Main program */ int main()
 {
     /* Initialized data */
 
     static real sfac = (float)9.765625e-4;
 
     /* Local variables */
-    extern /* Subroutine */ int check1_(real*), check2_(real*);
+    extern /* Subroutine */ int check1_(), check2_();
     static integer ic;
-    extern /* Subroutine */ int header_(void);
+    extern /* Subroutine */ int header_();
 
 /*     Test program for the COMPLEX    Level 1 CBLAS. */
 /*     Based upon the original CBLAS test routine together with: */
@@ -308,7 +553,7 @@ static real c_b43 = (float)1.;
 
 } /* MAIN__ */
 
-/* Subroutine */ int header_(void)
+/* Subroutine */ int header_()
 {
     /* Initialized data */
 
@@ -319,7 +564,7 @@ static real c_b43 = (float)1.;
     /* Format strings */
 
     /* Builtin functions */
-    integer s_wsfe(void), do_fio(void), e_wsfe(void);
+    integer s_wsfe(), do_fio(), e_wsfe();
 
 /*     .. Parameters .. */
 /*     .. Scalars in Common .. */
@@ -332,7 +577,8 @@ static real c_b43 = (float)1.;
 
 } /* header_ */
 
-/* Subroutine */ int check1_(real* sfac)
+/* Subroutine */ int check1_(sfac)
+real *sfac;
 {
     /* Initialized data */
 
@@ -437,16 +683,15 @@ static real c_b43 = (float)1.;
 
     /* Local variables */
     static integer i__;
-    extern /* Subroutine */ int ctest_(integer*, complex*, complex*, complex*, real*);
+    extern /* Subroutine */ int ctest_();
     static complex mwpcs[5], mwpct[5];
-    extern /* Subroutine */ int itest1_(integer*, integer*), stest1_(real*,real*,real*,real*);
-    extern /* Subroutine */ int cscaltest_(), itest1_(), stest1_();
+    extern /* Subroutine */ int itest1_(), stest1_();
     static complex cx[8];
-    extern real scnrm2test_(integer*, complex*, integer*);
+    extern real scnrm2test_();
     static integer np1;
-    extern integer icamaxtest_(integer*, complex*, integer*);
-    extern /* Subroutine */ int csscaltest_(integer*, real*, complex*, integer*);
-    extern real scasumtest_(integer*, complex*, integer*);
+    extern integer icamaxtest_();
+    extern /* Subroutine */ int csscaltest_();
+    extern real scasumtest_();
     static integer len;
 
 /*     .. Parameters .. */
@@ -482,7 +727,7 @@ static real c_b43 = (float)1.;
 		stest1_(&r__1, &strue4[np1 - 1], &strue4[np1 - 1], sfac);
 	    } else if (combla_1.icase == 8) {
 /*              .. CSCAL .. */
-		cscaltest_(&combla_1.n, &ca, cx, &combla_1.incx);
+		cscal_(&combla_1.n, &ca, cx, &combla_1.incx);
 		ctest_(&len, cx, &ctrue5[(np1 + combla_1.incx * 5 << 3) - 48],
 			 &ctrue5[(np1 + combla_1.incx * 5 << 3) - 48], sfac);
 	    } else if (combla_1.icase == 9) {
@@ -516,7 +761,7 @@ static real c_b43 = (float)1.;
 	    mwpcs[i__1].r = (float)1., mwpcs[i__1].i = (float)1.;
 /* L80: */
 	}
-	cscaltest_(&c__5, &ca, cx, &combla_1.incx);
+	cscal_(&c__5, &ca, cx, &combla_1.incx);
 	ctest_(&c__5, cx, mwpct, mwpcs, sfac);
     } else if (combla_1.icase == 9) {
 /*        CSSCALTEST */
@@ -563,7 +808,8 @@ static real c_b43 = (float)1.;
     return 0;
 } /* check1_ */
 
-/* Subroutine */ int check2_(real* sfac)
+/* Subroutine */ int check2_(sfac)
+real *sfac;
 {
     /* Initialized data */
 
@@ -735,10 +981,10 @@ static real c_b43 = (float)1.;
     static complex cdot[1];
     static integer lenx, leny, i__;
     static complex ctemp;
-    extern /* Subroutine */ int ctest_(integer*, complex*, complex*, complex*, real*);
+    extern /* Subroutine */ int ctest_();
     static integer ksize;
-    extern /* Subroutine */ int cdotctest_(integer*, complex*, integer*, complex*, integer*,complex*), ccopytest_(integer*, complex*, integer*, complex*, integer*), cdotutest_(integer*, complex*, integer*, complex*, integer*, complex*), 
-	    cswaptest_(integer*, complex*, integer*, complex*, integer*), caxpytest_(integer*, complex*, complex*, integer*, complex*, integer*);
+    extern /* Subroutine */ int cdotctest_(), ccopytest_(), cdotutest_(), 
+	    cswaptest_(), caxpytest_();
     static integer ki, kn;
     static complex cx[7], cy[7];
     static integer mx, my;
@@ -821,7 +1067,9 @@ static real c_b43 = (float)1.;
     return 0;
 } /* check2_ */
 
-/* Subroutine */ int stest_(integer* len, real* scomp, real* strue, real* ssize,real* sfac)
+/* Subroutine */ int stest_(len, scomp, strue, ssize, sfac)
+integer *len;
+real *scomp, *strue, *ssize, *sfac;
 {
     /* System generated locals */
     integer i__1;
@@ -829,7 +1077,7 @@ static real c_b43 = (float)1.;
 
     /* Local variables */
     static integer i__;
-    extern doublereal sdiff_(real*, real*);
+    extern doublereal sdiff_();
     static real sd;
 
 /*     ********************************* STEST ************************** */
@@ -885,10 +1133,11 @@ L40:
 
 } /* stest_ */
 
-/* Subroutine */ int stest1_(real* scomp1, real* strue1, real* ssize, real* sfac)
+/* Subroutine */ int stest1_(scomp1, strue1, ssize, sfac)
+real *scomp1, *strue1, *ssize, *sfac;
 {
     static real scomp[1], strue[1];
-    extern /* Subroutine */ int stest_(integer*, real*, real*, real*, real*);
+    extern /* Subroutine */ int stest_();
 
 /*     ************************* STEST1 ***************************** */
 
@@ -915,7 +1164,8 @@ L40:
     return 0;
 } /* stest1_ */
 
-doublereal sdiff_(real* sa, real* sb)
+doublereal sdiff_(sa, sb)
+real *sa, *sb;
 {
     /* System generated locals */
     real ret_val;
@@ -929,7 +1179,10 @@ doublereal sdiff_(real* sa, real* sb)
     return ret_val;
 } /* sdiff_ */
 
-/* Subroutine */ int ctest_(integer* len, complex* ccomp, complex* ctrue, complex* csize, real* sfac)
+/* Subroutine */ int ctest_(len, ccomp, ctrue, csize, sfac)
+integer *len;
+complex *ccomp, *ctrue, *csize;
+real *sfac;
 {
     /* System generated locals */
     integer i__1, i__2;
@@ -940,7 +1193,7 @@ doublereal sdiff_(real* sa, real* sb)
     /* Local variables */
     static integer i__;
     static real scomp[20], ssize[20], strue[20];
-    extern /* Subroutine */ int stest_(integer*, real*,real*,real*,real*);
+    extern /* Subroutine */ int stest_();
 
 /*     **************************** CTEST ***************************** */
 
@@ -978,7 +1231,8 @@ doublereal sdiff_(real* sa, real* sb)
     return 0;
 } /* ctest_ */
 
-/* Subroutine */ int itest1_(integer* icomp, integer* itrue)
+/* Subroutine */ int itest1_(icomp, itrue)
+integer *icomp, *itrue;
 {
     /* Local variables */
     static integer id;

ctest/c_cblat2.f

@@ -10,7 +10,7 @@
 *  'CBLAT2.SNAP'     NAME OF SNAPSHOT OUTPUT FILE
 *  -1                UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
 *  F        LOGICAL FLAG, T TO REWIND SNAPSHOT FILE AFTER EACH RECORD.
-*  F        LOGICAL FLAG, T TO CALL ABORT ON FAILURES.
+*  F        LOGICAL FLAG, T TO STOP ON FAILURES.
 *  T        LOGICAL FLAG, T TO TEST ERROR EXITS.
 *  2        0 TO TEST COLUMN-MAJOR, 1 TO TEST ROW-MAJOR, 2 TO TEST BOTH
 *  16.0     THRESHOLD VALUE OF TEST RATIO
@@ -243,7 +243,7 @@
      $      GO TO 70
    60 CONTINUE
       WRITE( NOUT, FMT = 9986 )SNAMET
-      CALL ABORT
+      STOP
    70 LTEST( I ) = LTESTT
       GO TO 50
 *
@@ -283,7 +283,7 @@
       SAME = LCE( YY, YT, N )
       IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
          WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
-         CALL ABORT
+         STOP
       END IF
       TRANS = 'T'
       CALL CMVCH( TRANS, N, N, ONE, A, NMAX, X, -1, ZERO, Y, -1, YT, G,
@@ -291,7 +291,7 @@
       SAME = LCE( YY, YT, N )
       IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
          WRITE( NOUT, FMT = 9985 )TRANS, SAME, ERR
-         CALL ABORT
+         STOP
       END IF
 *
 *     Test each subroutine in turn.
@@ -418,9 +418,7 @@
       IF( TRACE )
      $   CLOSE ( NTRA )
       CLOSE ( NOUT )
-      IF( FATAL ) THEN
-         CALL ABORT
-      END IF
+      STOP
 *
 10002 FORMAT( ' COLUMN-MAJOR AND ROW-MAJOR DATA LAYOUTS ARE TESTED' )
 10001 FORMAT( ' ROW-MAJOR DATA LAYOUT IS TESTED' )

ctest/c_cblat2c.c

@@ -242,6 +242,129 @@ typedef struct Namelist Namelist;
 /* procedure parameter types for -A and -C++ */
 
 #define F2C_proc_par_types 1
+#ifdef __cplusplus
+typedef logical (*L_fp)(...);
+#else
+typedef logical (*L_fp)();
+#endif
+#if 0
+static float spow_ui(float x, integer n) {
+	float pow=1.0; unsigned long int u;
+	if(n != 0) {
+		if(n < 0) n = -n, x = 1/x;
+		for(u = n; ; ) {
+			if(u & 01) pow *= x;
+			if(u >>= 1) x *= x;
+			else break;
+		}
+	}
+	return pow;
+}
+static double dpow_ui(double x, integer n) {
+	double pow=1.0; unsigned long int u;
+	if(n != 0) {
+		if(n < 0) n = -n, x = 1/x;
+		for(u = n; ; ) {
+			if(u & 01) pow *= x;
+			if(u >>= 1) x *= x;
+			else break;
+		}
+	}
+	return pow;
+}
+#ifdef _MSC_VER
+static _Fcomplex cpow_ui(complex x, integer n) {
+	complex pow={1.0,0.0}; unsigned long int u;
+		if(n != 0) {
+		if(n < 0) n = -n, x.r = 1/x.r, x.i=1/x.i;
+		for(u = n; ; ) {
+			if(u & 01) pow.r *= x.r, pow.i *= x.i;
+			if(u >>= 1) x.r *= x.r, x.i *= x.i;
+			else break;
+		}
+	}
+	_Fcomplex p={pow.r, pow.i};
+	return p;
+}
+#else
+static _Complex float cpow_ui(_Complex float x, integer n) {
+	_Complex float pow=1.0; unsigned long int u;
+	if(n != 0) {
+		if(n < 0) n = -n, x = 1/x;
+		for(u = n; ; ) {
+			if(u & 01) pow *= x;
+			if(u >>= 1) x *= x;
+			else break;
+		}
+	}
+	return pow;
+}
+#endif
+#ifdef _MSC_VER
+static _Dcomplex zpow_ui(_Dcomplex x, integer n) {
+	_Dcomplex pow={1.0,0.0}; unsigned long int u;
+	if(n != 0) {
+		if(n < 0) n = -n, x._Val[0] = 1/x._Val[0], x._Val[1] =1/x._Val[1];
+		for(u = n; ; ) {
+			if(u & 01) pow._Val[0] *= x._Val[0], pow._Val[1] *= x._Val[1];
+			if(u >>= 1) x._Val[0] *= x._Val[0], x._Val[1] *= x._Val[1];
+			else break;
+		}
+	}
+	_Dcomplex p = {pow._Val[0], pow._Val[1]};
+	return p;
+}
+#else
+static _Complex double zpow_ui(_Complex double x, integer n) {
+	_Complex double pow=1.0; unsigned long int u;
+	if(n != 0) {
+		if(n < 0) n = -n, x = 1/x;
+		for(u = n; ; ) {
+			if(u & 01) pow *= x;
+			if(u >>= 1) x *= x;
+			else break;
+		}
+	}
+	return pow;
+}
+#endif
+static integer pow_ii(integer x, integer n) {
+	integer pow; unsigned long int u;
+	if (n <= 0) {
+		if (n == 0 || x == 1) pow = 1;
+		else if (x != -1) pow = x == 0 ? 1/x : 0;
+		else n = -n;
+	}
+	if ((n > 0) || !(n == 0 || x == 1 || x != -1)) {
+		u = n;
+		for(pow = 1; ; ) {
+			if(u & 01) pow *= x;
+			if(u >>= 1) x *= x;
+			else break;
+		}
+	}
+	return pow;
+}
+static integer dmaxloc_(double *w, integer s, integer e, integer *n)
+{
+	double m; integer i, mi;
+	for(m=w[s-1], mi=s, i=s+1; i<=e; i++)
+		if (w[i-1]>m) mi=i ,m=w[i-1];
+	return mi-s+1;
+}
+static integer smaxloc_(float *w, integer s, integer e, integer *n)
+{
+	float m; integer i, mi;
+	for(m=w[s-1], mi=s, i=s+1; i<=e; i++)
+		if (w[i-1]>m) mi=i ,m=w[i-1];
+	return mi-s+1;
+}
+#endif
+/*  -- translated by f2c (version 20000121).
+   You must link the resulting object file with the libraries:
+	-lf2c -lm   (in that order)
+*/
+
 
 
 /* Common Block Declarations */
@@ -273,7 +396,7 @@ static integer c_n1 = -1;
 static integer c__0 = 0;
 static logical c_false = FALSE_;
 
-/* Main program */ int main(void)
+/* Main program */ int main()
 {
     /* Initialized data */
 
@@ -291,21 +414,17 @@ static logical c_false = FALSE_;
     static logical same;
     static integer ninc, nbet, ntra;
     static logical rewi;
-    extern /* Subroutine */ int cchk1_(char*, real*, real*, integer*, integer*, logical*, logical*, logical*, integer*, integer*, integer*, integer*, integer*, complex*, integer*, complex*, integer*, integer*, integer*, integer*, complex*, complex*, complex*, complex*, complex*, complex*, complex*, complex*, complex*, complex*, real*, integer*, ftnlen);
-    extern /* Subroutine */ int cchk2_(char*, real*, real*, integer*, integer*, logical*, logical*, logical*, integer*, integer*, integer*, integer*, integer*, complex*, integer*, complex*, integer*, integer*, integer*, integer*, complex*, complex*, complex*, complex*, complex*, complex*, complex*, complex*, complex*, complex*, real*, integer*, ftnlen);
-    extern /* Subroutine */ int cchk3_(char*, real*, real*, integer*, integer*, logical*, logical*, logical*, integer*, integer*, integer*, integer*, integer*, integer*, integer*, integer*, complex*, complex*, complex*, complex*, complex*, complex*, complex*, real*, complex*, integer*, ftnlen);
-    extern /* Subroutine */ int cchk4_(char*, real*, real*, integer*, integer*, logical*, logical*, logical*, integer*, integer*, integer*, complex*, integer*, integer*, integer*, integer*, complex*, complex*, complex*, complex*, complex*, complex*, complex*, complex*, complex*, complex*, real*, complex*, integer*, ftnlen);
-    extern /* Subroutine */ int cchk5_(char*, real*, real*, integer*, integer*, logical*, logical*, logical*, integer*, integer*, integer*, complex*, integer*, integer*, integer*, integer*, complex*, complex*, complex*, complex*, complex*, complex*, complex*, complex*, complex*, complex*, real*, complex*, integer*, ftnlen);
-    extern /* Subroutine */ int cchk6_(char*, real*, real*, integer*, integer*, logical*, logical*, logical*, integer*, integer*, integer*, complex*, integer*, integer*, integer*, integer*, complex*, complex*, complex*, complex*, complex*, complex*, complex*, complex*, complex*, complex*, real*, complex*, integer*, ftnlen);
+    extern /* Subroutine */ int cchk1_(), cchk2_(), cchk3_(), cchk4_(), 
+	    cchk5_(), cchk6_();
     static complex a[4225]	/* was [65][65] */;
     static real g[65];
     static integer i__, j, n;
     static logical fatal;
     static complex x[65], y[65], z__[130];
-    extern doublereal sdiff_(real*, real*);
+    extern doublereal sdiff_();
     static logical trace;
     static integer nidim;
-    extern /* Subroutine */ int cmvch_(char*, integer*, integer*, complex*, complex*, integer*, complex*, integer*, complex*, complex*, integer*, complex*, real*, complex*, real*, real*, logical*, integer*, logical*, ftnlen);
+    extern /* Subroutine */ int cmvch_();
     static char snaps[32], trans[1];
     static integer isnum;
     static logical ltest[17];
@@ -319,11 +438,11 @@ static logical c_false = FALSE_;
     static char snamet[12];
     static real thresh;
     static logical rorder;
-    extern /* Subroutine */ void cc2chke_(char*, ftnlen);
+    extern /* Subroutine */ int cc2chke_();
     static integer layout;
     static logical ltestt, tsterr;
     static complex alf[7];
-    extern logical lce_(complex*, complex*, integer*);
+    extern logical lce_();
     static integer inc[7], nkb;
     static complex bet[7];
     static real eps, err;
@@ -864,7 +983,22 @@ L240:
 
 } /* MAIN__ */
 
-/* Subroutine */ int cchk1_(char* sname, real* eps, real* thresh, integer* nout, integer* ntra, logical* trace, logical* rewi, logical* fatal, integer* nidim, integer* idim, integer* nkb, integer* kb, integer* nalf, complex* alf, integer* nbet, complex* bet, integer* ninc, integer* inc, integer* nmax, integer* incmax, complex* a, complex* aa, complex* as, complex* x, complex* xx, complex* xs, complex* y, complex* yy, complex* ys, complex* yt, real* g, integer* iorder, ftnlen sname_len)
+/* Subroutine */ int cchk1_(sname, eps, thresh, nout, ntra, trace, rewi, 
+	fatal, nidim, idim, nkb, kb, nalf, alf, nbet, bet, ninc, inc, nmax, 
+	incmax, a, aa, as, x, xx, xs, y, yy, ys, yt, g, iorder, sname_len)
+char *sname;
+real *eps, *thresh;
+integer *nout, *ntra;
+logical *trace, *rewi, *fatal;
+integer *nidim, *idim, *nkb, *kb, *nalf;
+complex *alf;
+integer *nbet;
+complex *bet;
+integer *ninc, *inc, *nmax, *incmax;
+complex *a, *aa, *as, *x, *xx, *xs, *y, *yy, *ys, *yt;
+real *g;
+integer *iorder;
+ftnlen sname_len;
 {
     /* Initialized data */
 
@@ -881,10 +1015,10 @@ L240:
     static integer incx, incy;
     static logical full, tran, null;
     static integer i__, m, n;
-    extern /* Subroutine */ int cmake_(char*, char*, char*, integer*, integer*, complex*, integer*, complex*, integer*, integer*, integer*, logical*, complex*, ftnlen, ftnlen, ftnlen);
+    extern /* Subroutine */ int cmake_();
     static complex alpha;
     static logical isame[13];
-    extern /* Subroutine */ int cmvch_(char*, integer*, integer*, complex*, complex*, integer*, complex*, integer*, complex*, complex*, integer*, complex*, real*, complex*, real*, real*, logical*, integer*, logical*, ftnlen);
+    extern /* Subroutine */ int cmvch_();
     static integer nargs;
     static logical reset;
     static integer incxs, incys;
@@ -892,15 +1026,14 @@ L240:
     static integer ia, ib, ic;
     static logical banded;
     static integer nc, nd, im, in, kl, ml, nk, nl, ku, ix, iy, ms, lx, ly, ns;
-    extern /* Subroutine */ int ccgbmv_(integer*, char*, integer*, integer*, integer*, integer*, complex*, complex*, integer*, complex*, integer*, complex*, complex*, integer*, ftnlen);
-    extern /* Subroutine */ void ccgemv_(integer*, char*, integer*, integer*, complex*, complex*, integer*, complex*, integer*, complex*, complex*, integer*, ftnlen);
-    extern logical lceres_(char*, char*, integer*, integer*, complex*, complex*, integer*, ftnlen, ftnlen);
+    extern /* Subroutine */ int ccgbmv_(), ccgemv_();
+    extern logical lceres_();
     static char ctrans[14];
     static real errmax;
     static complex transl;
     static char transs[1];
     static integer laa, lda;
-    extern logical lce_(complex*, complex*, integer*);
+    extern logical lce_();
     static complex als, bls;
     static real err;
     static integer iku, kls, kus;
@@ -1315,7 +1448,22 @@ L140:
 
 } /* cchk1_ */
 
-/* Subroutine */ int cchk2_(char* sname, real* eps, real* thresh, integer* nout, integer* ntra, logical* trace, logical* rewi, logical* fatal, integer* nidim, integer* idim, integer* nkb, integer* kb, integer* nalf, complex* alf, integer* nbet, complex* bet, integer* ninc, integer* inc, integer* nmax, integer* incmax, complex* a, complex* aa, complex* as, complex* x, complex* xx, complex* xs, complex* y, complex* yy, complex* ys, complex* yt, real* g, integer* iorder, ftnlen sname_len)
+/* Subroutine */ int cchk2_(sname, eps, thresh, nout, ntra, trace, rewi, 
+	fatal, nidim, idim, nkb, kb, nalf, alf, nbet, bet, ninc, inc, nmax, 
+	incmax, a, aa, as, x, xx, xs, y, yy, ys, yt, g, iorder, sname_len)
+char *sname;
+real *eps, *thresh;
+integer *nout, *ntra;
+logical *trace, *rewi, *fatal;
+integer *nidim, *idim, *nkb, *kb, *nalf;
+complex *alf;
+integer *nbet;
+complex *bet;
+integer *ninc, *inc, *nmax, *incmax;
+complex *a, *aa, *as, *x, *xx, *xs, *y, *yy, *ys, *yt;
+real *g;
+integer *iorder;
+ftnlen sname_len;
 {
     /* Initialized data */
 
@@ -1333,10 +1481,10 @@ L140:
     static logical full, null;
     static char uplo[1];
     static integer i__, k, n;
-    extern /* Subroutine */ int cmake_(char*, char*, char*, integer*, integer*, complex*, integer*, complex*, integer*, integer*, integer*, logical*, complex*, ftnlen, ftnlen, ftnlen);
+    extern /* Subroutine */ int cmake_();
     static complex alpha;
     static logical isame[13];
-    extern /* Subroutine */ int cmvch_(char*, integer*, integer*, complex*, complex*, integer*, complex*, integer*, complex*, complex*, integer*, complex*, real*, complex*, real*, real*, logical*, integer*, logical*, ftnlen);
+    extern /* Subroutine */ int cmvch_();
     static integer nargs;
     static logical reset;
     static char cuplo[14];
@@ -1347,14 +1495,13 @@ L140:
     static integer nc, ik, in;
     static logical packed;
     static integer nk, ks, ix, iy, ns, lx, ly;
-    extern /* Subroutine */ void cchbmv_(integer*, char*, integer*, integer*, complex*, complex*, integer*, complex*, integer*, complex*, complex*, integer*, ftnlen);
-    extern /* Subroutine */ void cchemv_(integer*, char*, integer*, complex*, complex*, integer*, complex*, integer*, complex*, complex*, integer*, ftnlen);
-    extern logical lceres_(char*, char*, integer*, integer*, complex*, complex*, integer*, ftnlen, ftnlen);
-    extern /* Subroutine */ void cchpmv_(integer*, char*, integer*, complex*, complex*, complex*, integer*, complex*, complex*, integer*, ftnlen);
+    extern /* Subroutine */ int cchbmv_(), cchemv_();
+    extern logical lceres_();
+    extern /* Subroutine */ int cchpmv_();
     static real errmax;
     static complex transl;
     static integer laa, lda;
-    extern logical lce_(complex*, complex*, integer*);
+    extern logical lce_();
     static complex als, bls;
     static real err;
 
@@ -1759,7 +1906,19 @@ L130:
 
 } /* cchk2_ */
 
-/* Subroutine */ int cchk3_(char* sname, real* eps, real* thresh, integer* nout, integer* ntra, logical* trace, logical* rewi, logical* fatal, integer* nidim, integer* idim, integer* nkb, integer* kb, integer* ninc, integer* inc, integer* nmax, integer* incmax, complex* a, complex* aa, complex* as, complex* x, complex* xx, complex* xs, complex* xt, real* g, complex* z__, integer* iorder, ftnlen sname_len)
+/* Subroutine */ int cchk3_(sname, eps, thresh, nout, ntra, trace, rewi, 
+	fatal, nidim, idim, nkb, kb, ninc, inc, nmax, incmax, a, aa, as, x, 
+	xx, xs, xt, g, z__, iorder, sname_len)
+char *sname;
+real *eps, *thresh;
+integer *nout, *ntra;
+logical *trace, *rewi, *fatal;
+integer *nidim, *idim, *nkb, *kb, *ninc, *inc, *nmax, *incmax;
+complex *a, *aa, *as, *x, *xx, *xs, *xt;
+real *g;
+complex *z__;
+integer *iorder;
+ftnlen sname_len;
 {
     /* Initialized data */
 
@@ -1778,10 +1937,10 @@ L130:
     static logical full, null;
     static char uplo[1], cdiag[14];
     static integer i__, k, n;
-    extern /* Subroutine */ int cmake_(char*, char*, char*, integer*, integer*, complex*, integer*, complex*, integer*, integer*, integer*, logical*, complex*, ftnlen, ftnlen, ftnlen);
+    extern /* Subroutine */ int cmake_();
     static char diags[1];
     static logical isame[13];
-    extern /* Subroutine */ int cmvch_(char*, integer*, integer*, complex*, complex*, integer*, complex*, integer*, complex*, complex*, integer*, complex*, real*, complex*, real*, real*, logical*, integer*, logical*, ftnlen);
+    extern /* Subroutine */ int cmvch_();
     static integer nargs;
     static logical reset;
     static char cuplo[14];
@@ -1791,19 +1950,17 @@ L130:
     static integer nc, ik, in;
     static logical packed;
     static integer nk, ks, ix, ns, lx;
-    extern logical lceres_(char*, char*, integer*, integer*, complex*, complex*, integer*, ftnlen, ftnlen);
-    extern /* Subroutine */ void cctbmv_(integer*, char*, char*, char*, integer*, integer*, complex*, integer*, complex*, integer*, ftnlen, ftnlen, ftnlen);
-    extern /* Subroutine */ void cctbsv_(integer*, char*, char*, char*, integer*, integer*, complex*, integer*, complex*, integer*, ftnlen, ftnlen, ftnlen);
+    extern logical lceres_();
+    extern /* Subroutine */ int cctbmv_(), cctbsv_();
     static char ctrans[14];
-    extern /* Subroutine */ void cctpmv_(integer*, char*, char*, char*, integer*, complex*, complex*, integer*, ftnlen, ftnlen, ftnlen);
+    extern /* Subroutine */ int cctpmv_();
     static real errmax;
-    extern /* Subroutine */ void cctrmv_(integer*, char*, char*, char*, integer*, complex*, integer*, complex*, integer*, ftnlen, ftnlen, ftnlen);
-    extern /* Subroutine */ void cctpsv_(integer*, char*, char*, char*, integer*, complex*, complex*, integer*, ftnlen, ftnlen, ftnlen);
+    extern /* Subroutine */ int cctrmv_(), cctpsv_();
     static complex transl;
-    extern /* Subroutine */ void cctrsv_(integer*, char*, char*, char*, integer*, complex*, integer*, complex*, integer*, ftnlen, ftnlen, ftnlen);
+    extern /* Subroutine */ int cctrsv_();
     static char transs[1];
     static integer laa, icd, lda;
-    extern logical lce_(complex*, complex*, integer*);
+    extern logical lce_();
     static integer ict, icu;
     static real err;
 
@@ -2261,7 +2418,21 @@ L130:
 
 } /* cchk3_ */
 
-/* Subroutine */ int cchk4_(char* sname, real* eps, real* thresh, integer* nout, integer* ntra, logical* trace, logical* rewi, logical* fatal, integer* nidim, integer* idim, integer* nalf, complex* alf, integer* ninc, integer* inc, integer* nmax, integer* incmax, complex* a, complex* aa, complex* as, complex* x, complex* xx, complex* xs, complex* y, complex* yy, complex* ys, complex* yt, real* g, complex* z__, integer* iorder, ftnlen sname_len)
+/* Subroutine */ int cchk4_(sname, eps, thresh, nout, ntra, trace, rewi, 
+	fatal, nidim, idim, nalf, alf, ninc, inc, nmax, incmax, a, aa, as, x, 
+	xx, xs, y, yy, ys, yt, g, z__, iorder, sname_len)
+char *sname;
+real *eps, *thresh;
+integer *nout, *ntra;
+logical *trace, *rewi, *fatal;
+integer *nidim, *idim, *nalf;
+complex *alf;
+integer *ninc, *inc, *nmax, *incmax;
+complex *a, *aa, *as, *x, *xx, *xs, *y, *yy, *ys, *yt;
+real *g;
+complex *z__;
+integer *iorder;
+ftnlen sname_len;
 {
     /* System generated locals */
     integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5, i__6, i__7;
@@ -2273,21 +2444,21 @@ L130:
     static integer incx, incy;
     static logical null;
     static integer i__, j, m, n;
-    extern /* Subroutine */ int cmake_(char*, char*, char*, integer*, integer*, complex*, integer*, complex*, integer*, integer*, integer*, logical*, complex*, ftnlen, ftnlen, ftnlen);
+    extern /* Subroutine */ int cmake_();
     static complex alpha, w[1];
     static logical isame[13];
-    extern /* Subroutine */ int cmvch_(char*, integer*, integer*, complex*, complex*, integer*, complex*, integer*, complex*, complex*, integer*, complex*, real*, complex*, real*, real*, logical*, integer*, logical*, ftnlen);
+    extern /* Subroutine */ int cmvch_();
     static integer nargs;
     static logical reset;
     static integer incxs, incys, ia, nc, nd, im, in;
-    extern /* Subroutine */ void ccgerc_(integer*, integer*, integer*, complex*, complex*, integer*, complex*, integer*, complex*, integer*);
+    extern /* Subroutine */ int ccgerc_();
     static integer ms, ix, iy, ns, lx, ly;
-    extern /* Subroutine */ void ccgeru_(integer*, integer*, integer*, complex*, complex*, integer*, complex*, integer*, complex*, integer*);
-    extern logical lceres_(char*, char*, integer*, integer*, complex*, complex*, integer*, ftnlen, ftnlen);
+    extern /* Subroutine */ int ccgeru_();
+    extern logical lceres_();
     static real errmax;
     static complex transl;
     static integer laa, lda;
-    extern logical lce_(complex*, complex*, integer*);
+    extern logical lce_();
     static complex als;
     static real err;
 
@@ -2615,7 +2786,21 @@ L150:
 
 } /* cchk4_ */
 
-/* Subroutine */ int cchk5_(char* sname, real* eps, real* thresh, integer* nout, integer* ntra, logical* trace, logical* rewi, logical* fatal, integer* nidim, integer* idim, integer* nalf, complex* alf, integer* ninc, integer* inc, integer* nmax, integer* incmax, complex* a, complex* aa, complex* as, complex* x, complex* xx, complex* xs, complex* y, complex* yy, complex* ys, complex* yt, real* g, complex* z__, integer* iorder, ftnlen sname_len)
+/* Subroutine */ int cchk5_(sname, eps, thresh, nout, ntra, trace, rewi, 
+	fatal, nidim, idim, nalf, alf, ninc, inc, nmax, incmax, a, aa, as, x, 
+	xx, xs, y, yy, ys, yt, g, z__, iorder, sname_len)
+char *sname;
+real *eps, *thresh;
+integer *nout, *ntra;
+logical *trace, *rewi, *fatal;
+integer *nidim, *idim, *nalf;
+complex *alf;
+integer *ninc, *inc, *nmax, *incmax;
+complex *a, *aa, *as, *x, *xx, *xs, *y, *yy, *ys, *yt;
+real *g;
+complex *z__;
+integer *iorder;
+ftnlen sname_len;
 {
     /* Initialized data */
 
@@ -2633,12 +2818,10 @@ L150:
     static logical full, null;
     static char uplo[1];
     static integer i__, j, n;
-    extern /* Subroutine */ int cmake_(char*, char*, char*, integer*, integer*, complex*, integer*, complex*, integer*, integer*, integer*, logical*, complex*, ftnlen, ftnlen, ftnlen);
-    extern /* Subroutine */ void ccher_(integer*, char*, integer*, real*, complex*, integer*, complex*, integer*, ftnlen);
+    extern /* Subroutine */ int cmake_(), ccher_();
     static complex alpha, w[1];
     static logical isame[13];
-    extern /* Subroutine */ void cchpr_(integer*, char*, integer*, real*, complex*, integer*, complex*, ftnlen);
-    extern /* Subroutine */ int cmvch_(char*, integer*, integer*, complex*, complex*, integer*, complex*, integer*, complex*, complex*, integer*, complex*, real*, complex*, real*, real*, logical*, integer*, logical*, ftnlen);
+    extern /* Subroutine */ int cchpr_(), cmvch_();
     static integer nargs;
     static logical reset;
     static char cuplo[14];
@@ -2649,11 +2832,11 @@ L150:
     static logical packed;
     static integer ix, ns, lx;
     static real ralpha;
-    extern logical lceres_(char*, char*, integer*, integer*, complex*, complex*, integer*, ftnlen, ftnlen);
+    extern logical lceres_();
     static real errmax;
     static complex transl;
     static integer laa, lda;
-    extern logical lce_(complex*, complex*, integer*);
+    extern logical lce_();
     static real err;
 
 /*  Tests CHER and CHPR. */
@@ -2977,7 +3160,21 @@ L130:
 
 } /* cchk5_ */
 
-/* Subroutine */ int cchk6_(char* sname, real* eps, real* thresh, integer* nout, integer* ntra, logical* trace, logical* rewi, logical* fatal, integer* nidim, integer* idim, integer* nalf, complex* alf, integer* ninc, integer* inc, integer* nmax, integer* incmax, complex* a, complex* aa, complex* as, complex* x, complex* xx, complex* xs, complex* y, complex* yy, complex* ys, complex* yt, real* g, complex* z__, integer* iorder, ftnlen sname_len)
+/* Subroutine */ int cchk6_(sname, eps, thresh, nout, ntra, trace, rewi, 
+	fatal, nidim, idim, nalf, alf, ninc, inc, nmax, incmax, a, aa, as, x, 
+	xx, xs, y, yy, ys, yt, g, z__, iorder, sname_len)
+char *sname;
+real *eps, *thresh;
+integer *nout, *ntra;
+logical *trace, *rewi, *fatal;
+integer *nidim, *idim, *nalf;
+complex *alf;
+integer *ninc, *inc, *nmax, *incmax;
+complex *a, *aa, *as, *x, *xx, *xs, *y, *yy, *ys, *yt;
+real *g;
+complex *z__;
+integer *iorder;
+ftnlen sname_len;
 {
     /* Initialized data */
 
@@ -2995,26 +3192,25 @@ L130:
     static logical full, null;
     static char uplo[1];
     static integer i__, j, n;
-    extern /* Subroutine */ int cmake_(char*, char*, char*, integer*, integer*, complex*, integer*, complex*, integer*, integer*, integer*, logical*, complex*, ftnlen, ftnlen, ftnlen);
+    extern /* Subroutine */ int cmake_();
     static complex alpha, w[2];
     static logical isame[13];
-    extern /* Subroutine */ int cmvch_(char*, integer*, integer*, complex*, complex*, integer*, complex*, integer*, complex*, complex*, integer*, complex*, real*, complex*, real*, real*, logical*, integer*, logical*, ftnlen);
+    extern /* Subroutine */ int cmvch_();
     static integer nargs;
     static logical reset;
     static char cuplo[14];
     static integer incxs, incys;
     static logical upper;
     static char uplos[1];
-    extern /* Subroutine */ void ccher2_(integer*, char*, integer*, complex*, complex*, integer*, complex*, integer*, complex*, integer*, ftnlen);
-    extern /* Subroutine */ void cchpr2_(integer*, char*, integer*, complex*, complex*, integer*, complex*, integer*, complex*, ftnlen);
+    extern /* Subroutine */ int ccher2_(), cchpr2_();
     static integer ia, ja, ic, nc, jj, lj, in;
     static logical packed;
     static integer ix, iy, ns, lx, ly;
-    extern logical lceres_(char*, char*, integer*, integer*, complex*, complex*, integer*, ftnlen, ftnlen);
+    extern logical lceres_();
     static real errmax;
     static complex transl;
     static integer laa, lda;
-    extern logical lce_(complex*, complex*, integer*);
+    extern logical lce_();
     static complex als;
     static real err;
 
@@ -3401,7 +3597,24 @@ L170:
 
 } /* cchk6_ */
 
-/* Subroutine */ int cmvch_(char* trans, integer* m, integer* n, complex* alpha, complex* a, integer* nmax, complex* x, integer* incx, complex* beta, complex* y, integer* incy, complex* yt, real* g, complex* yy, real* eps, real* err, logical* fatal, integer* nout, logical* mv, ftnlen trans_len)
+/* Subroutine */ int cmvch_(trans, m, n, alpha, a, nmax, x, incx, beta, y, 
+	incy, yt, g, yy, eps, err, fatal, nout, mv, trans_len)
+char *trans;
+integer *m, *n;
+complex *alpha, *a;
+integer *nmax;
+complex *x;
+integer *incx;
+complex *beta, *y;
+integer *incy;
+complex *yt;
+real *g;
+complex *yy;
+real *eps, *err;
+logical *fatal;
+integer *nout;
+logical *mv;
+ftnlen trans_len;
 {
 
     /* System generated locals */
@@ -3599,7 +3812,9 @@ L80:
 
 } /* cmvch_ */
 
-logical lce_(complex* ri, complex* rj, integer* lr)
+logical lce_(ri, rj, lr)
+complex *ri, *rj;
+integer *lr;
 {
     /* System generated locals */
     integer i__1, i__2, i__3;
@@ -3646,7 +3861,13 @@ L30:
 
 } /* lce_ */
 
-logical lceres_(char* type__, char* uplo, integer* m, integer* n, complex* aa, complex* as, integer* lda, ftnlen type_len, ftnlen uplo_len)
+logical lceres_(type__, uplo, m, n, aa, as, lda, type_len, uplo_len)
+char *type__, *uplo;
+integer *m, *n;
+complex *aa, *as;
+integer *lda;
+ftnlen type_len;
+ftnlen uplo_len;
 {
     /* System generated locals */
     integer aa_dim1, aa_offset, as_dim1, as_offset, i__1, i__2, i__3, i__4;
@@ -3739,7 +3960,9 @@ L80:
 
 } /* lceres_ */
 
-/* Complex */ VOID cbeg_(complex* ret_val, logical* reset)
+/* Complex */ VOID cbeg_( ret_val, reset)
+complex * ret_val;
+logical *reset;
 {
     /* System generated locals */
     real r__1, r__2;
@@ -3800,7 +4023,8 @@ L10:
 
 } /* cbeg_ */
 
-doublereal sdiff_(real* x, real* y)
+doublereal sdiff_(x, y)
+real *x, *y;
 {
     /* System generated locals */
     real ret_val;
@@ -3820,7 +4044,19 @@ doublereal sdiff_(real* x, real* y)
 
 } /* sdiff_ */
 
-/* Subroutine */ int cmake_(char* type__, char* uplo, char* diag, integer* m, integer* n, complex* a, integer* nmax, complex* aa, integer* lda, integer* kl, integer* ku, logical* reset, complex* transl, ftnlen type_len, ftnlen uplo_len, ftnlen diag_len)
+/* Subroutine */ int cmake_(type__, uplo, diag, m, n, a, nmax, aa, lda, kl, 
+	ku, reset, transl, type_len, uplo_len, diag_len)
+char *type__, *uplo, *diag;
+integer *m, *n;
+complex *a;
+integer *nmax;
+complex *aa;
+integer *lda, *kl, *ku;
+logical *reset;
+complex *transl;
+ftnlen type_len;
+ftnlen uplo_len;
+ftnlen diag_len;
 {
     /* System generated locals */
     integer a_dim1, a_offset, i__1, i__2, i__3, i__4;
@@ -3828,7 +4064,7 @@ doublereal sdiff_(real* x, real* y)
     complex q__1, q__2;
 
     /* Local variables */
-    extern /* Complex */ VOID cbeg_(complex*, logical*);
+    extern /* Complex */ VOID cbeg_();
     static integer ibeg, iend, ioff;
     static logical unit;
     static integer i__, j;

ctest/c_cblat3.f

@@ -10,7 +10,7 @@
 *  'CBLAT3.SNAP'     NAME OF SNAPSHOT OUTPUT FILE
 *  -1                UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
 *  F        LOGICAL FLAG, T TO REWIND SNAPSHOT FILE AFTER EACH RECORD.
-*  F        LOGICAL FLAG, T TO CALL ABORT ON FAILURES.
+*  F        LOGICAL FLAG, T TO STOP ON FAILURES.
 *  T        LOGICAL FLAG, T TO TEST ERROR EXITS.
 *  2        0 TO TEST COLUMN-MAJOR, 1 TO TEST ROW-MAJOR, 2 TO TEST BOTH
 *  16.0     THRESHOLD VALUE OF TEST RATIO
@@ -194,7 +194,7 @@
      $      GO TO 50
    40 CONTINUE
       WRITE( NOUT, FMT = 9990 )SNAMET
-      CALL ABORT
+      STOP
    50 LTEST( I ) = LTESTT
       GO TO 30
 *
@@ -237,7 +237,7 @@
       SAME = LCE( CC, CT, N )
       IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
-         CALL ABORT
+         STOP
       END IF
       TRANSB = 'C'
       CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
@@ -246,7 +246,7 @@
       SAME = LCE( CC, CT, N )
       IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
-         CALL ABORT
+         STOP
       END IF
       DO 120 J = 1, N
          AB( J, NMAX + 1 ) = N - J + 1
@@ -264,7 +264,7 @@
       SAME = LCE( CC, CT, N )
       IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
-         CALL ABORT
+         STOP
       END IF
       TRANSB = 'C'
       CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
@@ -273,7 +273,7 @@
       SAME = LCE( CC, CT, N )
       IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
-         CALL ABORT
+         STOP
       END IF
 *
 *     Test each subroutine in turn.
@@ -385,9 +385,7 @@
       IF( TRACE )
      $   CLOSE ( NTRA )
       CLOSE ( NOUT )
-      IF( FATAL ) THEN
-         CALL ABORT
-      END IF
+      STOP
 *
 10002 FORMAT( ' COLUMN-MAJOR AND ROW-MAJOR DATA LAYOUTS ARE TESTED' )
 10001 FORMAT(' ROW-MAJOR DATA LAYOUT IS TESTED' )

ctest/c_cblat3_3m.f

@@ -10,7 +10,7 @@
 *  'CBLAT3.SNAP'     NAME OF SNAPSHOT OUTPUT FILE
 *  -1                UNIT NUMBER OF SNAPSHOT FILE (NOT USED IF .LT. 0)
 *  F        LOGICAL FLAG, T TO REWIND SNAPSHOT FILE AFTER EACH RECORD.
-*  F        LOGICAL FLAG, T TO CALL ABORT ON FAILURES.
+*  F        LOGICAL FLAG, T TO STOP ON FAILURES.
 *  T        LOGICAL FLAG, T TO TEST ERROR EXITS.
 *  2        0 TO TEST COLUMN-MAJOR, 1 TO TEST ROW-MAJOR, 2 TO TEST BOTH
 *  16.0     THRESHOLD VALUE OF TEST RATIO
@@ -194,7 +194,7 @@
      $      GO TO 50
    40 CONTINUE
       WRITE( NOUT, FMT = 9990 )SNAMET
-      CALL ABORT
+      STOP
    50 LTEST( I ) = LTESTT
       GO TO 30
 *
@@ -237,7 +237,7 @@
       SAME = LCE( CC, CT, N )
       IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
-         CALL ABORT
+         STOP
       END IF
       TRANSB = 'C'
       CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
@@ -246,7 +246,7 @@
       SAME = LCE( CC, CT, N )
       IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
-         CALL ABORT
+         STOP
       END IF
       DO 120 J = 1, N
          AB( J, NMAX + 1 ) = N - J + 1
@@ -264,7 +264,7 @@
       SAME = LCE( CC, CT, N )
       IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
-         CALL ABORT
+         STOP
       END IF
       TRANSB = 'C'
       CALL CMMCH( TRANSA, TRANSB, N, 1, N, ONE, AB, NMAX,
@@ -273,7 +273,7 @@
       SAME = LCE( CC, CT, N )
       IF( .NOT.SAME.OR.ERR.NE.RZERO )THEN
          WRITE( NOUT, FMT = 9989 )TRANSA, TRANSB, SAME, ERR
-         CALL ABORT
+         STOP
       END IF
 *
 *     Test each subroutine in turn.
@@ -385,9 +385,7 @@
       IF( TRACE )
      $   CLOSE ( NTRA )
       CLOSE ( NOUT )
-      IF( FATAL ) THEN
-         CALL ABORT
-      END IF
+      STOP
 *
 10002 FORMAT( ' COLUMN-MAJOR AND ROW-MAJOR DATA LAYOUTS ARE TESTED' )
 10001 FORMAT(' ROW-MAJOR DATA LAYOUT IS TESTED' )

ctest/c_cblat3c.c

@@ -242,6 +242,130 @@ typedef struct Namelist Namelist;
 /* procedure parameter types for -A and -C++ */
 
 #define F2C_proc_par_types 1
+#ifdef __cplusplus
+typedef logical (*L_fp)(...);
+#else
+typedef logical (*L_fp)();
+#endif
+#if 0
+static float spow_ui(float x, integer n) {
+	float pow=1.0; unsigned long int u;
+	if(n != 0) {
+		if(n < 0) n = -n, x = 1/x;
+		for(u = n; ; ) {
+			if(u & 01) pow *= x;
+			if(u >>= 1) x *= x;
+			else break;
+		}
+	}
+	return pow;
+}
+static double dpow_ui(double x, integer n) {
+	double pow=1.0; unsigned long int u;
+	if(n != 0) {
+		if(n < 0) n = -n, x = 1/x;
+		for(u = n; ; ) {
+			if(u & 01) pow *= x;
+			if(u >>= 1) x *= x;
+			else break;
+		}
+	}
+	return pow;
+}
+#ifdef _MSC_VER
+static _Fcomplex cpow_ui(complex x, integer n) {
+	complex pow={1.0,0.0}; unsigned long int u;
+		if(n != 0) {
+		if(n < 0) n = -n, x.r = 1/x.r, x.i=1/x.i;
+		for(u = n; ; ) {
+			if(u & 01) pow.r *= x.r, pow.i *= x.i;
+			if(u >>= 1) x.r *= x.r, x.i *= x.i;
+			else break;
+		}
+	}
+	_Fcomplex p={pow.r, pow.i};
+	return p;
+}
+#else
+static _Complex float cpow_ui(_Complex float x, integer n) {
+	_Complex float pow=1.0; unsigned long int u;
+	if(n != 0) {
+		if(n < 0) n = -n, x = 1/x;
+		for(u = n; ; ) {
+			if(u & 01) pow *= x;
+			if(u >>= 1) x *= x;
+			else break;
+		}
+	}
+	return pow;
+}
+#endif
+#ifdef _MSC_VER
+static _Dcomplex zpow_ui(_Dcomplex x, integer n) {
+	_Dcomplex pow={1.0,0.0}; unsigned long int u;
+	if(n != 0) {
+		if(n < 0) n = -n, x._Val[0] = 1/x._Val[0], x._Val[1] =1/x._Val[1];
+		for(u = n; ; ) {
+			if(u & 01) pow._Val[0] *= x._Val[0], pow._Val[1] *= x._Val[1];
+			if(u >>= 1) x._Val[0] *= x._Val[0], x._Val[1] *= x._Val[1];
+			else break;
+		}
+	}
+	_Dcomplex p = {pow._Val[0], pow._Val[1]};
+	return p;
+}
+#else
+static _Complex double zpow_ui(_Complex double x, integer n) {
+	_Complex double pow=1.0; unsigned long int u;
+	if(n != 0) {
+		if(n < 0) n = -n, x = 1/x;
+		for(u = n; ; ) {
+			if(u & 01) pow *= x;
+			if(u >>= 1) x *= x;
+			else break;
+		}
+	}
+	return pow;
+}
+#endif
+static integer pow_ii(integer x, integer n) {
+	integer pow; unsigned long int u;
+	if (n <= 0) {
+		if (n == 0 || x == 1) pow = 1;
+		else if (x != -1) pow = x == 0 ? 1/x : 0;
+		else n = -n;
+	}
+	if ((n > 0) || !(n == 0 || x == 1 || x != -1)) {
+		u = n;
+		for(pow = 1; ; ) {
+			if(u & 01) pow *= x;
+			if(u >>= 1) x *= x;
+			else break;
+		}
+	}
+	return pow;
+}
+static integer dmaxloc_(double *w, integer s, integer e, integer *n)
+{
+	double m; integer i, mi;
+	for(m=w[s-1], mi=s, i=s+1; i<=e; i++)
+		if (w[i-1]>m) mi=i ,m=w[i-1];
+	return mi-s+1;
+}
+static integer smaxloc_(float *w, integer s, integer e, integer *n)
+{
+	float m; integer i, mi;
+	for(m=w[s-1], mi=s, i=s+1; i<=e; i++)
+		if (w[i-1]>m) mi=i ,m=w[i-1];
+	return mi-s+1;
+}
+#endif
+/*  -- translated by f2c (version 20000121).
+   You must link the resulting object file with the libraries:
+	-lf2c -lm   (in that order)
+*/
+
+
 
 
 /* Common Block Declarations */