diff --git a/.github/workflows/build-macos.yml b/.github/workflows/build-macos.yml index a47e7fb..7ed569a 100644 --- a/.github/workflows/build-macos.yml +++ b/.github/workflows/build-macos.yml @@ -27,7 +27,7 @@ jobs: run: sudo xcode-select -s /Applications/Xcode_15.1.app/Contents/Developer - name: Install Dependency - run: brew install cxxopts fmt llvm@14 google-benchmark ninja libpcap openblas + run: brew install cxxopts fmt llvm@14 ninja spdlog - name: Checkout run: | diff --git a/.github/workflows/build-ubuntu.yml b/.github/workflows/build-ubuntu.yml index a030c06..f861fb8 100644 --- a/.github/workflows/build-ubuntu.yml +++ b/.github/workflows/build-ubuntu.yml @@ -21,7 +21,7 @@ jobs: - uses: actions/checkout@v2 - name: Install Dependency - run: sudo apt install libssl-dev gcc-13 g++-13 libprotobuf-c-dev libprotobuf-dev libgrpc-dev libfmt-dev llvm-14-dev libedit-dev libcxxopts-dev libpfm4-dev liblldb-dev libbenchmark-dev ninja-build libpcap-dev libopenblas-pthread-dev + run: sudo apt install libssl-dev gcc-13 g++-13 libspdlog-dev libfmt-dev llvm-14-dev libedit-dev libcxxopts-dev libpfm4-dev ninja-build libpcap-dev libopenblas-pthread-dev - name: Checkout run: | diff --git a/.github/workflows/build-windows.yml b/.github/workflows/build-windows.yml index 1628744..c86a9f8 100644 --- a/.github/workflows/build-windows.yml +++ b/.github/workflows/build-windows.yml @@ -35,16 +35,16 @@ jobs: git clone https://github.com/microsoft/vcpkg cd vcpkg ./bootstrap-vcpkg.bat - ./vcpkg install fmt:x64-windows cxxopts:x64-windows benchmark:x64-windows + ./vcpkg install fmt:x64-windows cxxopts:x64-windows spdlog:x64-windows echo "C:/tools/msys64/usr/bin/" >> "$GITHUB_PATH" C:/tools/msys64/usr/bin/pacman.exe --noconfirm -S gcc - name: Install WASI SDK run: | cd D: - wget https://github.com/WebAssembly/wasi-sdk/releases/download/wasi-sdk-20/wasi-sdk-20.0.m-mingw.tar.gz -O D:/wasi-sdk-20.0.m-mingw.tar.gz - tar -xzf wasi-sdk-20.0.m-mingw.tar.gz - mv wasi-sdk-20.0+m wasi-sdk + wget https://github.com/WebAssembly/wasi-sdk/releases/download/wasi-sdk-21/wasi-sdk-21.0.m-mingw.tar.gz -O D:/wasi-sdk-21.0.m-mingw.tar.gz + tar -xzf wasi-sdk-21.0.m-mingw.tar.gz + mv wasi-sdk-21.0+m wasi-sdk - name: Make WASM LD no check features run: | diff --git a/CMakeLists.txt b/CMakeLists.txt index 8c3b49d..c26cb35 100644 --- a/CMakeLists.txt +++ b/CMakeLists.txt @@ -3,8 +3,7 @@ project(MVVM LANGUAGES C CXX) set(CMAKE_CXX_STANDARD 23) find_package(fmt REQUIRED) -# find_package(LLVM REQUIRED) -find_package(benchmark REQUIRED) +find_package(spdlog REQUIRED) find_package(cxxopts REQUIRED) include(CTest) if (WIN32) @@ -44,6 +43,9 @@ elseif (LINUX) message(${BLAS_INCLUDE_DIRS}) else () set(WAMR_BUILD_PLATFORM "windows") + set(WAMR_BUILD_LIB_PTHREAD 1) + set(WAMR_BUILD_LIB_WASI_THREADS 1) + set(WAMR_BUILD_THREAD_MGR 1) set(WAMR_BUILD_LIBC_UVWASI 1) set(CMAKE_MSVC_RUNTIME_LIBRARY "") set(CMAKE_GENERATOR_PLATFORM "") @@ -79,6 +81,12 @@ if (NOT CMAKE_BUILD_TYPE) set(CMAKE_BUILD_TYPE Debug) endif () +if(CMAKE_BUILD_TYPE STREQUAL "Debug") + add_definitions(-DSPDLOG_ACTIVE_LEVEL=SPDLOG_LEVEL_DEBUG) +else() + add_definitions(-DSPDLOG_ACTIVE_LEVEL=SPDLOG_LEVEL_INFO) +endif() + set(WAMR_BUILD_INTERP 1) set(WAMR_BUILD_AOT 1) set(WAMR_BUILD_JIT 0) @@ -109,7 +117,7 @@ include(${WAMR_ROOT_DIR}/build-scripts/runtime_lib.cmake) add_library(vmlib ${WAMR_RUNTIME_LIB_SOURCE}) include(${SHARED_DIR}/utils/uncommon/shared_uncommon.cmake) -include_directories(${CMAKE_CURRENT_SOURCE_DIR}/include ${CMAKE_CURRENT_SOURCE_DIR}/lib/wasm-micro-runtime/core/iwasm/aot ${CMAKE_CURRENT_SOURCE_DIR}/lib/yalantinglibs/include ${LLVM_INCLUDE_DIRS} ${BLAS_INCLUDE_DIRS} ${CMAKE_CURRENT_SOURCE_DIR}/lib/libcrafter/libcrafter/) +include_directories(${CMAKE_CURRENT_SOURCE_DIR}/include ${CMAKE_CURRENT_SOURCE_DIR}/lib/wasm-micro-runtime/core/iwasm/aot ${CMAKE_CURRENT_SOURCE_DIR}/lib/yalantinglibs/include ${BLAS_INCLUDE_DIRS} ${CMAKE_CURRENT_SOURCE_DIR}/lib/libcrafter/libcrafter/) if (MVVM_BUILD_BENCH) add_subdirectory(bench) @@ -118,11 +126,9 @@ if (MVVM_BUILD_TEST) add_definitions(-DMVVM_BUILD_TEST=1) add_subdirectory(test) endif() -if (NOT WIN32) +if (LINUX) add_subdirectory(lib/libcrafter/libcrafter) - if (NOT APPLE) - add_subdirectory(gateway) - endif() + add_subdirectory(gateway) endif () file(GLOB_RECURSE SOURCE_FILES src/logging.cpp src/wamr*.cpp) @@ -130,11 +136,7 @@ add_library(MVVM_export ${SOURCE_FILES} ${UNCOMMON_SHARED_SOURCE}) add_executable(MVVM_restore src/restore.cpp ${UNCOMMON_SHARED_SOURCE}) add_executable(MVVM_checkpoint src/checkpoint.cpp ${UNCOMMON_SHARED_SOURCE}) -target_link_libraries(MVVM_export fmt::fmt -lm -ldl -lpthread ${BLAS_LIBRARIES}) -target_link_libraries(MVVM_restore fmt::fmt cxxopts::cxxopts -lm -ldl -lpthread ${BLAS_LIBRARIES} MVVM_export vmlib ${WIN_EXTRA_LIBS}) -target_link_libraries(MVVM_checkpoint fmt::fmt cxxopts::cxxopts -lm -ldl -lpthread ${BLAS_LIBRARIES} MVVM_export vmlib ${WIN_EXTRA_LIBS}) -if (MVVM_BUILD_MPI) - add_executable(MVVM_mpi_test test/mpi.cpp ${UNCOMMON_SHARED_SOURCE}) - target_link_libraries(MVVM_mpi_test fmt::fmt cxxopts::cxxopts -lm -ldl -lpthread ${BLAS_LIBRARIES} MVVM_export vmlib ${WIN_EXTRA_LIBS}) -endif() +target_link_libraries(MVVM_export fmt::fmt spdlog::spdlog -lm -ldl -lpthread ${BLAS_LIBRARIES}) +target_link_libraries(MVVM_restore fmt::fmt spdlog::spdlog cxxopts::cxxopts -lm -ldl -lpthread ${BLAS_LIBRARIES} MVVM_export vmlib ${WIN_EXTRA_LIBS}) +target_link_libraries(MVVM_checkpoint fmt::fmt spdlog::spdlog cxxopts::cxxopts -lm -ldl -lpthread ${BLAS_LIBRARIES} MVVM_export vmlib ${WIN_EXTRA_LIBS}) add_definitions(-DCXXOPTS_NO_RTTI=1) diff --git a/README.md b/README.md index f69cdbf..e1c1653 100644 --- a/README.md +++ b/README.md @@ -7,8 +7,8 @@ ## To checkpoint and migrate a WAMR nano process ```bash python3 ../artifact/common_util.py # return $recv is 193 -LOGV=1 ./MVVM_checkpoint -t ./test/tcp_client.aot -f 193 -c 0 -x 10 -a "10" -e OMP_NUM_THREADS=1 -i -LOGV=1 ./MVVM_restore -t ./test/tcp_client.aot # All the wasi env will be restored +SPDLOG_LEVEL=debug ./MVVM_checkpoint -t ./test/tcp_client.aot -f 193 -c 0 -x 10 -a "10" -e OMP_NUM_THREADS=1 -i +SPDLOG_LEVEL=debug ./MVVM_restore -t ./test/tcp_client.aot # All the wasi env will be restored ``` 1. -t Target: The path to the WASM interpreter or AOT executable 2. -i Debug Mode: Switch on for debugging diff --git a/gateway/CMakeLists.txt b/gateway/CMakeLists.txt index ada9c4e..6416fd0 100644 --- a/gateway/CMakeLists.txt +++ b/gateway/CMakeLists.txt @@ -1,2 +1,4 @@ add_executable(gateway ${SOURCE_FILES} main.cpp) -target_link_libraries(gateway pcap fmt::fmt crafter resolv MVVM_export) \ No newline at end of file +target_link_libraries(gateway pcap spdlog::spdlog fmt::fmt crafter resolv MVVM_export) +add_executable(playground ${SOURCE_FILES} playground.cpp) +target_link_libraries(playground pcap crafter resolv) diff --git a/gateway/main.cpp b/gateway/main.cpp index 2470152..0c7a95a 100644 --- a/gateway/main.cpp +++ b/gateway/main.cpp @@ -1,7 +1,6 @@ #include "crafter/Payload.h" #include "crafter/Protocols/RawLayer.h" #include "crafter/Utils/TCPConnection.h" -#include "logging.h" #include #include #include @@ -13,6 +12,7 @@ #include #include #include +#include #include #include #include @@ -67,10 +67,10 @@ void forward(const unsigned char *buf, int len) { dst.sin_addr.s_addr = ((const struct iphdr *)buf)->daddr; sock = socket(AF_INET, SOCK_RAW, IPPROTO_RAW); if (sendto(sock, buf, len, 0, (struct sockaddr *)&dst, sizeof(dst)) != len) { - LOGV(ERROR) << "forward: sending failed."; + SPDLOG_ERROR("forward: sending failed."); return; } else { - LOGV(INFO) << "DEBUG: forward: sending succeeded."; + SPDLOG_INFO("DEBUG: forward: sending succeeded."); return; } } @@ -87,14 +87,14 @@ void forwardv6(const unsigned char *buf, int len) { // Create a raw socket with IPv6 domain sock = socket(AF_INET6, SOCK_RAW, IPPROTO_RAW); if (sock < 0) { - LOGV(ERROR) << "forwardv6: socket creation failed."; + SPDLOG_ERROR("forwardv6: socket creation failed."); return; } if (sendto(sock, buf, len, 0, (struct sockaddr *)&dst, sizeof(dst)) != len) { - LOGV(ERROR) << "forwardv6: sending failed."; + SPDLOG_ERROR("forwardv6: sending failed."); } else { - LOGV(INFO) << "forwardv6: sending succeeded."; + SPDLOG_INFO("forwardv6: sending succeeded."); } // Close the socket @@ -115,7 +115,7 @@ void packet_handler(u_char *user, const struct pcap_pkthdr *header, const u_char packetptr += linkhdrlen; iphdr = (struct ip *)packetptr; if (iphdr->ip_v == 6) { - LOGV(INFO) << "ipv6"; + SPDLOG_INFO("ipv6"); packetptr += linkhdrlen; ipv6hdr = (struct ip6_hdr *)packetptr; inet_ntop(AF_INET6, &ipv6hdr->ip6_src, srcip, sizeof(srcip)); @@ -127,37 +127,37 @@ void packet_handler(u_char *user, const struct pcap_pkthdr *header, const u_char switch (ipv6hdr->ip6_nxt) { case IPPROTO_TCP: tcphdr = (struct tcphdr *)packetptr; - LOGV(INFO) << fmt::format("TCP6 {}:{} -> {}:{}", srcip, ntohs(tcphdr->th_sport), dstip, + SPDLOG_INFO( "TCP6 {}:{} -> {}:{}", srcip, ntohs(tcphdr->th_sport), dstip), ntohs(tcphdr->th_dport)); - LOGV(INFO) << fmt::format("ID:{} TOS:0x{}, TTL:{} IpLen:{} DgLen:{}", ntohs(iphdr->ip_id), iphdr->ip_tos, + SPDLOG_INFO( "ID:{} TOS:0x{}, TTL:{} IpLen:{} DgLen:{}", ntohs(iphdr->ip_id), iphdr->ip_tos), iphdr->ip_ttl, 4 * iphdr->ip_hl, ntohs(iphdr->ip_len)); - LOGV(INFO) << fmt::format("{}{}{}{}{}{} Seq: 0x{} Ack: 0x{} Win: 0x{} TcpLen: {}", + SPDLOG_INFO( "{}{}{}{}{}{} Seq: 0x{} Ack: 0x{} Win: 0x{} TcpLen: {}"), (tcphdr->th_flags & TH_URG ? 'U' : '*'), (tcphdr->th_flags & TH_ACK ? 'A' : '*'), (tcphdr->th_flags & TH_PUSH ? 'P' : '*'), (tcphdr->th_flags & TH_RST ? 'R' : '*'), (tcphdr->th_flags & TH_SYN ? 'S' : '*'), (tcphdr->th_flags & TH_SYN ? 'F' : '*'), ntohl(tcphdr->th_seq), ntohl(tcphdr->th_ack), ntohs(tcphdr->th_win), 4 * tcphdr->th_off); - LOGV(INFO) << fmt::format("+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+"); + SPDLOG_INFO("+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+")); packets += 1; break; case IPPROTO_UDP: udphdr = (struct udphdr *)packetptr; - LOGV(INFO) << fmt::format("UDP6 {}:{} -> {}:{}", srcip, ntohs(udphdr->uh_sport), dstip, + SPDLOG_INFO( "UDP6 {}:{} -> {}:{}", srcip, ntohs(udphdr->uh_sport), dstip), ntohs(udphdr->uh_dport)); - LOGV(INFO) << fmt::format("ID:{} TOS:0x{}, TTL:{} IpLen:{} DgLen:{}", ntohs(iphdr->ip_id), iphdr->ip_tos, + SPDLOG_INFO( "ID:{} TOS:0x{}, TTL:{} IpLen:{} DgLen:{}", ntohs(iphdr->ip_id), iphdr->ip_tos), iphdr->ip_ttl, 4 * iphdr->ip_hl, ntohs(iphdr->ip_len)); - LOGV(INFO) << fmt::format("+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+"); + SPDLOG_INFO( "+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+")); packets += 1; break; case IPPROTO_ICMPV6: icmp6hdr = (struct icmp6_hdr *)packetptr; - LOGV(INFO) << fmt::format("ICMP6 {} -> {}", srcip, dstip); - LOGV(INFO) << fmt::format("ID:{} TOS:0x{}, TTL:{} IpLen:{} DgLen:{}", ntohs(iphdr->ip_id), iphdr->ip_tos, + SPDLOG_INFO( "ICMP6 {} -> {}", srcip, dstip)); + SPDLOG_INFO( "ID:{} TOS:0x{}, TTL:{} IpLen:{} DgLen:{}", ntohs(iphdr->ip_id), iphdr->ip_tos), iphdr->ip_ttl, 4 * iphdr->ip_hl, ntohs(iphdr->ip_len)); - LOGV(INFO) << fmt::format("Type:{} Code:{}", icmp6hdr->icmp6_type, icmp6hdr->icmp6_code); - LOGV(INFO) << fmt::format("+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+"); + SPDLOG_INFO( "Type:{} Code:{}", icmp6hdr->icmp6_type, icmp6hdr->icmp6_code)); + SPDLOG_INFO( "+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+")); packets += 1; break; } @@ -195,29 +195,29 @@ void packet_handler(u_char *user, const struct pcap_pkthdr *header, const u_char switch (iphdr->ip_p) { case IPPROTO_TCP: tcphdr = (struct tcphdr *)packetptr; - LOGV(INFO) << fmt::format("TCP {}:{} -> {}:{}", srcip, ntohs(tcphdr->th_sport), dstip, + SPDLOG_INFO( "TCP {}:{} -> {}:{}", srcip, ntohs(tcphdr->th_sport), dstip), ntohs(tcphdr->th_dport)); - LOGV(INFO) << fmt::format("ID:{} TOS:0x{}, TTL:{} IpLen:{} DgLen:{}", ntohs(iphdr->ip_id), iphdr->ip_tos, + SPDLOG_INFO( "ID:{} TOS:0x{}, TTL:{} IpLen:{} DgLen:{}", ntohs(iphdr->ip_id), iphdr->ip_tos), iphdr->ip_ttl, 4 * iphdr->ip_hl, ntohs(iphdr->ip_len)); - LOGV(INFO) << fmt::format("{}{}{}{}{}{} Seq: 0x{} Ack: 0x{} Win: 0x{} TcpLen: {}", + SPDLOG_INFO( "{}{}{}{}{}{} Seq: 0x{} Ack: 0x{} Win: 0x{} TcpLen: {}"), (tcphdr->th_flags & TH_URG ? 'U' : '*'), (tcphdr->th_flags & TH_ACK ? 'A' : '*'), (tcphdr->th_flags & TH_PUSH ? 'P' : '*'), (tcphdr->th_flags & TH_RST ? 'R' : '*'), (tcphdr->th_flags & TH_SYN ? 'S' : '*'), (tcphdr->th_flags & TH_SYN ? 'F' : '*'), ntohl(tcphdr->th_seq), ntohl(tcphdr->th_ack), ntohs(tcphdr->th_win), 4 * tcphdr->th_off); - LOGV(INFO) << fmt::format("+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+"); + SPDLOG_INFO( "+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+")); packets += 1; break; case IPPROTO_UDP: udphdr = (struct udphdr *)packetptr; - LOGV(INFO) << fmt::format("UDP {}:{} -> {}:{}", srcip, ntohs(udphdr->uh_sport), dstip, + SPDLOG_INFO( "UDP {}:{} -> {}:{}", srcip, ntohs(udphdr->uh_sport), dstip), ntohs(udphdr->uh_dport)); - LOGV(INFO) << fmt::format("ID:{} TOS:0x{}, TTL:{} IpLen:{} DgLen:{}", ntohs(iphdr->ip_id), iphdr->ip_tos, + SPDLOG_INFO( "ID:{} TOS:0x{}, TTL:{} IpLen:{} DgLen:{}", ntohs(iphdr->ip_id), iphdr->ip_tos), iphdr->ip_ttl, 4 * iphdr->ip_hl, ntohs(iphdr->ip_len)); id = ntohs(iphdr->ip_id) + 1; - LOGV(ERROR) << "id" << id; - LOGV(INFO) << fmt::format("+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+"); + SPDLOG_ERROR("id", id); + SPDLOG_INFO( "+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+")); for (int idx = 0; idx < op_data->size; idx++) if (op_data->addr[idx][0].port == 0) { @@ -229,20 +229,19 @@ void packet_handler(u_char *user, const struct pcap_pkthdr *header, const u_char case IPPROTO_ICMP: icmphdr = (struct icmp *)packetptr; - LOGV(INFO) << fmt::format("ICMP {} -> {}", srcip, dstip); - LOGV(INFO) << fmt::format("ID:{} TOS:0x{}, TTL:{} IpLen:{} DgLen:{}", ntohs(iphdr->ip_id), iphdr->ip_tos, - iphdr->ip_ttl, 4 * iphdr->ip_hl, ntohs(iphdr->ip_len)); - LOGV(INFO) << fmt::format("Type:{} Code:{} ID:{} Seq:{}", icmphdr->icmp_type, icmphdr->icmp_code, - ntohs(icmphdr->icmp_hun.ih_idseq.icd_id), - ntohs(icmphdr->icmp_hun.ih_idseq.icd_seq)); - LOGV(INFO) << fmt::format("+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+"); + SPDLOG_INFO("ICMP {} -> {}", srcip, dstip)); + SPDLOG_INFO("ID:{} TOS:0x{}, TTL:{} IpLen:{} DgLen:{}", ntohs(iphdr->ip_id), iphdr->ip_tos), + iphdr->ip_ttl, 4 * iphdr->ip_hl, ntohs(iphdr->ip_len)); + SPDLOG_INFO("Type:{} Code:{} ID:{} Seq:{}", icmphdr->icmp_type, icmphdr->icmp_code), + ntohs(icmphdr->icmp_hun.ih_idseq.icd_id), ntohs(icmphdr->icmp_hun.ih_idseq.icd_seq)); + SPDLOG_INFO("+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+")); packets += 1; break; } if (is_forward && !op_data->is_tcp) { // Skip the datalink layer header and get the IP header fields. // init the socket for (auto [srcip_, destip_, new_srcip] : forward_pair) { - LOGV(DEBUG) << header->len << "srcip:" << srcip_ << " destip:" << destip_; + SPDLOG_DEBUG(header->len, "srcip:", srcip_, " destip:", destip_); if (srcip_ == inet_ntoa(iphdr->ip_src) && destip_ == inet_ntoa(iphdr->ip_dst)) { iphdr->ip_src.s_addr = inet_addr(new_srcip.c_str()); @@ -299,14 +298,14 @@ void sigterm_handler(int sig) { struct pcap_stat stats {}; if (pcap_stats(handle, &stats) >= 0) { - LOGV(INFO) << fmt::format("{} packets captured", packets); - LOGV(INFO) << fmt::format("{} packets received by filter", stats.ps_recv); - LOGV(INFO) << fmt::format("{} packets dropped", stats.ps_drop); + SPDLOG_INFO"{} packets captured", packets)); + SPDLOG_INFO"{} packets received by filter", stats.ps_recv)); + SPDLOG_INFO"{} packets dropped", stats.ps_drop)); } pcap_close(handle); close(client_fd); close(fd); - LOGV(INFO) << "Bye"; + SPDLOG_INFO("Bye"); exit(0); } // int main(){ @@ -336,7 +335,7 @@ int main() { // Forcefully attaching socket to the port if (setsockopt(fd, SOL_SOCKET, SO_REUSEADDR | SO_REUSEPORT, &opt, sizeof(opt))) { - LOGV(ERROR) << "setsockopt"; + SPDLOG_ERROR("setsockopt"); exit(EXIT_FAILURE); } @@ -344,36 +343,36 @@ int main() { address.sin_port = htons(MVVM_SOCK_PORT); // Convert IPv4 and IPv6 addresses from text to binary form if (inet_pton(AF_INET, MVVM_SOCK_ADDR, &address.sin_addr) <= 0) { - LOGV(ERROR) << "Invalid address/ Address not supported"; + SPDLOG_ERROR("Invalid address/ Address not supported"); exit(EXIT_FAILURE); } // Bind the socket to the network address and port if (bind(fd, (struct sockaddr *)&address, sizeof(address)) < 0) { - LOGV(ERROR) << "bind failed"; + SPDLOG_ERROR("bind failed"); exit(EXIT_FAILURE); } // Start listening for connections if (listen(fd, 3) < 0) { - LOGV(ERROR) << "listen"; + SPDLOG_ERROR("listen"); exit(EXIT_FAILURE); } handle = pcap_open_live(MVVM_SOCK_INTERFACE, BUFSIZ, 1, 1000, errbuf); if (handle == nullptr) { - LOGV(ERROR) << fmt::format("pcap_open_live(): {}", errbuf); + SPDLOG_ERROR("pcap_open_live(): {}", errbuf)); exit(EXIT_FAILURE); } // Compile and apply the filter if (pcap_compile(handle, &fp, filter_exp, 1, PCAP_NETMASK_UNKNOWN) == -1) { - LOGV(ERROR) << fmt::format("Couldn't parse filter {}: {}", filter_exp, pcap_geterr(handle)); + SPDLOG_ERROR("Couldn't parse filter {}: {}", filter_exp, pcap_geterr(handle))); exit(-1); } if (pcap_setfilter(handle, &fp) == -1) { - LOGV(ERROR) << fmt::format("Couldn't install filter {}:", filter_exp, pcap_geterr(handle)); + SPDLOG_ERROR("Couldn't install filter {}:", filter_exp, pcap_geterr(handle))); exit(-1); } @@ -383,7 +382,7 @@ int main() { while (true) { // Open the device for sniffing client_fd = accept(fd, (struct sockaddr *)&address, (socklen_t *)&addrlen); if (client_fd < 0) { - LOGV(ERROR) << "accept"; + SPDLOG_ERROR("accept"); exit(EXIT_FAILURE); } // offload info from client @@ -393,7 +392,7 @@ int main() { case MVVM_SOCK_SUSPEND: case MVVM_SOCK_SUSPEND_TCP_SERVER: { // suspend - LOGV(ERROR) << "suspend"; + SPDLOG_ERROR("suspend"); for (int idx = 0; idx < op_data->size; idx++) { if (op_data->addr[idx][0].is_4) { @@ -417,22 +416,22 @@ int main() { } server_port = op_data->addr[0][0].port; client_port = op_data->addr[0][1].port; - LOGV(INFO) << "server_ip:" << server_ip << ":" << server_port << " client_ip:" << client_ip << ":" - << client_port; + SPDLOG_INFO( "server_ip:" , server_ip , ":" , server_port , " client_ip:" , client_ip , ":)" + , client_port; forward_pair.emplace_back(server_ip, client_ip, ""); // send the fin to server if (!op_data->is_tcp) { op_data->op = MVVM_SOCK_FIN; - LOGV(INFO) << "send fin"; + SPDLOG_INFO("send fin"); send_fin(client_ip, client_port, server_ip, server_port, (char *)op_data); } else { auto to_stop = tcp_pair[fmt::format("{}:{}", server_ip, server_port)]; - LOGV(ERROR) << "is_tcp_server" << fmt::format("{}:{}", server_ip, server_port) - << to_stop.new_server << to_stop.new_client; - LOGV(INFO) << "send fin"; + SPDLOG_ERROR("is_tcp_server", fmt::format("{}:{}", server_ip, server_port)) + , to_stop.new_server, to_stop.new_client; + SPDLOG_INFO("send fin"); sleep(2); delete to_stop.send; delete to_stop.recv; @@ -453,22 +452,22 @@ int main() { case MVVM_SOCK_RESUME: case MVVM_SOCK_RESUME_TCP_SERVER: { // resume - LOGV(ERROR) << "resume"; + SPDLOG_ERROR("resume"); auto tmp_tuple = forward_pair[forward_pair.size() - 1]; auto &&tmp_ip4 = op_data->addr[0][0].ip4; std::get<2>(tmp_tuple) = fmt::format("{}.{}.{}.{}", tmp_ip4[0], tmp_ip4[1], tmp_ip4[2], tmp_ip4[3]); - LOGV(ERROR) << "forward_pair[forward_pair.size()]" << std::get<0>(forward_pair[forward_pair.size() - 1]) - << std::get<1>(forward_pair[forward_pair.size() - 1]); + SPDLOG_ERROR("forward_pair[forward_pair.size()]", std::get<0>(forward_pair[forward_pair.size() - 1])) + , std::get<1>(forward_pair[forward_pair.size() - 1]); if (op_data->is_tcp) { // client auto to_start = tcp_pair[fmt::format("{}:{}", server_ip, server_port)]; - LOGV(ERROR) << fmt::format("{}.{}.{}.{}", tmp_ip4[0], tmp_ip4[1], tmp_ip4[2], tmp_ip4[3]) << ":" - << server_ip << server_port; + SPDLOG_ERROR( "{}.{}.{}.{} server_ip {}:{}", tmp_ip4[0], tmp_ip4[1], tmp_ip4[2], tmp_ip4[3] + , server_ip, server_port; if (to_start.new_server == 0) { - LOGV(ERROR) << "to_start is empty"; + SPDLOG_ERROR("to_start is empty"); exit(-1); } else { to_start.is_sleep = false; @@ -486,12 +485,12 @@ int main() { address.sin_family = AF_INET; address.sin_port = htons(server_port); if (inet_pton(AF_INET, std::get<2>(tmp_tuple).c_str(), &address.sin_addr) <= 0) { - LOGV(ERROR) << "Invalid address/ Address not supported"; + SPDLOG_ERROR("Invalid address/ Address not supported"); exit(EXIT_FAILURE); } sleep(5); if (connect(new_client, (struct sockaddr *)&address, sizeof(address)) == -1) { - LOGV(ERROR) << "connect failed " << errno; + SPDLOG_ERROR("connect failed ", errno); close(new_client); exit(EXIT_FAILURE); } @@ -503,9 +502,9 @@ int main() { while (!stopToken.stop_requested()) { rc = recv(new_server, buffer1, sizeof(buffer1), 0); if (rc > 0) { - LOGV(ERROR) << "send" << sizeof(buffer); + SPDLOG_ERROR("send", sizeof(buffer)); while ((rc = send(new_client, buffer, sizeof(buffer), 0) <= 0)) { - LOGV(ERROR) << "error sending" << rc << errno; + SPDLOG_ERROR("error sending", rc, errno); sleep(1); } } else if (rc == -1 && errno != EAGAIN && errno != EWOULDBLOCK) { @@ -523,9 +522,9 @@ int main() { while (!stopToken.stop_requested()) { rc = recv(new_client, buffer, sizeof(buffer), 0); if (rc > 0) { - LOGV(ERROR) << "recv" << sizeof(buffer); + SPDLOG_ERROR("recv", sizeof(buffer)); while ((rc = send(new_server, buffer, sizeof(buffer), 0) <= 0)) { - LOGV(ERROR) << "error sending" << rc << errno; + SPDLOG_ERROR("error sending", rc, errno); sleep(1); } } else if (rc == -1 && errno != EAGAIN && errno != EWOULDBLOCK) { @@ -545,7 +544,7 @@ int main() { } case MVVM_SOCK_INIT: { // init - LOGV(ERROR) << "init"; + SPDLOG_ERROR("init"); if (op_data->addr[0][0].is_4) { server_ip = fmt::format("{}.{}.{}.{}", op_data->addr[0][0].ip4[0], op_data->addr[0][0].ip4[1], op_data->addr[0][0].ip4[2], op_data->addr[0][0].ip4[3]); @@ -566,14 +565,14 @@ int main() { server_port = op_data->addr[0][0].port; client_port = op_data->addr[0][1].port; - LOGV(INFO) << "server_ip:" << server_ip << ":" << server_port << " client_ip:" << client_ip << ":" - << client_port; + SPDLOG_INFO( "server_ip:" , server_ip , ":" , server_port , " client_ip:" , client_ip , ":)" + , client_port; int server_fd = socket(AF_INET, SOCK_STREAM, 0); // Create a socket // Forcefully attaching socket to the port if (setsockopt(server_fd, SOL_SOCKET, SO_REUSEADDR | SO_REUSEPORT, &opt, sizeof(opt))) { - LOGV(ERROR) << "setsockopt"; + SPDLOG_ERROR("setsockopt"); exit(EXIT_FAILURE); } @@ -581,19 +580,19 @@ int main() { address.sin_port = htons(client_port); // Convert IPv4 and IPv6 addresses from text to binary form if (inet_pton(AF_INET, MVVM_SOCK_ADDR, &address.sin_addr) <= 0) { - LOGV(ERROR) << "Invalid address/ Address not supported"; + SPDLOG_ERROR("Invalid address/ Address not supported"); exit(EXIT_FAILURE); } // Bind the socket to the network address and port if (bind(server_fd, (struct sockaddr *)&address, sizeof(address)) < 0) { - LOGV(ERROR) << "bind failed" << errno; + SPDLOG_ERROR("bind failed", errno); exit(EXIT_FAILURE); } // Start listening for connections if (listen(server_fd, 3) < 0) { - LOGV(ERROR) << "listen"; + SPDLOG_ERROR("listen"); exit(EXIT_FAILURE); } // sleep(1); @@ -606,16 +605,16 @@ int main() { address.sin_family = AF_INET; address.sin_port = htons(client_port); if (inet_pton(AF_INET, client_ip.c_str(), &address.sin_addr) <= 0) { - LOGV(ERROR) << "Invalid address/ Address not supported"; + SPDLOG_ERROR("Invalid address/ Address not supported"); exit(EXIT_FAILURE); } if (connect(new_client, (struct sockaddr *)&address, sizeof(address)) == -1) { - LOGV(ERROR) << "connect failed " << errno; + SPDLOG_ERROR("connect failed ", errno); close(new_client); exit(EXIT_FAILURE); } - LOGV(ERROR) << "new_client " << new_client; + SPDLOG_ERROR( "new_client " , new_client); struct connection_pair cp = { .server_fd = server_fd, .new_server = new_server, .new_client = new_client, .is_sleep = false}; cp.send = new std::jthread([&](std::stop_token stopToken) { @@ -625,9 +624,9 @@ int main() { while (!stopToken.stop_requested()) { rc = recv(new_server, buffer1, sizeof(buffer1), 0); if (rc > 0) { - LOGV(ERROR) << "send" << sizeof(buffer); + SPDLOG_ERROR("send", sizeof(buffer)); while ((rc = send(new_client, buffer, sizeof(buffer), 0) <= 0)) { - LOGV(ERROR) << "error sending" << rc << errno; + SPDLOG_ERROR("error sending", rc, errno); sleep(1); } } else if (rc == -1 && errno != EAGAIN && errno != EWOULDBLOCK) { @@ -645,9 +644,9 @@ int main() { while (!stopToken.stop_requested()) { rc = recv(new_client, buffer, sizeof(buffer), 0); if (rc > 0) { - LOGV(ERROR) << "recv" << sizeof(buffer); + SPDLOG_ERROR("recv", sizeof(buffer)); while ((rc = send(new_server, buffer, sizeof(buffer), 0) <= 0)) { - LOGV(ERROR) << "error sending" << rc << errno; + SPDLOG_ERROR("error sending", rc, errno); sleep(1); } } else if (rc == -1 && errno != EAGAIN && errno != EWOULDBLOCK) { @@ -659,7 +658,7 @@ int main() { } }); // client send this for the server so reverse order - LOGV(ERROR) << client_ip << ":" << client_port; + SPDLOG_ERROR( client_ip , ":" , client_port); tcp_pair[fmt::format("{}:{}", client_ip, client_port)] = cp; break; } diff --git a/gateway/playground.cpp b/gateway/playground.cpp index fa5e5eb..f013d4e 100644 --- a/gateway/playground.cpp +++ b/gateway/playground.cpp @@ -83,20 +83,31 @@ int main() { // new port // clear_block(dst_ip, src_ip, dstport, srcport); - tcp_v_to_s = new TCPConnection(src_ip, dst_ip, srcport, dstport, iface, TCPConnection::ESTABLISHED); - while(true){ - sleep(1); - auto payload = Payload(); - tcp_v_to_s->Read( - payload - ); - if (payload.GetSize() == 0) - continue; - tcp_v_to_s->Send(payload.GetRawPointer(), sizeof(*payload.GetRawPointer())); - } - + bool closed = false; + backend_thread.emplace_back([&]() { + while (!closed) { + auto payload = Payload(); + tcp_v_to_s->Read(payload); + if (tcp_v_to_s->GetStatus() == TCPConnection::CLOSING) { + closed = true; + return; + } + tcp_s_to_v->Send(payload.GetRawPointer(), sizeof(*payload.GetRawPointer())); + } + }); + backend_thread.emplace_back([&]() { + while (!closed) { + auto payload = Payload(); + tcp_s_to_v->Read(payload); + if (tcp_s_to_v->GetStatus() == TCPConnection::CLOSING) { + closed = true; + return; + } + tcp_v_to_s->Send(payload.GetRawPointer(), sizeof(*payload.GetRawPointer())); + } + }); clear_forward(); CleanARPContext(arp_context); diff --git a/include/logging.h b/include/logging.h deleted file mode 100644 index 98dc631..0000000 --- a/include/logging.h +++ /dev/null @@ -1,141 +0,0 @@ -// -// Created by victoryang00 on 5/6/23. -// - -#ifndef MVVM_LOGGING_H -#define MVVM_LOGGING_H - -#include "wamr_export.h" -#include "wasm_runtime.h" -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#include -#if !defined(_WIN32) -#include -#include -#include -#include -#else -#include -#endif -#ifndef __APPLE__ -/** Barry's work*/ -struct Enumerate : std::ranges::range_adaptor_closure { - template constexpr auto operator()(R &&r) const { - return std::views::zip(std::views::iota(0), (R &&)r); - } -}; -#else -struct Enumerate : std::__range_adaptor_closure { - template constexpr auto operator()(R &&r) const { - return std::views::zip(std::views::iota(0), (R &&)r); - } -}; -#endif -inline constexpr Enumerate enumerate; -using std::list; -using std::string; -struct LocationInfo { - LocationInfo(string file, int line, const char *func) : file_(std::move(file)), line_(line), func_(func) {} - ~LocationInfo() = default; - - string file_; - int line_; - const char *func_; -}; -class LogStream; -class LogWriter; - -class LogWriter { -public: - LogWriter(const LocationInfo &location, LogLevel loglevel) : location_(location), log_level_(loglevel) { - char *logv = std::getenv("LOGV"); - if (logv) { - string string_logv = logv; - env_log_level = std::stoi(logv); - } else { - env_log_level = 5; - } - }; - - void operator<(const LogStream &stream); - -private: - void output_log(const std::ostringstream &g); - LocationInfo location_; - LogLevel log_level_; - int env_log_level; -}; - -class LogStream { -public: - LogStream() { -#ifdef _WIN32 - HANDLE hInput = GetStdHandle(STD_INPUT_HANDLE), hOutput = GetStdHandle(STD_OUTPUT_HANDLE); - DWORD dwMode; - GetConsoleMode(hOutput, &dwMode); - dwMode |= ENABLE_PROCESSED_OUTPUT | ENABLE_VIRTUAL_TERMINAL_PROCESSING; - SetConsoleMode(hOutput, dwMode); -#endif - sstream_ = new std::stringstream(); - } - ~LogStream() = default; - - template LogStream &operator<<(const T &val) noexcept { - (*sstream_) << val; - return *this; - } - - friend class LogWriter; - -private: - std::stringstream *sstream_; -}; - -string level2string(LogLevel level); -fmt::color level2color(LogLevel level); - -#define MVVM_SOCK_ADDR "172.17.0.1" -#define MVVM_SOCK_ADDR6 "fe80::42:aeff:fe1f:b579" -#define MVVM_SOCK_MASK 24 -#define MVVM_SOCK_MASK6 48 -#define MVVM_SOCK_PORT 1235 -#define MVVM_MAX_ADDR 5 -#define MVVM_SOCK_INTERFACE "docker0" -#define LOG_IF(level) LogWriter(LocationInfo(__FILE__, __LINE__, __FUNCTION__), level) < LogStream() -#define LOGV(level) LOGV_##level -#define LOGV_DEBUG LOG_IF(BH_LOG_LEVEL_DEBUG) -#define LOGV_INFO LOG_IF(BH_LOG_LEVEL_VERBOSE) -#define LOGV_WARNING LOG_IF(BH_LOG_LEVEL_WARNING) -#define LOGV_ERROR LOG_IF(BH_LOG_LEVEL_ERROR) -#define LOGV_FATAL LOG_IF(BH_LOG_LEVEL_FATAL) - -enum opcode { - MVVM_SOCK_SUSPEND = 0, - MVVM_SOCK_SUSPEND_TCP_SERVER = 1, - MVVM_SOCK_RESUME = 2, - MVVM_SOCK_RESUME_TCP_SERVER = 3, - MVVM_SOCK_INIT = 4, - MVVM_SOCK_FIN = 5 -}; -struct mvvm_op_data { - enum opcode op; - bool is_tcp; - int size; - SocketAddrPool addr[MVVM_MAX_ADDR][2]; -}; -bool is_ip_in_cidr(const char *base_ip, int subnet_mask_len, uint32_t ip); -bool is_ipv6_in_cidr(const char *base_ip_str, int subnet_mask_len, struct in6_addr *ip); - -#endif // MVVM_LOGGING_H diff --git a/include/wamr.h b/include/wamr.h index 5ba15ce..02cabd3 100644 --- a/include/wamr.h +++ b/include/wamr.h @@ -9,21 +9,78 @@ #include "aot_runtime.h" #endif #include "bh_read_file.h" -#include "logging.h" #include "wamr_exec_env.h" #include "wamr_export.h" #include "wamr_read_write.h" #include "wamr_wasi_context.h" #include "wasm_runtime.h" +#include #include #include +#include +#include +#include #include +#include #include +#include #include #include #include #include +#include +#include +#include #include +#if !defined(_WIN32) +#include +#include +#include +#include +#else +#include +#endif + +#ifndef __APPLE__ +/** Barry's work*/ +struct Enumerate : std::ranges::range_adaptor_closure { + template constexpr auto operator()(R &&r) const { + return std::views::zip(std::views::iota(0), (R &&)r); + } +}; +#else +struct Enumerate : std::__range_adaptor_closure { + template constexpr auto operator()(R &&r) const { + return std::views::zip(std::views::iota(0), (R &&)r); + } +}; +#endif +inline constexpr Enumerate enumerate; + +#define MVVM_SOCK_ADDR "172.17.0.1" +#define MVVM_SOCK_ADDR6 "fe80::42:aeff:fe1f:b579" +#define MVVM_SOCK_MASK 24 +#define MVVM_SOCK_MASK6 48 +#define MVVM_SOCK_PORT 1235 +#define MVVM_MAX_ADDR 5 +#define MVVM_SOCK_INTERFACE "docker0" + +enum opcode { + MVVM_SOCK_SUSPEND = 0, + MVVM_SOCK_SUSPEND_TCP_SERVER = 1, + MVVM_SOCK_RESUME = 2, + MVVM_SOCK_RESUME_TCP_SERVER = 3, + MVVM_SOCK_INIT = 4, + MVVM_SOCK_FIN = 5 +}; +struct mvvm_op_data { + enum opcode op; + bool is_tcp; + int size; + SocketAddrPool addr[MVVM_MAX_ADDR][2]; +}; +bool is_ip_in_cidr(const char *base_ip, int subnet_mask_len, uint32_t ip); +bool is_ipv6_in_cidr(const char *base_ip_str, int subnet_mask_len, struct in6_addr *ip); class WAMRInstance { public: @@ -118,4 +175,5 @@ class WAMRInstance { int invoke_recvfrom(int sockfd, uint8 **buf, size_t len, int flags, struct sockaddr *src_addr, socklen_t *addrlen); ~WAMRInstance(); }; + #endif // MVVM_WAMR_H diff --git a/include/wamr_export.h b/include/wamr_export.h index 6149b7d..db3ac29 100644 --- a/include/wamr_export.h +++ b/include/wamr_export.h @@ -48,6 +48,8 @@ void update_socket_fd_address(int, struct SocketAddrPool *); void init_gateway(struct SocketAddrPool *address); void set_tcp(); int get_sock_fd(int); +#endif +#if WASM_ENABLE_LIB_PTHREAD != 0 void insert_sync_op(wasm_exec_env_t exec_env, const uint32 *mutex, enum sync_op locking); void insert_sync_op_atomic_notify(wasm_exec_env_t exec_env, const uint32 *mutex, uint32); void insert_sync_op_atomic_wait(wasm_exec_env_t exec_env, const uint32 *mutex, uint64,bool); @@ -91,6 +93,7 @@ extern bool is_debug; extern int stop_func_index; extern int cur_func_count; void print_memory(WASMExecEnv *); +void print_exec_env_debug_info(WASMExecEnv *); #ifdef __cplusplus } diff --git a/include/wamr_memory_instance.h b/include/wamr_memory_instance.h index 11fd4d4..23a203f 100644 --- a/include/wamr_memory_instance.h +++ b/include/wamr_memory_instance.h @@ -4,7 +4,6 @@ #ifndef MVVM_WAMR_MEMORY_INSTANCE_H #define MVVM_WAMR_MEMORY_INSTANCE_H -#include "logging.h" #include "wamr_serializer.h" #include "wasm_runtime.h" #include @@ -36,7 +35,6 @@ struct WAMRMemoryInstance { void dump_impl(WASMMemoryInstance *env) { module_type = env->module_type; ref_count = env->ref_count; - LOGV(ERROR) << "ref_count:" << ref_count; num_bytes_per_page = env->num_bytes_per_page; cur_page_count = env->cur_page_count; max_page_count = env->max_page_count; diff --git a/include/wamr_wasi_context.h b/include/wamr_wasi_context.h index 7051893..6b24db3 100644 --- a/include/wamr_wasi_context.h +++ b/include/wamr_wasi_context.h @@ -5,7 +5,6 @@ #ifndef MVVM_WAMR_WASI_CONTEXT_H #define MVVM_WAMR_WASI_CONTEXT_H -#include "logging.h" #include "wamr_export.h" #include "wamr_serializer.h" #include "wasm_runtime.h" @@ -34,7 +33,6 @@ struct WasiSockOpenData { int socktype; uint32 sockfd; }; -#if !defined(_WIN32) struct WasiSockSendToData { uint32 sock; std::vector si_data; @@ -50,7 +48,6 @@ struct WasiSockRecvFromData { WAMRWasiAddr src_addr; uint32 ro_data_len; }; -#endif struct SocketMetaData { int domain{}; int type{}; @@ -60,10 +57,8 @@ struct SocketMetaData { int replay_start_index{}; bool is_server = false; bool is_collection = false; -#if !defined(_WIN32) WasiSockSendToData socketSentToData{}; // std::vector socketRecvFromDatas; -#endif }; struct WAMRWASIContext { std::map>>> fd_map; diff --git a/src/checkpoint.cpp b/src/checkpoint.cpp index 3ac2805..758fdc6 100644 --- a/src/checkpoint.cpp +++ b/src/checkpoint.cpp @@ -1,17 +1,16 @@ // // Created by victoryang00 on 4/8/23. // - #include "aot_runtime.h" -#include "logging.h" #include "wamr.h" -#include #include #include #include #include -#if !defined(_WIN32) +#if WASM_ENABLE_LIB_PTHREAD != 0 #include "thread_manager.h" +#endif +#if !defined(_WIN32) #include #include #endif @@ -24,20 +23,22 @@ std::mutex as_mtx; void serialize_to_file(WASMExecEnv *instance) { // gateway auto start = std::chrono::high_resolution_clock::now(); -#if !defined(_WIN32) +#if WASM_ENABLE_LIB_PTHREAD != 0 auto cluster = wasm_exec_env_get_cluster(instance); auto all_count = bh_list_length(&cluster->exec_env_list); // fill vector std::unique_lock as_ul(wamr->as_mtx); - LOGV(DEBUG) << fmt::format("get lock"); + SPDLOG_DEBUG("get lock"); wamr->ready++; - wamr->lwcp_list[instance->handle]++; + wamr->lwcp_list[((uint64_t)instance->handle)]++; if (wamr->ready == all_count) { wamr->should_snapshot = true; } // If we're not all ready - LOGV(DEBUG) << fmt::format("thread {}, with {} ready out of {} total", instance->handle, wamr->ready, all_count); + SPDLOG_DEBUG("thread {}, with {} ready out of {} total", instance->handle, wamr->ready, all_count); +#endif +#if !defined(_WIN32) if (!wamr->socket_fd_map_.empty() && wamr->should_snapshot) { // tell gateway to keep alive the server struct sockaddr_in addr {}; @@ -65,9 +66,9 @@ void serialize_to_file(WASMExecEnv *instance) { src_addr = wamr->local_addr; src_addr.port = sock_data.socketAddress.port; } - LOGV(INFO) << "addr: " << tmp_fd << " " - << fmt::format("{}.{}.{}.{}", src_addr.ip4[0], src_addr.ip4[1], src_addr.ip4[2], src_addr.ip4[3]) - << " port: " << src_addr.port; + SPDLOG_INFO("addr: ", tmp_fd, + fmt::format("{}.{}.{}.{}", src_addr.ip4[0], src_addr.ip4[1], src_addr.ip4[2], src_addr.ip4[3]), + " port: ", src_addr.port); wamr->op_data.addr[idx][0] = src_addr; tmp_ip4 = fmt::format("{}.{}.{}.{}", sock_data.socketSentToData.dest_addr.ip.ip4[0], @@ -129,16 +130,16 @@ void serialize_to_file(WASMExecEnv *instance) { } } } - LOGV(INFO) << "dest_addr: " - << fmt::format("{}.{}.{}.{}", wamr->op_data.addr[idx][1].ip4[0], - wamr->op_data.addr[idx][1].ip4[1], wamr->op_data.addr[idx][1].ip4[2], - wamr->op_data.addr[idx][1].ip4[3]) - << " dest_port: " << wamr->op_data.addr[idx][1].port; + SPDLOG_DEBUG("dest_addr: ", + fmt::format("{}.{}.{}.{}", wamr->op_data.addr[idx][1].ip4[0], + wamr->op_data.addr[idx][1].ip4[1], wamr->op_data.addr[idx][1].ip4[2], + wamr->op_data.addr[idx][1].ip4[3]), + " dest_port: ", wamr->op_data.addr[idx][1].port); wamr->op_data.size += 1; } // Create a socket if ((fd = socket(AF_INET, SOCK_STREAM, 0)) == -1) { - LOGV(ERROR) << "socket error"; + SPDLOG_ERROR(socket error"); throw std::runtime_error("socket error"); } @@ -147,49 +148,33 @@ void serialize_to_file(WASMExecEnv *instance) { // Convert IPv4 and IPv6 addresses from text to binary form if (inet_pton(AF_INET, MVVM_SOCK_ADDR, &addr.sin_addr) <= 0) { - LOGV(ERROR) << "AF_INET not supported"; + SPDLOG_ERROR(AF_INET not supported"); exit(EXIT_FAILURE); } // Connect to the server if (connect(fd, (struct sockaddr *)&addr, sizeof(addr)) < 0) { - LOGV(ERROR) << "Connection Failed " << errno; + SPDLOG_ERROR(Connection Failed " << errno); exit(EXIT_FAILURE); } LOGV(INFO) << "Connected successfully"; rc = send(fd, &wamr->op_data, sizeof(struct mvvm_op_data), 0); if (rc == -1) { - LOGV(ERROR) << "send error"; + SPDLOG_ERROR(send error"); exit(EXIT_FAILURE); } // Clean up close(fd); } +#endif +#if WASM_ENABLE_LIB_PTHREAD != 0 if (wamr->ready < all_count) { // Then wait for someone else to get here and finish the job std::condition_variable as_cv; as_cv.wait(as_ul); } - // If we're all ready - // double check - // { - // auto ready_count = 0; - // for (auto [k, v] : wamr->lwcp_list) { - // LOGV(DEBUG) << fmt::format("{}: {}", k, v); - // if (v > 0) - // ready_count++; - // } - // if (ready_count != all_count) { - // LOGV(DEBUG) << fmt::format( - // "we have a discrepancy between ready count and number of threads that say they are"); - // LOGV(DEBUG) << fmt::format("ready: {}, all: {}", ready_count, all_count); - // // not actually ready - // std::condition_variable as_cv; - // as_cv.wait(as_ul); - // } - // } - // wasm_cluster_suspend_all_except_self(cluster, instance); + wasm_cluster_suspend_all_except_self(cluster, instance); auto elem = (WASMExecEnv *)bh_list_first_elem(&cluster->exec_env_list); while (elem) { instance = elem; @@ -197,7 +182,7 @@ void serialize_to_file(WASMExecEnv *instance) { auto a = new WAMRExecEnv(); dump(a, instance); as.emplace_back(a); -#if !defined(_WIN32) +#if WASM_ENABLE_LIB_PTHREAD != 0 elem = (WASMExecEnv *)bh_list_elem_next(elem); } // finish filling vector @@ -207,7 +192,7 @@ void serialize_to_file(WASMExecEnv *instance) { auto end = std::chrono::high_resolution_clock::now(); // get duration in us auto dur = std::chrono::duration_cast(end - start); - LOGV(INFO) << fmt::format("Snapshot time: {} s", dur.count() / 1000000.0); + SPDLOG_DEBUG("Snapshot time: {} s", dur.count() / 1000000.0); exit(EXIT_SUCCESS); } @@ -241,7 +226,7 @@ int main(int argc, char *argv[]) { res = filename.substr(0, dotPos); } else { // If there's no period in the string, it means there's no extension. - LOGV(ERROR) << "No extension found."; + SPDLOG_ERROR("No extension found."); } return res; }; @@ -263,7 +248,7 @@ int main(int argc, char *argv[]) { is_debug = result["is_debug"].as(); stop_func_index = result["function"].as(); if (snapshot_threshold != 0 && stop_func_index != 0) { - LOGV(ERROR) << "Conflict arguments, please choose either count or function"; + SPDLOG_DEBUG("Conflict arguments, please choose either count or function"); exit(EXIT_FAILURE); } @@ -272,7 +257,7 @@ int main(int argc, char *argv[]) { arg.insert(arg.begin(), target); for (const auto &e : arg) { - LOGV(INFO) << "arg " << e; + SPDLOG_DEBUG("arg {}", e); } register_sigtrap(); @@ -302,7 +287,7 @@ int main(int argc, char *argv[]) { // Register the signal handler for SIGINT if (sigaction(SIGINT, &sa, nullptr) == -1) { - LOGV(ERROR) << "Error: cannot handle SIGINT"; + SPDLOG_ERROR("Error: cannot handle SIGINT"); return 1; } #endif @@ -317,6 +302,6 @@ int main(int argc, char *argv[]) { // get duration in us auto dur = std::chrono::duration_cast(end - start); // print in s - LOGV(INFO) << fmt::format("Execution time: {} s", dur.count() / 1000000.0); + SPDLOG_INFO("Execution time: {} s", dur.count() / 1000000.0); return 0; } diff --git a/src/logging.cpp b/src/logging.cpp deleted file mode 100644 index a54d49a..0000000 --- a/src/logging.cpp +++ /dev/null @@ -1,122 +0,0 @@ -// -// Created by victoryang00 on 5/6/23. -// - -#include "logging.h" - -void LogWriter::operator<(const LogStream &stream) { - std::ostringstream msg; - msg << stream.sstream_->rdbuf(); - output_log(msg); -} - -void LogWriter::output_log(const std::ostringstream &msg) { - if (log_level_ >= env_log_level) - std::cout << fmt::format(fmt::emphasis::bold | fg(level2color(log_level_)), "[{}] ({}:{} L {}) ", - level2string(log_level_), location_.file_, location_.line_, location_.func_) - << fmt::format(fg(level2color(log_level_)), "{}", msg.str()) << std::endl; -} -std::string level2string(LogLevel level) { - switch (level) { - case BH_LOG_LEVEL_DEBUG: - return "DEBUG"; - case BH_LOG_LEVEL_VERBOSE: - return "INFO"; - case BH_LOG_LEVEL_FATAL: - return "FATAL"; - case BH_LOG_LEVEL_WARNING: - return "WARNING"; - case BH_LOG_LEVEL_ERROR: - return "ERROR"; - default: - return ""; - } -} -fmt::color level2color(LogLevel level) { - switch (level) { - case BH_LOG_LEVEL_DEBUG: - return fmt::color::alice_blue; - case BH_LOG_LEVEL_VERBOSE: - return fmt::color::magenta; - case BH_LOG_LEVEL_FATAL: - return fmt::color::rebecca_purple; - case BH_LOG_LEVEL_WARNING: - return fmt::color::yellow; - case BH_LOG_LEVEL_ERROR: - return fmt::color::red; - default: - return fmt::color::white; - } -} - -bool is_ip_in_cidr(const char *base_ip, int subnet_mask_len, uint32_t ip) { - uint32_t base_ip_bin, subnet_mask, network_addr, broadcast_addr; - LOGV(DEBUG) << "base_ip: " << base_ip << " subnet_mask_len: " << subnet_mask_len << "ip: " - << fmt::format("{}.{}.{}.{}", (ip >> 24) & 0xFF, (ip >> 16) & 0xFF, (ip >> 8) & 0xFF, ip & 0xFF); - - // Convert base IP to binary - if (inet_pton(AF_INET, base_ip, &base_ip_bin) != 1) { - fprintf(stderr, "Error converting base IP to binary\n"); - return false; - } - - // Ensure that the subnet mask length is valid - if (subnet_mask_len < 0 || subnet_mask_len > 32) { - fprintf(stderr, "Invalid subnet mask length\n"); - return false; - } - - // Calculate subnet mask in binary - subnet_mask = htonl(~((1 << (32 - subnet_mask_len)) - 1)); - - // Calculate network and broadcast addresses - network_addr = base_ip_bin & subnet_mask; - broadcast_addr = network_addr | ~subnet_mask; - - // Ensure ip is in network byte order - uint32_t ip_net_order = htonl(ip); - - // Check if IP is within range - return ip_net_order >= network_addr && ip_net_order <= broadcast_addr; -} -bool is_ipv6_in_cidr(const char *base_ip_str, int subnet_mask_len, struct in6_addr *ip) { - struct in6_addr base_ip { - }, subnet_mask{}, network_addr{}, ip_min{}, ip_max{}; - unsigned char mask; - - // Convert base IP to binary - inet_pton(AF_INET6, base_ip_str, &base_ip); - - // Clear subnet_mask and network_addr - memset(&subnet_mask, 0, sizeof(subnet_mask)); - memset(&network_addr, 0, sizeof(network_addr)); - - // Create the subnet mask and network address - for (int i = 0; i < subnet_mask_len / 8; i++) { - subnet_mask.s6_addr[i] = 0xff; - } - if (subnet_mask_len % 8) { - mask = (0xff << (8 - (subnet_mask_len % 8))); - subnet_mask.s6_addr[subnet_mask_len / 8] = mask; - } - - // Apply the subnet mask to the base IP to get the network address - for (int i = 0; i < 16; i++) { - network_addr.s6_addr[i] = base_ip.s6_addr[i] & subnet_mask.s6_addr[i]; - } - - // Calculate the first and last IPs in the range - ip_min = network_addr; - ip_max = network_addr; - for (int i = 15; i >= subnet_mask_len / 8; i--) { - ip_max.s6_addr[i] = 0xff; - } - - // Check if IP is within range - for (int i = 0; i < 16; i++) { - if (ip->s6_addr[i] < ip_min.s6_addr[i] || ip->s6_addr[i] > ip_max.s6_addr[i]) { - return false; - } - } - return true; -} diff --git a/src/restore.cpp b/src/restore.cpp index 81d41db..b799d3e 100644 --- a/src/restore.cpp +++ b/src/restore.cpp @@ -38,7 +38,7 @@ int main(int argc, char **argv) { res = filename.substr(0, dotPos); } else { // If there's no period in the string, it means there's no extension. - LOGV(ERROR) << "No extension found."; + SPDLOG_ERROR("No extension found."); } return res; }; @@ -67,9 +67,8 @@ int main(int argc, char **argv) { int fd = 0; bool is_tcp_server; SocketAddrPool src_addr = wamr->local_addr; - LOGV(INFO) << "new ip is " - << fmt::format("{}.{}.{}.{}:{}", src_addr.ip4[0], src_addr.ip4[1], src_addr.ip4[2], src_addr.ip4[3], - src_addr.port); + SPDLOG_DEBUG("new ip {}.{}.{}.{}:{}", src_addr.ip4[0], src_addr.ip4[1], src_addr.ip4[2], src_addr.ip4[3], + src_addr.port); // got from wamr for (auto &[fd, socketMetaData] : a[a.size() - 1]->module_inst.wasi_ctx.socket_fd_map) { wamr->op_data.is_tcp |= socketMetaData.type; @@ -82,7 +81,7 @@ int main(int argc, char **argv) { // Create a socket if ((fd = socket(AF_INET, SOCK_STREAM, 0)) == -1) { - LOGV(ERROR) << "socket error"; + SPDLOG_ERROR("socket error"); throw std::runtime_error("socket error"); } addr.sin_family = AF_INET; @@ -90,22 +89,22 @@ int main(int argc, char **argv) { // Convert IPv4 and IPv6 addresses from text to binary form if (inet_pton(AF_INET, MVVM_SOCK_ADDR, &addr.sin_addr) <= 0) { - LOGV(ERROR) << "Invalid address/ Address not supported"; + SPDLOG_ERROR("Invalid address/ Address not supported"); exit(EXIT_FAILURE); } if (connect(fd, (struct sockaddr *)&addr, sizeof(addr)) == -1) { - LOGV(ERROR) << "Connection Failed " << errno; + SPDLOG_ERROR("Connection Failed " << errno); exit(EXIT_FAILURE); } // send the fd if (send(fd, &wamr->op_data, sizeof(struct mvvm_op_data), 0) == -1) { - LOGV(ERROR) << "Send Error"; + SPDLOG_ERROR("Send Error"); exit(EXIT_FAILURE); } close(fd); - LOGV(ERROR) << "sent the resume signal"; + SPDLOG_ERROR("sent the resume signal"); } #endif // get current time @@ -117,5 +116,5 @@ int main(int argc, char **argv) { // get duration in us auto dur = std::chrono::duration_cast(end - start); // print in s - LOGV(INFO) << fmt::format("Execution time: {} s", dur.count() / 1000000.0); + SPDLOG_INFO("Execution time: {} s", dur.count() / 1000000.0); } \ No newline at end of file diff --git a/src/wamr.cpp b/src/wamr.cpp index fc1172c..f578a2e 100644 --- a/src/wamr.cpp +++ b/src/wamr.cpp @@ -27,7 +27,7 @@ static auto string_vec_to_cstr_array = [](const std::vector &vecStr std::vector cstrArray(vecStr.size()); if (vecStr.data() == nullptr || vecStr[0].empty()) return std::vector(0); - LOGV(DEBUG) << "vecStr[0]:" << vecStr[0]; + SPDLOG_DEBUG("vecStr[0]: {}", vecStr[0]); std::transform(vecStr.begin(), vecStr.end(), cstrArray.begin(), [](const std::string &str) { return str.c_str(); }); return cstrArray; }; @@ -68,18 +68,18 @@ WAMRInstance::WAMRInstance(const char *wasm_path, bool is_jit) : is_jit(is_jit) // wasm_args.mem_alloc_option.pool.heap_size = sizeof(global_heap_buf); bh_log_set_verbose_level(0); if (!wasm_runtime_full_init(&wasm_args)) { - LOGV(ERROR) << "Init runtime environment failed.\n"; + SPDLOG_ERROR("Init runtime environment failed."); throw; } // initialiseWAMRNatives(); char *buffer{}; if (!load_wasm_binary(wasm_path, &buffer)) { - LOGV(ERROR) << "Load wasm binary failed.\n"; + SPDLOG_ERROR("Load wasm binary failed.\n"); throw; } module = wasm_runtime_load((uint8_t *)buffer, buf_size, error_buf, sizeof(error_buf)); if (!module) { - LOGV(ERROR) << fmt::format("Load wasm module failed. error: {}", error_buf); + SPDLOG_ERROR("Load wasm module failed. error: {}", error_buf); throw; } #if !defined(_WIN32) @@ -88,7 +88,7 @@ WAMRInstance::WAMRInstance(const char *wasm_path, bool is_jit) : is_jit(is_jit) char host[NI_MAXHOST]; if (getifaddrs(&ifaddr) == -1) { - LOGV(ERROR) << "getifaddrs"; + SPDLOG_ERROR("getifaddrs"); exit(EXIT_FAILURE); } @@ -133,12 +133,12 @@ WAMRInstance::WAMRInstance(const char *wasm_path, bool is_jit) : is_jit(is_jit) bool WAMRInstance::load_wasm_binary(const char *wasm_path, char **buffer_ptr) { *buffer_ptr = bh_read_file_to_buffer(wasm_path, &buf_size); if (!*buffer_ptr) { - LOGV(ERROR) << "Open wasm app file failed.\n"; + SPDLOG_ERROR("Open wasm app file failed.\n"); return false; } if ((get_package_type((const uint8_t *)*buffer_ptr, buf_size) != Wasm_Module_Bytecode) && (get_package_type((const uint8_t *)*buffer_ptr, buf_size) != Wasm_Module_AoT)) { - LOGV(ERROR) << "WASM bytecode or AOT object is expected but other file format"; + SPDLOG_ERROR("WASM bytecode or AOT object is expected but other file format"); BH_FREE(*buffer_ptr); return false; @@ -159,7 +159,7 @@ WAMRInstance::~WAMRInstance() { int WAMRInstance::invoke_main() { if (!(func = wasm_runtime_lookup_wasi_start_function(module_inst))) { - LOGV(ERROR) << "The wasi mode main function is not found."; + SPDLOG_ERROR("The wasi mode main function is not found."); return -1; } @@ -168,7 +168,7 @@ int WAMRInstance::invoke_main() { void WAMRInstance::invoke_init_c() { auto name1 = "__wasm_call_ctors"; if (!(func = wasm_runtime_lookup_function(module_inst, name1, nullptr))) { - LOGV(ERROR) << "The wasi " << name1 << " function is not found."; + SPDLOG_ERROR("The wasi ", name1, " function is not found."); } else { wasm_runtime_call_wasm(exec_env, func, 0, nullptr); } @@ -176,11 +176,11 @@ void WAMRInstance::invoke_init_c() { int WAMRInstance::invoke_fopen(std::string &path, uint32 option) { auto name = "o_"; if (!(func = wasm_runtime_lookup_function(module_inst, name, nullptr))) { - LOGV(ERROR) << "The wasi " << name << " function is not found."; + SPDLOG_ERROR("The wasi ", name, " function is not found."); auto name1 = "__wasilibc_open_nomode"; if (!(func = wasm_runtime_lookup_function(module_inst, name1, nullptr))) { - LOGV(ERROR) << "The wasi " << name1 << " function is not found."; + SPDLOG_ERROR("The wasi ", name1, " function is not found."); } } char *buffer_ = nullptr; @@ -199,7 +199,7 @@ int WAMRInstance::invoke_fopen(std::string &path, uint32 option) { // auto name1 = "o_"; // uint32 argv[0]; // if (!(func = wasm_runtime_lookup_function(module_inst, name1, nullptr))) { - // LOGV(ERROR) << "The wasi " << name1 << " function is not found."; + // SPDLOG_ERROR( "The wasi " << name1 << " function is not found."; // } // wasm_runtime_call_wasm(exec_env, func, 0, argv); return -1; @@ -207,12 +207,13 @@ int WAMRInstance::invoke_fopen(std::string &path, uint32 option) { int WAMRInstance::invoke_frenumber(uint32 fd, uint32 to) { auto name = "__wasi_fd_renumber"; if (!(func = wasm_runtime_lookup_function(module_inst, name, nullptr))) { - LOGV(ERROR) << "The wasi fopen function is not found."; + SPDLOG_ERROR("The wasi fopen function is not found."); auto target_module = get_module_instance()->e; for (int i = 0; i < target_module->function_count; i++) { auto cur_func = &target_module->functions[i]; if (cur_func->is_import_func) { - LOGV(DEBUG) << cur_func->u.func_import->field_name << " " << i; + SPDLOG_DEBUG("{} {}", cur_func->u.func_import->field_name, i); + if (!strcmp(cur_func->u.func_import->field_name, name)) { func = ((WASMFunctionInstanceCommon *)cur_func); @@ -220,7 +221,7 @@ int WAMRInstance::invoke_frenumber(uint32 fd, uint32 to) { } } else { - LOGV(DEBUG) << cur_func->u.func->field_name << " " << i; + SPDLOG_DEBUG("{} {}", cur_func->u.func->field_name, i); if (!strcmp(cur_func->u.func->field_name, name)) { func = ((WASMFunctionInstanceCommon *)cur_func); @@ -237,19 +238,19 @@ int WAMRInstance::invoke_frenumber(uint32 fd, uint32 to) { int WAMRInstance::invoke_sock_open(uint32_t domain, uint32_t socktype, uint32_t protocol, uint32_t sockfd) { auto name = "s_"; if (!(func = wasm_runtime_lookup_function(module_inst, name, nullptr))) { - LOGV(ERROR) << "The wasi " << name << " function is not found."; + SPDLOG_ERROR("The wasi ", name, " function is not found."); auto target_module = get_module_instance()->e; for (int i = 0; i < target_module->function_count; i++) { auto cur_func = &target_module->functions[i]; if (cur_func->is_import_func) { - LOGV(DEBUG) << cur_func->u.func_import->field_name; + SPDLOG_DEBUG(cur_func->u.func_import->field_name); if (!strcmp(cur_func->u.func_import->field_name, name)) { func = ((WASMFunctionInstanceCommon *)cur_func); break; } } else { - LOGV(DEBUG) << cur_func->u.func->field_name; + SPDLOG_DEBUG(cur_func->u.func->field_name); if (!strcmp(cur_func->u.func->field_name, name)) { func = ((WASMFunctionInstanceCommon *)cur_func); @@ -266,18 +267,18 @@ int WAMRInstance::invoke_sock_connect(uint32_t sockfd, struct sockaddr *sock, so auto name = "init_connect"; if (!(func = wasm_runtime_lookup_function(module_inst, name, nullptr))) { - LOGV(ERROR) << "The wasi " << name << " function is not found."; + SPDLOG_ERROR("The wasi ", name, " function is not found."); auto target_module = get_module_instance()->e; for (int i = 0; i < target_module->function_count; i++) { auto cur_func = &target_module->functions[i]; if (cur_func->is_import_func) { - LOGV(DEBUG) << cur_func->u.func_import->field_name; + SPDLOG_DEBUG(cur_func->u.func_import->field_name); if (!strcmp(cur_func->u.func_import->field_name, name)) { func = ((WASMFunctionInstanceCommon *)cur_func); break; } } else { - LOGV(DEBUG) << cur_func->u.func->field_name; + SPDLOG_DEBUG(cur_func->u.func->field_name); if (!strcmp(cur_func->u.func->field_name, name)) { func = ((WASMFunctionInstanceCommon *)cur_func); @@ -296,19 +297,20 @@ int WAMRInstance::invoke_sock_connect(uint32_t sockfd, struct sockaddr *sock, so int WAMRInstance::invoke_sock_accept(uint32_t sockfd, struct sockaddr *sock, socklen_t sock_size) { auto name = "accept"; if (!(func = wasm_runtime_lookup_function(module_inst, name, nullptr))) { - LOGV(ERROR) << "The wasi\"" << name << "\"function is not found."; + SPDLOG_ERROR("The wasi\"{}\"function is not found.", name); auto target_module = get_module_instance()->e; for (int i = 0; i < target_module->function_count; i++) { auto cur_func = &target_module->functions[i]; if (cur_func->is_import_func) { - LOGV(DEBUG) << cur_func->u.func_import->field_name << " " << i; + SPDLOG_DEBUG("{} {}", cur_func->u.func_import->field_name, i); + if (!strcmp(cur_func->u.func_import->field_name, name)) { func = ((WASMFunctionInstanceCommon *)cur_func); break; } } else { - LOGV(DEBUG) << cur_func->u.func->field_name << " " << i; + SPDLOG_DEBUG("{} {}", cur_func->u.func->field_name, i); if (!strcmp(cur_func->u.func->field_name, name)) { func = ((WASMFunctionInstanceCommon *)cur_func); break; @@ -343,18 +345,18 @@ int WAMRInstance::invoke_sock_accept(uint32_t sockfd, struct sockaddr *sock, soc int WAMRInstance::invoke_sock_getsockname(uint32_t sockfd, struct sockaddr **sock, socklen_t *sock_size) { auto name = "getsockname"; if (!(func = wasm_runtime_lookup_function(module_inst, name, nullptr))) { - LOGV(ERROR) << "The wasi " << name << " function is not found."; + SPDLOG_ERROR("The wasi\"{}\"function is not found.", name); auto target_module = get_module_instance()->e; for (int i = 0; i < target_module->function_count; i++) { auto cur_func = &target_module->functions[i]; if (cur_func->is_import_func) { - LOGV(DEBUG) << cur_func->u.func_import->field_name; + SPDLOG_DEBUG(cur_func->u.func_import->field_name); if (!strcmp(cur_func->u.func_import->field_name, name)) { func = ((WASMFunctionInstanceCommon *)cur_func); break; } } else { - LOGV(DEBUG) << cur_func->u.func->field_name; + SPDLOG_DEBUG(cur_func->u.func->field_name); if (!strcmp(cur_func->u.func->field_name, name)) { func = ((WASMFunctionInstanceCommon *)cur_func); @@ -389,12 +391,13 @@ bool is_atomic_checkpointable() { return checkpoint; } int WAMRInstance::invoke_fseek(uint32 fd, uint32 offset) { auto name = "__wasi_fd_seek"; if (!(func = wasm_runtime_lookup_function(module_inst, name, nullptr))) { - LOGV(ERROR) << "The wasi fopen function is not found."; + SPDLOG_ERROR("The wasi\"{}\"function is not found.", name); auto target_module = get_module_instance()->e; for (int i = 0; i < target_module->function_count; i++) { auto cur_func = &target_module->functions[i]; if (cur_func->is_import_func) { - LOGV(DEBUG) << cur_func->u.func_import->field_name << " " << i; + SPDLOG_DEBUG("{} {}", cur_func->u.func_import->field_name, i); + if (!strcmp(cur_func->u.func_import->field_name, name)) { func = ((WASMFunctionInstanceCommon *)cur_func); @@ -402,7 +405,7 @@ int WAMRInstance::invoke_fseek(uint32 fd, uint32 offset) { } } else { - LOGV(DEBUG) << cur_func->u.func->field_name << " " << i; + SPDLOG_DEBUG("{} {}", cur_func->u.func->field_name, i); if (!strcmp(cur_func->u.func->field_name, name)) { func = ((WASMFunctionInstanceCommon *)cur_func); @@ -417,12 +420,13 @@ int WAMRInstance::invoke_fseek(uint32 fd, uint32 offset) { int WAMRInstance::invoke_ftell(uint32 fd, uint32 offset, uint32 whench) { auto name = "__wasi_fd_tell"; if (!(func = wasm_runtime_lookup_function(module_inst, name, nullptr))) { - LOGV(ERROR) << "The wasi fopen function is not found."; + SPDLOG_ERROR("The wasi\"{}\"function is not found.", name); auto target_module = get_module_instance()->e; for (int i = 0; i < target_module->function_count; i++) { auto cur_func = &target_module->functions[i]; if (cur_func->is_import_func) { - LOGV(DEBUG) << cur_func->u.func_import->field_name << " " << i; + SPDLOG_DEBUG("{} {}", cur_func->u.func_import->field_name, i); + if (!strcmp(cur_func->u.func_import->field_name, name)) { func = ((WASMFunctionInstanceCommon *)cur_func); @@ -430,7 +434,7 @@ int WAMRInstance::invoke_ftell(uint32 fd, uint32 offset, uint32 whench) { } } else { - LOGV(DEBUG) << cur_func->u.func->field_name << " " << i; + SPDLOG_DEBUG("{} {}", cur_func->u.func->field_name, i); if (!strcmp(cur_func->u.func->field_name, name)) { func = ((WASMFunctionInstanceCommon *)cur_func); @@ -445,7 +449,7 @@ int WAMRInstance::invoke_ftell(uint32 fd, uint32 offset, uint32 whench) { int WAMRInstance::invoke_preopen(uint32 fd, const std::string &path) { auto name = "__wasilibc_nocwd_openat_nomode"; if (!(func = wasm_runtime_lookup_function(module_inst, name, nullptr))) { - LOGV(ERROR) << "The wasi\"" << name << "\"function is not found."; + SPDLOG_ERROR("The wasi\"{}\"function is not found.", name); auto target_module = get_module_instance()->e; return 0; } @@ -469,12 +473,13 @@ int WAMRInstance::invoke_preopen(uint32 fd, const std::string &path) { int WAMRInstance::invoke_recv(int sockfd, uint8 **buf, size_t len, int flags) { auto name = "recv"; if (!(func = wasm_runtime_lookup_function(module_inst, name, nullptr))) { - LOGV(ERROR) << "The wasi\"" << name << "\"function is not found."; + SPDLOG_ERROR("The wasi\"{}\"function is not found.", name); auto target_module = get_module_instance()->e; for (int i = 0; i < target_module->function_count; i++) { auto cur_func = &target_module->functions[i]; if (cur_func->is_import_func) { - LOGV(DEBUG) << cur_func->u.func_import->field_name << " " << i; + SPDLOG_DEBUG("{} {}", cur_func->u.func_import->field_name, i); + if (!strcmp(cur_func->u.func_import->field_name, name)) { func = ((WASMFunctionInstanceCommon *)cur_func); @@ -482,7 +487,7 @@ int WAMRInstance::invoke_recv(int sockfd, uint8 **buf, size_t len, int flags) { } } else { - LOGV(DEBUG) << cur_func->u.func->field_name << " " << i; + SPDLOG_DEBUG("{} {}", cur_func->u.func->field_name, i); if (!strcmp(cur_func->u.func->field_name, name)) { func = ((WASMFunctionInstanceCommon *)cur_func); @@ -514,19 +519,19 @@ int WAMRInstance::invoke_recvfrom(int sockfd, uint8 **buf, size_t len, int flags socklen_t *addrlen) { auto name = "recvfrom"; if (!(func = wasm_runtime_lookup_function(module_inst, name, nullptr))) { - LOGV(ERROR) << "The wasi\"" << name << "\"function is not found."; + SPDLOG_ERROR("The wasi\"{}\"function is not found.", name); auto target_module = get_module_instance()->e; for (int i = 0; i < target_module->function_count; i++) { auto cur_func = &target_module->functions[i]; if (cur_func->is_import_func) { - LOGV(DEBUG) << cur_func->u.func_import->field_name << " " << i; + SPDLOG_DEBUG("{} {}", cur_func->u.func_import->field_name, i); if (!strcmp(cur_func->u.func_import->field_name, name)) { func = ((WASMFunctionInstanceCommon *)cur_func); break; } } else { - LOGV(DEBUG) << cur_func->u.func->field_name << " " << i; + SPDLOG_DEBUG("{} {}", cur_func->u.func->field_name, i); if (!strcmp(cur_func->u.func->field_name, name)) { func = ((WASMFunctionInstanceCommon *)cur_func); break; @@ -585,11 +590,11 @@ void restart_execution(uint32 id) { wasm_interp_call_func_bytecode((WASMModuleInstance *)targs->exec_env->module_inst, targs->exec_env, targs->exec_env->cur_frame->function, targs->exec_env->cur_frame->prev_frame); } - +#if WASM_ENABLE_LIB_PTHREAD != 0 +extern "C" { korp_mutex syncop_mutex; korp_cond syncop_cv; - -#if !defined(_WIN32) +} void WAMRInstance::replay_sync_ops(bool main, wasm_exec_env_t exec_env) { if (main) { std::map ref_map = {}; @@ -611,9 +616,10 @@ void WAMRInstance::replay_sync_ops(bool main, wasm_exec_env_t exec_env) { // Actually replay os_mutex_lock(&syncop_mutex); while (sync_iter != sync_ops.end()) { - printf("test %ld == %ld, op %d\n", (uint64_t)exec_env->handle, (uint64_t)sync_iter->tid, sync_iter->sync_op); + SPDLOG_INFO("test {} == {}, op {}\n", (uint64_t)exec_env->handle, (uint64_t)sync_iter->tid, + ((int)sync_iter->sync_op)); if (((uint64_t)(*sync_iter).tid) == ((uint64_t)exec_env->handle)) { - printf("replay %ld, op %d\n", sync_iter->tid, sync_iter->sync_op); + SPDLOG_INFO("replay {}, op {}\n", sync_iter->tid, ((int)sync_iter->sync_op)); auto mysync = sync_iter; ++sync_iter; // do op @@ -636,13 +642,13 @@ void WAMRInstance::replay_sync_ops(bool main, wasm_exec_env_t exec_env) { case SYNC_OP_ATOMIC_WAIT: wasm_runtime_atomic_wait( exec_env->module_inst, - ((void *)((WASMModuleInstance *)exec_env->module_inst)->memories[0]->memory_data + mysync->ref), + ((uint8_t *)((WASMModuleInstance *)exec_env->module_inst)->memories[0]->memory_data + mysync->ref), 0, -1, mysync->wait64); break; case SYNC_OP_ATOMIC_NOTIFY: wasm_runtime_atomic_notify( exec_env->module_inst, - ((void *)((WASMModuleInstance *)exec_env->module_inst)->memories[0]->memory_data + mysync->ref), + ((uint8_t *)((WASMModuleInstance *)exec_env->module_inst)->memories[0]->memory_data + mysync->ref), ((uint32)mysync->expected)); break; } @@ -686,7 +692,7 @@ void WAMRInstance::recover(std::vector> *e_) { auto main_env = cur_env; auto main_saved_call_chain = main_env->restore_call_chain; - cur_thread = main_env->handle; + cur_thread = ((uint64_t)main_env->handle); fprintf(stderr, "main_env created %p %p\n\n", main_env, main_saved_call_chain); @@ -695,9 +701,9 @@ void WAMRInstance::recover(std::vector> *e_) { main_env->restore_call_chain = nullptr; invoke_init_c(); - invoke_preopen(1, "/dev/stdout"); - invoke_preopen(2, "/dev/stderr"); -#if !defined(_WIN32) +// invoke_preopen(1, "/dev/stdout"); +// invoke_preopen(2, "/dev/stderr"); +#if WASM_ENABLE_LIB_PTHREAD != 0 spawn_child(main_env, true); #endif // restart main thread execution @@ -716,10 +722,10 @@ void WAMRInstance::recover(std::vector> *e_) { cur_env->is_restore = true; cur_env->restore_call_chain = main_saved_call_chain; -#if !defined(_WIN32) +#if WASM_ENABLE_LIB_PTHREAD != 0 fprintf(stderr, "invoke main %p %p\n", cur_env, cur_env->restore_call_chain); // replay sync ops to get OS state matching - wamr_handle_map(execEnv.front()->cur_count, main_env->handle); + wamr_handle_map(execEnv.front()->cur_count, ((uint64_t)main_env->handle)); replay_sync_ops(true, main_env); #endif @@ -744,7 +750,7 @@ void WAMRInstance::recover(std::vector> *e_) { } } -#if !defined(_WIN32) +#if WASM_ENABLE_LIB_PTHREAD != 0 void WAMRInstance::spawn_child(WASMExecEnv *cur_env, bool main) { static std::vector::iterator iter; static uint64 parent; @@ -773,16 +779,16 @@ void WAMRInstance::spawn_child(WASMExecEnv *cur_env, bool main) { break; } } - LOGV(ERROR) << parent << " " << child_env->cur_count; + SPDLOG_ERROR("{} {}", parent, child_env->cur_count); } // calculate parent TID once - if (parent != cur_env->handle && (parent != !main)) { + if (parent != ((uint64_t)cur_env->handle) && (parent != !main)) { cv.wait(ul); continue; } // requires to record the args and callback for the pthread. argptr[id] = &thread_arg; // restart thread execution - fprintf(stderr, "pthread_create_wrapper, func %ld\n", child_env->cur_count); + SPDLOG_DEBUG("pthread_create_wrapper, func {}\n", child_env->cur_count); // module_inst = wasm_runtime_instantiate(module, stack_size, heap_size, error_buf, sizeof(error_buf)); if (tid_start_arg_map.find(child_env->cur_count) != tid_start_arg_map.end()) { // find the parent env @@ -839,15 +845,15 @@ void WAMRInstance::set_wasi_args(WAMRWASIContext &context) { extern WAMRInstance *wamr; extern "C" { // stop name mangling so it can be linked externally void wamr_wait(wasm_exec_env_t exec_env) { - LOGV(DEBUG) << fmt::format("child getting ready to wait {}", fmt::ptr(exec_env)); + SPDLOG_DEBUG("child getting ready to wait {}", fmt::ptr(exec_env)); thread_init.release(1); wamr->spawn_child(exec_env, false); - LOGV(DEBUG) << fmt::format("finish child restore"); + SPDLOG_DEBUG("finish child restore"); wakeup.acquire(); -#if !defined(_WIN32) - LOGV(DEBUG) << fmt::format("go child!! {}", exec_env->handle); +#if WASM_ENABLE_LIB_PTHREAD != 0 + SPDLOG_DEBUG("go child!! {}", exec_env->handle); wamr->replay_sync_ops(false, exec_env); - LOGV(DEBUG) << fmt::format("finish syncing"); + SPDLOG_DEBUG("finish syncing"); #endif // finished restoring @@ -889,7 +895,7 @@ WASMExecEnv *restore_env() { exec_env->restore_call_chain = s; // */ - wamr->cur_thread = exec_env->handle; + wamr->cur_thread = ((uint64_t)exec_env->handle); exec_env->is_restore = true; fprintf(stderr, "restore_env: %p %p\n", exec_env, s); @@ -900,8 +906,80 @@ WASMExecEnv *restore_env() { void WAMRInstance::instantiate() { module_inst = wasm_runtime_instantiate(module, stack_size, heap_size, error_buf, sizeof(error_buf)); if (!module_inst) { - LOGV(ERROR) << fmt::format("Instantiate wasm module failed. error: {}", error_buf); + SPDLOG_ERROR("Instantiate wasm module failed. error: {}", error_buf); throw; } cur_env = exec_env = wasm_runtime_create_exec_env(module_inst, stack_size); } + +bool is_ip_in_cidr(const char *base_ip, int subnet_mask_len, uint32_t ip) { + uint32_t base_ip_bin, subnet_mask, network_addr, broadcast_addr; + SPDLOG_DEBUG("base_ip: {} subnet_mask_len: {}", base_ip, subnet_mask_len); + SPDLOG_DEBUG("ip: {}.{}.{}.{}", (ip >> 24) & 0xFF, (ip >> 16) & 0xFF, (ip >> 8) & 0xFF, ip & 0xFF); + + // Convert base IP to binary + if (inet_pton(AF_INET, base_ip, &base_ip_bin) != 1) { + fprintf(stderr, "Error converting base IP to binary\n"); + return false; + } + + // Ensure that the subnet mask length is valid + if (subnet_mask_len < 0 || subnet_mask_len > 32) { + fprintf(stderr, "Invalid subnet mask length\n"); + return false; + } + + // Calculate subnet mask in binary + subnet_mask = htonl(~((1 << (32 - subnet_mask_len)) - 1)); + + // Calculate network and broadcast addresses + network_addr = base_ip_bin & subnet_mask; + broadcast_addr = network_addr | ~subnet_mask; + + // Ensure ip is in network byte order + uint32_t ip_net_order = htonl(ip); + + // Check if IP is within range + return ip_net_order >= network_addr && ip_net_order <= broadcast_addr; +} +bool is_ipv6_in_cidr(const char *base_ip_str, int subnet_mask_len, struct in6_addr *ip) { + struct in6_addr base_ip { + }, subnet_mask{}, network_addr{}, ip_min{}, ip_max{}; + unsigned char mask; + + // Convert base IP to binary + inet_pton(AF_INET6, base_ip_str, &base_ip); + + // Clear subnet_mask and network_addr + memset(&subnet_mask, 0, sizeof(subnet_mask)); + memset(&network_addr, 0, sizeof(network_addr)); + + // Create the subnet mask and network address + for (int i = 0; i < subnet_mask_len / 8; i++) { + subnet_mask.s6_addr[i] = 0xff; + } + if (subnet_mask_len % 8) { + mask = (0xff << (8 - (subnet_mask_len % 8))); + subnet_mask.s6_addr[subnet_mask_len / 8] = mask; + } + + // Apply the subnet mask to the base IP to get the network address + for (int i = 0; i < 16; i++) { + network_addr.s6_addr[i] = base_ip.s6_addr[i] & subnet_mask.s6_addr[i]; + } + + // Calculate the first and last IPs in the range + ip_min = network_addr; + ip_max = network_addr; + for (int i = 15; i >= subnet_mask_len / 8; i--) { + ip_max.s6_addr[i] = 0xff; + } + + // Check if IP is within range + for (int i = 0; i < 16; i++) { + if (ip->s6_addr[i] < ip_min.s6_addr[i] || ip->s6_addr[i] > ip_max.s6_addr[i]) { + return false; + } + } + return true; +} diff --git a/src/wamr_exec_env.cpp b/src/wamr_exec_env.cpp index c2af35d..71a4bc0 100644 --- a/src/wamr_exec_env.cpp +++ b/src/wamr_exec_env.cpp @@ -4,7 +4,7 @@ extern WAMRInstance *wamr; void WAMRExecEnv::dump_impl(WASMExecEnv *env) { - this->cur_count = env->handle; + this->cur_count = ((uint64_t)env->handle); dump(&this->module_inst, reinterpret_cast(env->module_inst)); flags = env->suspend_flags.flags; aux_boundary = env->aux_stack_boundary.boundary; @@ -32,7 +32,7 @@ void WAMRExecEnv::restore_impl(WASMExecEnv *env) { std::vector replay_frames; for (const auto &dump_frame : frames) { if (!aot_alloc_frame(env, dump_frame->function_index)) { - LOGV(INFO) << "restore error: aot_alloc_frame failed"; + SPDLOG_DEBUG("restore error: aot_alloc_frame failed"); exit(-1); } auto cur_frame = (AOTFrame *)env->cur_frame; @@ -53,15 +53,15 @@ void WAMRExecEnv::restore_impl(WASMExecEnv *env) { auto module_inst = (WASMModuleInstance *)env->module_inst; auto get_function = [&](size_t function_index) { if (0 <= function_index && function_index < module_inst->e->function_count) { - LOGV(INFO) << fmt::format("function_index {} restored", function_index); + SPDLOG_DEBUG("function_index {} restored", function_index); auto function = &module_inst->e->functions[function_index]; if (function->is_import_func) { - LOGV(ERROR) << fmt::format("function_index {} is_import_func", function_index); + SPDLOG_ERROR("function_index {} is_import_func", function_index); exit(-1); } return function; } else { - LOGV(ERROR) << fmt::format("function_index {} invalid", function_index); + SPDLOG_ERROR("function_index {} invalid", function_index); exit(-1); }; }; @@ -71,7 +71,7 @@ void WAMRExecEnv::restore_impl(WASMExecEnv *env) { if (frame) { frame->prev_frame = prev_frame; } else { - LOGV(ERROR) << "wasm operand stack overflow"; + SPDLOG_ERROR("wasm operand stack overflow"); exit(-1); } return frame; @@ -93,7 +93,7 @@ void WAMRExecEnv::restore_impl(WASMExecEnv *env) { cur_wasm_func->max_block_num * (uint32)sizeof(WASMBranchBlock) / 4; frame_size = wasm_interp_interp_frame_size(all_cell_num); if (!(frame = ALLOC_FRAME(env, frame_size, prev_frame))) { - LOGV(ERROR) << "ALLOC_FRAME failed"; + SPDLOG_ERROR("ALLOC_FRAME failed"); exit(-1); } restore(dump_frame.get(), frame); @@ -101,5 +101,5 @@ void WAMRExecEnv::restore_impl(WASMExecEnv *env) { } env->cur_frame = prev_frame; } - env->handle = this->cur_count; + env->handle = ((korp_tid)this->cur_count); } diff --git a/src/wamr_export.cpp b/src/wamr_export.cpp index 43b74e7..d4a1a84 100644 --- a/src/wamr_export.cpp +++ b/src/wamr_export.cpp @@ -2,7 +2,6 @@ // Created by victoryang00 on 10/19/23. // -#include "logging.h" #include "wamr.h" #include "wamr_wasi_context.h" #include @@ -22,7 +21,7 @@ void insert_sock_open_data(uint32_t poolfd, int af, int socktype, uint32_t sockf wamr->socket_fd_map_[sockfd].socketOpenData.socktype = socktype; wamr->socket_fd_map_[sockfd].socketOpenData.sockfd = sockfd; } else { - LOGV(ERROR) << "socket_fd" << sockfd << " not found"; + SPDLOG_ERROR("socket_fd {} not found", sockfd); } } #if !defined(_WIN32) @@ -53,7 +52,7 @@ void insert_sock_send_to_data(uint32_t sock, uint8 *si_data, uint32 si_data_len, wamr->socket_fd_map_[sock].socketSentToData.dest_addr.port = dest_addr->addr.ip6.port; } } else { - LOGV(ERROR) << "socket_fd" << sock << " not found"; + SPDLOG_ERROR("socket_fd", sock, " not found"); } } @@ -97,27 +96,27 @@ void insert_sock_recv_from_data(uint32_t sock, uint8 *ri_data, uint32 ri_data_le recvFromData.src_addr.ip.ip6[7] = src_addr->addr.ip6.addr.h3; recvFromData.src_addr.port = src_addr->addr.ip6.port; } - LOGV(ERROR) << "insert_sock_recv_from_data " << sock << " " << ((struct mvvm_op_data *)ri_data)->op; + SPDLOG_ERROR("insert_sock_recv_from_data ", sock, " ", ((struct mvvm_op_data *)ri_data)->op); if (((struct mvvm_op_data *)ri_data)->op == MVVM_SOCK_FIN) { wamr->socket_fd_map_[sock].is_collection = false; return; } wamr->socket_fd_map_[sock].socketRecvFromDatas.emplace_back(recvFromData); } else { - LOGV(ERROR) << "socket_fd" << sock << " not found"; + SPDLOG_ERROR("socket_fd", sock, " not found"); } } void replay_sock_recv_from_data(uint32_t sock, uint8 **ri_data, unsigned long *recv_size, __wasi_addr_t *src_addr) { // check from wamr->socket_fd_map_[sock] and drain one // should be in the same order if (wamr->socket_fd_map_[sock].socketRecvFromDatas.empty()) { - LOGV(ERROR) << "no recvfrom data " << sock; + SPDLOG_ERROR("no recvfrom data {}", sock); *recv_size = 0; return; } // shoud we check the src_addr? if (wamr->socket_fd_map_[sock].replay_start_index >= wamr->socket_fd_map_[sock].socketRecvFromDatas.size()) { - LOGV(INFO) << "replay index out of bound " << sock; + SPDLOG_INFO("replay index out of bound {}", sock); *recv_size = 0; return; } @@ -156,8 +155,8 @@ int get_sock_fd(int fd) { /** fopen, fseek, fwrite, fread */ void insert_fd(int fd, const char *path, int flags, int offset, enum fd_op op) { if (fd > 2) { - LOGV(INFO) << "insert_fd(fd,filename,flags, offset) fd:" << fd << " flags:" << flags << " offset:" << offset - << " op:" << op; + SPDLOG_DEBUG("insert_fd(fd,filename,flags, offset) fd: {} flags: {} offset: {}, op: {}", fd, flags, offset, + ((int)op)); std::string path_; std::vector> ops_; std::tie(path_, ops_) = wamr->fd_map_[fd]; @@ -171,9 +170,9 @@ void insert_fd(int fd, const char *path, int flags, int offset, enum fd_op op) { /** frename */ void rename_fd(int old_fd, char const *old_path, int new_fd, char const *new_path) { - LOGV(INFO) << fmt::format("rename_fd(int old_fd, char const *old_path, int new_fd, char const *new_path) old:{} " - "old_fd:{} new_fd:{}, new_path:{}", - old_fd, old_path, new_fd, new_path); + SPDLOG_DEBUG("rename_fd(int old_fd, char const *old_path, int new_fd, char const *new_path) old:{} " + "old_fd:{} new_fd:{}, new_path:{}", + old_fd, old_path, new_fd, new_path); if (wamr->fd_map_.find(old_fd) != wamr->fd_map_.end()) { auto new_fd_ = wamr->fd_map_[old_fd]; std::string path_; @@ -188,14 +187,14 @@ void rename_fd(int old_fd, char const *old_path, int new_fd, char const *new_pat }; /** fclose */ void remove_fd(int fd) { - LOGV(INFO) << fmt::format("remove_fd(fd) fd{}", fd); + SPDLOG_DEBUG("remove_fd(fd) fd{}", fd); if (wamr->fd_map_.find(fd) != wamr->fd_map_.end()) wamr->fd_map_.erase(fd); else { if (wamr->socket_fd_map_.find(fd) != wamr->socket_fd_map_.end()) wamr->socket_fd_map_.erase(fd); else - LOGV(ERROR) << "fd not found " << fd; + SPDLOG_DEBUG("fd not found {}", fd); } } @@ -205,10 +204,10 @@ void remove_fd(int fd) { void insert_socket(int fd, int domain, int type, int protocol) { // if protocol == 1, is the remote protocol, we need to getsockname? - LOGV(INFO) << fmt::format("insert_socket(fd, domain, type, protocol) {} {} {} {}", fd, domain, type, protocol); + SPDLOG_DEBUG("insert_socket(fd, domain, type, protocol) {} {} {} {}", fd, domain, type, protocol); if (wamr->socket_fd_map_.find(fd) != wamr->socket_fd_map_.end()) { - LOGV(ERROR) << "socket_fd already exist" << fd; + SPDLOG_ERROR("socket_fd already exist", fd); } else { SocketMetaData metaData{}; metaData.domain = domain; @@ -226,7 +225,7 @@ void insert_socket(int fd, int domain, int type, int protocol) { void update_socket_fd_address(int fd, SocketAddrPool *address) { wamr->socket_fd_map_[fd].socketAddress.port = address->port; - printf("\n #update_socket_fd_address(fd, address) %d %d\n\n", fd, wamr->socket_fd_map_[fd].socketAddress.port); + SPDLOG_DEBUG("#update_socket_fd_address(fd, address) {} {}", fd, wamr->socket_fd_map_[fd].socketAddress.port); if (address->is_4) { wamr->socket_fd_map_[fd].socketAddress.is_4 = true; wamr->socket_fd_map_[fd].socketAddress.ip4[0] = address->ip4[0]; @@ -258,8 +257,8 @@ void init_gateway(SocketAddrPool *address) { // Create a socket if ((fd = socket(AF_INET, SOCK_STREAM, 0)) == -1) { - LOGV(ERROR) << "socket error"; - throw std::runtime_error("socket error"); + SPDLOG_ERROR("socket error"); + exit(EXIT_FAILURE); } addr.sin_family = AF_INET; @@ -267,19 +266,19 @@ void init_gateway(SocketAddrPool *address) { // Convert IPv4 and IPv6 addresses from text to binary form if (inet_pton(AF_INET, MVVM_SOCK_ADDR, &addr.sin_addr) <= 0) { - LOGV(ERROR) << "AF_INET not supported"; + SPDLOG_ERROR("AF_INET not supported"); exit(EXIT_FAILURE); } // Connect to the server if (connect(fd, (struct sockaddr *)&addr, sizeof(addr)) < 0) { - LOGV(ERROR) << "Connection Failed " << errno; + SPDLOG_ERROR("Connection Failed ", errno); exit(EXIT_FAILURE); } - LOGV(INFO) << "Connected successfully"; + SPDLOG_INFO("Connected successfully"); rc = send(fd, &wamr->op_data, sizeof(struct mvvm_op_data), 0); if (rc == -1) { - LOGV(ERROR) << "send error"; + SPDLOG_ERROR("send error"); exit(EXIT_FAILURE); } @@ -290,16 +289,16 @@ void init_gateway(SocketAddrPool *address) { #endif void insert_sync_op(wasm_exec_env_t exec_env, const uint32 *mutex, enum sync_op locking) { - LOGV(DEBUG) << fmt::format( - "insert sync on offset {}, as op: {} ", - (uint32)(((uint8 *)mutex) - ((WASMModuleInstance *)exec_env->module_inst)->memories[0]->memory_data), locking); - struct sync_op_t sync_op = {.tid = exec_env->handle, .ref = *mutex, .sync_op = locking}; + SPDLOG_DEBUG("insert sync on offset {}, as op: {} ", + (uint32)(((uint8 *)mutex) - ((WASMModuleInstance *)exec_env->module_inst)->memories[0]->memory_data), + ((int)locking)); + struct sync_op_t sync_op = {.tid = ((uint64_t)exec_env->handle), .ref = *mutex, .sync_op = locking}; wamr->sync_ops.push_back(sync_op); } void insert_sync_op_atomic_wait(wasm_exec_env_t exec_env, const uint32 *mutex, uint64 expected, bool wait64) { struct sync_op_t sync_op = { - .tid = exec_env->handle, + .tid = ((uint64_t)exec_env->handle), .ref = (uint32)(((uint8 *)mutex) - ((WASMModuleInstance *)exec_env->module_inst)->memories[0]->memory_data), .sync_op = SYNC_OP_ATOMIC_WAIT, .expected = expected, @@ -308,20 +307,20 @@ void insert_sync_op_atomic_wait(wasm_exec_env_t exec_env, const uint32 *mutex, u } void insert_sync_op_atomic_notify(wasm_exec_env_t exec_env, const uint32 *mutex, uint32 count) { struct sync_op_t sync_op = { - .tid = exec_env->handle, + .tid = ((uint64_t)exec_env->handle), .ref = (uint32)(((uint8 *)mutex) - ((WASMModuleInstance *)exec_env->module_inst)->memories[0]->memory_data), .sync_op = SYNC_OP_ATOMIC_NOTIFY, .expected = count}; wamr->sync_ops.push_back(sync_op); } void insert_tid_start_arg(ssize_t tid, size_t start_arg, size_t vtid) { - LOGV(INFO) << fmt::format("insert_tid_start_arg {} {} {}", tid, start_arg, vtid); + SPDLOG_DEBUG("insert_tid_start_arg {} {} {}", tid, start_arg, vtid); wamr->tid_start_arg_map[tid] = std::make_pair(start_arg, vtid); }; void change_thread_id_to_child(ssize_t tid, ssize_t child_tid) { // insert parent child takes both `vtid`s so we don't need to remap to OS threads return; - LOGV(ERROR) << fmt::format("change_thread_id_to_child {} {}", tid, child_tid); + SPDLOG_ERROR("change_thread_id_to_child {} {}", tid, child_tid); for (auto &[k, v] : wamr->child_tid_map) { if (k == child_tid) { wamr->child_tid_map[tid] = v; @@ -331,23 +330,23 @@ void change_thread_id_to_child(ssize_t tid, ssize_t child_tid) { } }; void wamr_handle_map(uint64_t old_tid, uint64_t tid) { - LOGV(ERROR) << fmt::format("wamr_handle_map old:< {} > new:< {} >", old_tid, tid); + SPDLOG_ERROR("wamr_handle_map old:< {} > new:< {} >", old_tid, tid); wamr->tid_map[old_tid] = tid; }; -korp_tid wamr_get_new_korp_tid(korp_tid new_tid) { return wamr->tid_map[new_tid]; } +korp_tid wamr_get_new_korp_tid(korp_tid new_tid) { return ((korp_tid)wamr->tid_map[((uint64_t)new_tid)]); } korp_tid wamr_get_korp_tid(korp_tid new_tid) { for (auto &[old_tid, new_tid_v] : wamr->tid_map) { - if (new_tid == new_tid_v) { - return old_tid; + if (((uint64_t)new_tid) == new_tid_v) { + return ((korp_tid)old_tid); } } return 0; } void insert_parent_child(ssize_t tid, ssize_t child_tid) { - LOGV(ERROR) << fmt::format("insert_parent_child {} {}", tid, child_tid); + SPDLOG_ERROR("insert_parent_child {} {}", tid, child_tid); wamr->child_tid_map[child_tid] = tid; }; @@ -359,14 +358,14 @@ void lightweight_checkpoint(WASMExecEnv *exec_env) { if (((AOTFrame *)exec_env->cur_frame)) { fid = (int)((AOTFrame *)exec_env->cur_frame)->func_index; } - LOGV(DEBUG) << "checkpoint " << exec_env << " func(" << fid << ")"; + SPDLOG_DEBUG("checkpoint {}, func({})", ((void *)exec_env), fid); if (fid == -1) { - LOGV(DEBUG) << "skip checkpoint"; + SPDLOG_DEBUG("skip checkpoint"); return; } std::unique_lock as_ul(wamr->as_mtx); - wamr->lwcp_list[exec_env->handle]++; + wamr->lwcp_list[((uint64_t)exec_env->handle)]++; wamr->ready++; } @@ -378,20 +377,20 @@ void lightweight_uncheckpoint(WASMExecEnv *exec_env) { if (((AOTFrame *)exec_env->cur_frame)) { fid = (int)((AOTFrame *)exec_env->cur_frame)->func_index; } - LOGV(DEBUG) << "uncheckpoint " << exec_env << " func(" << fid << ")"; + SPDLOG_DEBUG("uncheckpoint {} func({})", ((void *)exec_env), fid); if (fid == -1) { - LOGV(DEBUG) << "skip uncheckpoint"; + SPDLOG_DEBUG("skip uncheckpoint"); return; } std::unique_lock as_ul(wamr->as_mtx); - if (wamr->lwcp_list[exec_env->handle] == 0) { + if (wamr->lwcp_list[((uint64_t)exec_env->handle)] == 0) { // someone has reset our counter // which means we've been serialized // so we shouldn't return back to the wasm state std::condition_variable cv; cv.wait(as_ul); } - wamr->lwcp_list[exec_env->handle]--; + wamr->lwcp_list[((uint64_t)exec_env->handle)]--; wamr->ready--; } @@ -403,14 +402,14 @@ void print_stack(AOTFrame *frame) { } fprintf(stderr, "\n"); } else { - LOGV(ERROR) << fmt::format("no cur_frame"); + SPDLOG_ERROR("no cur_frame"); } } void print_exec_env_debug_info(WASMExecEnv *exec_env) { - LOGV(DEBUG) << fmt::format("----"); + SPDLOG_DEBUG("----"); if (!exec_env) { - LOGV(ERROR) << fmt::format("no exec_env"); + SPDLOG_ERROR("no exec_env"); return; } if (exec_env->cur_frame) { @@ -418,18 +417,18 @@ void print_exec_env_debug_info(WASMExecEnv *exec_env) { auto p = (AOTFrame *)exec_env->cur_frame; while (p) { uint32 *frame_lp = p->lp; - // LOGV(ERROR) << (size_t)((size_t)frame_lp - (size_t)p); - LOGV(DEBUG) << fmt::format("depth {}, function {}, ip {}, lp {}, sp {}", call_depth, p->func_index, - p->ip_offset, (void *)frame_lp, (void *)p->sp); + SPDLOG_ERROR("{}", (size_t)((size_t)frame_lp - (size_t)p)); + SPDLOG_DEBUG("depth {}, function {}, ip {}, lp {}, sp {}", call_depth, p->func_index, p->ip_offset, + (void *)frame_lp, (void *)p->sp); call_depth++; print_stack(p); p = p->prev_frame; } } else { - LOGV(ERROR) << fmt::format("no cur_frame"); + SPDLOG_ERROR("no cur_frame"); } - LOGV(DEBUG) << fmt::format("----"); + SPDLOG_DEBUG("----"); } void print_memory(WASMExecEnv *exec_env) { @@ -441,7 +440,7 @@ void print_memory(WASMExecEnv *exec_env) { for (size_t j = 0; j < module_inst->memory_count; j++) { auto mem = module_inst->memories[j]; if (mem) { - LOGV(INFO) << fmt::format("memory data size {}", mem->memory_data_size); + SPDLOG_INFO("memory data size {}", mem->memory_data_size); if (mem->memory_data_size >= 70288 + 64) { // for (int *i = (int *)(mem->memory_data + 70288); i < (int *)(mem->memory_data + 70288 + 64); ++i) { // fprintf(stdout, "%d ", *i); @@ -486,7 +485,7 @@ void sigtrap_handler(int sig) { void register_sigtrap() { #if defined(_WIN32) signal(SIGILL, sigtrap_handler); - LOGV_DEBUG << "SIGILL registered"; + SPDLOG_DEBUG("SIGILL registered"); #else struct sigaction sa {}; sigemptyset(&sa.sa_mask); @@ -500,22 +499,22 @@ void register_sigtrap() { // Register the signal handler for SIGTRAP if (sigaction(SIGTRAP, &sa, nullptr) == -1) { - perror("Error: cannot handle SIGTRAP"); + SPDLOG_ERROR("Error: cannot handle SIGTRAP"); exit(-1); } else { if (sigaction(SIGSYS, &sa, nullptr) == -1) { - perror("Error: cannot handle SIGSYS"); + SPDLOG_ERROR("Error: cannot handle SIGSYS"); exit(-1); } else { // if (sigaction(SIGSEGV, &sb, nullptr) == -1) { - // perror("Error: cannot handle SIGSEGV"); + // SPDLOG_ERROR("Error: cannot handle SIGSEGV"); // exit(-1); // } else { - // LOGV_DEBUG << "SIGSEGV registered"; + // SPDLOG_DEBUG( "SIGSEGV registered"); // } - LOGV_DEBUG << "SIGSYS registered"; + SPDLOG_DEBUG("SIGSYS registered"); } - LOGV_DEBUG << "SIGTRAP registered"; + SPDLOG_DEBUG("SIGTRAP registered"); } #endif } @@ -531,7 +530,7 @@ void sigint_handler(int sig) { wamr->replace_nop_with_int3(); #if defined(_WIN32) signal(SIGINT, SIG_DFL); - LOGV_DEBUG << "SIGINT registered"; + SPDLOG_DEBUG("SIGINT registered"); #else struct sigaction sa {}; // Clear the structure @@ -542,7 +541,7 @@ void sigint_handler(int sig) { sa.sa_flags = SA_RESTART; // Register the signal handler for SIGINT if (sigaction(SIGINT, &sa, nullptr) == -1) { - perror("Error: cannot restore SIGINT SIG_DFL"); + SPDLOG_ERROR("Error: cannot restore SIGINT SIG_DFL"); } #endif } diff --git a/src/wamr_interp_frame.cpp b/src/wamr_interp_frame.cpp index f2b254b..d50ed32 100644 --- a/src/wamr_interp_frame.cpp +++ b/src/wamr_interp_frame.cpp @@ -10,7 +10,7 @@ #include extern WAMRInstance *wamr; void WAMRInterpFrame::dump_impl(WASMInterpFrame *env) { - LOGV(ERROR) << "not impl"; + SPDLOG_ERROR("not impl"); exit(-1); } std::vector> wasm_replay_csp_bytecode(WASMExecEnv *exec_env, WASMInterpFrame *frame, @@ -26,7 +26,7 @@ void WAMRInterpFrame::restore_impl(WASMInterpFrame *env) { } if (env->function->is_import_func) { - // LOGV(ERROR) << fmt::format("is_import_func"); + SPDLOG_ERROR("is_import_func"); exit(-1); } @@ -34,8 +34,7 @@ void WAMRInterpFrame::restore_impl(WASMInterpFrame *env) { auto cur_func = env->function; WASMFunction *cur_wasm_func = cur_func->u.func; - LOGV(INFO) << fmt::format("ip_offset {} sp_offset {}, code start {}", ip, sp, - (void *)wasm_get_func_code(env->function)); + SPDLOG_INFO("ip_offset {} sp_offset {}, code start {}", ip, sp, (void *)wasm_get_func_code(env->function)); env->ip = wasm_get_func_code(env->function) + ip; env->sp_bottom = env->lp + cur_func->param_cell_num + cur_func->local_cell_num; @@ -45,8 +44,7 @@ void WAMRInterpFrame::restore_impl(WASMInterpFrame *env) { memcpy(env->lp, stack_frame.data(), stack_frame.size() * sizeof(uint32)); // print_csps(csp); - // LOGV(INFO) << fmt::format("wasm_replay_csp_bytecode {} {} {}", (void *)wamr->get_exec_env(), (void *)env, - // (void *)env->ip); + SPDLOG_DEBUG("wasm_replay_csp_bytecode {} {} {}", (void *)wamr->get_exec_env(), (void *)env, (void *)env->ip); env->csp_bottom = (WASMBranchBlock *)env->sp_boundary; if (env->function->u.func && !env->function->is_import_func && env->sp_bottom) { @@ -56,16 +54,15 @@ void WAMRInterpFrame::restore_impl(WASMInterpFrame *env) { int i = 0; for (auto &&csp_item : csp) { restore(csp_item.get(), env->csp_bottom + i); - // LOGV(ERROR) << "csp_bottom" << ((uint8 *)env->csp_bottom + i) - - // wamr->get_exec_env()->wasm_stack.s.bottom; + SPDLOG_ERROR("csp_bottom {}", ((uint8 *)env->csp_bottom + i) - wamr->get_exec_env()->wasm_stack.s.bottom); i++; } env->csp = env->csp_bottom + csp.size(); env->csp_boundary = env->csp_bottom + env->function->u.func->max_block_num; } - LOGV(INFO) << fmt::format("func_idx {} ip {} sp {} stack bottom {}", function_index, (void *)env->ip, - (void *)env->sp, (void *)wamr->get_exec_env()->wasm_stack.s.bottom); + SPDLOG_INFO("func_idx {} ip {} sp {} stack bottom {}", function_index, (void *)env->ip, (void *)env->sp, + (void *)wamr->get_exec_env()->wasm_stack.s.bottom); } #if WASM_ENABLE_AOT != 0 @@ -74,8 +71,8 @@ void WAMRInterpFrame::dump_impl(AOTFrame *env) { ip = env->ip_offset; sp = env->sp - env->lp; // offset to the wasm_stack_top - // LOGV(INFO) << fmt::format("function_index {} ip_offset {} lp {} sp {} sp_offset {}", env->func_index, ip, - // (void *)env->lp, (void *)env->sp, sp); + SPDLOG_INFO("function_index {} ip_offset {} lp {} sp {} sp_offset {}", env->func_index, ip, (void *)env->lp, + (void *)env->sp, sp); stack_frame = std::vector(env->lp, env->sp); @@ -85,42 +82,8 @@ void WAMRInterpFrame::dump_impl(AOTFrame *env) { std::cout << std::endl; } void WAMRInterpFrame::restore_impl(AOTFrame *env) { - LOGV(ERROR) << "not impl"; + SPDLOG_ERROR("not impl"); exit(-1); - // env->function = reinterpret_cast(malloc(sizeof(WASMFunctionInstance))); - // restore(&function, env->function); - - // if (env->function) - // wamr->set_func(env->function->u.func); - // if (ip) { - // // LOGV(ERROR)<<"env_ip "<ip << " "<function->u.func->code + ip; - // env->ip = env->function->u.func->code + ip; - // } - // if (sp) { - // // LOGV(ERROR)<<"env_sp "<sp<<" "<((uint8 - // // *)wamr->get_exec_env()->wasm_stack.s.bottom + sp); - // env->sp = reinterpret_cast((uint8 *)wamr->get_exec_env()->wasm_stack.s.bottom + sp); - // } - // int i = 0; - // env->sp_bottom = ((uint32 *)env->lp) + env->function->param_cell_num + env->function->local_cell_num; - // env->csp_bottom = static_cast(malloc(sizeof(WASMBranchBlock) * csp.size())); - - // if (env->ip && env->function->u.func && !env->function->is_import_func && env->sp_bottom) { - // env->sp_boundary = env->sp_bottom + env->function->u.func->max_stack_cell_num; - // // env->csp_bottom = (WASMBranchBlock *)env->sp_boundary; - // std::reverse(csp.begin(), csp.end()); - // for (auto &&csp_item : csp) { - // restore(csp_item.get(), env->csp_bottom + i); - // LOGV(ERROR) << "csp_bottom" << ((uint8 *)env->csp_bottom + i) - - // wamr->get_exec_env()->wasm_stack.s.bottom; i++; - // } - // env->csp = env->csp_bottom + csp.size() - 1; - // env->csp_boundary = env->csp_bottom + env->function->u.func->max_block_num; - // LOGV(DEBUG) << env->function->u.func->field_name << " csp_bottom" << env->csp_bottom << " sp_bottom" - // << env->sp_bottom << " sp" << sp << ((uint8 *)env->sp) - - // wamr->get_exec_env()->wasm_stack.s.bottom - // << " lp" << lp; - // } } static bool check_buf(const uint8 *buf, const uint8 *buf_end, uint32 length, char *error_buf, uint32 error_buf_size) { @@ -248,7 +211,7 @@ std::vector> wasm_replay_csp_bytecode(WASMExecE const uint8 *frame_ip = wasm_get_func_code(cur_func), *frame_ip_end = wasm_get_func_code_end(cur_func); if (!(frame_ip <= target_addr && target_addr <= frame_ip_end)) { - LOGV(ERROR) << "target_addr invalid"; + SPDLOG_ERROR("target_addr invalid"); exit(-1); } @@ -338,7 +301,7 @@ std::vector> wasm_replay_csp_bytecode(WASMExecE cell_num = wasm_value_type_cell_num(value_type); if (!wasm_loader_find_block_addr(exec_env, (BlockAddr *)exec_env->block_addr_cache, frame_ip, (uint8 *)-1, LABEL_TYPE_BLOCK, &else_addr, &end_addr)) { - LOGV(ERROR) << "FAULT"; + SPDLOG_ERROR("wasm_loader_find_block_addr"); exit(-1); } PUSH_CSP(LABEL_TYPE_BLOCK, param_cell_num, cell_num, end_addr); @@ -356,7 +319,7 @@ std::vector> wasm_replay_csp_bytecode(WASMExecE cell_num = wasm_value_type_cell_num(value_type); if (!wasm_loader_find_block_addr(exec_env, (BlockAddr *)exec_env->block_addr_cache, frame_ip, (uint8 *)-1, LABEL_TYPE_IF, &else_addr, &end_addr)) { - LOGV(ERROR) << "FAULT"; + SPDLOG_DEBUG("FAULT"); exit(-1); } @@ -379,7 +342,7 @@ std::vector> wasm_replay_csp_bytecode(WASMExecE case EXT_OP_LOOP: case EXT_OP_IF: POP_I32(); - LOGV(ERROR) << "FAULT"; + SPDLOG_DEBUG("FAULT"); exit(-1); break; @@ -391,7 +354,7 @@ std::vector> wasm_replay_csp_bytecode(WASMExecE if (csp.size() > 1) { POP_CSP(); } else { - LOGV(ERROR) << "FAULT"; + SPDLOG_DEBUG("FAULT"); exit(-1); } break; @@ -412,13 +375,13 @@ std::vector> wasm_replay_csp_bytecode(WASMExecE #if WASM_ENABLE_FAST_INTERP == 0 case EXT_OP_BR_TABLE_CACHE: - LOGV(ERROR) << "FAULT"; + SPDLOG_DEBUG("FAULT"); exit(-1); break; #endif case WASM_OP_RETURN: - LOGV(ERROR) << "FAULT"; + SPDLOG_DEBUG("FAULT"); exit(-1); break; @@ -461,7 +424,7 @@ std::vector> wasm_replay_csp_bytecode(WASMExecE case WASM_OP_REF_NULL: case WASM_OP_REF_IS_NULL: case WASM_OP_REF_FUNC: - LOGV(ERROR) << "FAULT"; + SPDLOG_DEBUG("FAULT"); exit(-1); break; #endif /* WASM_ENABLE_REF_TYPES */ @@ -478,7 +441,7 @@ std::vector> wasm_replay_csp_bytecode(WASMExecE PUSH_I64(); break; default: - LOGV(ERROR) << "FAULT"; + SPDLOG_DEBUG("FAULT"); exit(-1); } break; @@ -499,7 +462,7 @@ std::vector> wasm_replay_csp_bytecode(WASMExecE POP_I64() break; default: - LOGV(ERROR) << "FAULT"; + SPDLOG_DEBUG("FAULT"); exit(-1); } break; @@ -794,7 +757,7 @@ std::vector> wasm_replay_csp_bytecode(WASMExecE case WASM_OP_I64_EXTEND16_S: case WASM_OP_I64_EXTEND32_S: // TODO - LOGV(ERROR) << "FAULT"; + SPDLOG_DEBUG("FAULT"); exit(-1); break; case WASM_OP_MISC_PREFIX: { @@ -849,7 +812,7 @@ std::vector> wasm_replay_csp_bytecode(WASMExecE break; #endif /* WASM_ENABLE_REF_TYPES */ default: - LOGV(ERROR) << "FAULT"; + SPDLOG_DEBUG("FAULT"); exit(-1); } break; @@ -858,7 +821,7 @@ std::vector> wasm_replay_csp_bytecode(WASMExecE #if WASM_ENABLE_SIMD != 0 #if (WASM_ENABLE_WAMR_COMPILER != 0) || (WASM_ENABLE_JIT != 0) case WASM_OP_SIMD_PREFIX: { - LOGV(ERROR) << "FAULT"; + SPDLOG_DEBUG("FAULT"); exit(-1); /* TODO: shall we ceate a table to be friendly to branch * prediction */ @@ -951,7 +914,7 @@ std::vector> wasm_replay_csp_bytecode(WASMExecE #if WASM_ENABLE_SHARED_MEMORY != 0 case WASM_OP_ATOMIC_PREFIX: { - LOGV(ERROR) << "FAULT"; + SPDLOG_DEBUG("FAULT"); exit(-1); /* atomic_op (1 u8) + memarg (2 u32_leb) */ opcode = read_uint8(frame_ip); @@ -986,7 +949,7 @@ std::vector> wasm_replay_csp_bytecode(WASMExecE #endif default: - LOGV(ERROR) << "FAULT"; + SPDLOG_DEBUG("FAULT"); exit(-1); } } @@ -996,7 +959,7 @@ std::vector> wasm_replay_csp_bytecode(WASMExecE std::reverse(csp.begin(), csp.end()); return csp; fail: - LOGV(ERROR) << "FAULT"; + SPDLOG_DEBUG("FAULT"); exit(-1); } #endif \ No newline at end of file diff --git a/src/wamr_mmeory_instance.cpp b/src/wamr_mmeory_instance.cpp index 9b0d433..45b8eb7 100644 --- a/src/wamr_mmeory_instance.cpp +++ b/src/wamr_mmeory_instance.cpp @@ -4,7 +4,7 @@ extern WAMRInstance *wamr; void WAMRMemoryInstance::restore_impl(WASMMemoryInstance *env) { env->module_type = module_type; env->ref_count = ref_count + 1; - LOGV(ERROR) << "ref_count:" << env->ref_count; + SPDLOG_DEBUG("ref_count:{}", env->ref_count); env->is_shared_memory = true; env->num_bytes_per_page = num_bytes_per_page; env->cur_page_count = cur_page_count; diff --git a/src/wamr_module_instance.cpp b/src/wamr_module_instance.cpp index eb9e0cb..caa8b05 100644 --- a/src/wamr_module_instance.cpp +++ b/src/wamr_module_instance.cpp @@ -14,14 +14,14 @@ void WAMRModuleInstance::dump_impl(WASMModuleInstance *env) { memories.push_back(local_mem); } for (int i = 0; i < env->table_count; i++) { - printf("Dumping table %d\n", env->tables[i]->cur_size); + SPDLOG_DEBUG("Dumping table {}", env->tables[i]->cur_size); tables.push_back(*env->tables[i]); } // } global_data = std::vector(env->global_data, env->global_data + env->global_data_size); // tables = std::vector>(env->tables, env->tables + env->table_count); dump(&wasi_ctx, &env->module->wasi_args); - fprintf(stderr, "\nDumped global data ptr: %p\n", env->global_data); + SPDLOG_DEBUG("Dumped global data ptr: {}", ((void*)env->global_data)); if (wamr->is_aot) { auto module = (AOTModule *)env->module; aux_data_end_global_index = module->aux_data_end_global_index; @@ -42,7 +42,6 @@ void WAMRModuleInstance::dump_impl(WASMModuleInstance *env) { aux_stack_size = module->aux_stack_size; } dump(&global_table_data, env->global_table_data.memory_instances); - fprintf(stderr, "\nDumped global data size: %d\n", env->table_count); } void WAMRModuleInstance::restore_impl(WASMModuleInstance *env) { diff --git a/src/wamr_mvvm.cpp b/src/wamr_mvvm.cpp index eff123b..6a48e94 100644 --- a/src/wamr_mvvm.cpp +++ b/src/wamr_mvvm.cpp @@ -134,7 +134,7 @@ bool WAMRInstance::replace_int3_with_nop() { #endif } - // LOGV_DEBUG << "Making the code section executable"; + SPDLOG_DEBUG("Making the code section executable"); { int map_prot = MMAP_PROT_READ | MMAP_PROT_EXEC; @@ -155,7 +155,7 @@ bool WAMRInstance::replace_mfence_with_nop() { auto code = static_cast(module->code); auto code_size = module->code_size; - // LOGV_DEBUG << "Making the code section writable"; + SPDLOG_DEBUG("Making the code section writable"); { int map_prot = MMAP_PROT_READ | MMAP_PROT_WRITE; diff --git a/src/wamr_wasi_context.cpp b/src/wamr_wasi_context.cpp index cf3f633..b84863a 100644 --- a/src/wamr_wasi_context.cpp +++ b/src/wamr_wasi_context.cpp @@ -2,7 +2,6 @@ // Created by victoryang00 on 5/2/23. // #include "wamr_wasi_context.h" -#include "logging.h" #include "platform_wasi_types.h" #include "wamr.h" #include @@ -64,7 +63,7 @@ void WAMRWASIContext::dump_impl(WASIArguments *env) { } for (auto &[k, v] : wamr->child_tid_map) { child_tid_map[k] = v; - LOGV(ERROR) << "child_tid_map: " << k << " " << v; + SPDLOG_DEBUG("child_tid_map: {} {}", k, v); } // only one thread has fd_map if (wamr->should_snapshot) @@ -99,7 +98,7 @@ void WAMRWASIContext::dump_impl(WASIArguments *env) { rc = wamr->invoke_recvfrom(fd, &buf, 1024, 0, (struct sockaddr *)&sockaddr6, &sockaddr6_size); } if (rc == -1) { - LOGV(ERROR) << "recvfrom error"; + SPDLOG_ERROR("recvfrom error"); return; } } @@ -111,7 +110,7 @@ void WAMRWASIContext::dump_impl(WASIArguments *env) { while (wamr->socket_fd_map_[fd].is_collection) { // drain tcp socket rc = wamr->invoke_recv(fd, &buf, 1024, 0); if (rc == -1) { - LOGV(ERROR) << "recv error"; + SPDLOG_ERROR("recv error"); return; } } @@ -131,24 +130,23 @@ void WAMRWASIContext::restore_impl(WASIArguments *env) { wamr->should_snapshot = true; #endif for (auto &[k, v] : tid_start_arg_map) { - LOGV(ERROR) << "tid_start_arg_map: " << k << " " << v.second; + SPDLOG_ERROR("tid_start_arg_map: {}, {}", k, v.second); wamr->tid_start_arg_map[k] = v; } for (auto &[k, v] : child_tid_map) { wamr->child_tid_map[k] = v; - LOGV(ERROR) << "child_tid_map: " << k << " " << v; + SPDLOG_ERROR("child_tid_map: {}, {}", k, v); } for (auto [fd, res] : this->fd_map) { // differ from path from file auto path = std::get<0>(res); - LOGV(INFO) << "fd: " << fd << " path: " << path; + SPDLOG_INFO("fd: {} path: {}", fd, path); for (auto [flags, offset, op] : std::get<1>(res)) { // differ from path from file - LOGV(INFO) << "fd: " << fd << " path: " << path << " flag: " << flags << " op: " << op; switch (op) { case MVVM_FOPEN: r = wamr->invoke_fopen(path, fd); - LOGV(ERROR) << r; + SPDLOG_ERROR(r); if (r != fd) wamr->invoke_frenumber(r, fd); wamr->fd_map_[fd] = res; diff --git a/test/mpi.cpp b/test/mpi.cpp deleted file mode 100644 index 13d045f..0000000 --- a/test/mpi.cpp +++ /dev/null @@ -1,49 +0,0 @@ -#include "wamr.h" -#include "wamr_export.h" -#include -#include -#include -std::vector wamr; -template std::string sstr(Args &&...args) { - std::ostringstream sstr; - // fold expression - ((sstr << std::dec) << ... << args); - return sstr.str(); -} -void create_wamr_counter(int world_rank) { - wamr[world_rank] = new WAMRInstance("./test/counter.aot", false); - auto input = sstr(world_rank); - wamr[world_rank]->set_wasi_args({""}, {""}, {""}, {input}, {""}, {""}); - wamr[world_rank]->instantiate(); - wamr[world_rank]->invoke_main(); -}; -void serialize_to_file(WASMExecEnv *instance) { // serialize and restart in the same binary? - auto writer = new FwriteStream("./test/counter.bin"); - struct_pack::serialize(*writer, *instance); - exit(0); -}// migrate from one to the other? MPI run in normal state and forward to another host -int main(int argc, char **argv) { - // Initialize the MPI environment - MPI_Init(&argc, &argv); - - // Get the number of processes - int world_size; - // need to export MPIWasm fabric to wasm - MPI_Comm_size(MPI_COMM_WORLD, &world_size); - wamr.resize(world_size); - // Get the rank of the process - int world_rank; - MPI_Comm_rank(MPI_COMM_WORLD, &world_rank); - - // Get the name of the processor - char processor_name[MPI_MAX_PROCESSOR_NAME]; - int name_len; - MPI_Get_processor_name(processor_name, &name_len); - - // Print off a hello world message - printf("Hello world from processor %s, rank %d out of %d processors\n", processor_name, world_rank, world_size); - create_wamr_counter(world_rank); - - // Finalize the MPI environment. - MPI_Finalize(); -} \ No newline at end of file diff --git a/test/openblas/cblas.h b/test/openblas/cblas.h deleted file mode 100644 index 4325b50..0000000 --- a/test/openblas/cblas.h +++ /dev/null @@ -1,411 +0,0 @@ -#ifndef CBLAS_H -#define CBLAS_H - -#include -#include "openblas_config.h" - -#ifdef __cplusplus -extern "C" { - /* Assume C declarations for C++ */ -#endif /* __cplusplus */ - -/*Set the number of threads on runtime.*/ -void openblas_set_num_threads(int num_threads); -void goto_set_num_threads(int num_threads); - -/*Get the number of threads on runtime.*/ -int openblas_get_num_threads(void); - -/*Get the number of physical processors (cores).*/ -int openblas_get_num_procs(void); - -/*Get the build configure on runtime.*/ -char* openblas_get_config(void); - -/*Get the CPU corename on runtime.*/ -char* openblas_get_corename(void); - -#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); -/* Queries thread affinity for OpenBLAS threads. `thread_idx` is in [0, openblas_get_num_threads()-1]. */ -int openblas_getaffinity(int thread_idx, size_t cpusetsize, cpu_set_t* cpu_set); -#endif - -/* Get the parallelization type which is used by OpenBLAS */ -int openblas_get_parallel(void); -/* OpenBLAS is compiled for sequential use */ -#define OPENBLAS_SEQUENTIAL 0 -/* OpenBLAS is compiled using normal threading model */ -#define OPENBLAS_THREAD 1 -/* OpenBLAS is compiled using OpenMP threading model */ -#define OPENBLAS_OPENMP 2 - - -/* - * Since all of GotoBlas was written without const, - * we disable it at build time. - */ -#ifndef OPENBLAS_CONST -# define OPENBLAS_CONST const -#endif - - -#define CBLAS_INDEX size_t - -typedef enum CBLAS_ORDER {CblasRowMajor=101, CblasColMajor=102} CBLAS_ORDER; -typedef enum CBLAS_TRANSPOSE {CblasNoTrans=111, CblasTrans=112, CblasConjTrans=113, CblasConjNoTrans=114} CBLAS_TRANSPOSE; -typedef enum CBLAS_UPLO {CblasUpper=121, CblasLower=122} CBLAS_UPLO; -typedef enum CBLAS_DIAG {CblasNonUnit=131, CblasUnit=132} CBLAS_DIAG; -typedef enum CBLAS_SIDE {CblasLeft=141, CblasRight=142} CBLAS_SIDE; -typedef CBLAS_ORDER CBLAS_LAYOUT; - -float cblas_sdsdot(OPENBLAS_CONST blasint n, OPENBLAS_CONST float alpha, OPENBLAS_CONST float *x, OPENBLAS_CONST blasint incx, OPENBLAS_CONST float *y, OPENBLAS_CONST blasint incy); -double cblas_dsdot (OPENBLAS_CONST blasint n, OPENBLAS_CONST float *x, OPENBLAS_CONST blasint incx, OPENBLAS_CONST float *y, OPENBLAS_CONST blasint incy); -float cblas_sdot(OPENBLAS_CONST blasint n, OPENBLAS_CONST float *x, OPENBLAS_CONST blasint incx, OPENBLAS_CONST float *y, OPENBLAS_CONST blasint incy); -double cblas_ddot(OPENBLAS_CONST blasint n, OPENBLAS_CONST double *x, OPENBLAS_CONST blasint incx, OPENBLAS_CONST double *y, OPENBLAS_CONST blasint incy); - -openblas_complex_float cblas_cdotu(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx, OPENBLAS_CONST void *y, OPENBLAS_CONST blasint incy); -openblas_complex_float cblas_cdotc(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx, OPENBLAS_CONST void *y, OPENBLAS_CONST blasint incy); -openblas_complex_double cblas_zdotu(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx, OPENBLAS_CONST void *y, OPENBLAS_CONST blasint incy); -openblas_complex_double cblas_zdotc(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx, OPENBLAS_CONST void *y, OPENBLAS_CONST blasint incy); - -void cblas_cdotu_sub(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx, OPENBLAS_CONST void *y, OPENBLAS_CONST blasint incy, void *ret); -void cblas_cdotc_sub(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx, OPENBLAS_CONST void *y, OPENBLAS_CONST blasint incy, void *ret); -void cblas_zdotu_sub(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx, OPENBLAS_CONST void *y, OPENBLAS_CONST blasint incy, void *ret); -void cblas_zdotc_sub(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx, OPENBLAS_CONST void *y, OPENBLAS_CONST blasint incy, void *ret); - -float cblas_sasum (OPENBLAS_CONST blasint n, OPENBLAS_CONST float *x, OPENBLAS_CONST blasint incx); -double cblas_dasum (OPENBLAS_CONST blasint n, OPENBLAS_CONST double *x, OPENBLAS_CONST blasint incx); -float cblas_scasum(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx); -double cblas_dzasum(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx); - -float cblas_ssum (OPENBLAS_CONST blasint n, OPENBLAS_CONST float *x, OPENBLAS_CONST blasint incx); -double cblas_dsum (OPENBLAS_CONST blasint n, OPENBLAS_CONST double *x, OPENBLAS_CONST blasint incx); -float cblas_scsum(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx); -double cblas_dzsum(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx); - -float cblas_snrm2 (OPENBLAS_CONST blasint N, OPENBLAS_CONST float *X, OPENBLAS_CONST blasint incX); -double cblas_dnrm2 (OPENBLAS_CONST blasint N, OPENBLAS_CONST double *X, OPENBLAS_CONST blasint incX); -float cblas_scnrm2(OPENBLAS_CONST blasint N, OPENBLAS_CONST void *X, OPENBLAS_CONST blasint incX); -double cblas_dznrm2(OPENBLAS_CONST blasint N, OPENBLAS_CONST void *X, OPENBLAS_CONST blasint incX); - -CBLAS_INDEX cblas_isamax(OPENBLAS_CONST blasint n, OPENBLAS_CONST float *x, OPENBLAS_CONST blasint incx); -CBLAS_INDEX cblas_idamax(OPENBLAS_CONST blasint n, OPENBLAS_CONST double *x, OPENBLAS_CONST blasint incx); -CBLAS_INDEX cblas_icamax(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx); -CBLAS_INDEX cblas_izamax(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx); - -CBLAS_INDEX cblas_isamin(OPENBLAS_CONST blasint n, OPENBLAS_CONST float *x, OPENBLAS_CONST blasint incx); -CBLAS_INDEX cblas_idamin(OPENBLAS_CONST blasint n, OPENBLAS_CONST double *x, OPENBLAS_CONST blasint incx); -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); - -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); -CBLAS_INDEX cblas_izmax(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx); - -CBLAS_INDEX cblas_ismin(OPENBLAS_CONST blasint n, OPENBLAS_CONST float *x, OPENBLAS_CONST blasint incx); -CBLAS_INDEX cblas_idmin(OPENBLAS_CONST blasint n, OPENBLAS_CONST double *x, OPENBLAS_CONST blasint incx); -CBLAS_INDEX cblas_icmin(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx); -CBLAS_INDEX cblas_izmin(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx); - -void cblas_saxpy(OPENBLAS_CONST blasint n, OPENBLAS_CONST float alpha, OPENBLAS_CONST float *x, OPENBLAS_CONST blasint incx, float *y, OPENBLAS_CONST blasint incy); -void cblas_daxpy(OPENBLAS_CONST blasint n, OPENBLAS_CONST double alpha, OPENBLAS_CONST double *x, OPENBLAS_CONST blasint incx, double *y, OPENBLAS_CONST blasint incy); -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_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); -void cblas_zcopy(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx, void *y, OPENBLAS_CONST blasint incy); - -void cblas_sswap(OPENBLAS_CONST blasint n, float *x, OPENBLAS_CONST blasint incx, float *y, OPENBLAS_CONST blasint incy); -void cblas_dswap(OPENBLAS_CONST blasint n, double *x, OPENBLAS_CONST blasint incx, double *y, OPENBLAS_CONST blasint incy); -void cblas_cswap(OPENBLAS_CONST blasint n, void *x, OPENBLAS_CONST blasint incx, void *y, OPENBLAS_CONST blasint incy); -void cblas_zswap(OPENBLAS_CONST blasint n, void *x, OPENBLAS_CONST blasint incx, void *y, OPENBLAS_CONST blasint incy); - -void cblas_srot(OPENBLAS_CONST blasint N, float *X, OPENBLAS_CONST blasint incX, float *Y, OPENBLAS_CONST blasint incY, OPENBLAS_CONST float c, OPENBLAS_CONST float s); -void cblas_drot(OPENBLAS_CONST blasint N, double *X, OPENBLAS_CONST blasint incX, double *Y, OPENBLAS_CONST blasint incY, OPENBLAS_CONST double c, OPENBLAS_CONST double s); -void cblas_csrot(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx, void *y, OPENBLAS_CONST blasint incY, OPENBLAS_CONST float c, OPENBLAS_CONST float s); -void cblas_zdrot(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx, void *y, OPENBLAS_CONST blasint incY, OPENBLAS_CONST double c, OPENBLAS_CONST double s); - -void cblas_srotg(float *a, float *b, float *c, float *s); -void cblas_drotg(double *a, double *b, double *c, double *s); -void cblas_crotg(void *a, void *b, float *c, void *s); -void cblas_zrotg(void *a, void *b, double *c, void *s); - - -void cblas_srotm(OPENBLAS_CONST blasint N, float *X, OPENBLAS_CONST blasint incX, float *Y, OPENBLAS_CONST blasint incY, OPENBLAS_CONST float *P); -void cblas_drotm(OPENBLAS_CONST blasint N, double *X, OPENBLAS_CONST blasint incX, double *Y, OPENBLAS_CONST blasint incY, OPENBLAS_CONST double *P); - -void cblas_srotmg(float *d1, float *d2, float *b1, OPENBLAS_CONST float b2, float *P); -void cblas_drotmg(double *d1, double *d2, double *b1, OPENBLAS_CONST double b2, double *P); - -void cblas_sscal(OPENBLAS_CONST blasint N, OPENBLAS_CONST float alpha, float *X, OPENBLAS_CONST blasint incX); -void cblas_dscal(OPENBLAS_CONST blasint N, OPENBLAS_CONST double alpha, double *X, OPENBLAS_CONST blasint incX); -void cblas_cscal(OPENBLAS_CONST blasint N, OPENBLAS_CONST void *alpha, void *X, OPENBLAS_CONST blasint incX); -void cblas_zscal(OPENBLAS_CONST blasint N, OPENBLAS_CONST void *alpha, void *X, OPENBLAS_CONST blasint incX); -void cblas_csscal(OPENBLAS_CONST blasint N, OPENBLAS_CONST float alpha, void *X, OPENBLAS_CONST blasint incX); -void cblas_zdscal(OPENBLAS_CONST blasint N, OPENBLAS_CONST double alpha, void *X, OPENBLAS_CONST blasint incX); - -void cblas_sgemv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_TRANSPOSE trans, OPENBLAS_CONST blasint m, OPENBLAS_CONST blasint n, - OPENBLAS_CONST float alpha, OPENBLAS_CONST float *a, OPENBLAS_CONST blasint lda, OPENBLAS_CONST float *x, OPENBLAS_CONST blasint incx, OPENBLAS_CONST float beta, float *y, OPENBLAS_CONST blasint incy); -void cblas_dgemv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_TRANSPOSE trans, OPENBLAS_CONST blasint m, OPENBLAS_CONST blasint n, - OPENBLAS_CONST double alpha, OPENBLAS_CONST double *a, OPENBLAS_CONST blasint lda, OPENBLAS_CONST double *x, OPENBLAS_CONST blasint incx, OPENBLAS_CONST double beta, double *y, OPENBLAS_CONST blasint incy); -void cblas_cgemv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_TRANSPOSE trans, OPENBLAS_CONST blasint m, OPENBLAS_CONST blasint n, - OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *a, OPENBLAS_CONST blasint lda, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx, OPENBLAS_CONST void *beta, void *y, OPENBLAS_CONST blasint incy); -void cblas_zgemv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_TRANSPOSE trans, OPENBLAS_CONST blasint m, OPENBLAS_CONST blasint n, - OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *a, OPENBLAS_CONST blasint lda, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx, OPENBLAS_CONST void *beta, void *y, OPENBLAS_CONST blasint incy); - -void cblas_sger (OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint N, OPENBLAS_CONST float alpha, OPENBLAS_CONST float *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST float *Y, OPENBLAS_CONST blasint incY, float *A, OPENBLAS_CONST blasint lda); -void cblas_dger (OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint N, OPENBLAS_CONST double alpha, OPENBLAS_CONST double *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST double *Y, OPENBLAS_CONST blasint incY, double *A, OPENBLAS_CONST blasint lda); -void cblas_cgeru(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint N, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST void *Y, OPENBLAS_CONST blasint incY, void *A, OPENBLAS_CONST blasint lda); -void cblas_cgerc(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint N, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST void *Y, OPENBLAS_CONST blasint incY, void *A, OPENBLAS_CONST blasint lda); -void cblas_zgeru(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint N, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST void *Y, OPENBLAS_CONST blasint incY, void *A, OPENBLAS_CONST blasint lda); -void cblas_zgerc(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint N, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST void *Y, OPENBLAS_CONST blasint incY, void *A, OPENBLAS_CONST blasint lda); - -void cblas_strsv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, OPENBLAS_CONST blasint N, OPENBLAS_CONST float *A, OPENBLAS_CONST blasint lda, float *X, OPENBLAS_CONST blasint incX); -void cblas_dtrsv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, OPENBLAS_CONST blasint N, OPENBLAS_CONST double *A, OPENBLAS_CONST blasint lda, double *X, OPENBLAS_CONST blasint incX); -void cblas_ctrsv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, OPENBLAS_CONST blasint N, OPENBLAS_CONST void *A, OPENBLAS_CONST blasint lda, void *X, OPENBLAS_CONST blasint incX); -void cblas_ztrsv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, OPENBLAS_CONST blasint N, OPENBLAS_CONST void *A, OPENBLAS_CONST blasint lda, void *X, OPENBLAS_CONST blasint incX); - -void cblas_strmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, OPENBLAS_CONST blasint N, OPENBLAS_CONST float *A, OPENBLAS_CONST blasint lda, float *X, OPENBLAS_CONST blasint incX); -void cblas_dtrmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, OPENBLAS_CONST blasint N, OPENBLAS_CONST double *A, OPENBLAS_CONST blasint lda, double *X, OPENBLAS_CONST blasint incX); -void cblas_ctrmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, OPENBLAS_CONST blasint N, OPENBLAS_CONST void *A, OPENBLAS_CONST blasint lda, void *X, OPENBLAS_CONST blasint incX); -void cblas_ztrmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, OPENBLAS_CONST blasint N, OPENBLAS_CONST void *A, OPENBLAS_CONST blasint lda, void *X, OPENBLAS_CONST blasint incX); - -void cblas_ssyr(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST float alpha, OPENBLAS_CONST float *X, OPENBLAS_CONST blasint incX, float *A, OPENBLAS_CONST blasint lda); -void cblas_dsyr(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST double alpha, OPENBLAS_CONST double *X, OPENBLAS_CONST blasint incX, double *A, OPENBLAS_CONST blasint lda); -void cblas_cher(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST float alpha, OPENBLAS_CONST void *X, OPENBLAS_CONST blasint incX, void *A, OPENBLAS_CONST blasint lda); -void cblas_zher(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST double alpha, OPENBLAS_CONST void *X, OPENBLAS_CONST blasint incX, void *A, OPENBLAS_CONST blasint lda); - -void cblas_ssyr2(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo,OPENBLAS_CONST blasint N, OPENBLAS_CONST float alpha, OPENBLAS_CONST float *X, - OPENBLAS_CONST blasint incX, OPENBLAS_CONST float *Y, OPENBLAS_CONST blasint incY, float *A, OPENBLAS_CONST blasint lda); -void cblas_dsyr2(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST double alpha, OPENBLAS_CONST double *X, - OPENBLAS_CONST blasint incX, OPENBLAS_CONST double *Y, OPENBLAS_CONST blasint incY, double *A, OPENBLAS_CONST blasint lda); -void cblas_cher2(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *X, OPENBLAS_CONST blasint incX, - OPENBLAS_CONST void *Y, OPENBLAS_CONST blasint incY, void *A, OPENBLAS_CONST blasint lda); -void cblas_zher2(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *X, OPENBLAS_CONST blasint incX, - OPENBLAS_CONST void *Y, OPENBLAS_CONST blasint incY, void *A, OPENBLAS_CONST blasint lda); - -void cblas_sgbmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint N, - OPENBLAS_CONST blasint KL, OPENBLAS_CONST blasint KU, OPENBLAS_CONST float alpha, OPENBLAS_CONST float *A, OPENBLAS_CONST blasint lda, OPENBLAS_CONST float *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST float beta, float *Y, OPENBLAS_CONST blasint incY); -void cblas_dgbmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint N, - OPENBLAS_CONST blasint KL, OPENBLAS_CONST blasint KU, OPENBLAS_CONST double alpha, OPENBLAS_CONST double *A, OPENBLAS_CONST blasint lda, OPENBLAS_CONST double *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST double beta, double *Y, OPENBLAS_CONST blasint incY); -void cblas_cgbmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint N, - OPENBLAS_CONST blasint KL, OPENBLAS_CONST blasint KU, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *A, OPENBLAS_CONST blasint lda, OPENBLAS_CONST void *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST void *beta, void *Y, OPENBLAS_CONST blasint incY); -void cblas_zgbmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint N, - OPENBLAS_CONST blasint KL, OPENBLAS_CONST blasint KU, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *A, OPENBLAS_CONST blasint lda, OPENBLAS_CONST void *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST void *beta, void *Y, OPENBLAS_CONST blasint incY); - -void cblas_ssbmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST blasint K, OPENBLAS_CONST float alpha, OPENBLAS_CONST float *A, - OPENBLAS_CONST blasint lda, OPENBLAS_CONST float *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST float beta, float *Y, OPENBLAS_CONST blasint incY); -void cblas_dsbmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST blasint K, OPENBLAS_CONST double alpha, OPENBLAS_CONST double *A, - OPENBLAS_CONST blasint lda, OPENBLAS_CONST double *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST double beta, double *Y, OPENBLAS_CONST blasint incY); - - -void cblas_stbmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, - OPENBLAS_CONST blasint N, OPENBLAS_CONST blasint K, OPENBLAS_CONST float *A, OPENBLAS_CONST blasint lda, float *X, OPENBLAS_CONST blasint incX); -void cblas_dtbmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, - OPENBLAS_CONST blasint N, OPENBLAS_CONST blasint K, OPENBLAS_CONST double *A, OPENBLAS_CONST blasint lda, double *X, OPENBLAS_CONST blasint incX); -void cblas_ctbmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, - OPENBLAS_CONST blasint N, OPENBLAS_CONST blasint K, OPENBLAS_CONST void *A, OPENBLAS_CONST blasint lda, void *X, OPENBLAS_CONST blasint incX); -void cblas_ztbmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, - OPENBLAS_CONST blasint N, OPENBLAS_CONST blasint K, OPENBLAS_CONST void *A, OPENBLAS_CONST blasint lda, void *X, OPENBLAS_CONST blasint incX); - -void cblas_stbsv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, - OPENBLAS_CONST blasint N, OPENBLAS_CONST blasint K, OPENBLAS_CONST float *A, OPENBLAS_CONST blasint lda, float *X, OPENBLAS_CONST blasint incX); -void cblas_dtbsv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, - OPENBLAS_CONST blasint N, OPENBLAS_CONST blasint K, OPENBLAS_CONST double *A, OPENBLAS_CONST blasint lda, double *X, OPENBLAS_CONST blasint incX); -void cblas_ctbsv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, - OPENBLAS_CONST blasint N, OPENBLAS_CONST blasint K, OPENBLAS_CONST void *A, OPENBLAS_CONST blasint lda, void *X, OPENBLAS_CONST blasint incX); -void cblas_ztbsv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, - OPENBLAS_CONST blasint N, OPENBLAS_CONST blasint K, OPENBLAS_CONST void *A, OPENBLAS_CONST blasint lda, void *X, OPENBLAS_CONST blasint incX); - -void cblas_stpmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, - OPENBLAS_CONST blasint N, OPENBLAS_CONST float *Ap, float *X, OPENBLAS_CONST blasint incX); -void cblas_dtpmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, - OPENBLAS_CONST blasint N, OPENBLAS_CONST double *Ap, double *X, OPENBLAS_CONST blasint incX); -void cblas_ctpmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, - OPENBLAS_CONST blasint N, OPENBLAS_CONST void *Ap, void *X, OPENBLAS_CONST blasint incX); -void cblas_ztpmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, - OPENBLAS_CONST blasint N, OPENBLAS_CONST void *Ap, void *X, OPENBLAS_CONST blasint incX); - -void cblas_stpsv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, - OPENBLAS_CONST blasint N, OPENBLAS_CONST float *Ap, float *X, OPENBLAS_CONST blasint incX); -void cblas_dtpsv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, - OPENBLAS_CONST blasint N, OPENBLAS_CONST double *Ap, double *X, OPENBLAS_CONST blasint incX); -void cblas_ctpsv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, - OPENBLAS_CONST blasint N, OPENBLAS_CONST void *Ap, void *X, OPENBLAS_CONST blasint incX); -void cblas_ztpsv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, OPENBLAS_CONST enum CBLAS_DIAG Diag, - OPENBLAS_CONST blasint N, OPENBLAS_CONST void *Ap, void *X, OPENBLAS_CONST blasint incX); - -void cblas_ssymv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST float alpha, OPENBLAS_CONST float *A, - OPENBLAS_CONST blasint lda, OPENBLAS_CONST float *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST float beta, float *Y, OPENBLAS_CONST blasint incY); -void cblas_dsymv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST double alpha, OPENBLAS_CONST double *A, - OPENBLAS_CONST blasint lda, OPENBLAS_CONST double *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST double beta, double *Y, OPENBLAS_CONST blasint incY); -void cblas_chemv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *A, - OPENBLAS_CONST blasint lda, OPENBLAS_CONST void *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST void *beta, void *Y, OPENBLAS_CONST blasint incY); -void cblas_zhemv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *A, - OPENBLAS_CONST blasint lda, OPENBLAS_CONST void *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST void *beta, void *Y, OPENBLAS_CONST blasint incY); - - -void cblas_sspmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST float alpha, OPENBLAS_CONST float *Ap, - OPENBLAS_CONST float *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST float beta, float *Y, OPENBLAS_CONST blasint incY); -void cblas_dspmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST double alpha, OPENBLAS_CONST double *Ap, - OPENBLAS_CONST double *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST double beta, double *Y, OPENBLAS_CONST blasint incY); - -void cblas_sspr(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST float alpha, OPENBLAS_CONST float *X, OPENBLAS_CONST blasint incX, float *Ap); -void cblas_dspr(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST double alpha, OPENBLAS_CONST double *X, OPENBLAS_CONST blasint incX, double *Ap); - -void cblas_chpr(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST float alpha, OPENBLAS_CONST void *X, OPENBLAS_CONST blasint incX, void *A); -void cblas_zhpr(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST double alpha, OPENBLAS_CONST void *X,OPENBLAS_CONST blasint incX, void *A); - -void cblas_sspr2(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST float alpha, OPENBLAS_CONST float *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST float *Y, OPENBLAS_CONST blasint incY, float *A); -void cblas_dspr2(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST double alpha, OPENBLAS_CONST double *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST double *Y, OPENBLAS_CONST blasint incY, double *A); -void cblas_chpr2(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST void *Y, OPENBLAS_CONST blasint incY, void *Ap); -void cblas_zhpr2(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST void *Y, OPENBLAS_CONST blasint incY, void *Ap); - -void cblas_chbmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST blasint K, - OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *A, OPENBLAS_CONST blasint lda, OPENBLAS_CONST void *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST void *beta, void *Y, OPENBLAS_CONST blasint incY); -void cblas_zhbmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, OPENBLAS_CONST blasint K, - OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *A, OPENBLAS_CONST blasint lda, OPENBLAS_CONST void *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST void *beta, void *Y, OPENBLAS_CONST blasint incY); - -void cblas_chpmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, - OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *Ap, OPENBLAS_CONST void *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST void *beta, void *Y, OPENBLAS_CONST blasint incY); -void cblas_zhpmv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST blasint N, - OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *Ap, OPENBLAS_CONST void *X, OPENBLAS_CONST blasint incX, OPENBLAS_CONST void *beta, void *Y, OPENBLAS_CONST blasint incY); - -void cblas_sgemm(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 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_dgemm(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 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_cgemm(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_cgemm3m(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_zgemm(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_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_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); -void cblas_dsymm(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 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_csymm(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 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_zsymm(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 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_ssyrk(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE Trans, - OPENBLAS_CONST blasint N, OPENBLAS_CONST blasint K, OPENBLAS_CONST float alpha, OPENBLAS_CONST float *A, OPENBLAS_CONST blasint lda, OPENBLAS_CONST float beta, float *C, OPENBLAS_CONST blasint ldc); -void cblas_dsyrk(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE Trans, - OPENBLAS_CONST blasint N, OPENBLAS_CONST blasint K, OPENBLAS_CONST double alpha, OPENBLAS_CONST double *A, OPENBLAS_CONST blasint lda, OPENBLAS_CONST double beta, double *C, OPENBLAS_CONST blasint ldc); -void cblas_csyrk(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE Trans, - OPENBLAS_CONST blasint N, OPENBLAS_CONST blasint K, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *A, OPENBLAS_CONST blasint lda, OPENBLAS_CONST void *beta, void *C, OPENBLAS_CONST blasint ldc); -void cblas_zsyrk(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE Trans, - OPENBLAS_CONST blasint N, OPENBLAS_CONST blasint K, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *A, OPENBLAS_CONST blasint lda, OPENBLAS_CONST void *beta, void *C, OPENBLAS_CONST blasint ldc); - -void cblas_ssyr2k(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE Trans, - OPENBLAS_CONST blasint N, 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_dsyr2k(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE Trans, - OPENBLAS_CONST blasint N, 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_csyr2k(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE Trans, - 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_zsyr2k(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE Trans, - 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_strmm(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_SIDE Side, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, - OPENBLAS_CONST enum CBLAS_DIAG Diag, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint N, OPENBLAS_CONST float alpha, OPENBLAS_CONST float *A, OPENBLAS_CONST blasint lda, float *B, OPENBLAS_CONST blasint ldb); -void cblas_dtrmm(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_SIDE Side, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, - OPENBLAS_CONST enum CBLAS_DIAG Diag, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint N, OPENBLAS_CONST double alpha, OPENBLAS_CONST double *A, OPENBLAS_CONST blasint lda, double *B, OPENBLAS_CONST blasint ldb); -void cblas_ctrmm(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_SIDE Side, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, - OPENBLAS_CONST enum CBLAS_DIAG Diag, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint N, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *A, OPENBLAS_CONST blasint lda, void *B, OPENBLAS_CONST blasint ldb); -void cblas_ztrmm(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_SIDE Side, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, - OPENBLAS_CONST enum CBLAS_DIAG Diag, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint N, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *A, OPENBLAS_CONST blasint lda, void *B, OPENBLAS_CONST blasint ldb); - -void cblas_strsm(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_SIDE Side, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, - OPENBLAS_CONST enum CBLAS_DIAG Diag, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint N, OPENBLAS_CONST float alpha, OPENBLAS_CONST float *A, OPENBLAS_CONST blasint lda, float *B, OPENBLAS_CONST blasint ldb); -void cblas_dtrsm(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_SIDE Side, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, - OPENBLAS_CONST enum CBLAS_DIAG Diag, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint N, OPENBLAS_CONST double alpha, OPENBLAS_CONST double *A, OPENBLAS_CONST blasint lda, double *B, OPENBLAS_CONST blasint ldb); -void cblas_ctrsm(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_SIDE Side, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, - OPENBLAS_CONST enum CBLAS_DIAG Diag, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint N, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *A, OPENBLAS_CONST blasint lda, void *B, OPENBLAS_CONST blasint ldb); -void cblas_ztrsm(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_SIDE Side, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE TransA, - OPENBLAS_CONST enum CBLAS_DIAG Diag, OPENBLAS_CONST blasint M, OPENBLAS_CONST blasint N, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *A, OPENBLAS_CONST blasint lda, void *B, OPENBLAS_CONST blasint ldb); - -void cblas_chemm(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 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_zhemm(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 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_cherk(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE Trans, OPENBLAS_CONST blasint N, OPENBLAS_CONST blasint K, - OPENBLAS_CONST float alpha, OPENBLAS_CONST void *A, OPENBLAS_CONST blasint lda, OPENBLAS_CONST float beta, void *C, OPENBLAS_CONST blasint ldc); -void cblas_zherk(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE Trans, OPENBLAS_CONST blasint N, OPENBLAS_CONST blasint K, - OPENBLAS_CONST double alpha, OPENBLAS_CONST void *A, OPENBLAS_CONST blasint lda, OPENBLAS_CONST double beta, void *C, OPENBLAS_CONST blasint ldc); - -void cblas_cher2k(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE Trans, 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 float beta, void *C, OPENBLAS_CONST blasint ldc); -void cblas_zher2k(OPENBLAS_CONST enum CBLAS_ORDER Order, OPENBLAS_CONST enum CBLAS_UPLO Uplo, OPENBLAS_CONST enum CBLAS_TRANSPOSE Trans, 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 double beta, void *C, OPENBLAS_CONST blasint ldc); - -void cblas_xerbla(blasint p, OPENBLAS_CONST char *rout, OPENBLAS_CONST char *form, ...); - -/*** BLAS extensions ***/ - -void cblas_saxpby(OPENBLAS_CONST blasint n, OPENBLAS_CONST float alpha, OPENBLAS_CONST float *x, OPENBLAS_CONST blasint incx,OPENBLAS_CONST float beta, float *y, OPENBLAS_CONST blasint incy); - -void cblas_daxpby(OPENBLAS_CONST blasint n, OPENBLAS_CONST double alpha, OPENBLAS_CONST double *x, OPENBLAS_CONST blasint incx,OPENBLAS_CONST double beta, double *y, OPENBLAS_CONST blasint incy); - -void cblas_caxpby(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx,OPENBLAS_CONST void *beta, void *y, OPENBLAS_CONST blasint incy); - -void cblas_zaxpby(OPENBLAS_CONST blasint n, OPENBLAS_CONST void *alpha, OPENBLAS_CONST void *x, OPENBLAS_CONST blasint incx,OPENBLAS_CONST void *beta, void *y, OPENBLAS_CONST blasint incy); - -void cblas_somatcopy(OPENBLAS_CONST enum CBLAS_ORDER CORDER, OPENBLAS_CONST enum CBLAS_TRANSPOSE CTRANS, OPENBLAS_CONST blasint crows, OPENBLAS_CONST blasint ccols, OPENBLAS_CONST float calpha, OPENBLAS_CONST float *a, - OPENBLAS_CONST blasint clda, float *b, OPENBLAS_CONST blasint cldb); -void cblas_domatcopy(OPENBLAS_CONST enum CBLAS_ORDER CORDER, OPENBLAS_CONST enum CBLAS_TRANSPOSE CTRANS, OPENBLAS_CONST blasint crows, OPENBLAS_CONST blasint ccols, OPENBLAS_CONST double calpha, OPENBLAS_CONST double *a, - OPENBLAS_CONST blasint clda, double *b, OPENBLAS_CONST blasint cldb); -void cblas_comatcopy(OPENBLAS_CONST enum CBLAS_ORDER CORDER, OPENBLAS_CONST enum CBLAS_TRANSPOSE CTRANS, OPENBLAS_CONST blasint crows, OPENBLAS_CONST blasint ccols, OPENBLAS_CONST float* calpha, OPENBLAS_CONST float* a, - OPENBLAS_CONST blasint clda, float*b, OPENBLAS_CONST blasint cldb); -void cblas_zomatcopy(OPENBLAS_CONST enum CBLAS_ORDER CORDER, OPENBLAS_CONST enum CBLAS_TRANSPOSE CTRANS, OPENBLAS_CONST blasint crows, OPENBLAS_CONST blasint ccols, OPENBLAS_CONST double* calpha, OPENBLAS_CONST double* a, - OPENBLAS_CONST blasint clda, double *b, OPENBLAS_CONST blasint cldb); - -void cblas_simatcopy(OPENBLAS_CONST enum CBLAS_ORDER CORDER, OPENBLAS_CONST enum CBLAS_TRANSPOSE CTRANS, OPENBLAS_CONST blasint crows, OPENBLAS_CONST blasint ccols, OPENBLAS_CONST float calpha, float *a, - OPENBLAS_CONST blasint clda, OPENBLAS_CONST blasint cldb); -void cblas_dimatcopy(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_cimatcopy(OPENBLAS_CONST enum CBLAS_ORDER CORDER, OPENBLAS_CONST enum CBLAS_TRANSPOSE CTRANS, OPENBLAS_CONST blasint crows, OPENBLAS_CONST blasint ccols, OPENBLAS_CONST float* calpha, float* a, - OPENBLAS_CONST blasint clda, OPENBLAS_CONST blasint cldb); -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, 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, 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, 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, double *a, OPENBLAS_CONST blasint clda, OPENBLAS_CONST double *cbeta, - double *c, OPENBLAS_CONST blasint cldc); - -/*** 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); -/* convert double array to BFLOAT16 array by rounding */ -void cblas_sbdtobf16(OPENBLAS_CONST blasint n, OPENBLAS_CONST double *in, OPENBLAS_CONST blasint incin, bfloat16 *out, OPENBLAS_CONST blasint incout); -/* convert BFLOAT16 array to float array */ -void cblas_sbf16tos(OPENBLAS_CONST blasint n, OPENBLAS_CONST bfloat16 *in, OPENBLAS_CONST blasint incin, float *out, OPENBLAS_CONST blasint incout); -/* convert BFLOAT16 array to double array */ -void cblas_dbf16tod(OPENBLAS_CONST blasint n, OPENBLAS_CONST bfloat16 *in, OPENBLAS_CONST blasint incin, double *out, OPENBLAS_CONST blasint incout); -/* dot production of BFLOAT16 input arrays, and output as float */ -float cblas_sbdot(OPENBLAS_CONST blasint n, OPENBLAS_CONST bfloat16 *x, OPENBLAS_CONST blasint incx, OPENBLAS_CONST bfloat16 *y, OPENBLAS_CONST blasint incy); -void cblas_sbgemv(OPENBLAS_CONST enum CBLAS_ORDER order, OPENBLAS_CONST enum CBLAS_TRANSPOSE trans, OPENBLAS_CONST blasint m, OPENBLAS_CONST blasint n, OPENBLAS_CONST float alpha, OPENBLAS_CONST bfloat16 *a, OPENBLAS_CONST blasint lda, OPENBLAS_CONST bfloat16 *x, OPENBLAS_CONST blasint incx, OPENBLAS_CONST float beta, float *y, OPENBLAS_CONST blasint incy); - -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); -#ifdef __cplusplus -} -#endif /* __cplusplus */ - -#endif diff --git a/test/openblas/f77blas.h b/test/openblas/f77blas.h deleted file mode 100644 index a325e15..0000000 --- a/test/openblas/f77blas.h +++ /dev/null @@ -1,795 +0,0 @@ -#ifndef OPENBLAS_F77BLAS_H -#define OPENBLAS_F77BLAS_H -#include "openblas_config.h" -/*********************************************************************/ -/* Copyright 2009, 2010 The University of Texas at Austin. */ -/* All rights reserved. */ -/* */ -/* Redistribution and use in source and binary forms, with or */ -/* without modification, are permitted provided that the following */ -/* conditions are met: */ -/* */ -/* 1. Redistributions of source code must retain the above */ -/* copyright notice, this list of conditions and the following */ -/* disclaimer. */ -/* */ -/* 2. Redistributions in binary form must reproduce the above */ -/* copyright notice, this list of conditions and the following */ -/* disclaimer in the documentation and/or other materials */ -/* provided with the distribution. */ -/* */ -/* THIS SOFTWARE IS PROVIDED BY THE UNIVERSITY OF TEXAS AT */ -/* AUSTIN ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, */ -/* INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF */ -/* MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE */ -/* DISCLAIMED. IN NO EVENT SHALL THE UNIVERSITY OF TEXAS AT */ -/* AUSTIN OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, */ -/* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES */ -/* (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE */ -/* GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR */ -/* BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF */ -/* LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT */ -/* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT */ -/* OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE */ -/* POSSIBILITY OF SUCH DAMAGE. */ -/* */ -/* The views and conclusions contained in the software and */ -/* documentation are those of the authors and should not be */ -/* interpreted as representing official policies, either expressed */ -/* or implied, of The University of Texas at Austin. */ -/*********************************************************************/ - -#ifndef ASSEMBLER - -#ifdef __cplusplus -extern "C" { - /* Assume C declarations for C++ */ -#endif /* __cplusplus */ - -int BLASFUNC(xerbla)(char *, blasint *info, blasint); - -void openblas_set_num_threads_(int *); - -FLOATRET BLASFUNC(sdot) (blasint *, float *, blasint *, float *, blasint *); -FLOATRET BLASFUNC(sdsdot)(blasint *, float *, float *, blasint *, float *, blasint *); - -double BLASFUNC(dsdot) (blasint *, float *, blasint *, float *, blasint *); -double BLASFUNC(ddot) (blasint *, double *, blasint *, double *, blasint *); -xdouble BLASFUNC(qdot) (blasint *, xdouble *, blasint *, xdouble *, blasint *); - -float BLASFUNC(sbdot) (blasint *, bfloat16 *, blasint *, bfloat16 *, blasint *); -void BLASFUNC(sbstobf16) (blasint *, float *, blasint *, bfloat16 *, blasint *); -void BLASFUNC(sbdtobf16) (blasint *, double *, blasint *, bfloat16 *, blasint *); -void BLASFUNC(sbf16tos) (blasint *, bfloat16 *, blasint *, float *, blasint *); -void BLASFUNC(dbf16tod) (blasint *, bfloat16 *, blasint *, double *, blasint *); - -#ifdef RETURN_BY_STRUCT -typedef struct { - float r, i; -} myccomplex_t; - -typedef struct { - double r, i; -} myzcomplex_t; - -typedef struct { - xdouble r, i; -} myxcomplex_t; - -myccomplex_t BLASFUNC(cdotu) (blasint *, float *, blasint *, float *, blasint *); -myccomplex_t BLASFUNC(cdotc) (blasint *, float *, blasint *, float *, blasint *); -myzcomplex_t BLASFUNC(zdotu) (blasint *, double *, blasint *, double *, blasint *); -myzcomplex_t BLASFUNC(zdotc) (blasint *, double *, blasint *, double *, blasint *); -myxcomplex_t BLASFUNC(xdotu) (blasint *, xdouble *, blasint *, xdouble *, blasint *); -myxcomplex_t BLASFUNC(xdotc) (blasint *, xdouble *, blasint *, xdouble *, blasint *); - -#elif defined RETURN_BY_STACK -void BLASFUNC(cdotu) (openblas_complex_float *, blasint *, float * , blasint *, float *, blasint *); -void BLASFUNC(cdotc) (openblas_complex_float *, blasint *, float *, blasint *, float *, blasint *); -void BLASFUNC(zdotu) (openblas_complex_double *, blasint *, double *, blasint *, double *, blasint *); -void BLASFUNC(zdotc) (openblas_complex_double *, blasint *, double *, blasint *, double *, blasint *); -void BLASFUNC(xdotu) (openblas_complex_xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *); -void BLASFUNC(xdotc) (openblas_complex_xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *); -#else -openblas_complex_float BLASFUNC(cdotu) (blasint *, float *, blasint *, float *, blasint *); -openblas_complex_float BLASFUNC(cdotc) (blasint *, float *, blasint *, float *, blasint *); -openblas_complex_double BLASFUNC(zdotu) (blasint *, double *, blasint *, double *, blasint *); -openblas_complex_double BLASFUNC(zdotc) (blasint *, double *, blasint *, double *, blasint *); -openblas_complex_xdouble BLASFUNC(xdotu) (blasint *, xdouble *, blasint *, xdouble *, blasint *); -openblas_complex_xdouble BLASFUNC(xdotc) (blasint *, xdouble *, blasint *, xdouble *, blasint *); -#endif - -void BLASFUNC(saxpy) (blasint *, float *, float *, blasint *, float *, blasint *); -void BLASFUNC(daxpy) (blasint *, double *, double *, blasint *, double *, blasint *); -void BLASFUNC(qaxpy) (blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *); -void BLASFUNC(caxpy) (blasint *, float *, float *, blasint *, float *, blasint *); -void BLASFUNC(zaxpy) (blasint *, double *, double *, blasint *, double *, blasint *); -void BLASFUNC(xaxpy) (blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *); -void BLASFUNC(caxpyc)(blasint *, float *, float *, blasint *, float *, blasint *); -void BLASFUNC(zaxpyc)(blasint *, double *, double *, blasint *, double *, blasint *); -void BLASFUNC(xaxpyc)(blasint *, xdouble *, xdouble *, blasint *, xdouble *, blasint *); - -void BLASFUNC(scopy) (blasint *, float *, blasint *, float *, blasint *); -void BLASFUNC(dcopy) (blasint *, double *, blasint *, double *, blasint *); -void BLASFUNC(qcopy) (blasint *, xdouble *, blasint *, xdouble *, blasint *); -void BLASFUNC(ccopy) (blasint *, float *, blasint *, float *, blasint *); -void BLASFUNC(zcopy) (blasint *, double *, blasint *, double *, blasint *); -void BLASFUNC(xcopy) (blasint *, xdouble *, blasint *, xdouble *, blasint *); - -void BLASFUNC(sswap) (blasint *, float *, blasint *, float *, blasint *); -void BLASFUNC(dswap) (blasint *, double *, blasint *, double *, blasint *); -void BLASFUNC(qswap) (blasint *, xdouble *, blasint *, xdouble *, blasint *); -void BLASFUNC(cswap) (blasint *, float *, blasint *, float *, blasint *); -void BLASFUNC(zswap) (blasint *, double *, blasint *, double *, blasint *); -void BLASFUNC(xswap) (blasint *, xdouble *, blasint *, xdouble *, blasint *); - -FLOATRET BLASFUNC(sasum) (blasint *, float *, blasint *); -FLOATRET BLASFUNC(scasum)(blasint *, float *, blasint *); -double BLASFUNC(dasum) (blasint *, double *, blasint *); -xdouble BLASFUNC(qasum) (blasint *, xdouble *, blasint *); -double BLASFUNC(dzasum)(blasint *, double *, blasint *); -xdouble BLASFUNC(qxasum)(blasint *, xdouble *, blasint *); - -FLOATRET BLASFUNC(ssum) (blasint *, float *, blasint *); -FLOATRET BLASFUNC(scsum)(blasint *, float *, blasint *); -double BLASFUNC(dsum) (blasint *, double *, blasint *); -xdouble BLASFUNC(qsum) (blasint *, xdouble *, blasint *); -double BLASFUNC(dzsum)(blasint *, double *, blasint *); -xdouble BLASFUNC(qxsum)(blasint *, xdouble *, blasint *); - -blasint BLASFUNC(isamax)(blasint *, float *, blasint *); -blasint BLASFUNC(idamax)(blasint *, double *, blasint *); -blasint BLASFUNC(iqamax)(blasint *, xdouble *, blasint *); -blasint BLASFUNC(icamax)(blasint *, float *, blasint *); -blasint BLASFUNC(izamax)(blasint *, double *, blasint *); -blasint BLASFUNC(ixamax)(blasint *, xdouble *, blasint *); - -blasint BLASFUNC(ismax) (blasint *, float *, blasint *); -blasint BLASFUNC(idmax) (blasint *, double *, blasint *); -blasint BLASFUNC(iqmax) (blasint *, xdouble *, blasint *); -blasint BLASFUNC(icmax) (blasint *, float *, blasint *); -blasint BLASFUNC(izmax) (blasint *, double *, blasint *); -blasint BLASFUNC(ixmax) (blasint *, xdouble *, blasint *); - -blasint BLASFUNC(isamin)(blasint *, float *, blasint *); -blasint BLASFUNC(idamin)(blasint *, double *, blasint *); -blasint BLASFUNC(iqamin)(blasint *, xdouble *, blasint *); -blasint BLASFUNC(icamin)(blasint *, float *, blasint *); -blasint BLASFUNC(izamin)(blasint *, double *, blasint *); -blasint BLASFUNC(ixamin)(blasint *, xdouble *, blasint *); - -blasint BLASFUNC(ismin)(blasint *, float *, blasint *); -blasint BLASFUNC(idmin)(blasint *, double *, blasint *); -blasint BLASFUNC(iqmin)(blasint *, xdouble *, blasint *); -blasint BLASFUNC(icmin)(blasint *, float *, blasint *); -blasint BLASFUNC(izmin)(blasint *, double *, blasint *); -blasint BLASFUNC(ixmin)(blasint *, xdouble *, blasint *); - -FLOATRET BLASFUNC(samax) (blasint *, float *, blasint *); -double BLASFUNC(damax) (blasint *, double *, blasint *); -xdouble BLASFUNC(qamax) (blasint *, xdouble *, blasint *); -FLOATRET BLASFUNC(scamax)(blasint *, float *, blasint *); -double BLASFUNC(dzamax)(blasint *, double *, blasint *); -xdouble BLASFUNC(qxamax)(blasint *, xdouble *, blasint *); - -FLOATRET BLASFUNC(samin) (blasint *, float *, blasint *); -double BLASFUNC(damin) (blasint *, double *, blasint *); -xdouble BLASFUNC(qamin) (blasint *, xdouble *, blasint *); -FLOATRET BLASFUNC(scamin)(blasint *, float *, blasint *); -double BLASFUNC(dzamin)(blasint *, double *, blasint *); -xdouble BLASFUNC(qxamin)(blasint *, xdouble *, blasint *); - -FLOATRET BLASFUNC(smax) (blasint *, float *, blasint *); -double BLASFUNC(dmax) (blasint *, double *, blasint *); -xdouble BLASFUNC(qmax) (blasint *, xdouble *, blasint *); -FLOATRET BLASFUNC(scmax) (blasint *, float *, blasint *); -double BLASFUNC(dzmax) (blasint *, double *, blasint *); -xdouble BLASFUNC(qxmax) (blasint *, xdouble *, blasint *); - -FLOATRET BLASFUNC(smin) (blasint *, float *, blasint *); -double BLASFUNC(dmin) (blasint *, double *, blasint *); -xdouble BLASFUNC(qmin) (blasint *, xdouble *, blasint *); -FLOATRET BLASFUNC(scmin) (blasint *, float *, blasint *); -double BLASFUNC(dzmin) (blasint *, double *, blasint *); -xdouble BLASFUNC(qxmin) (blasint *, xdouble *, blasint *); - -void BLASFUNC(sscal) (blasint *, float *, float *, blasint *); -void BLASFUNC(dscal) (blasint *, double *, double *, blasint *); -void BLASFUNC(qscal) (blasint *, xdouble *, xdouble *, blasint *); -void BLASFUNC(cscal) (blasint *, float *, float *, blasint *); -void BLASFUNC(zscal) (blasint *, double *, double *, blasint *); -void BLASFUNC(xscal) (blasint *, xdouble *, xdouble *, blasint *); -void BLASFUNC(csscal)(blasint *, float *, float *, blasint *); -void BLASFUNC(zdscal)(blasint *, double *, double *, blasint *); -void BLASFUNC(xqscal)(blasint *, xdouble *, xdouble *, blasint *); - -FLOATRET BLASFUNC(snrm2) (blasint *, float *, blasint *); -FLOATRET BLASFUNC(scnrm2)(blasint *, float *, blasint *); - -double BLASFUNC(dnrm2) (blasint *, double *, blasint *); -xdouble BLASFUNC(qnrm2) (blasint *, xdouble *, blasint *); -double BLASFUNC(dznrm2)(blasint *, double *, blasint *); -xdouble BLASFUNC(qxnrm2)(blasint *, xdouble *, blasint *); - -void BLASFUNC(srot) (blasint *, float *, blasint *, float *, blasint *, float *, float *); -void BLASFUNC(drot) (blasint *, double *, blasint *, double *, blasint *, double *, double *); -void BLASFUNC(qrot) (blasint *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *); -void BLASFUNC(csrot) (blasint *, float *, blasint *, float *, blasint *, float *, float *); -void BLASFUNC(zdrot) (blasint *, double *, blasint *, double *, blasint *, double *, double *); -void BLASFUNC(xqrot) (blasint *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *); - -void BLASFUNC(srotg) (float *, float *, float *, float *); -void BLASFUNC(drotg) (double *, double *, double *, double *); -void BLASFUNC(qrotg) (xdouble *, xdouble *, xdouble *, xdouble *); -void BLASFUNC(crotg) (float *, float *, float *, float *); -void BLASFUNC(zrotg) (double *, double *, double *, double *); -void BLASFUNC(xrotg) (xdouble *, xdouble *, xdouble *, xdouble *); - -void BLASFUNC(srotmg)(float *, float *, float *, float *, float *); -void BLASFUNC(drotmg)(double *, double *, double *, double *, double *); - -void BLASFUNC(srotm) (blasint *, float *, blasint *, float *, blasint *, float *); -void BLASFUNC(drotm) (blasint *, double *, blasint *, double *, blasint *, double *); -void BLASFUNC(qrotm) (blasint *, xdouble *, blasint *, xdouble *, blasint *, xdouble *); - -/* Level 2 routines */ - -void BLASFUNC(sger)(blasint *, blasint *, float *, float *, blasint *, - float *, blasint *, float *, blasint *); -void BLASFUNC(dger)(blasint *, blasint *, double *, double *, blasint *, - double *, blasint *, double *, blasint *); -void BLASFUNC(qger)(blasint *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, blasint *, xdouble *, blasint *); -void BLASFUNC(cgeru)(blasint *, blasint *, float *, float *, blasint *, - float *, blasint *, float *, blasint *); -void BLASFUNC(cgerc)(blasint *, blasint *, float *, float *, blasint *, - float *, blasint *, float *, blasint *); -void BLASFUNC(zgeru)(blasint *, blasint *, double *, double *, blasint *, - double *, blasint *, double *, blasint *); -void BLASFUNC(zgerc)(blasint *, blasint *, double *, double *, blasint *, - double *, blasint *, double *, blasint *); -void BLASFUNC(xgeru)(blasint *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, blasint *, xdouble *, blasint *); -void BLASFUNC(xgerc)(blasint *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, blasint *, xdouble *, blasint *); - -void BLASFUNC(sbgemv)(char *, blasint *, blasint *, float *, bfloat16 *, blasint *, - bfloat16 *, blasint *, float *, float *, blasint *); -void BLASFUNC(sgemv)(char *, blasint *, blasint *, float *, float *, blasint *, - float *, blasint *, float *, float *, blasint *); -void BLASFUNC(dgemv)(char *, blasint *, blasint *, double *, double *, blasint *, - double *, blasint *, double *, double *, blasint *); -void BLASFUNC(qgemv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, blasint *, xdouble *, xdouble *, blasint *); -void BLASFUNC(cgemv)(char *, blasint *, blasint *, float *, float *, blasint *, - float *, blasint *, float *, float *, blasint *); -void BLASFUNC(zgemv)(char *, blasint *, blasint *, double *, double *, blasint *, - double *, blasint *, double *, double *, blasint *); -void BLASFUNC(xgemv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, blasint *, xdouble *, xdouble *, blasint *); - -void BLASFUNC(strsv) (char *, char *, char *, blasint *, float *, blasint *, - float *, blasint *); -void BLASFUNC(dtrsv) (char *, char *, char *, blasint *, double *, blasint *, - double *, blasint *); -void BLASFUNC(qtrsv) (char *, char *, char *, blasint *, xdouble *, blasint *, - xdouble *, blasint *); -void BLASFUNC(ctrsv) (char *, char *, char *, blasint *, float *, blasint *, - float *, blasint *); -void BLASFUNC(ztrsv) (char *, char *, char *, blasint *, double *, blasint *, - double *, blasint *); -void BLASFUNC(xtrsv) (char *, char *, char *, blasint *, xdouble *, blasint *, - xdouble *, blasint *); - -void BLASFUNC(strmv) (char *, char *, char *, blasint *, float *, blasint *, - float *, blasint *); -void BLASFUNC(dtrmv) (char *, char *, char *, blasint *, double *, blasint *, - double *, blasint *); -void BLASFUNC(qtrmv) (char *, char *, char *, blasint *, xdouble *, blasint *, - xdouble *, blasint *); -void BLASFUNC(ctrmv) (char *, char *, char *, blasint *, float *, blasint *, - float *, blasint *); -void BLASFUNC(ztrmv) (char *, char *, char *, blasint *, double *, blasint *, - double *, blasint *); -void BLASFUNC(xtrmv) (char *, char *, char *, blasint *, xdouble *, blasint *, - xdouble *, blasint *); - -void BLASFUNC(stpsv) (char *, char *, char *, blasint *, float *, float *, blasint *); -void BLASFUNC(dtpsv) (char *, char *, char *, blasint *, double *, double *, blasint *); -void BLASFUNC(qtpsv) (char *, char *, char *, blasint *, xdouble *, xdouble *, blasint *); -void BLASFUNC(ctpsv) (char *, char *, char *, blasint *, float *, float *, blasint *); -void BLASFUNC(ztpsv) (char *, char *, char *, blasint *, double *, double *, blasint *); -void BLASFUNC(xtpsv) (char *, char *, char *, blasint *, xdouble *, xdouble *, blasint *); - -void BLASFUNC(stpmv) (char *, char *, char *, blasint *, float *, float *, blasint *); -void BLASFUNC(dtpmv) (char *, char *, char *, blasint *, double *, double *, blasint *); -void BLASFUNC(qtpmv) (char *, char *, char *, blasint *, xdouble *, xdouble *, blasint *); -void BLASFUNC(ctpmv) (char *, char *, char *, blasint *, float *, float *, blasint *); -void BLASFUNC(ztpmv) (char *, char *, char *, blasint *, double *, double *, blasint *); -void BLASFUNC(xtpmv) (char *, char *, char *, blasint *, xdouble *, xdouble *, blasint *); - -void BLASFUNC(stbmv) (char *, char *, char *, blasint *, blasint *, float *, blasint *, float *, blasint *); -void BLASFUNC(dtbmv) (char *, char *, char *, blasint *, blasint *, double *, blasint *, double *, blasint *); -void BLASFUNC(qtbmv) (char *, char *, char *, blasint *, blasint *, xdouble *, blasint *, xdouble *, blasint *); -void BLASFUNC(ctbmv) (char *, char *, char *, blasint *, blasint *, float *, blasint *, float *, blasint *); -void BLASFUNC(ztbmv) (char *, char *, char *, blasint *, blasint *, double *, blasint *, double *, blasint *); -void BLASFUNC(xtbmv) (char *, char *, char *, blasint *, blasint *, xdouble *, blasint *, xdouble *, blasint *); - -void BLASFUNC(stbsv) (char *, char *, char *, blasint *, blasint *, float *, blasint *, float *, blasint *); -void BLASFUNC(dtbsv) (char *, char *, char *, blasint *, blasint *, double *, blasint *, double *, blasint *); -void BLASFUNC(qtbsv) (char *, char *, char *, blasint *, blasint *, xdouble *, blasint *, xdouble *, blasint *); -void BLASFUNC(ctbsv) (char *, char *, char *, blasint *, blasint *, float *, blasint *, float *, blasint *); -void BLASFUNC(ztbsv) (char *, char *, char *, blasint *, blasint *, double *, blasint *, double *, blasint *); -void BLASFUNC(xtbsv) (char *, char *, char *, blasint *, blasint *, xdouble *, blasint *, xdouble *, blasint *); - -void BLASFUNC(ssymv) (char *, blasint *, float *, float *, blasint *, - float *, blasint *, float *, float *, blasint *); -void BLASFUNC(dsymv) (char *, blasint *, double *, double *, blasint *, - double *, blasint *, double *, double *, blasint *); -void BLASFUNC(qsymv) (char *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, blasint *, xdouble *, xdouble *, blasint *); -void BLASFUNC(csymv) (char *, blasint *, float *, float *, blasint *, - float *, blasint *, float *, float *, blasint *); -void BLASFUNC(zsymv) (char *, blasint *, double *, double *, blasint *, - double *, blasint *, double *, double *, blasint *); -void BLASFUNC(xsymv) (char *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, blasint *, xdouble *, xdouble *, blasint *); - -void BLASFUNC(sspmv) (char *, blasint *, float *, float *, - float *, blasint *, float *, float *, blasint *); -void BLASFUNC(dspmv) (char *, blasint *, double *, double *, - double *, blasint *, double *, double *, blasint *); -void BLASFUNC(qspmv) (char *, blasint *, xdouble *, xdouble *, - xdouble *, blasint *, xdouble *, xdouble *, blasint *); -void BLASFUNC(cspmv) (char *, blasint *, float *, float *, - float *, blasint *, float *, float *, blasint *); -void BLASFUNC(zspmv) (char *, blasint *, double *, double *, - double *, blasint *, double *, double *, blasint *); -void BLASFUNC(xspmv) (char *, blasint *, xdouble *, xdouble *, - xdouble *, blasint *, xdouble *, xdouble *, blasint *); - -void BLASFUNC(ssyr) (char *, blasint *, float *, float *, blasint *, - float *, blasint *); -void BLASFUNC(dsyr) (char *, blasint *, double *, double *, blasint *, - double *, blasint *); -void BLASFUNC(qsyr) (char *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, blasint *); -void BLASFUNC(csyr) (char *, blasint *, float *, float *, blasint *, - float *, blasint *); -void BLASFUNC(zsyr) (char *, blasint *, double *, double *, blasint *, - double *, blasint *); -void BLASFUNC(xsyr) (char *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, blasint *); - -void BLASFUNC(ssyr2) (char *, blasint *, float *, - float *, blasint *, float *, blasint *, float *, blasint *); -void BLASFUNC(dsyr2) (char *, blasint *, double *, - double *, blasint *, double *, blasint *, double *, blasint *); -void BLASFUNC(qsyr2) (char *, blasint *, xdouble *, - xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *); -void BLASFUNC(csyr2) (char *, blasint *, float *, - float *, blasint *, float *, blasint *, float *, blasint *); -void BLASFUNC(zsyr2) (char *, blasint *, double *, - double *, blasint *, double *, blasint *, double *, blasint *); -void BLASFUNC(xsyr2) (char *, blasint *, xdouble *, - xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *); - -void BLASFUNC(sspr) (char *, blasint *, float *, float *, blasint *, - float *); -void BLASFUNC(dspr) (char *, blasint *, double *, double *, blasint *, - double *); -void BLASFUNC(qspr) (char *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *); -void BLASFUNC(cspr) (char *, blasint *, float *, float *, blasint *, - float *); -void BLASFUNC(zspr) (char *, blasint *, double *, double *, blasint *, - double *); -void BLASFUNC(xspr) (char *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *); - -void BLASFUNC(sspr2) (char *, blasint *, float *, - float *, blasint *, float *, blasint *, float *); -void BLASFUNC(dspr2) (char *, blasint *, double *, - double *, blasint *, double *, blasint *, double *); -void BLASFUNC(qspr2) (char *, blasint *, xdouble *, - xdouble *, blasint *, xdouble *, blasint *, xdouble *); -void BLASFUNC(cspr2) (char *, blasint *, float *, - float *, blasint *, float *, blasint *, float *); -void BLASFUNC(zspr2) (char *, blasint *, double *, - double *, blasint *, double *, blasint *, double *); -void BLASFUNC(xspr2) (char *, blasint *, xdouble *, - xdouble *, blasint *, xdouble *, blasint *, xdouble *); - -void BLASFUNC(cher) (char *, blasint *, float *, float *, blasint *, - float *, blasint *); -void BLASFUNC(zher) (char *, blasint *, double *, double *, blasint *, - double *, blasint *); -void BLASFUNC(xher) (char *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, blasint *); - -void BLASFUNC(chpr) (char *, blasint *, float *, float *, blasint *, float *); -void BLASFUNC(zhpr) (char *, blasint *, double *, double *, blasint *, double *); -void BLASFUNC(xhpr) (char *, blasint *, xdouble *, xdouble *, blasint *, xdouble *); - -void BLASFUNC(cher2) (char *, blasint *, float *, - float *, blasint *, float *, blasint *, float *, blasint *); -void BLASFUNC(zher2) (char *, blasint *, double *, - double *, blasint *, double *, blasint *, double *, blasint *); -void BLASFUNC(xher2) (char *, blasint *, xdouble *, - xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *); - -void BLASFUNC(chpr2) (char *, blasint *, float *, - float *, blasint *, float *, blasint *, float *); -void BLASFUNC(zhpr2) (char *, blasint *, double *, - double *, blasint *, double *, blasint *, double *); -void BLASFUNC(xhpr2) (char *, blasint *, xdouble *, - xdouble *, blasint *, xdouble *, blasint *, xdouble *); - -void BLASFUNC(chemv) (char *, blasint *, float *, float *, blasint *, - float *, blasint *, float *, float *, blasint *); -void BLASFUNC(zhemv) (char *, blasint *, double *, double *, blasint *, - double *, blasint *, double *, double *, blasint *); -void BLASFUNC(xhemv) (char *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, blasint *, xdouble *, xdouble *, blasint *); - -void BLASFUNC(chpmv) (char *, blasint *, float *, float *, - float *, blasint *, float *, float *, blasint *); -void BLASFUNC(zhpmv) (char *, blasint *, double *, double *, - double *, blasint *, double *, double *, blasint *); -void BLASFUNC(xhpmv) (char *, blasint *, xdouble *, xdouble *, - xdouble *, blasint *, xdouble *, xdouble *, blasint *); - -int BLASFUNC(snorm)(char *, blasint *, blasint *, float *, blasint *); -int BLASFUNC(dnorm)(char *, blasint *, blasint *, double *, blasint *); -int BLASFUNC(cnorm)(char *, blasint *, blasint *, float *, blasint *); -int BLASFUNC(znorm)(char *, blasint *, blasint *, double *, blasint *); - -void BLASFUNC(sgbmv)(char *, blasint *, blasint *, blasint *, blasint *, float *, float *, blasint *, - float *, blasint *, float *, float *, blasint *); -void BLASFUNC(dgbmv)(char *, blasint *, blasint *, blasint *, blasint *, double *, double *, blasint *, - double *, blasint *, double *, double *, blasint *); -void BLASFUNC(qgbmv)(char *, blasint *, blasint *, blasint *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, blasint *, xdouble *, xdouble *, blasint *); -void BLASFUNC(cgbmv)(char *, blasint *, blasint *, blasint *, blasint *, float *, float *, blasint *, - float *, blasint *, float *, float *, blasint *); -void BLASFUNC(zgbmv)(char *, blasint *, blasint *, blasint *, blasint *, double *, double *, blasint *, - double *, blasint *, double *, double *, blasint *); -void BLASFUNC(xgbmv)(char *, blasint *, blasint *, blasint *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, blasint *, xdouble *, xdouble *, blasint *); - -void BLASFUNC(ssbmv)(char *, blasint *, blasint *, float *, float *, blasint *, - float *, blasint *, float *, float *, blasint *); -void BLASFUNC(dsbmv)(char *, blasint *, blasint *, double *, double *, blasint *, - double *, blasint *, double *, double *, blasint *); -void BLASFUNC(qsbmv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, blasint *, xdouble *, xdouble *, blasint *); -void BLASFUNC(csbmv)(char *, blasint *, blasint *, float *, float *, blasint *, - float *, blasint *, float *, float *, blasint *); -void BLASFUNC(zsbmv)(char *, blasint *, blasint *, double *, double *, blasint *, - double *, blasint *, double *, double *, blasint *); -void BLASFUNC(xsbmv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, blasint *, xdouble *, xdouble *, blasint *); - -void BLASFUNC(chbmv)(char *, blasint *, blasint *, float *, float *, blasint *, - float *, blasint *, float *, float *, blasint *); -void BLASFUNC(zhbmv)(char *, blasint *, blasint *, double *, double *, blasint *, - double *, blasint *, double *, double *, blasint *); -void BLASFUNC(xhbmv)(char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, blasint *, xdouble *, xdouble *, blasint *); - -/* Level 3 routines */ - -void BLASFUNC(sbgemm)(char *, char *, blasint *, blasint *, blasint *, float *, - bfloat16 *, blasint *, bfloat16 *, blasint *, float *, float *, blasint *); -void BLASFUNC(sgemm)(char *, char *, blasint *, blasint *, blasint *, float *, - float *, blasint *, float *, blasint *, float *, float *, blasint *); -void BLASFUNC(dgemm)(char *, char *, blasint *, blasint *, blasint *, double *, - double *, blasint *, double *, blasint *, double *, double *, blasint *); -void BLASFUNC(qgemm)(char *, char *, blasint *, blasint *, blasint *, xdouble *, - xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *); -void BLASFUNC(cgemm)(char *, char *, blasint *, blasint *, blasint *, float *, - float *, blasint *, float *, blasint *, float *, float *, blasint *); -void BLASFUNC(zgemm)(char *, char *, blasint *, blasint *, blasint *, double *, - double *, blasint *, double *, blasint *, double *, double *, blasint *); -void BLASFUNC(xgemm)(char *, char *, blasint *, blasint *, blasint *, xdouble *, - xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *); - -void BLASFUNC(cgemm3m)(char *, char *, blasint *, blasint *, blasint *, float *, - float *, blasint *, float *, blasint *, float *, float *, blasint *); -void BLASFUNC(zgemm3m)(char *, char *, blasint *, blasint *, blasint *, double *, - double *, blasint *, double *, blasint *, double *, double *, blasint *); -void BLASFUNC(xgemm3m)(char *, char *, blasint *, blasint *, blasint *, xdouble *, - xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *); - -int BLASFUNC(sge2mm)(char *, char *, char *, blasint *, blasint *, - float *, float *, blasint *, float *, blasint *, - float *, float *, blasint *); -int BLASFUNC(dge2mm)(char *, char *, char *, blasint *, blasint *, - double *, double *, blasint *, double *, blasint *, - double *, double *, blasint *); -int BLASFUNC(cge2mm)(char *, char *, char *, blasint *, blasint *, - float *, float *, blasint *, float *, blasint *, - float *, float *, blasint *); -int BLASFUNC(zge2mm)(char *, char *, char *, blasint *, blasint *, - double *, double *, blasint *, double *, blasint *, - double *, double *, blasint *); - -void BLASFUNC(strsm)(char *, char *, char *, char *, blasint *, blasint *, - float *, float *, blasint *, float *, blasint *); -void BLASFUNC(dtrsm)(char *, char *, char *, char *, blasint *, blasint *, - double *, double *, blasint *, double *, blasint *); -void BLASFUNC(qtrsm)(char *, char *, char *, char *, blasint *, blasint *, - xdouble *, xdouble *, blasint *, xdouble *, blasint *); -void BLASFUNC(ctrsm)(char *, char *, char *, char *, blasint *, blasint *, - float *, float *, blasint *, float *, blasint *); -void BLASFUNC(ztrsm)(char *, char *, char *, char *, blasint *, blasint *, - double *, double *, blasint *, double *, blasint *); -void BLASFUNC(xtrsm)(char *, char *, char *, char *, blasint *, blasint *, - xdouble *, xdouble *, blasint *, xdouble *, blasint *); - -void BLASFUNC(strmm)(char *, char *, char *, char *, blasint *, blasint *, - float *, float *, blasint *, float *, blasint *); -void BLASFUNC(dtrmm)(char *, char *, char *, char *, blasint *, blasint *, - double *, double *, blasint *, double *, blasint *); -void BLASFUNC(qtrmm)(char *, char *, char *, char *, blasint *, blasint *, - xdouble *, xdouble *, blasint *, xdouble *, blasint *); -void BLASFUNC(ctrmm)(char *, char *, char *, char *, blasint *, blasint *, - float *, float *, blasint *, float *, blasint *); -void BLASFUNC(ztrmm)(char *, char *, char *, char *, blasint *, blasint *, - double *, double *, blasint *, double *, blasint *); -void BLASFUNC(xtrmm)(char *, char *, char *, char *, blasint *, blasint *, - xdouble *, xdouble *, blasint *, xdouble *, blasint *); - -void BLASFUNC(ssymm)(char *, char *, blasint *, blasint *, float *, float *, blasint *, - float *, blasint *, float *, float *, blasint *); -void BLASFUNC(dsymm)(char *, char *, blasint *, blasint *, double *, double *, blasint *, - double *, blasint *, double *, double *, blasint *); -void BLASFUNC(qsymm)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, blasint *, xdouble *, xdouble *, blasint *); -void BLASFUNC(csymm)(char *, char *, blasint *, blasint *, float *, float *, blasint *, - float *, blasint *, float *, float *, blasint *); -void BLASFUNC(zsymm)(char *, char *, blasint *, blasint *, double *, double *, blasint *, - double *, blasint *, double *, double *, blasint *); -void BLASFUNC(xsymm)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, blasint *, xdouble *, xdouble *, blasint *); - -void BLASFUNC(csymm3m)(char *, char *, blasint *, blasint *, float *, float *, blasint *, - float *, blasint *, float *, float *, blasint *); -void BLASFUNC(zsymm3m)(char *, char *, blasint *, blasint *, double *, double *, blasint *, - double *, blasint *, double *, double *, blasint *); -void BLASFUNC(xsymm3m)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, blasint *, xdouble *, xdouble *, blasint *); - -void BLASFUNC(ssyrk)(char *, char *, blasint *, blasint *, float *, float *, blasint *, - float *, float *, blasint *); -void BLASFUNC(dsyrk)(char *, char *, blasint *, blasint *, double *, double *, blasint *, - double *, double *, blasint *); -void BLASFUNC(qsyrk)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, xdouble *, blasint *); -void BLASFUNC(csyrk)(char *, char *, blasint *, blasint *, float *, float *, blasint *, - float *, float *, blasint *); -void BLASFUNC(zsyrk)(char *, char *, blasint *, blasint *, double *, double *, blasint *, - double *, double *, blasint *); -void BLASFUNC(xsyrk)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, xdouble *, blasint *); - -void BLASFUNC(ssyr2k)(char *, char *, blasint *, blasint *, float *, float *, blasint *, - float *, blasint *, float *, float *, blasint *); -void BLASFUNC(dsyr2k)(char *, char *, blasint *, blasint *, double *, double *, blasint *, - double*, blasint *, double *, double *, blasint *); -void BLASFUNC(qsyr2k)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, - xdouble*, blasint *, xdouble *, xdouble *, blasint *); -void BLASFUNC(csyr2k)(char *, char *, blasint *, blasint *, float *, float *, blasint *, - float *, blasint *, float *, float *, blasint *); -void BLASFUNC(zsyr2k)(char *, char *, blasint *, blasint *, double *, double *, blasint *, - double*, blasint *, double *, double *, blasint *); -void BLASFUNC(xsyr2k)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, - xdouble*, blasint *, xdouble *, xdouble *, blasint *); - -void BLASFUNC(chemm)(char *, char *, blasint *, blasint *, float *, float *, blasint *, - float *, blasint *, float *, float *, blasint *); -void BLASFUNC(zhemm)(char *, char *, blasint *, blasint *, double *, double *, blasint *, - double *, blasint *, double *, double *, blasint *); -void BLASFUNC(xhemm)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, blasint *, xdouble *, xdouble *, blasint *); - -void BLASFUNC(chemm3m)(char *, char *, blasint *, blasint *, float *, float *, blasint *, - float *, blasint *, float *, float *, blasint *); -void BLASFUNC(zhemm3m)(char *, char *, blasint *, blasint *, double *, double *, blasint *, - double *, blasint *, double *, double *, blasint *); -void BLASFUNC(xhemm3m)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, blasint *, xdouble *, xdouble *, blasint *); - -void BLASFUNC(cherk)(char *, char *, blasint *, blasint *, float *, float *, blasint *, - float *, float *, blasint *); -void BLASFUNC(zherk)(char *, char *, blasint *, blasint *, double *, double *, blasint *, - double *, double *, blasint *); -void BLASFUNC(xherk)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, - xdouble *, xdouble *, blasint *); - -void BLASFUNC(cher2k)(char *, char *, blasint *, blasint *, float *, float *, blasint *, - float *, blasint *, float *, float *, blasint *); -void BLASFUNC(zher2k)(char *, char *, blasint *, blasint *, double *, double *, blasint *, - double*, blasint *, double *, double *, blasint *); -void BLASFUNC(xher2k)(char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, - xdouble*, blasint *, xdouble *, xdouble *, blasint *); - -int BLASFUNC(cher2m)(char *, char *, char *, blasint *, blasint *, float *, float *, blasint *, - float *, blasint *, float *, float *, blasint *); -int BLASFUNC(zher2m)(char *, char *, char *, blasint *, blasint *, double *, double *, blasint *, - double*, blasint *, double *, double *, blasint *); -int BLASFUNC(xher2m)(char *, char *, char *, blasint *, blasint *, xdouble *, xdouble *, blasint *, - xdouble*, blasint *, xdouble *, xdouble *, blasint *); - -int BLASFUNC(sgemt)(char *, blasint *, blasint *, float *, float *, blasint *, - float *, blasint *); -int BLASFUNC(dgemt)(char *, blasint *, blasint *, double *, double *, blasint *, - double *, blasint *); -int BLASFUNC(cgemt)(char *, blasint *, blasint *, float *, float *, blasint *, - float *, blasint *); -int BLASFUNC(zgemt)(char *, blasint *, blasint *, double *, double *, blasint *, - double *, blasint *); - -int BLASFUNC(sgema)(char *, char *, blasint *, blasint *, float *, - float *, blasint *, float *, float *, blasint *, float *, blasint *); -int BLASFUNC(dgema)(char *, char *, blasint *, blasint *, double *, - double *, blasint *, double*, double *, blasint *, double*, blasint *); -int BLASFUNC(cgema)(char *, char *, blasint *, blasint *, float *, - float *, blasint *, float *, float *, blasint *, float *, blasint *); -int BLASFUNC(zgema)(char *, char *, blasint *, blasint *, double *, - double *, blasint *, double*, double *, blasint *, double*, blasint *); - -int BLASFUNC(sgems)(char *, char *, blasint *, blasint *, float *, - float *, blasint *, float *, float *, blasint *, float *, blasint *); -int BLASFUNC(dgems)(char *, char *, blasint *, blasint *, double *, - double *, blasint *, double*, double *, blasint *, double*, blasint *); -int BLASFUNC(cgems)(char *, char *, blasint *, blasint *, float *, - float *, blasint *, float *, float *, blasint *, float *, blasint *); -int BLASFUNC(zgems)(char *, char *, blasint *, blasint *, double *, - double *, blasint *, double*, double *, blasint *, double*, blasint *); - -int BLASFUNC(sgemc)(char *, char *, blasint *, blasint *, blasint *, float *, - float *, blasint *, float *, blasint *, float *, blasint *, float *, float *, blasint *); -int BLASFUNC(dgemc)(char *, char *, blasint *, blasint *, blasint *, double *, - double *, blasint *, double *, blasint *, double *, blasint *, double *, double *, blasint *); -int BLASFUNC(qgemc)(char *, char *, blasint *, blasint *, blasint *, xdouble *, - xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *); -int BLASFUNC(cgemc)(char *, char *, blasint *, blasint *, blasint *, float *, - float *, blasint *, float *, blasint *, float *, blasint *, float *, float *, blasint *); -int BLASFUNC(zgemc)(char *, char *, blasint *, blasint *, blasint *, double *, - double *, blasint *, double *, blasint *, double *, blasint *, double *, double *, blasint *); -int BLASFUNC(xgemc)(char *, char *, blasint *, blasint *, blasint *, xdouble *, - xdouble *, blasint *, xdouble *, blasint *, xdouble *, blasint *, xdouble *, xdouble *, blasint *); - -/* Lapack routines */ - -int BLASFUNC(sgetf2)(blasint *, blasint *, float *, blasint *, blasint *, blasint *); -int BLASFUNC(dgetf2)(blasint *, blasint *, double *, blasint *, blasint *, blasint *); -int BLASFUNC(qgetf2)(blasint *, blasint *, xdouble *, blasint *, blasint *, blasint *); -int BLASFUNC(cgetf2)(blasint *, blasint *, float *, blasint *, blasint *, blasint *); -int BLASFUNC(zgetf2)(blasint *, blasint *, double *, blasint *, blasint *, blasint *); -int BLASFUNC(xgetf2)(blasint *, blasint *, xdouble *, blasint *, blasint *, blasint *); - -int BLASFUNC(sgetrf)(blasint *, blasint *, float *, blasint *, blasint *, blasint *); -int BLASFUNC(dgetrf)(blasint *, blasint *, double *, blasint *, blasint *, blasint *); -int BLASFUNC(qgetrf)(blasint *, blasint *, xdouble *, blasint *, blasint *, blasint *); -int BLASFUNC(cgetrf)(blasint *, blasint *, float *, blasint *, blasint *, blasint *); -int BLASFUNC(zgetrf)(blasint *, blasint *, double *, blasint *, blasint *, blasint *); -int BLASFUNC(xgetrf)(blasint *, blasint *, xdouble *, blasint *, blasint *, blasint *); - -int BLASFUNC(slaswp)(blasint *, float *, blasint *, blasint *, blasint *, blasint *, blasint *); -int BLASFUNC(dlaswp)(blasint *, double *, blasint *, blasint *, blasint *, blasint *, blasint *); -int BLASFUNC(qlaswp)(blasint *, xdouble *, blasint *, blasint *, blasint *, blasint *, blasint *); -int BLASFUNC(claswp)(blasint *, float *, blasint *, blasint *, blasint *, blasint *, blasint *); -int BLASFUNC(zlaswp)(blasint *, double *, blasint *, blasint *, blasint *, blasint *, blasint *); -int BLASFUNC(xlaswp)(blasint *, xdouble *, blasint *, blasint *, blasint *, blasint *, blasint *); - -int BLASFUNC(sgetrs)(char *, blasint *, blasint *, float *, blasint *, blasint *, float *, blasint *, blasint *); -int BLASFUNC(dgetrs)(char *, blasint *, blasint *, double *, blasint *, blasint *, double *, blasint *, blasint *); -int BLASFUNC(qgetrs)(char *, blasint *, blasint *, xdouble *, blasint *, blasint *, xdouble *, blasint *, blasint *); -int BLASFUNC(cgetrs)(char *, blasint *, blasint *, float *, blasint *, blasint *, float *, blasint *, blasint *); -int BLASFUNC(zgetrs)(char *, blasint *, blasint *, double *, blasint *, blasint *, double *, blasint *, blasint *); -int BLASFUNC(xgetrs)(char *, blasint *, blasint *, xdouble *, blasint *, blasint *, xdouble *, blasint *, blasint *); - -int BLASFUNC(sgesv)(blasint *, blasint *, float *, blasint *, blasint *, float *, blasint *, blasint *); -int BLASFUNC(dgesv)(blasint *, blasint *, double *, blasint *, blasint *, double*, blasint *, blasint *); -int BLASFUNC(qgesv)(blasint *, blasint *, xdouble *, blasint *, blasint *, xdouble*, blasint *, blasint *); -int BLASFUNC(cgesv)(blasint *, blasint *, float *, blasint *, blasint *, float *, blasint *, blasint *); -int BLASFUNC(zgesv)(blasint *, blasint *, double *, blasint *, blasint *, double*, blasint *, blasint *); -int BLASFUNC(xgesv)(blasint *, blasint *, xdouble *, blasint *, blasint *, xdouble*, blasint *, blasint *); - -int BLASFUNC(spotf2)(char *, blasint *, float *, blasint *, blasint *); -int BLASFUNC(dpotf2)(char *, blasint *, double *, blasint *, blasint *); -int BLASFUNC(qpotf2)(char *, blasint *, xdouble *, blasint *, blasint *); -int BLASFUNC(cpotf2)(char *, blasint *, float *, blasint *, blasint *); -int BLASFUNC(zpotf2)(char *, blasint *, double *, blasint *, blasint *); -int BLASFUNC(xpotf2)(char *, blasint *, xdouble *, blasint *, blasint *); - -int BLASFUNC(spotrf)(char *, blasint *, float *, blasint *, blasint *); -int BLASFUNC(dpotrf)(char *, blasint *, double *, blasint *, blasint *); -int BLASFUNC(qpotrf)(char *, blasint *, xdouble *, blasint *, blasint *); -int BLASFUNC(cpotrf)(char *, blasint *, float *, blasint *, blasint *); -int BLASFUNC(zpotrf)(char *, blasint *, double *, blasint *, blasint *); -int BLASFUNC(xpotrf)(char *, blasint *, xdouble *, blasint *, blasint *); - -int BLASFUNC(spotri)(char *, blasint *, float *, blasint *, blasint *); -int BLASFUNC(dpotri)(char *, blasint *, double *, blasint *, blasint *); -int BLASFUNC(qpotri)(char *, blasint *, xdouble *, blasint *, blasint *); -int BLASFUNC(cpotri)(char *, blasint *, float *, blasint *, blasint *); -int BLASFUNC(zpotri)(char *, blasint *, double *, blasint *, blasint *); -int BLASFUNC(xpotri)(char *, blasint *, xdouble *, blasint *, blasint *); - -int BLASFUNC(spotrs)(char *, blasint *, blasint *, float *, blasint *, float *, blasint *, blasint *); -int BLASFUNC(dpotrs)(char *, blasint *, blasint *, double *, blasint *, double *, blasint *, blasint *); -int BLASFUNC(qpotrs)(char *, blasint *, blasint *, xdouble *, blasint *, xdouble *, blasint *, blasint *); -int BLASFUNC(cpotrs)(char *, blasint *, blasint *, float *, blasint *, float *, blasint *, blasint *); -int BLASFUNC(zpotrs)(char *, blasint *, blasint *, double *, blasint *, double *, blasint *, blasint *); -int BLASFUNC(xpotrs)(char *, blasint *, blasint *, xdouble *, blasint *, xdouble *, blasint *, blasint *); - -int BLASFUNC(slauu2)(char *, blasint *, float *, blasint *, blasint *); -int BLASFUNC(dlauu2)(char *, blasint *, double *, blasint *, blasint *); -int BLASFUNC(qlauu2)(char *, blasint *, xdouble *, blasint *, blasint *); -int BLASFUNC(clauu2)(char *, blasint *, float *, blasint *, blasint *); -int BLASFUNC(zlauu2)(char *, blasint *, double *, blasint *, blasint *); -int BLASFUNC(xlauu2)(char *, blasint *, xdouble *, blasint *, blasint *); - -int BLASFUNC(slauum)(char *, blasint *, float *, blasint *, blasint *); -int BLASFUNC(dlauum)(char *, blasint *, double *, blasint *, blasint *); -int BLASFUNC(qlauum)(char *, blasint *, xdouble *, blasint *, blasint *); -int BLASFUNC(clauum)(char *, blasint *, float *, blasint *, blasint *); -int BLASFUNC(zlauum)(char *, blasint *, double *, blasint *, blasint *); -int BLASFUNC(xlauum)(char *, blasint *, xdouble *, blasint *, blasint *); - -int BLASFUNC(strti2)(char *, char *, blasint *, float *, blasint *, blasint *); -int BLASFUNC(dtrti2)(char *, char *, blasint *, double *, blasint *, blasint *); -int BLASFUNC(qtrti2)(char *, char *, blasint *, xdouble *, blasint *, blasint *); -int BLASFUNC(ctrti2)(char *, char *, blasint *, float *, blasint *, blasint *); -int BLASFUNC(ztrti2)(char *, char *, blasint *, double *, blasint *, blasint *); -int BLASFUNC(xtrti2)(char *, char *, blasint *, xdouble *, blasint *, blasint *); - -int BLASFUNC(strtri)(char *, char *, blasint *, float *, blasint *, blasint *); -int BLASFUNC(dtrtri)(char *, char *, blasint *, double *, blasint *, blasint *); -int BLASFUNC(qtrtri)(char *, char *, blasint *, xdouble *, blasint *, blasint *); -int BLASFUNC(ctrtri)(char *, char *, blasint *, float *, blasint *, blasint *); -int BLASFUNC(ztrtri)(char *, char *, blasint *, double *, blasint *, blasint *); -int BLASFUNC(xtrtri)(char *, char *, blasint *, xdouble *, blasint *, blasint *); - - -FLOATRET BLASFUNC(slamch)(char *); -double BLASFUNC(dlamch)(char *); -xdouble BLASFUNC(qlamch)(char *); - -FLOATRET BLASFUNC(slamc3)(float *, float *); -double BLASFUNC(dlamc3)(double *, double *); -xdouble BLASFUNC(qlamc3)(xdouble *, xdouble *); - -/* BLAS extensions */ - -void BLASFUNC(saxpby) (blasint *, float *, float *, blasint *, float *, float *, blasint *); -void BLASFUNC(daxpby) (blasint *, double *, double *, blasint *, double *, 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 *); -void BLASFUNC(comatcopy) (char *, char *, blasint *, blasint *, float *, float *, blasint *, float *, blasint *); -void BLASFUNC(zomatcopy) (char *, char *, blasint *, blasint *, double *, double *, blasint *, double *, blasint *); - -void BLASFUNC(simatcopy) (char *, char *, blasint *, blasint *, float *, float *, blasint *, blasint *); -void BLASFUNC(dimatcopy) (char *, char *, blasint *, blasint *, double *, double *, blasint *, blasint *); -void BLASFUNC(cimatcopy) (char *, char *, blasint *, blasint *, float *, float *, blasint *, blasint *); -void BLASFUNC(zimatcopy) (char *, char *, blasint *, blasint *, double *, double *, blasint *, blasint *); - -void BLASFUNC(sgeadd) (blasint *, blasint *, float *, float *, blasint *, float *, float *, blasint*); -void BLASFUNC(dgeadd) (blasint *, blasint *, double *, double *, blasint *, double *, double *, blasint*); -void BLASFUNC(cgeadd) (blasint *, blasint *, float *, float *, blasint *, float *, float *, blasint*); -void BLASFUNC(zgeadd) (blasint *, blasint *, double *, double *, blasint *, double *, double *, blasint*); - - -#ifdef __cplusplus -} - -#endif /* __cplusplus */ - -#endif -#endif diff --git a/test/openblas/lapack.h b/test/openblas/lapack.h deleted file mode 100644 index 28f8ad6..0000000 --- a/test/openblas/lapack.h +++ /dev/null @@ -1,23337 +0,0 @@ -#ifndef LAPACK_H -#define LAPACK_H - -/* -* Turn on HAVE_LAPACK_CONFIG_H to redefine C-LAPACK datatypes -*/ -#ifdef HAVE_LAPACK_CONFIG_H -#include "lapacke_config.h" -#endif - -#include "lapacke_mangling.h" - -#include -#include -#include - -/* It seems all current Fortran compilers put strlen at end. -* Some historical compilers put strlen after the str argument -* or make the str argument into a struct. */ -#ifndef __EMSCRIPTEN__ -#define LAPACK_FORTRAN_STRLEN_END -#endif - -/* Complex types are structures equivalent to the -* Fortran complex types COMPLEX(4) and COMPLEX(8). -* -* One can also redefine the types with his own types -* for example by including in the code definitions like -* -* #define lapack_complex_float std::complex -* #define lapack_complex_double std::complex -* -* or define these types in the command line: -* -* -Dlapack_complex_float="std::complex" -* -Dlapack_complex_double="std::complex" -*/ - -#ifndef LAPACK_COMPLEX_CUSTOM - -/* Complex type (single precision) */ -#ifndef lapack_complex_float -#ifndef __cplusplus -#include -#else -#include -#endif -#define lapack_complex_float float _Complex -#endif - -#ifndef lapack_complex_float_real -#define lapack_complex_float_real(z) (creal(z)) -#endif - -#ifndef lapack_complex_float_imag -#define lapack_complex_float_imag(z) (cimag(z)) -#endif - -/* Complex type (double precision) */ -#ifndef lapack_complex_double -#ifndef __cplusplus -#include -#else -#include -#endif -#define lapack_complex_double double _Complex -#endif - -#ifndef lapack_complex_double_real -#define lapack_complex_double_real(z) (creal(z)) -#endif - -#ifndef lapack_complex_double_imag -#define lapack_complex_double_imag(z) (cimag(z)) -#endif - -#endif /* LAPACK_COMPLEX_CUSTOM */ - - -#ifdef __cplusplus -extern "C" { -#endif - -/*----------------------------------------------------------------------------*/ -#ifndef lapack_int -#if defined(LAPACK_ILP64) -#define lapack_int int64_t -#else -#define lapack_int int32_t -#endif -#endif - -/* - * Integer format string - */ -#ifndef LAPACK_IFMT -#if defined(LAPACK_ILP64) -#define LAPACK_IFMT PRId64 -#else -#define LAPACK_IFMT PRId32 -#endif -#endif - -#ifndef lapack_logical -#define lapack_logical lapack_int -#endif - -/* f2c, hence clapack and MacOS Accelerate, returns double instead of float - * for sdot, slange, clange, etc. */ -#if defined(LAPACK_F2C) - typedef double lapack_float_return; -#else - typedef float lapack_float_return; -#endif - - -/* Callback logical functions of one, two, or three arguments are used -* to select eigenvalues to sort to the top left of the Schur form. -* The value is selected if function returns TRUE (non-zero). */ - -typedef lapack_logical (*LAPACK_S_SELECT2) ( const float*, const float* ); -typedef lapack_logical (*LAPACK_S_SELECT3) - ( const float*, const float*, const float* ); -typedef lapack_logical (*LAPACK_D_SELECT2) ( const double*, const double* ); -typedef lapack_logical (*LAPACK_D_SELECT3) - ( const double*, const double*, const double* ); - -typedef lapack_logical (*LAPACK_C_SELECT1) ( const lapack_complex_float* ); -typedef lapack_logical (*LAPACK_C_SELECT2) - ( const lapack_complex_float*, const lapack_complex_float* ); -typedef lapack_logical (*LAPACK_Z_SELECT1) ( const lapack_complex_double* ); -typedef lapack_logical (*LAPACK_Z_SELECT2) - ( const lapack_complex_double*, const lapack_complex_double* ); - -#define LAPACK_lsame_base LAPACK_GLOBAL(lsame,LSAME) -lapack_logical LAPACK_lsame_base( const char* ca, const char* cb -#ifndef __EMSCRIPTEN__ - , lapack_int lca, lapack_int lcb -#endif -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__) -#endif - - -/*----------------------------------------------------------------------------*/ -/* This is in alphabetical order (ignoring leading precision). */ - -#define LAPACK_cbbcsd_base LAPACK_GLOBAL(cbbcsd,CBBCSD) -void LAPACK_cbbcsd_base( - char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, - lapack_int const* m, lapack_int const* p, lapack_int const* q, - float* theta, - float* phi, - lapack_complex_float* U1, lapack_int const* ldu1, - lapack_complex_float* U2, lapack_int const* ldu2, - lapack_complex_float* V1T, lapack_int const* ldv1t, - lapack_complex_float* V2T, lapack_int const* ldv2t, - float* B11D, - float* B11E, - float* B12D, - float* B12E, - float* B21D, - float* B21E, - float* B22D, - float* B22E, - float* rwork, lapack_int const* lrwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cbbcsd(...) LAPACK_cbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1) -#else - #define LAPACK_cbbcsd(...) LAPACK_cbbcsd_base(__VA_ARGS__) -#endif - -#define LAPACK_dbbcsd_base LAPACK_GLOBAL(dbbcsd,DBBCSD) -void LAPACK_dbbcsd_base( - char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, - lapack_int const* m, lapack_int const* p, lapack_int const* q, - double* theta, - double* phi, - double* U1, lapack_int const* ldu1, - double* U2, lapack_int const* ldu2, - double* V1T, lapack_int const* ldv1t, - double* V2T, lapack_int const* ldv2t, - double* B11D, - double* B11E, - double* B12D, - double* B12E, - double* b21d, - double* b21e, - double* b22d, - double* b22e, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dbbcsd(...) LAPACK_dbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1) -#else - #define LAPACK_dbbcsd(...) LAPACK_dbbcsd_base(__VA_ARGS__) -#endif - -#define LAPACK_sbbcsd_base LAPACK_GLOBAL(sbbcsd,SBBCSD) -void LAPACK_sbbcsd_base( - char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, - lapack_int const* m, lapack_int const* p, lapack_int const* q, - float* theta, - float* phi, - float* U1, lapack_int const* ldu1, - float* U2, lapack_int const* ldu2, - float* V1T, lapack_int const* ldv1t, - float* V2T, lapack_int const* ldv2t, - float* B11D, - float* B11E, - float* B12D, - float* B12E, - float* B21D, - float* B21E, - float* B22D, - float* B22E, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sbbcsd(...) LAPACK_sbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1) -#else - #define LAPACK_sbbcsd(...) LAPACK_sbbcsd_base(__VA_ARGS__) -#endif - -#define LAPACK_zbbcsd_base LAPACK_GLOBAL(zbbcsd,ZBBCSD) -void LAPACK_zbbcsd_base( - char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, - lapack_int const* m, lapack_int const* p, lapack_int const* q, - double* theta, - double* phi, - lapack_complex_double* U1, lapack_int const* ldu1, - lapack_complex_double* U2, lapack_int const* ldu2, - lapack_complex_double* V1T, lapack_int const* ldv1t, - lapack_complex_double* V2T, lapack_int const* ldv2t, - double* B11D, - double* B11E, - double* B12D, - double* B12E, - double* B21D, - double* B21E, - double* B22D, - double* B22E, - double* rwork, lapack_int const* lrwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zbbcsd(...) LAPACK_zbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1) -#else - #define LAPACK_zbbcsd(...) LAPACK_zbbcsd_base(__VA_ARGS__) -#endif - -#define LAPACK_dbdsdc_base LAPACK_GLOBAL(dbdsdc,DBDSDC) -void LAPACK_dbdsdc_base( - char const* uplo, char const* compq, - lapack_int const* n, - double* D, - double* E, - double* U, lapack_int const* ldu, - double* VT, lapack_int const* ldvt, - double* Q, lapack_int* IQ, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dbdsdc(...) LAPACK_dbdsdc_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dbdsdc(...) LAPACK_dbdsdc_base(__VA_ARGS__) -#endif - -#define LAPACK_sbdsdc_base LAPACK_GLOBAL(sbdsdc,SBDSDC) -void LAPACK_sbdsdc_base( - char const* uplo, char const* compq, - lapack_int const* n, - float* D, - float* E, - float* U, lapack_int const* ldu, - float* VT, lapack_int const* ldvt, - float* Q, lapack_int* IQ, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sbdsdc(...) LAPACK_sbdsdc_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sbdsdc(...) LAPACK_sbdsdc_base(__VA_ARGS__) -#endif - -#define LAPACK_cbdsqr_base LAPACK_GLOBAL(cbdsqr,CBDSQR) -void LAPACK_cbdsqr_base( - char const* uplo, - lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc, - float* D, - float* E, - lapack_complex_float* VT, lapack_int const* ldvt, - lapack_complex_float* U, lapack_int const* ldu, - lapack_complex_float* C, lapack_int const* ldc, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cbdsqr(...) LAPACK_cbdsqr_base(__VA_ARGS__, 1) -#else - #define LAPACK_cbdsqr(...) LAPACK_cbdsqr_base(__VA_ARGS__) -#endif - -#define LAPACK_dbdsqr_base LAPACK_GLOBAL(dbdsqr,DBDSQR) -void LAPACK_dbdsqr_base( - char const* uplo, - lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc, - double* D, - double* E, - double* VT, lapack_int const* ldvt, - double* U, lapack_int const* ldu, - double* C, lapack_int const* ldc, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dbdsqr(...) LAPACK_dbdsqr_base(__VA_ARGS__, 1) -#else - #define LAPACK_dbdsqr(...) LAPACK_dbdsqr_base(__VA_ARGS__) -#endif - -#define LAPACK_sbdsqr_base LAPACK_GLOBAL(sbdsqr,SBDSQR) -void LAPACK_sbdsqr_base( - char const* uplo, - lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc, - float* D, - float* E, - float* VT, lapack_int const* ldvt, - float* U, lapack_int const* ldu, - float* C, lapack_int const* ldc, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sbdsqr(...) LAPACK_sbdsqr_base(__VA_ARGS__, 1) -#else - #define LAPACK_sbdsqr(...) LAPACK_sbdsqr_base(__VA_ARGS__) -#endif - -#define LAPACK_zbdsqr_base LAPACK_GLOBAL(zbdsqr,ZBDSQR) -void LAPACK_zbdsqr_base( - char const* uplo, - lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc, - double* D, - double* E, - lapack_complex_double* VT, lapack_int const* ldvt, - lapack_complex_double* U, lapack_int const* ldu, - lapack_complex_double* C, lapack_int const* ldc, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zbdsqr(...) LAPACK_zbdsqr_base(__VA_ARGS__, 1) -#else - #define LAPACK_zbdsqr(...) LAPACK_zbdsqr_base(__VA_ARGS__) -#endif - -#define LAPACK_dbdsvdx_base LAPACK_GLOBAL(dbdsvdx,DBDSVDX) -void LAPACK_dbdsvdx_base( - char const* uplo, char const* jobz, char const* range, - lapack_int const* n, - double const* D, - double const* E, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns, - double* S, - double* Z, lapack_int const* ldz, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dbdsvdx(...) LAPACK_dbdsvdx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dbdsvdx(...) LAPACK_dbdsvdx_base(__VA_ARGS__) -#endif - -#define LAPACK_sbdsvdx_base LAPACK_GLOBAL(sbdsvdx,SBDSVDX) -void LAPACK_sbdsvdx_base( - char const* uplo, char const* jobz, char const* range, - lapack_int const* n, - float const* D, - float const* E, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns, - float* S, - float* Z, lapack_int const* ldz, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sbdsvdx(...) LAPACK_sbdsvdx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_sbdsvdx(...) LAPACK_sbdsvdx_base(__VA_ARGS__) -#endif - -#define LAPACK_ddisna_base LAPACK_GLOBAL(ddisna,DDISNA) -void LAPACK_ddisna_base( - char const* job, - lapack_int const* m, lapack_int const* n, - double const* D, - double* SEP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ddisna(...) LAPACK_ddisna_base(__VA_ARGS__, 1) -#else - #define LAPACK_ddisna(...) LAPACK_ddisna_base(__VA_ARGS__) -#endif - -#define LAPACK_sdisna_base LAPACK_GLOBAL(sdisna,SDISNA) -void LAPACK_sdisna_base( - char const* job, - lapack_int const* m, lapack_int const* n, - float const* D, - float* SEP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sdisna(...) LAPACK_sdisna_base(__VA_ARGS__, 1) -#else - #define LAPACK_sdisna(...) LAPACK_sdisna_base(__VA_ARGS__) -#endif - -#define LAPACK_cgbbrd_base LAPACK_GLOBAL(cgbbrd,CGBBRD) -void LAPACK_cgbbrd_base( - char const* vect, - lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku, - lapack_complex_float* AB, lapack_int const* ldab, - float* D, - float* E, - lapack_complex_float* Q, lapack_int const* ldq, - lapack_complex_float* PT, lapack_int const* ldpt, - lapack_complex_float* C, lapack_int const* ldc, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgbbrd(...) LAPACK_cgbbrd_base(__VA_ARGS__, 1) -#else - #define LAPACK_cgbbrd(...) LAPACK_cgbbrd_base(__VA_ARGS__) -#endif - -#define LAPACK_dgbbrd_base LAPACK_GLOBAL(dgbbrd,DGBBRD) -void LAPACK_dgbbrd_base( - char const* vect, - lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku, - double* AB, lapack_int const* ldab, - double* D, - double* E, - double* Q, lapack_int const* ldq, - double* PT, lapack_int const* ldpt, - double* C, lapack_int const* ldc, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgbbrd(...) LAPACK_dgbbrd_base(__VA_ARGS__, 1) -#else - #define LAPACK_dgbbrd(...) LAPACK_dgbbrd_base(__VA_ARGS__) -#endif - -#define LAPACK_sgbbrd_base LAPACK_GLOBAL(sgbbrd,SGBBRD) -void LAPACK_sgbbrd_base( - char const* vect, - lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku, - float* AB, lapack_int const* ldab, - float* D, - float* E, - float* Q, lapack_int const* ldq, - float* PT, lapack_int const* ldpt, - float* C, lapack_int const* ldc, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgbbrd(...) LAPACK_sgbbrd_base(__VA_ARGS__, 1) -#else - #define LAPACK_sgbbrd(...) LAPACK_sgbbrd_base(__VA_ARGS__) -#endif - -#define LAPACK_zgbbrd_base LAPACK_GLOBAL(zgbbrd,ZGBBRD) -void LAPACK_zgbbrd_base( - char const* vect, - lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku, - lapack_complex_double* AB, lapack_int const* ldab, - double* D, - double* E, - lapack_complex_double* Q, lapack_int const* ldq, - lapack_complex_double* PT, lapack_int const* ldpt, - lapack_complex_double* C, lapack_int const* ldc, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgbbrd(...) LAPACK_zgbbrd_base(__VA_ARGS__, 1) -#else - #define LAPACK_zgbbrd(...) LAPACK_zgbbrd_base(__VA_ARGS__) -#endif - -#define LAPACK_cgbcon_base LAPACK_GLOBAL(cgbcon,CGBCON) -void LAPACK_cgbcon_base( - char const* norm, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - lapack_complex_float const* AB, lapack_int const* ldab, lapack_int const* ipiv, - float const* anorm, - float* rcond, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgbcon(...) LAPACK_cgbcon_base(__VA_ARGS__, 1) -#else - #define LAPACK_cgbcon(...) LAPACK_cgbcon_base(__VA_ARGS__) -#endif - -#define LAPACK_dgbcon_base LAPACK_GLOBAL(dgbcon,DGBCON) -void LAPACK_dgbcon_base( - char const* norm, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - double const* AB, lapack_int const* ldab, lapack_int const* ipiv, - double const* anorm, - double* rcond, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgbcon(...) LAPACK_dgbcon_base(__VA_ARGS__, 1) -#else - #define LAPACK_dgbcon(...) LAPACK_dgbcon_base(__VA_ARGS__) -#endif - -#define LAPACK_sgbcon_base LAPACK_GLOBAL(sgbcon,SGBCON) -void LAPACK_sgbcon_base( - char const* norm, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - float const* AB, lapack_int const* ldab, lapack_int const* ipiv, - float const* anorm, - float* rcond, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgbcon(...) LAPACK_sgbcon_base(__VA_ARGS__, 1) -#else - #define LAPACK_sgbcon(...) LAPACK_sgbcon_base(__VA_ARGS__) -#endif - -#define LAPACK_zgbcon_base LAPACK_GLOBAL(zgbcon,ZGBCON) -void LAPACK_zgbcon_base( - char const* norm, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - lapack_complex_double const* AB, lapack_int const* ldab, lapack_int const* ipiv, - double const* anorm, - double* rcond, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgbcon(...) LAPACK_zgbcon_base(__VA_ARGS__, 1) -#else - #define LAPACK_zgbcon(...) LAPACK_zgbcon_base(__VA_ARGS__) -#endif - -#define LAPACK_cgbequ LAPACK_GLOBAL(cgbequ,CGBEQU) -void LAPACK_cgbequ( - lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - lapack_complex_float const* AB, lapack_int const* ldab, - float* R, - float* C, - float* rowcnd, - float* colcnd, - float* amax, - lapack_int* info ); - -#define LAPACK_dgbequ LAPACK_GLOBAL(dgbequ,DGBEQU) -void LAPACK_dgbequ( - lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - double const* AB, lapack_int const* ldab, - double* R, - double* C, - double* rowcnd, - double* colcnd, - double* amax, - lapack_int* info ); - -#define LAPACK_sgbequ LAPACK_GLOBAL(sgbequ,SGBEQU) -void LAPACK_sgbequ( - lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - float const* AB, lapack_int const* ldab, - float* R, - float* C, - float* rowcnd, - float* colcnd, - float* amax, - lapack_int* info ); - -#define LAPACK_zgbequ LAPACK_GLOBAL(zgbequ,ZGBEQU) -void LAPACK_zgbequ( - lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - lapack_complex_double const* AB, lapack_int const* ldab, - double* R, - double* C, - double* rowcnd, - double* colcnd, - double* amax, - lapack_int* info ); - -#define LAPACK_cgbequb LAPACK_GLOBAL(cgbequb,CGBEQUB) -void LAPACK_cgbequb( - lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - lapack_complex_float const* AB, lapack_int const* ldab, - float* R, - float* C, - float* rowcnd, - float* colcnd, - float* amax, - lapack_int* info ); - -#define LAPACK_dgbequb LAPACK_GLOBAL(dgbequb,DGBEQUB) -void LAPACK_dgbequb( - lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - double const* AB, lapack_int const* ldab, - double* R, - double* C, - double* rowcnd, - double* colcnd, - double* amax, - lapack_int* info ); - -#define LAPACK_sgbequb LAPACK_GLOBAL(sgbequb,SGBEQUB) -void LAPACK_sgbequb( - lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - float const* AB, lapack_int const* ldab, - float* R, - float* C, - float* rowcnd, - float* colcnd, - float* amax, - lapack_int* info ); - -#define LAPACK_zgbequb LAPACK_GLOBAL(zgbequb,ZGBEQUB) -void LAPACK_zgbequb( - lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - lapack_complex_double const* AB, lapack_int const* ldab, - double* R, - double* C, - double* rowcnd, - double* colcnd, - double* amax, - lapack_int* info ); - -#define LAPACK_cgbrfs_base LAPACK_GLOBAL(cgbrfs,CGBRFS) -void LAPACK_cgbrfs_base( - char const* trans, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - lapack_complex_float const* AB, lapack_int const* ldab, - lapack_complex_float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* ferr, - float* berr, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgbrfs(...) LAPACK_cgbrfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_cgbrfs(...) LAPACK_cgbrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_dgbrfs_base LAPACK_GLOBAL(dgbrfs,DGBRFS) -void LAPACK_dgbrfs_base( - char const* trans, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - double const* AB, lapack_int const* ldab, - double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv, - double const* B, lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* ferr, - double* berr, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgbrfs(...) LAPACK_dgbrfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_dgbrfs(...) LAPACK_dgbrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_sgbrfs_base LAPACK_GLOBAL(sgbrfs,SGBRFS) -void LAPACK_sgbrfs_base( - char const* trans, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - float const* AB, lapack_int const* ldab, - float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv, - float const* B, lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* ferr, - float* berr, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgbrfs(...) LAPACK_sgbrfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_sgbrfs(...) LAPACK_sgbrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_zgbrfs_base LAPACK_GLOBAL(zgbrfs,ZGBRFS) -void LAPACK_zgbrfs_base( - char const* trans, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - lapack_complex_double const* AB, lapack_int const* ldab, - lapack_complex_double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* ferr, - double* berr, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgbrfs(...) LAPACK_zgbrfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_zgbrfs(...) LAPACK_zgbrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_cgbrfsx_base LAPACK_GLOBAL(cgbrfsx,CGBRFSX) -void LAPACK_cgbrfsx_base( - char const* trans, char const* equed, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - lapack_complex_float const* AB, lapack_int const* ldab, - lapack_complex_float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv, - const float* R, - const float* C, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* rcond, - float* berr, lapack_int const* n_err_bnds, - float* err_bnds_norm, - float* err_bnds_comp, lapack_int const* nparams, - float* params, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgbrfsx(...) LAPACK_cgbrfsx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cgbrfsx(...) LAPACK_cgbrfsx_base(__VA_ARGS__) -#endif - -#define LAPACK_dgbrfsx_base LAPACK_GLOBAL(dgbrfsx,DGBRFSX) -void LAPACK_dgbrfsx_base( - char const* trans, char const* equed, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - double const* AB, lapack_int const* ldab, - double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv, - const double* R, - const double* C, - double const* B, lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* rcond, - double* berr, lapack_int const* n_err_bnds, - double* err_bnds_norm, - double* err_bnds_comp, lapack_int const* nparams, - double* params, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgbrfsx(...) LAPACK_dgbrfsx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dgbrfsx(...) LAPACK_dgbrfsx_base(__VA_ARGS__) -#endif - -#define LAPACK_sgbrfsx_base LAPACK_GLOBAL(sgbrfsx,SGBRFSX) -void LAPACK_sgbrfsx_base( - char const* trans, char const* equed, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - float const* AB, lapack_int const* ldab, - float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv, - const float* R, - const float* C, - float const* B, lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* rcond, - float* berr, lapack_int const* n_err_bnds, - float* err_bnds_norm, - float* err_bnds_comp, lapack_int const* nparams, - float* params, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgbrfsx(...) LAPACK_sgbrfsx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sgbrfsx(...) LAPACK_sgbrfsx_base(__VA_ARGS__) -#endif - -#define LAPACK_zgbrfsx_base LAPACK_GLOBAL(zgbrfsx,ZGBRFSX) -void LAPACK_zgbrfsx_base( - char const* trans, char const* equed, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - lapack_complex_double const* AB, lapack_int const* ldab, - lapack_complex_double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv, - const double* R, - const double* C, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* rcond, - double* berr, lapack_int const* n_err_bnds, - double* err_bnds_norm, - double* err_bnds_comp, lapack_int const* nparams, - double* params, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgbrfsx(...) LAPACK_zgbrfsx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zgbrfsx(...) LAPACK_zgbrfsx_base(__VA_ARGS__) -#endif - -#define LAPACK_cgbsv LAPACK_GLOBAL(cgbsv,CGBSV) -void LAPACK_cgbsv( - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - lapack_complex_float* AB, lapack_int const* ldab, lapack_int* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); - -#define LAPACK_dgbsv LAPACK_GLOBAL(dgbsv,DGBSV) -void LAPACK_dgbsv( - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - double* AB, lapack_int const* ldab, lapack_int* ipiv, - double* B, lapack_int const* ldb, - lapack_int* info ); - -#define LAPACK_sgbsv LAPACK_GLOBAL(sgbsv,SGBSV) -void LAPACK_sgbsv( - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - float* AB, lapack_int const* ldab, lapack_int* ipiv, - float* B, lapack_int const* ldb, - lapack_int* info ); - -#define LAPACK_zgbsv LAPACK_GLOBAL(zgbsv,ZGBSV) -void LAPACK_zgbsv( - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - lapack_complex_double* AB, lapack_int const* ldab, lapack_int* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); - -#define LAPACK_cgbsvx_base LAPACK_GLOBAL(cgbsvx,CGBSVX) -void LAPACK_cgbsvx_base( - char const* fact, char const* trans, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - lapack_complex_float* AB, lapack_int const* ldab, - lapack_complex_float* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed, - float* R, - float* C, - lapack_complex_float* B, - lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* rcond, - float* ferr, - float* berr, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgbsvx(...) LAPACK_cgbsvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cgbsvx(...) LAPACK_cgbsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_dgbsvx_base LAPACK_GLOBAL(dgbsvx,DGBSVX) -void LAPACK_dgbsvx_base( - char const* fact, char const* trans, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - double* AB, lapack_int const* ldab, - double* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed, - double* R, - double* C, - double* B, - lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* rcond, - double* ferr, - double* berr, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgbsvx(...) LAPACK_dgbsvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dgbsvx(...) LAPACK_dgbsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_sgbsvx_base LAPACK_GLOBAL(sgbsvx,SGBSVX) -void LAPACK_sgbsvx_base( - char const* fact, char const* trans, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - float* AB, lapack_int const* ldab, - float* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed, - float* R, - float* C, - float* B, - lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* rcond, - float* ferr, - float* berr, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgbsvx(...) LAPACK_sgbsvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_sgbsvx(...) LAPACK_sgbsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_zgbsvx_base LAPACK_GLOBAL(zgbsvx,ZGBSVX) -void LAPACK_zgbsvx_base( - char const* fact, char const* trans, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - lapack_complex_double* AB, lapack_int const* ldab, - lapack_complex_double* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed, - double* R, - double* C, - lapack_complex_double* B, - lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* rcond, - double* ferr, - double* berr, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgbsvx(...) LAPACK_zgbsvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zgbsvx(...) LAPACK_zgbsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_cgbsvxx_base LAPACK_GLOBAL(cgbsvxx,CGBSVXX) -void LAPACK_cgbsvxx_base( - char const* fact, char const* trans, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - lapack_complex_float* AB, lapack_int const* ldab, - lapack_complex_float* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed, - float* R, - float* C, - lapack_complex_float* B, - lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* rcond, - float* rpvgrw, - float* berr, lapack_int const* n_err_bnds, - float* err_bnds_norm, - float* err_bnds_comp, lapack_int const* nparams, - float* params, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgbsvxx(...) LAPACK_cgbsvxx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cgbsvxx(...) LAPACK_cgbsvxx_base(__VA_ARGS__) -#endif - -#define LAPACK_dgbsvxx_base LAPACK_GLOBAL(dgbsvxx,DGBSVXX) -void LAPACK_dgbsvxx_base( - char const* fact, char const* trans, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - double* AB, lapack_int const* ldab, - double* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed, - double* R, - double* C, - double* B, - lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* rcond, - double* rpvgrw, - double* berr, lapack_int const* n_err_bnds, - double* err_bnds_norm, - double* err_bnds_comp, lapack_int const* nparams, - double* params, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgbsvxx(...) LAPACK_dgbsvxx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dgbsvxx(...) LAPACK_dgbsvxx_base(__VA_ARGS__) -#endif - -#define LAPACK_sgbsvxx_base LAPACK_GLOBAL(sgbsvxx,SGBSVXX) -void LAPACK_sgbsvxx_base( - char const* fact, char const* trans, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - float* AB, lapack_int const* ldab, - float* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed, - float* R, - float* C, - float* B, - lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* rcond, - float* rpvgrw, - float* berr, lapack_int const* n_err_bnds, - float* err_bnds_norm, - float* err_bnds_comp, lapack_int const* nparams, - float* params, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgbsvxx(...) LAPACK_sgbsvxx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_sgbsvxx(...) LAPACK_sgbsvxx_base(__VA_ARGS__) -#endif - -#define LAPACK_zgbsvxx_base LAPACK_GLOBAL(zgbsvxx,ZGBSVXX) -void LAPACK_zgbsvxx_base( - char const* fact, char const* trans, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - lapack_complex_double* AB, lapack_int const* ldab, - lapack_complex_double* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed, - double* R, - double* C, - lapack_complex_double* B, - lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* rcond, - double* rpvgrw, - double* berr, lapack_int const* n_err_bnds, - double* err_bnds_norm, - double* err_bnds_comp, lapack_int const* nparams, - double* params, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgbsvxx(...) LAPACK_zgbsvxx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zgbsvxx(...) LAPACK_zgbsvxx_base(__VA_ARGS__) -#endif - -#define LAPACK_cgbtrf LAPACK_GLOBAL(cgbtrf,CGBTRF) -void LAPACK_cgbtrf( - lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - lapack_complex_float* AB, lapack_int const* ldab, lapack_int* ipiv, - lapack_int* info ); - -#define LAPACK_dgbtrf LAPACK_GLOBAL(dgbtrf,DGBTRF) -void LAPACK_dgbtrf( - lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - double* AB, lapack_int const* ldab, lapack_int* ipiv, - lapack_int* info ); - -#define LAPACK_sgbtrf LAPACK_GLOBAL(sgbtrf,SGBTRF) -void LAPACK_sgbtrf( - lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - float* AB, lapack_int const* ldab, lapack_int* ipiv, - lapack_int* info ); - -#define LAPACK_zgbtrf LAPACK_GLOBAL(zgbtrf,ZGBTRF) -void LAPACK_zgbtrf( - lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - lapack_complex_double* AB, lapack_int const* ldab, lapack_int* ipiv, - lapack_int* info ); - -#define LAPACK_cgbtrs_base LAPACK_GLOBAL(cgbtrs,CGBTRS) -void LAPACK_cgbtrs_base( - char const* trans, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - lapack_complex_float const* AB, lapack_int const* ldab, lapack_int const* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgbtrs(...) LAPACK_cgbtrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_cgbtrs(...) LAPACK_cgbtrs_base(__VA_ARGS__) -#endif - -#define LAPACK_dgbtrs_base LAPACK_GLOBAL(dgbtrs,DGBTRS) -void LAPACK_dgbtrs_base( - char const* trans, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - double const* AB, lapack_int const* ldab, lapack_int const* ipiv, - double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgbtrs(...) LAPACK_dgbtrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_dgbtrs(...) LAPACK_dgbtrs_base(__VA_ARGS__) -#endif - -#define LAPACK_sgbtrs_base LAPACK_GLOBAL(sgbtrs,SGBTRS) -void LAPACK_sgbtrs_base( - char const* trans, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - float const* AB, lapack_int const* ldab, lapack_int const* ipiv, - float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgbtrs(...) LAPACK_sgbtrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_sgbtrs(...) LAPACK_sgbtrs_base(__VA_ARGS__) -#endif - -#define LAPACK_zgbtrs_base LAPACK_GLOBAL(zgbtrs,ZGBTRS) -void LAPACK_zgbtrs_base( - char const* trans, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs, - lapack_complex_double const* AB, lapack_int const* ldab, lapack_int const* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgbtrs(...) LAPACK_zgbtrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_zgbtrs(...) LAPACK_zgbtrs_base(__VA_ARGS__) -#endif - -#define LAPACK_cgebak_base LAPACK_GLOBAL(cgebak,CGEBAK) -void LAPACK_cgebak_base( - char const* job, char const* side, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - float const* scale, lapack_int const* m, - lapack_complex_float* V, lapack_int const* ldv, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgebak(...) LAPACK_cgebak_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cgebak(...) LAPACK_cgebak_base(__VA_ARGS__) -#endif - -#define LAPACK_dgebak_base LAPACK_GLOBAL(dgebak,DGEBAK) -void LAPACK_dgebak_base( - char const* job, char const* side, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - double const* scale, lapack_int const* m, - double* V, lapack_int const* ldv, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgebak(...) LAPACK_dgebak_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dgebak(...) LAPACK_dgebak_base(__VA_ARGS__) -#endif - -#define LAPACK_sgebak_base LAPACK_GLOBAL(sgebak,SGEBAK) -void LAPACK_sgebak_base( - char const* job, char const* side, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - float const* scale, lapack_int const* m, - float* V, lapack_int const* ldv, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgebak(...) LAPACK_sgebak_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sgebak(...) LAPACK_sgebak_base(__VA_ARGS__) -#endif - -#define LAPACK_zgebak_base LAPACK_GLOBAL(zgebak,ZGEBAK) -void LAPACK_zgebak_base( - char const* job, char const* side, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - double const* scale, lapack_int const* m, - lapack_complex_double* V, lapack_int const* ldv, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgebak(...) LAPACK_zgebak_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zgebak(...) LAPACK_zgebak_base(__VA_ARGS__) -#endif - -#define LAPACK_cgebal_base LAPACK_GLOBAL(cgebal,CGEBAL) -void LAPACK_cgebal_base( - char const* job, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi, - float* scale, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgebal(...) LAPACK_cgebal_base(__VA_ARGS__, 1) -#else - #define LAPACK_cgebal(...) LAPACK_cgebal_base(__VA_ARGS__) -#endif - -#define LAPACK_dgebal_base LAPACK_GLOBAL(dgebal,DGEBAL) -void LAPACK_dgebal_base( - char const* job, - lapack_int const* n, - double* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi, - double* scale, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgebal(...) LAPACK_dgebal_base(__VA_ARGS__, 1) -#else - #define LAPACK_dgebal(...) LAPACK_dgebal_base(__VA_ARGS__) -#endif - -#define LAPACK_sgebal_base LAPACK_GLOBAL(sgebal,SGEBAL) -void LAPACK_sgebal_base( - char const* job, - lapack_int const* n, - float* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi, - float* scale, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgebal(...) LAPACK_sgebal_base(__VA_ARGS__, 1) -#else - #define LAPACK_sgebal(...) LAPACK_sgebal_base(__VA_ARGS__) -#endif - -#define LAPACK_zgebal_base LAPACK_GLOBAL(zgebal,ZGEBAL) -void LAPACK_zgebal_base( - char const* job, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi, - double* scale, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgebal(...) LAPACK_zgebal_base(__VA_ARGS__, 1) -#else - #define LAPACK_zgebal(...) LAPACK_zgebal_base(__VA_ARGS__) -#endif - -#define LAPACK_cgebrd LAPACK_GLOBAL(cgebrd,CGEBRD) -void LAPACK_cgebrd( - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - float* D, - float* E, - lapack_complex_float* tauq, - lapack_complex_float* taup, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_dgebrd LAPACK_GLOBAL(dgebrd,DGEBRD) -void LAPACK_dgebrd( - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, - double* D, - double* E, - double* tauq, - double* taup, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sgebrd LAPACK_GLOBAL(sgebrd,SGEBRD) -void LAPACK_sgebrd( - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, - float* D, - float* E, - float* tauq, - float* taup, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zgebrd LAPACK_GLOBAL(zgebrd,ZGEBRD) -void LAPACK_zgebrd( - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - double* D, - double* E, - lapack_complex_double* tauq, - lapack_complex_double* taup, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_cgecon_base LAPACK_GLOBAL(cgecon,CGECON) -void LAPACK_cgecon_base( - char const* norm, - lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - float const* anorm, - float* rcond, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgecon(...) LAPACK_cgecon_base(__VA_ARGS__, 1) -#else - #define LAPACK_cgecon(...) LAPACK_cgecon_base(__VA_ARGS__) -#endif - -#define LAPACK_dgecon_base LAPACK_GLOBAL(dgecon,DGECON) -void LAPACK_dgecon_base( - char const* norm, - lapack_int const* n, - double const* A, lapack_int const* lda, - double const* anorm, - double* rcond, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgecon(...) LAPACK_dgecon_base(__VA_ARGS__, 1) -#else - #define LAPACK_dgecon(...) LAPACK_dgecon_base(__VA_ARGS__) -#endif - -#define LAPACK_sgecon_base LAPACK_GLOBAL(sgecon,SGECON) -void LAPACK_sgecon_base( - char const* norm, - lapack_int const* n, - float const* A, lapack_int const* lda, - float const* anorm, - float* rcond, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgecon(...) LAPACK_sgecon_base(__VA_ARGS__, 1) -#else - #define LAPACK_sgecon(...) LAPACK_sgecon_base(__VA_ARGS__) -#endif - -#define LAPACK_zgecon_base LAPACK_GLOBAL(zgecon,ZGECON) -void LAPACK_zgecon_base( - char const* norm, - lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - double const* anorm, - double* rcond, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgecon(...) LAPACK_zgecon_base(__VA_ARGS__, 1) -#else - #define LAPACK_zgecon(...) LAPACK_zgecon_base(__VA_ARGS__) -#endif - -#define LAPACK_cgeequ LAPACK_GLOBAL(cgeequ,CGEEQU) -void LAPACK_cgeequ( - lapack_int const* m, lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - float* R, - float* C, - float* rowcnd, - float* colcnd, - float* amax, - lapack_int* info ); - -#define LAPACK_dgeequ LAPACK_GLOBAL(dgeequ,DGEEQU) -void LAPACK_dgeequ( - lapack_int const* m, lapack_int const* n, - double const* A, lapack_int const* lda, - double* R, - double* C, - double* rowcnd, - double* colcnd, - double* amax, - lapack_int* info ); - -#define LAPACK_sgeequ LAPACK_GLOBAL(sgeequ,SGEEQU) -void LAPACK_sgeequ( - lapack_int const* m, lapack_int const* n, - float const* A, lapack_int const* lda, - float* R, - float* C, - float* rowcnd, - float* colcnd, - float* amax, - lapack_int* info ); - -#define LAPACK_zgeequ LAPACK_GLOBAL(zgeequ,ZGEEQU) -void LAPACK_zgeequ( - lapack_int const* m, lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - double* R, - double* C, - double* rowcnd, - double* colcnd, - double* amax, - lapack_int* info ); - -#define LAPACK_cgeequb LAPACK_GLOBAL(cgeequb,CGEEQUB) -void LAPACK_cgeequb( - lapack_int const* m, lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - float* R, - float* C, - float* rowcnd, - float* colcnd, - float* amax, - lapack_int* info ); - -#define LAPACK_dgeequb LAPACK_GLOBAL(dgeequb,DGEEQUB) -void LAPACK_dgeequb( - lapack_int const* m, lapack_int const* n, - double const* A, lapack_int const* lda, - double* R, - double* C, - double* rowcnd, - double* colcnd, - double* amax, - lapack_int* info ); - -#define LAPACK_sgeequb LAPACK_GLOBAL(sgeequb,SGEEQUB) -void LAPACK_sgeequb( - lapack_int const* m, lapack_int const* n, - float const* A, lapack_int const* lda, - float* R, - float* C, - float* rowcnd, - float* colcnd, - float* amax, - lapack_int* info ); - -#define LAPACK_zgeequb LAPACK_GLOBAL(zgeequb,ZGEEQUB) -void LAPACK_zgeequb( - lapack_int const* m, lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - double* R, - double* C, - double* rowcnd, - double* colcnd, - double* amax, - lapack_int* info ); - -#define LAPACK_cgees_base LAPACK_GLOBAL(cgees,CGEES) -void LAPACK_cgees_base( - char const* jobvs, char const* sort, LAPACK_C_SELECT1 select, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int* sdim, - lapack_complex_float* W, - lapack_complex_float* VS, lapack_int const* ldvs, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgees(...) LAPACK_cgees_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cgees(...) LAPACK_cgees_base(__VA_ARGS__) -#endif - -#define LAPACK_dgees_base LAPACK_GLOBAL(dgees,DGEES) -void LAPACK_dgees_base( - char const* jobvs, char const* sort, LAPACK_D_SELECT2 select, - lapack_int const* n, - double* A, lapack_int const* lda, lapack_int* sdim, - double* WR, - double* WI, - double* VS, lapack_int const* ldvs, - double* work, lapack_int const* lwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgees(...) LAPACK_dgees_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dgees(...) LAPACK_dgees_base(__VA_ARGS__) -#endif - -#define LAPACK_sgees_base LAPACK_GLOBAL(sgees,SGEES) -void LAPACK_sgees_base( - char const* jobvs, char const* sort, LAPACK_S_SELECT2 select, - lapack_int const* n, - float* A, lapack_int const* lda, lapack_int* sdim, - float* WR, - float* WI, - float* VS, lapack_int const* ldvs, - float* work, lapack_int const* lwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgees(...) LAPACK_sgees_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sgees(...) LAPACK_sgees_base(__VA_ARGS__) -#endif - -#define LAPACK_zgees_base LAPACK_GLOBAL(zgees,ZGEES) -void LAPACK_zgees_base( - char const* jobvs, char const* sort, LAPACK_Z_SELECT1 select, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int* sdim, - lapack_complex_double* W, - lapack_complex_double* VS, lapack_int const* ldvs, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgees(...) LAPACK_zgees_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zgees(...) LAPACK_zgees_base(__VA_ARGS__) -#endif - -#define LAPACK_cgeesx_base LAPACK_GLOBAL(cgeesx,CGEESX) -void LAPACK_cgeesx_base( - char const* jobvs, char const* sort, LAPACK_C_SELECT1 select, char const* sense, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int* sdim, - lapack_complex_float* W, - lapack_complex_float* VS, lapack_int const* ldvs, - float* rconde, - float* rcondv, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgeesx(...) LAPACK_cgeesx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cgeesx(...) LAPACK_cgeesx_base(__VA_ARGS__) -#endif - -#define LAPACK_dgeesx_base LAPACK_GLOBAL(dgeesx,DGEESX) -void LAPACK_dgeesx_base( - char const* jobvs, char const* sort, LAPACK_D_SELECT2 select, char const* sense, - lapack_int const* n, - double* A, lapack_int const* lda, lapack_int* sdim, - double* WR, - double* WI, - double* VS, lapack_int const* ldvs, - double* rconde, - double* rcondv, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgeesx(...) LAPACK_dgeesx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dgeesx(...) LAPACK_dgeesx_base(__VA_ARGS__) -#endif - -#define LAPACK_sgeesx_base LAPACK_GLOBAL(sgeesx,SGEESX) -void LAPACK_sgeesx_base( - char const* jobvs, char const* sort, LAPACK_S_SELECT2 select, char const* sense, - lapack_int const* n, - float* A, lapack_int const* lda, lapack_int* sdim, - float* WR, - float* WI, - float* VS, lapack_int const* ldvs, - float* rconde, - float* rcondv, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgeesx(...) LAPACK_sgeesx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_sgeesx(...) LAPACK_sgeesx_base(__VA_ARGS__) -#endif - -#define LAPACK_zgeesx_base LAPACK_GLOBAL(zgeesx,ZGEESX) -void LAPACK_zgeesx_base( - char const* jobvs, char const* sort, LAPACK_Z_SELECT1 select, char const* sense, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int* sdim, - lapack_complex_double* W, - lapack_complex_double* VS, lapack_int const* ldvs, - double* rconde, - double* rcondv, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgeesx(...) LAPACK_zgeesx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zgeesx(...) LAPACK_zgeesx_base(__VA_ARGS__) -#endif - -#define LAPACK_cgeev_base LAPACK_GLOBAL(cgeev,CGEEV) -void LAPACK_cgeev_base( - char const* jobvl, char const* jobvr, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* W, - lapack_complex_float* VL, lapack_int const* ldvl, - lapack_complex_float* VR, lapack_int const* ldvr, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgeev(...) LAPACK_cgeev_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cgeev(...) LAPACK_cgeev_base(__VA_ARGS__) -#endif - -#define LAPACK_dgeev_base LAPACK_GLOBAL(dgeev,DGEEV) -void LAPACK_dgeev_base( - char const* jobvl, char const* jobvr, - lapack_int const* n, - double* A, lapack_int const* lda, - double* WR, - double* WI, - double* VL, lapack_int const* ldvl, - double* VR, lapack_int const* ldvr, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgeev(...) LAPACK_dgeev_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dgeev(...) LAPACK_dgeev_base(__VA_ARGS__) -#endif - -#define LAPACK_sgeev_base LAPACK_GLOBAL(sgeev,SGEEV) -void LAPACK_sgeev_base( - char const* jobvl, char const* jobvr, - lapack_int const* n, - float* A, lapack_int const* lda, - float* WR, - float* WI, - float* VL, lapack_int const* ldvl, - float* VR, lapack_int const* ldvr, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgeev(...) LAPACK_sgeev_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sgeev(...) LAPACK_sgeev_base(__VA_ARGS__) -#endif - -#define LAPACK_zgeev_base LAPACK_GLOBAL(zgeev,ZGEEV) -void LAPACK_zgeev_base( - char const* jobvl, char const* jobvr, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* W, - lapack_complex_double* VL, lapack_int const* ldvl, - lapack_complex_double* VR, lapack_int const* ldvr, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgeev(...) LAPACK_zgeev_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zgeev(...) LAPACK_zgeev_base(__VA_ARGS__) -#endif - -#define LAPACK_cgeevx_base LAPACK_GLOBAL(cgeevx,CGEEVX) -void LAPACK_cgeevx_base( - char const* balanc, char const* jobvl, char const* jobvr, char const* sense, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* W, - lapack_complex_float* VL, lapack_int const* ldvl, - lapack_complex_float* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi, - float* scale, - float* abnrm, - float* rconde, - float* rcondv, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgeevx(...) LAPACK_cgeevx_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_cgeevx(...) LAPACK_cgeevx_base(__VA_ARGS__) -#endif - -#define LAPACK_dgeevx_base LAPACK_GLOBAL(dgeevx,DGEEVX) -void LAPACK_dgeevx_base( - char const* balanc, char const* jobvl, char const* jobvr, char const* sense, - lapack_int const* n, - double* A, lapack_int const* lda, - double* WR, - double* WI, - double* VL, lapack_int const* ldvl, - double* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi, - double* scale, - double* abnrm, - double* rconde, - double* rcondv, - double* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgeevx(...) LAPACK_dgeevx_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_dgeevx(...) LAPACK_dgeevx_base(__VA_ARGS__) -#endif - -#define LAPACK_sgeevx_base LAPACK_GLOBAL(sgeevx,SGEEVX) -void LAPACK_sgeevx_base( - char const* balanc, char const* jobvl, char const* jobvr, char const* sense, - lapack_int const* n, - float* A, lapack_int const* lda, - float* WR, - float* WI, - float* VL, lapack_int const* ldvl, - float* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi, - float* scale, - float* abnrm, - float* rconde, - float* rcondv, - float* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgeevx(...) LAPACK_sgeevx_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_sgeevx(...) LAPACK_sgeevx_base(__VA_ARGS__) -#endif - -#define LAPACK_zgeevx_base LAPACK_GLOBAL(zgeevx,ZGEEVX) -void LAPACK_zgeevx_base( - char const* balanc, char const* jobvl, char const* jobvr, char const* sense, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* W, - lapack_complex_double* VL, lapack_int const* ldvl, - lapack_complex_double* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi, - double* scale, - double* abnrm, - double* rconde, - double* rcondv, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgeevx(...) LAPACK_zgeevx_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_zgeevx(...) LAPACK_zgeevx_base(__VA_ARGS__) -#endif - -#define LAPACK_cgehrd LAPACK_GLOBAL(cgehrd,CGEHRD) -void LAPACK_cgehrd( - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* tau, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_dgehrd LAPACK_GLOBAL(dgehrd,DGEHRD) -void LAPACK_dgehrd( - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - double* A, lapack_int const* lda, - double* tau, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sgehrd LAPACK_GLOBAL(sgehrd,SGEHRD) -void LAPACK_sgehrd( - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - float* A, lapack_int const* lda, - float* tau, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zgehrd LAPACK_GLOBAL(zgehrd,ZGEHRD) -void LAPACK_zgehrd( - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* tau, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_cgejsv_base LAPACK_GLOBAL(cgejsv,CGEJSV) -void LAPACK_cgejsv_base( - char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp, - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - float* SVA, - lapack_complex_float* U, lapack_int const* ldu, - lapack_complex_float* V, lapack_int const* ldv, - lapack_complex_float* cwork, lapack_int const* lwork, - float* rwork, lapack_int const* lrwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgejsv(...) LAPACK_cgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) -#else - #define LAPACK_cgejsv(...) LAPACK_cgejsv_base(__VA_ARGS__) -#endif - -#define LAPACK_dgejsv_base LAPACK_GLOBAL(dgejsv,DGEJSV) -void LAPACK_dgejsv_base( - char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp, - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, - double* SVA, - double* U, lapack_int const* ldu, - double* V, lapack_int const* ldv, - double* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgejsv(...) LAPACK_dgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) -#else - #define LAPACK_dgejsv(...) LAPACK_dgejsv_base(__VA_ARGS__) -#endif - -#define LAPACK_sgejsv_base LAPACK_GLOBAL(sgejsv,SGEJSV) -void LAPACK_sgejsv_base( - char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp, - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, - float* SVA, - float* U, lapack_int const* ldu, - float* V, lapack_int const* ldv, - float* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgejsv(...) LAPACK_sgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) -#else - #define LAPACK_sgejsv(...) LAPACK_sgejsv_base(__VA_ARGS__) -#endif - -#define LAPACK_zgejsv_base LAPACK_GLOBAL(zgejsv,ZGEJSV) -void LAPACK_zgejsv_base( - char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp, - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - double* SVA, - lapack_complex_double* U, lapack_int const* ldu, - lapack_complex_double* V, lapack_int const* ldv, - lapack_complex_double* cwork, lapack_int const* lwork, - double* rwork, lapack_int const* lrwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgejsv(...) LAPACK_zgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) -#else - #define LAPACK_zgejsv(...) LAPACK_zgejsv_base(__VA_ARGS__) -#endif - -#define LAPACK_cgelq LAPACK_GLOBAL(cgelq,CGELQ) -void LAPACK_cgelq( - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* T, lapack_int const* tsize, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_dgelq LAPACK_GLOBAL(dgelq,DGELQ) -void LAPACK_dgelq( - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, - double* T, lapack_int const* tsize, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sgelq LAPACK_GLOBAL(sgelq,SGELQ) -void LAPACK_sgelq( - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, - float* T, lapack_int const* tsize, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zgelq LAPACK_GLOBAL(zgelq,ZGELQ) -void LAPACK_zgelq( - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* T, lapack_int const* tsize, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_cgelq2 LAPACK_GLOBAL(cgelq2,CGELQ2) -void LAPACK_cgelq2( - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* tau, - lapack_complex_float* work, - lapack_int* info ); - -#define LAPACK_dgelq2 LAPACK_GLOBAL(dgelq2,DGELQ2) -void LAPACK_dgelq2( - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, - double* tau, - double* work, - lapack_int* info ); - -#define LAPACK_sgelq2 LAPACK_GLOBAL(sgelq2,SGELQ2) -void LAPACK_sgelq2( - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, - float* tau, - float* work, - lapack_int* info ); - -#define LAPACK_zgelq2 LAPACK_GLOBAL(zgelq2,ZGELQ2) -void LAPACK_zgelq2( - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* tau, - lapack_complex_double* work, - lapack_int* info ); - -#define LAPACK_cgelqf LAPACK_GLOBAL(cgelqf,CGELQF) -void LAPACK_cgelqf( - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* tau, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_dgelqf LAPACK_GLOBAL(dgelqf,DGELQF) -void LAPACK_dgelqf( - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, - double* tau, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sgelqf LAPACK_GLOBAL(sgelqf,SGELQF) -void LAPACK_sgelqf( - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, - float* tau, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zgelqf LAPACK_GLOBAL(zgelqf,ZGELQF) -void LAPACK_zgelqf( - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* tau, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_cgels_base LAPACK_GLOBAL(cgels,CGELS) -void LAPACK_cgels_base( - char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgels(...) LAPACK_cgels_base(__VA_ARGS__, 1) -#else - #define LAPACK_cgels(...) LAPACK_cgels_base(__VA_ARGS__) -#endif - -#define LAPACK_dgels_base LAPACK_GLOBAL(dgels,DGELS) -void LAPACK_dgels_base( - char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgels(...) LAPACK_dgels_base(__VA_ARGS__, 1) -#else - #define LAPACK_dgels(...) LAPACK_dgels_base(__VA_ARGS__) -#endif - -#define LAPACK_sgels_base LAPACK_GLOBAL(sgels,SGELS) -void LAPACK_sgels_base( - char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgels(...) LAPACK_sgels_base(__VA_ARGS__, 1) -#else - #define LAPACK_sgels(...) LAPACK_sgels_base(__VA_ARGS__) -#endif - -#define LAPACK_zgels_base LAPACK_GLOBAL(zgels,ZGELS) -void LAPACK_zgels_base( - char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgels(...) LAPACK_zgels_base(__VA_ARGS__, 1) -#else - #define LAPACK_zgels(...) LAPACK_zgels_base(__VA_ARGS__) -#endif - -#define LAPACK_cgelsd LAPACK_GLOBAL(cgelsd,CGELSD) -void LAPACK_cgelsd( - lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - float* S, - float const* rcond, lapack_int* rank, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* iwork, - lapack_int* info ); - -#define LAPACK_dgelsd LAPACK_GLOBAL(dgelsd,DGELSD) -void LAPACK_dgelsd( - lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* S, - double const* rcond, lapack_int* rank, - double* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info ); - -#define LAPACK_sgelsd LAPACK_GLOBAL(sgelsd,SGELSD) -void LAPACK_sgelsd( - lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* S, - float const* rcond, lapack_int* rank, - float* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info ); - -#define LAPACK_zgelsd LAPACK_GLOBAL(zgelsd,ZGELSD) -void LAPACK_zgelsd( - lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - double* S, - double const* rcond, lapack_int* rank, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* iwork, - lapack_int* info ); - -#define LAPACK_cgelss LAPACK_GLOBAL(cgelss,CGELSS) -void LAPACK_cgelss( - lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - float* S, - float const* rcond, lapack_int* rank, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* info ); - -#define LAPACK_dgelss LAPACK_GLOBAL(dgelss,DGELSS) -void LAPACK_dgelss( - lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* S, - double const* rcond, lapack_int* rank, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sgelss LAPACK_GLOBAL(sgelss,SGELSS) -void LAPACK_sgelss( - lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* S, - float const* rcond, lapack_int* rank, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zgelss LAPACK_GLOBAL(zgelss,ZGELSS) -void LAPACK_zgelss( - lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - double* S, - double const* rcond, lapack_int* rank, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* info ); - -#define LAPACK_cgelsy LAPACK_GLOBAL(cgelsy,CGELSY) -void LAPACK_cgelsy( - lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, lapack_int* JPVT, - float const* rcond, lapack_int* rank, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* info ); - -#define LAPACK_dgelsy LAPACK_GLOBAL(dgelsy,DGELSY) -void LAPACK_dgelsy( - lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, lapack_int* JPVT, - double const* rcond, lapack_int* rank, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sgelsy LAPACK_GLOBAL(sgelsy,SGELSY) -void LAPACK_sgelsy( - lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, lapack_int* JPVT, - float const* rcond, lapack_int* rank, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zgelsy LAPACK_GLOBAL(zgelsy,ZGELSY) -void LAPACK_zgelsy( - lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, lapack_int* JPVT, - double const* rcond, lapack_int* rank, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* info ); - -#define LAPACK_cgemlq_base LAPACK_GLOBAL(cgemlq,CGEMLQ) -void LAPACK_cgemlq_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* T, lapack_int const* tsize, - lapack_complex_float* C, lapack_int const* ldc, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgemlq(...) LAPACK_cgemlq_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cgemlq(...) LAPACK_cgemlq_base(__VA_ARGS__) -#endif - -#define LAPACK_dgemlq_base LAPACK_GLOBAL(dgemlq,DGEMLQ) -void LAPACK_dgemlq_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - double const* A, lapack_int const* lda, - double const* T, lapack_int const* tsize, - double* C, lapack_int const* ldc, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgemlq(...) LAPACK_dgemlq_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dgemlq(...) LAPACK_dgemlq_base(__VA_ARGS__) -#endif - -#define LAPACK_sgemlq_base LAPACK_GLOBAL(sgemlq,SGEMLQ) -void LAPACK_sgemlq_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - float const* A, lapack_int const* lda, - float const* T, lapack_int const* tsize, - float* C, lapack_int const* ldc, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgemlq(...) LAPACK_sgemlq_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sgemlq(...) LAPACK_sgemlq_base(__VA_ARGS__) -#endif - -#define LAPACK_zgemlq_base LAPACK_GLOBAL(zgemlq,ZGEMLQ) -void LAPACK_zgemlq_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* T, lapack_int const* tsize, - lapack_complex_double* C, lapack_int const* ldc, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgemlq(...) LAPACK_zgemlq_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zgemlq(...) LAPACK_zgemlq_base(__VA_ARGS__) -#endif - -#define LAPACK_cgemqr_base LAPACK_GLOBAL(cgemqr,CGEMQR) -void LAPACK_cgemqr_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* T, lapack_int const* tsize, - lapack_complex_float* C, lapack_int const* ldc, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgemqr(...) LAPACK_cgemqr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cgemqr(...) LAPACK_cgemqr_base(__VA_ARGS__) -#endif - -#define LAPACK_dgemqr_base LAPACK_GLOBAL(dgemqr,DGEMQR) -void LAPACK_dgemqr_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - double const* A, lapack_int const* lda, - double const* T, lapack_int const* tsize, - double* C, lapack_int const* ldc, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgemqr(...) LAPACK_dgemqr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dgemqr(...) LAPACK_dgemqr_base(__VA_ARGS__) -#endif - -#define LAPACK_sgemqr_base LAPACK_GLOBAL(sgemqr,SGEMQR) -void LAPACK_sgemqr_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - float const* A, lapack_int const* lda, - float const* T, lapack_int const* tsize, - float* C, lapack_int const* ldc, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgemqr(...) LAPACK_sgemqr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sgemqr(...) LAPACK_sgemqr_base(__VA_ARGS__) -#endif - -#define LAPACK_zgemqr_base LAPACK_GLOBAL(zgemqr,ZGEMQR) -void LAPACK_zgemqr_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* T, lapack_int const* tsize, - lapack_complex_double* C, lapack_int const* ldc, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgemqr(...) LAPACK_zgemqr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zgemqr(...) LAPACK_zgemqr_base(__VA_ARGS__) -#endif - -#define LAPACK_cgemqrt_base LAPACK_GLOBAL(cgemqrt,CGEMQRT) -void LAPACK_cgemqrt_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb, - lapack_complex_float const* V, lapack_int const* ldv, - lapack_complex_float const* T, lapack_int const* ldt, - lapack_complex_float* C, lapack_int const* ldc, - lapack_complex_float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgemqrt(...) LAPACK_cgemqrt_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cgemqrt(...) LAPACK_cgemqrt_base(__VA_ARGS__) -#endif - -#define LAPACK_dgemqrt_base LAPACK_GLOBAL(dgemqrt,DGEMQRT) -void LAPACK_dgemqrt_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb, - double const* V, lapack_int const* ldv, - double const* T, lapack_int const* ldt, - double* C, lapack_int const* ldc, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgemqrt(...) LAPACK_dgemqrt_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dgemqrt(...) LAPACK_dgemqrt_base(__VA_ARGS__) -#endif - -#define LAPACK_sgemqrt_base LAPACK_GLOBAL(sgemqrt,SGEMQRT) -void LAPACK_sgemqrt_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb, - float const* V, lapack_int const* ldv, - float const* T, lapack_int const* ldt, - float* C, lapack_int const* ldc, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgemqrt(...) LAPACK_sgemqrt_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sgemqrt(...) LAPACK_sgemqrt_base(__VA_ARGS__) -#endif - -#define LAPACK_zgemqrt_base LAPACK_GLOBAL(zgemqrt,ZGEMQRT) -void LAPACK_zgemqrt_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb, - lapack_complex_double const* V, lapack_int const* ldv, - lapack_complex_double const* T, lapack_int const* ldt, - lapack_complex_double* C, lapack_int const* ldc, - lapack_complex_double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgemqrt(...) LAPACK_zgemqrt_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zgemqrt(...) LAPACK_zgemqrt_base(__VA_ARGS__) -#endif - -#define LAPACK_cgeql2 LAPACK_GLOBAL(cgeql2,CGEQL2) -void LAPACK_cgeql2( - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* tau, - lapack_complex_float* work, - lapack_int* info ); - -#define LAPACK_dgeql2 LAPACK_GLOBAL(dgeql2,DGEQL2) -void LAPACK_dgeql2( - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, - double* tau, - double* work, - lapack_int* info ); - -#define LAPACK_sgeql2 LAPACK_GLOBAL(sgeql2,SGEQL2) -void LAPACK_sgeql2( - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, - float* tau, - float* work, - lapack_int* info ); - -#define LAPACK_zgeql2 LAPACK_GLOBAL(zgeql2,ZGEQL2) -void LAPACK_zgeql2( - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* tau, - lapack_complex_double* work, - lapack_int* info ); - -#define LAPACK_cgeqlf LAPACK_GLOBAL(cgeqlf,CGEQLF) -void LAPACK_cgeqlf( - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* tau, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_dgeqlf LAPACK_GLOBAL(dgeqlf,DGEQLF) -void LAPACK_dgeqlf( - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, - double* tau, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sgeqlf LAPACK_GLOBAL(sgeqlf,SGEQLF) -void LAPACK_sgeqlf( - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, - float* tau, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zgeqlf LAPACK_GLOBAL(zgeqlf,ZGEQLF) -void LAPACK_zgeqlf( - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* tau, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sgeqpf LAPACK_GLOBAL(sgeqpf,SGEQPF) -void LAPACK_sgeqpf( lapack_int* m, lapack_int* n, float* a, lapack_int* lda, - lapack_int* jpvt, float* tau, float* work, - lapack_int *info ); - -#define LAPACK_dgeqpf LAPACK_GLOBAL(dgeqpf,DGEQPF) -void LAPACK_dgeqpf( lapack_int* m, lapack_int* n, double* a, lapack_int* lda, - lapack_int* jpvt, double* tau, double* work, - lapack_int *info ); - -#define LAPACK_cgeqpf LAPACK_GLOBAL(cgeqpf,CGEQPF) -void LAPACK_cgeqpf( lapack_int* m, lapack_int* n, lapack_complex_float* a, - lapack_int* lda, lapack_int* jpvt, - lapack_complex_float* tau, lapack_complex_float* work, - float* rwork, lapack_int *info ); - -#define LAPACK_zgeqpf LAPACK_GLOBAL(zgeqpf,ZGEQPF) -void LAPACK_zgeqpf( lapack_int* m, lapack_int* n, lapack_complex_double* a, - lapack_int* lda, lapack_int* jpvt, - lapack_complex_double* tau, lapack_complex_double* work, - double* rwork, lapack_int *info ); - -#define LAPACK_cgeqp3 LAPACK_GLOBAL(cgeqp3,CGEQP3) -void LAPACK_cgeqp3( - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int* JPVT, - lapack_complex_float* tau, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* info ); - -#define LAPACK_dgeqp3 LAPACK_GLOBAL(dgeqp3,DGEQP3) -void LAPACK_dgeqp3( - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, lapack_int* JPVT, - double* tau, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sgeqp3 LAPACK_GLOBAL(sgeqp3,SGEQP3) -void LAPACK_sgeqp3( - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, lapack_int* JPVT, - float* tau, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zgeqp3 LAPACK_GLOBAL(zgeqp3,ZGEQP3) -void LAPACK_zgeqp3( - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int* JPVT, - lapack_complex_double* tau, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* info ); - -#define LAPACK_cgeqr LAPACK_GLOBAL(cgeqr,CGEQR) -void LAPACK_cgeqr( - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* T, lapack_int const* tsize, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_dgeqr LAPACK_GLOBAL(dgeqr,DGEQR) -void LAPACK_dgeqr( - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, - double* T, lapack_int const* tsize, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sgeqr LAPACK_GLOBAL(sgeqr,SGEQR) -void LAPACK_sgeqr( - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, - float* T, lapack_int const* tsize, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zgeqr LAPACK_GLOBAL(zgeqr,ZGEQR) -void LAPACK_zgeqr( - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* T, lapack_int const* tsize, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_cgeqr2 LAPACK_GLOBAL(cgeqr2,CGEQR2) -void LAPACK_cgeqr2( - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* tau, - lapack_complex_float* work, - lapack_int* info ); - -#define LAPACK_dgeqr2 LAPACK_GLOBAL(dgeqr2,DGEQR2) -void LAPACK_dgeqr2( - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, - double* tau, - double* work, - lapack_int* info ); - -#define LAPACK_sgeqr2 LAPACK_GLOBAL(sgeqr2,SGEQR2) -void LAPACK_sgeqr2( - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, - float* tau, - float* work, - lapack_int* info ); - -#define LAPACK_zgeqr2 LAPACK_GLOBAL(zgeqr2,ZGEQR2) -void LAPACK_zgeqr2( - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* tau, - lapack_complex_double* work, - lapack_int* info ); - -#define LAPACK_cgeqrf LAPACK_GLOBAL(cgeqrf,CGEQRF) -void LAPACK_cgeqrf( - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* tau, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_dgeqrf LAPACK_GLOBAL(dgeqrf,DGEQRF) -void LAPACK_dgeqrf( - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, - double* tau, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sgeqrf LAPACK_GLOBAL(sgeqrf,SGEQRF) -void LAPACK_sgeqrf( - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, - float* tau, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zgeqrf LAPACK_GLOBAL(zgeqrf,ZGEQRF) -void LAPACK_zgeqrf( - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* tau, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_cgeqrfp LAPACK_GLOBAL(cgeqrfp,CGEQRFP) -void LAPACK_cgeqrfp( - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* tau, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_dgeqrfp LAPACK_GLOBAL(dgeqrfp,DGEQRFP) -void LAPACK_dgeqrfp( - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, - double* tau, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sgeqrfp LAPACK_GLOBAL(sgeqrfp,SGEQRFP) -void LAPACK_sgeqrfp( - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, - float* tau, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zgeqrfp LAPACK_GLOBAL(zgeqrfp,ZGEQRFP) -void LAPACK_zgeqrfp( - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* tau, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_cgeqrt LAPACK_GLOBAL(cgeqrt,CGEQRT) -void LAPACK_cgeqrt( - lapack_int const* m, lapack_int const* n, lapack_int const* nb, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* T, lapack_int const* ldt, - lapack_complex_float* work, - lapack_int* info ); - -#define LAPACK_dgeqrt LAPACK_GLOBAL(dgeqrt,DGEQRT) -void LAPACK_dgeqrt( - lapack_int const* m, lapack_int const* n, lapack_int const* nb, - double* A, lapack_int const* lda, - double* T, lapack_int const* ldt, - double* work, - lapack_int* info ); - -#define LAPACK_sgeqrt LAPACK_GLOBAL(sgeqrt,SGEQRT) -void LAPACK_sgeqrt( - lapack_int const* m, lapack_int const* n, lapack_int const* nb, - float* A, lapack_int const* lda, - float* T, lapack_int const* ldt, - float* work, - lapack_int* info ); - -#define LAPACK_zgeqrt LAPACK_GLOBAL(zgeqrt,ZGEQRT) -void LAPACK_zgeqrt( - lapack_int const* m, lapack_int const* n, lapack_int const* nb, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* T, lapack_int const* ldt, - lapack_complex_double* work, - lapack_int* info ); - -#define LAPACK_cgeqrt2 LAPACK_GLOBAL(cgeqrt2,CGEQRT2) -void LAPACK_cgeqrt2( - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* T, lapack_int const* ldt, - lapack_int* info ); - -#define LAPACK_dgeqrt2 LAPACK_GLOBAL(dgeqrt2,DGEQRT2) -void LAPACK_dgeqrt2( - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, - double* T, lapack_int const* ldt, - lapack_int* info ); - -#define LAPACK_sgeqrt2 LAPACK_GLOBAL(sgeqrt2,SGEQRT2) -void LAPACK_sgeqrt2( - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, - float* T, lapack_int const* ldt, - lapack_int* info ); - -#define LAPACK_zgeqrt2 LAPACK_GLOBAL(zgeqrt2,ZGEQRT2) -void LAPACK_zgeqrt2( - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* T, lapack_int const* ldt, - lapack_int* info ); - -#define LAPACK_cgeqrt3 LAPACK_GLOBAL(cgeqrt3,CGEQRT3) -void LAPACK_cgeqrt3( - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* T, lapack_int const* ldt, - lapack_int* info ); - -#define LAPACK_dgeqrt3 LAPACK_GLOBAL(dgeqrt3,DGEQRT3) -void LAPACK_dgeqrt3( - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, - double* T, lapack_int const* ldt, - lapack_int* info ); - -#define LAPACK_sgeqrt3 LAPACK_GLOBAL(sgeqrt3,SGEQRT3) -void LAPACK_sgeqrt3( - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, - float* T, lapack_int const* ldt, - lapack_int* info ); - -#define LAPACK_zgeqrt3 LAPACK_GLOBAL(zgeqrt3,ZGEQRT3) -void LAPACK_zgeqrt3( - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* T, lapack_int const* ldt, - lapack_int* info ); - -#define LAPACK_cgerfs_base LAPACK_GLOBAL(cgerfs,CGERFS) -void LAPACK_cgerfs_base( - char const* trans, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* ferr, - float* berr, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgerfs(...) LAPACK_cgerfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_cgerfs(...) LAPACK_cgerfs_base(__VA_ARGS__) -#endif - -#define LAPACK_dgerfs_base LAPACK_GLOBAL(dgerfs,DGERFS) -void LAPACK_dgerfs_base( - char const* trans, - lapack_int const* n, lapack_int const* nrhs, - double const* A, lapack_int const* lda, - double const* AF, lapack_int const* ldaf, lapack_int const* ipiv, - double const* B, lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* ferr, - double* berr, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgerfs(...) LAPACK_dgerfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_dgerfs(...) LAPACK_dgerfs_base(__VA_ARGS__) -#endif - -#define LAPACK_sgerfs_base LAPACK_GLOBAL(sgerfs,SGERFS) -void LAPACK_sgerfs_base( - char const* trans, - lapack_int const* n, lapack_int const* nrhs, - float const* A, lapack_int const* lda, - float const* AF, lapack_int const* ldaf, lapack_int const* ipiv, - float const* B, lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* ferr, - float* berr, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgerfs(...) LAPACK_sgerfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_sgerfs(...) LAPACK_sgerfs_base(__VA_ARGS__) -#endif - -#define LAPACK_zgerfs_base LAPACK_GLOBAL(zgerfs,ZGERFS) -void LAPACK_zgerfs_base( - char const* trans, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* ferr, - double* berr, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgerfs(...) LAPACK_zgerfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_zgerfs(...) LAPACK_zgerfs_base(__VA_ARGS__) -#endif - -#define LAPACK_cgerfsx_base LAPACK_GLOBAL(cgerfsx,CGERFSX) -void LAPACK_cgerfsx_base( - char const* trans, char const* equed, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv, - float const* R, - float const* C, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* rcond, - float* berr, lapack_int const* n_err_bnds, - float* err_bnds_norm, - float* err_bnds_comp, lapack_int const* nparams, - float* params, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgerfsx(...) LAPACK_cgerfsx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cgerfsx(...) LAPACK_cgerfsx_base(__VA_ARGS__) -#endif - -#define LAPACK_dgerfsx_base LAPACK_GLOBAL(dgerfsx,DGERFSX) -void LAPACK_dgerfsx_base( - char const* trans, char const* equed, - lapack_int const* n, lapack_int const* nrhs, - double const* A, lapack_int const* lda, - double const* AF, lapack_int const* ldaf, lapack_int const* ipiv, - double const* R, - double const* C, - double const* B, lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* rcond, - double* berr, lapack_int const* n_err_bnds, - double* err_bnds_norm, - double* err_bnds_comp, lapack_int const* nparams, - double* params, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgerfsx(...) LAPACK_dgerfsx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dgerfsx(...) LAPACK_dgerfsx_base(__VA_ARGS__) -#endif - -#define LAPACK_sgerfsx_base LAPACK_GLOBAL(sgerfsx,SGERFSX) -void LAPACK_sgerfsx_base( - char const* trans, char const* equed, - lapack_int const* n, lapack_int const* nrhs, - float const* A, lapack_int const* lda, - float const* AF, lapack_int const* ldaf, lapack_int const* ipiv, - float const* R, - float const* C, - float const* B, lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* rcond, - float* berr, lapack_int const* n_err_bnds, - float* err_bnds_norm, - float* err_bnds_comp, lapack_int const* nparams, - float* params, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgerfsx(...) LAPACK_sgerfsx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sgerfsx(...) LAPACK_sgerfsx_base(__VA_ARGS__) -#endif - -#define LAPACK_zgerfsx_base LAPACK_GLOBAL(zgerfsx,ZGERFSX) -void LAPACK_zgerfsx_base( - char const* trans, char const* equed, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv, - double const* R, - double const* C, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* rcond, - double* berr, lapack_int const* n_err_bnds, - double* err_bnds_norm, - double* err_bnds_comp, lapack_int const* nparams, - double* params, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgerfsx(...) LAPACK_zgerfsx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zgerfsx(...) LAPACK_zgerfsx_base(__VA_ARGS__) -#endif - -#define LAPACK_cgerq2 LAPACK_GLOBAL(cgerq2,CGERQ2) -void LAPACK_cgerq2( - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* tau, - lapack_complex_float* work, - lapack_int* info ); - -#define LAPACK_dgerq2 LAPACK_GLOBAL(dgerq2,DGERQ2) -void LAPACK_dgerq2( - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, - double* tau, - double* work, - lapack_int* info ); - -#define LAPACK_sgerq2 LAPACK_GLOBAL(sgerq2,SGERQ2) -void LAPACK_sgerq2( - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, - float* tau, - float* work, - lapack_int* info ); - -#define LAPACK_zgerq2 LAPACK_GLOBAL(zgerq2,ZGERQ2) -void LAPACK_zgerq2( - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* tau, - lapack_complex_double* work, - lapack_int* info ); - -#define LAPACK_cgerqf LAPACK_GLOBAL(cgerqf,CGERQF) -void LAPACK_cgerqf( - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* tau, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_dgerqf LAPACK_GLOBAL(dgerqf,DGERQF) -void LAPACK_dgerqf( - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, - double* tau, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sgerqf LAPACK_GLOBAL(sgerqf,SGERQF) -void LAPACK_sgerqf( - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, - float* tau, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zgerqf LAPACK_GLOBAL(zgerqf,ZGERQF) -void LAPACK_zgerqf( - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* tau, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_cgesdd_base LAPACK_GLOBAL(cgesdd,CGESDD) -void LAPACK_cgesdd_base( - char const* jobz, - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - float* S, - lapack_complex_float* U, lapack_int const* ldu, - lapack_complex_float* VT, lapack_int const* ldvt, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgesdd(...) LAPACK_cgesdd_base(__VA_ARGS__, 1) -#else - #define LAPACK_cgesdd(...) LAPACK_cgesdd_base(__VA_ARGS__) -#endif - -#define LAPACK_dgesdd_base LAPACK_GLOBAL(dgesdd,DGESDD) -void LAPACK_dgesdd_base( - char const* jobz, - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, - double* S, - double* U, lapack_int const* ldu, - double* VT, lapack_int const* ldvt, - double* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgesdd(...) LAPACK_dgesdd_base(__VA_ARGS__, 1) -#else - #define LAPACK_dgesdd(...) LAPACK_dgesdd_base(__VA_ARGS__) -#endif - -#define LAPACK_sgesdd_base LAPACK_GLOBAL(sgesdd,SGESDD) -void LAPACK_sgesdd_base( - char const* jobz, - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, - float* S, - float* U, lapack_int const* ldu, - float* VT, lapack_int const* ldvt, - float* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgesdd(...) LAPACK_sgesdd_base(__VA_ARGS__, 1) -#else - #define LAPACK_sgesdd(...) LAPACK_sgesdd_base(__VA_ARGS__) -#endif - -#define LAPACK_zgesdd_base LAPACK_GLOBAL(zgesdd,ZGESDD) -void LAPACK_zgesdd_base( - char const* jobz, - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - double* S, - lapack_complex_double* U, lapack_int const* ldu, - lapack_complex_double* VT, lapack_int const* ldvt, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgesdd(...) LAPACK_zgesdd_base(__VA_ARGS__, 1) -#else - #define LAPACK_zgesdd(...) LAPACK_zgesdd_base(__VA_ARGS__) -#endif - -#define LAPACK_cgedmd_base LAPACK_GLOBAL(cgedmd,CGEDMD) -void LAPACK_cgedmd_base( - char const* jobs, char const* jobz, char const* jobr, char const* jobf, - lapack_int const* whtsvd, lapack_int const* m, lapack_int const* n, - lapack_complex_float* x, lapack_int const* ldx, - lapack_complex_float* y, lapack_int const* ldy, lapack_int const* nrnk, - const float* tol, lapack_int* k, lapack_complex_float* eigs, - lapack_complex_float* z, lapack_int const* ldz, float* res, - lapack_complex_float* b, lapack_int const* ldb, - lapack_complex_float* w, lapack_int const* ldw, - lapack_complex_float* s, lapack_int const* lds, - lapack_complex_float* zwork, lapack_int const* lzwork, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgedmd(...) LAPACK_cgedmd_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_cgedmd(...) LAPACK_cgedmd_base(__VA_ARGS__) -#endif - - -#define LAPACK_dgedmd_base LAPACK_GLOBAL(dgedmd,DGEDMD) -void LAPACK_dgedmd_base( - char const* jobs, char const* jobz, char const* jobr, char const* jobf, - lapack_int const* whtsvd, lapack_int const* m, lapack_int const* n, - double* x, lapack_int const* ldx, - double* y, lapack_int const* ldy, lapack_int const* nrnk, - const double* tol, lapack_int* k, double* reig, double* imeig, - double* z, lapack_int const* ldz, double* res, - double* b, lapack_int const* ldb, - double* w, lapack_int const* ldw, - double* s, lapack_int const* lds, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgedmd(...) LAPACK_dgedmd_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_dgedmd(...) LAPACK_dgedmd_base(__VA_ARGS__) -#endif - -#define LAPACK_sgedmd_base LAPACK_GLOBAL(sgedmd,SGEDMD) -void LAPACK_sgedmd_base( - char const* jobs, char const* jobz, char const* jobr, char const* jobf, - lapack_int const* whtsvd, lapack_int const* m, lapack_int const* n, - float* x, lapack_int const* ldx, - float* y, lapack_int const* ldy, lapack_int const* nrnk, - const float* tol, lapack_int* k, float* reig, float *imeig, - float* z, lapack_int const* ldz, float* res, - float* b, lapack_int const* ldb, - float* w, lapack_int const* ldw, - float* s, lapack_int const* lds, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgedmd(...) LAPACK_sgedmd_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_sgedmd(...) LAPACK_sgedmd_base(__VA_ARGS__) -#endif - -#define LAPACK_zgedmd_base LAPACK_GLOBAL(zgedmd,ZGEDMD) -void LAPACK_zgedmd_base( - char const* jobs, char const* jobz, char const* jobr, char const* jobf, - lapack_int const* whtsvd, lapack_int const* m, lapack_int const* n, - lapack_complex_double* x, lapack_int const* ldx, - lapack_complex_double* y, lapack_int const* ldy, lapack_int const* nrnk, - const double* tol, lapack_int *k, lapack_complex_double* eigs, - lapack_complex_double* z, lapack_int const* ldz, double* res, - lapack_complex_double* b, lapack_int const* ldb, - lapack_complex_double* w, lapack_int const* ldw, - lapack_complex_double* s, lapack_int const* lds, - lapack_complex_double* zwork, lapack_int const* lzwork, - double* rwork, lapack_int const* lrwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgedmd(...) LAPACK_zgedmd_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_zgedmd(...) LAPACK_zgedmd_base(__VA_ARGS__) -#endif - -#define LAPACK_cgedmdq_base LAPACK_GLOBAL(cgedmdq,CGEDMDQ) -void LAPACK_cgedmdq_base( - char const* jobs, char const* jobz, char const* jobr, char const* jobq, - char const* jobt, char const* jobf, lapack_int const* whtsvd, - lapack_int const* m, lapack_int const* n, - lapack_complex_float* f, lapack_int const* ldf, - lapack_complex_float* x, lapack_int const* ldx, - lapack_complex_float* y, lapack_int const* ldy, lapack_int const* nrnk, - float const* tol, lapack_int const* k, - lapack_complex_float* eigs, - lapack_complex_float* z, lapack_int const* ldz, float* res, - lapack_complex_float* b, lapack_int const* ldb, - lapack_complex_float* v, lapack_int const* ldv, - lapack_complex_float* s, lapack_int const* lds, - lapack_complex_float* zwork, lapack_int const* lzwork, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgedmdq(...) LAPACK_cgedmdq_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) -#else - #define LAPACK_cgedmdq(...) LAPACK_cgedmdq_base(__VA_ARGS__) -#endif - -#define LAPACK_dgedmdq_base LAPACK_GLOBAL(dgedmdq,DGEDMDQ) -void LAPACK_dgedmdq_base( - char const* jobs, char const* jobz, char const* jobr, char const* jobq, - char const* jobt, char const* jobf, lapack_int const* whtsvd, - lapack_int const* m, lapack_int const* n, - double* f, lapack_int const* ldf, - double* x, lapack_int const* ldx, - double* y, lapack_int const* ldy, lapack_int const* nrnk, - double const* tol, lapack_int* k, - double* reig, double *imeig, - double* z, lapack_int const* ldz, double* res, - double* b, lapack_int const* ldb, - double* v, lapack_int const* ldv, - double* s, lapack_int const* lds, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgedmdq(...) LAPACK_dgedmdq_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) -#else - #define LAPACK_dgedmdq(...) LAPACK_dgedmdq_base(__VA_ARGS__) -#endif - -#define LAPACK_sgedmdq_base LAPACK_GLOBAL(sgedmdq,SGEDMDQ) -void LAPACK_sgedmdq_base( - char const* jobs, char const* jobz, char const* jobr, char const* jobq, - char const* jobt, char const* jobf, lapack_int const* whtsvd, - lapack_int const* m, lapack_int const* n, - float* f, lapack_int const* ldf, - float* x, lapack_int const* ldx, - float* y, lapack_int const* ldy, lapack_int const* nrnk, - float const* tol, lapack_int const* k, - float* reig, float* imeig, - float* z, lapack_int const* ldz, float* res, - float* b, lapack_int const* ldb, - float* v, lapack_int const* ldv, - float* s, lapack_int const* lds, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgedmdq(...) LAPACK_sgedmdq_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) -#else - #define LAPACK_sgedmdq(...) LAPACK_sgedmdq_base(__VA_ARGS__) -#endif - -#define LAPACK_zgedmdq_base LAPACK_GLOBAL(zgedmdq,ZGEDMDQ) -void LAPACK_zgedmdq_base( - char const* jobs, char const* jobz, char const* jobr, char const* jobq, - char const* jobt, char const* jobf, lapack_int const* whtsvd, - lapack_int const* m, lapack_int const* n, - lapack_complex_double* f, lapack_int const* ldf, - lapack_complex_double* x, lapack_int const* ldx, - lapack_complex_double* y, lapack_int const* ldy, lapack_int const* nrnk, - double const* tol, lapack_int const* k, - lapack_complex_double* eigs, - lapack_complex_double* z, lapack_int const* ldz, double* res, - lapack_complex_double* b, lapack_int const* ldb, - lapack_complex_double* v, lapack_int const* ldv, - lapack_complex_double* s, lapack_int const* lds, - lapack_complex_double* zwork, lapack_int const* lzwork, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info - -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgedmdq(...) LAPACK_zgedmdq_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) -#else - #define LAPACK_zgedmdq(...) LAPACK_zgedmdq_base(__VA_ARGS__) -#endif - -#define LAPACK_cgesv LAPACK_GLOBAL(cgesv,CGESV) -lapack_int LAPACK_cgesv( - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); - -#define LAPACK_dgesv LAPACK_GLOBAL(dgesv,DGESV) -lapack_int LAPACK_dgesv( - lapack_int const* n, lapack_int const* nrhs, - double* A, lapack_int const* lda, lapack_int* ipiv, - double* B, lapack_int const* ldb, - lapack_int* info ); - -#define LAPACK_sgesv LAPACK_GLOBAL(sgesv,SGESV) -lapack_int LAPACK_sgesv( - lapack_int const* n, lapack_int const* nrhs, - float* A, lapack_int const* lda, lapack_int* ipiv, - float* B, lapack_int const* ldb, - lapack_int* info ); - -#define LAPACK_zgesv LAPACK_GLOBAL(zgesv,ZGESV) -lapack_int LAPACK_zgesv( - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); - -#define LAPACK_dsgesv LAPACK_GLOBAL(dsgesv,DSGESV) -void LAPACK_dsgesv( - lapack_int const* n, lapack_int const* nrhs, - double* A, lapack_int const* lda, lapack_int* ipiv, - double const* B, lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* work, - float* swork, lapack_int* iter, - lapack_int* info ); - -#define LAPACK_zcgesv LAPACK_GLOBAL(zcgesv,ZCGESV) -void LAPACK_zcgesv( - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - lapack_complex_double* work, - lapack_complex_float* swork, - double* rwork, lapack_int* iter, - lapack_int* info ); - -#define LAPACK_cgesvd_base LAPACK_GLOBAL(cgesvd,CGESVD) -void LAPACK_cgesvd_base( - char const* jobu, char const* jobvt, - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - float* S, - lapack_complex_float* U, lapack_int const* ldu, - lapack_complex_float* VT, lapack_int const* ldvt, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgesvd(...) LAPACK_cgesvd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cgesvd(...) LAPACK_cgesvd_base(__VA_ARGS__) -#endif - -#define LAPACK_dgesvd_base LAPACK_GLOBAL(dgesvd,DGESVD) -void LAPACK_dgesvd_base( - char const* jobu, char const* jobvt, - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, - double* S, - double* U, lapack_int const* ldu, - double* VT, lapack_int const* ldvt, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgesvd(...) LAPACK_dgesvd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dgesvd(...) LAPACK_dgesvd_base(__VA_ARGS__) -#endif - -#define LAPACK_sgesvd_base LAPACK_GLOBAL(sgesvd,SGESVD) -void LAPACK_sgesvd_base( - char const* jobu, char const* jobvt, - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, - float* S, - float* U, lapack_int const* ldu, - float* VT, lapack_int const* ldvt, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgesvd(...) LAPACK_sgesvd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sgesvd(...) LAPACK_sgesvd_base(__VA_ARGS__) -#endif - -#define LAPACK_zgesvd_base LAPACK_GLOBAL(zgesvd,ZGESVD) -void LAPACK_zgesvd_base( - char const* jobu, char const* jobvt, - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - double* S, - lapack_complex_double* U, lapack_int const* ldu, - lapack_complex_double* VT, lapack_int const* ldvt, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgesvd(...) LAPACK_zgesvd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zgesvd(...) LAPACK_zgesvd_base(__VA_ARGS__) -#endif - -#define LAPACK_cgesvdq_base LAPACK_GLOBAL(cgesvdq,CGESVDQ) -void LAPACK_cgesvdq_base( - char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv, - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - float* S, - lapack_complex_float* U, lapack_int const* ldu, - lapack_complex_float* V, lapack_int const* ldv, lapack_int* numrank, - lapack_int* iwork, lapack_int const* liwork, - lapack_complex_float* cwork, lapack_int* lcwork, - float* rwork, lapack_int const* lrwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgesvdq(...) LAPACK_cgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1) -#else - #define LAPACK_cgesvdq(...) LAPACK_cgesvdq_base(__VA_ARGS__) -#endif - -#define LAPACK_dgesvdq_base LAPACK_GLOBAL(dgesvdq,DGESVDQ) -void LAPACK_dgesvdq_base( - char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv, - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, - double* S, - double* U, lapack_int const* ldu, - double* V, lapack_int const* ldv, lapack_int* numrank, - lapack_int* iwork, lapack_int const* liwork, - double* work, lapack_int* lwork, - double* rwork, lapack_int const* lrwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgesvdq(...) LAPACK_dgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1) -#else - #define LAPACK_dgesvdq(...) LAPACK_dgesvdq_base(__VA_ARGS__) -#endif - -#define LAPACK_sgesvdq_base LAPACK_GLOBAL(sgesvdq,SGESVDQ) -void LAPACK_sgesvdq_base( - char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv, - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, - float* S, - float* U, lapack_int const* ldu, - float* V, lapack_int const* ldv, lapack_int* numrank, - lapack_int* iwork, lapack_int const* liwork, - float* work, lapack_int* lwork, - float* rwork, lapack_int const* lrwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgesvdq(...) LAPACK_sgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1) -#else - #define LAPACK_sgesvdq(...) LAPACK_sgesvdq_base(__VA_ARGS__) -#endif - -#define LAPACK_zgesvdq_base LAPACK_GLOBAL(zgesvdq,ZGESVDQ) -void LAPACK_zgesvdq_base( - char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv, - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - double* S, - lapack_complex_double* U, lapack_int const* ldu, - lapack_complex_double* V, lapack_int const* ldv, lapack_int* numrank, - lapack_int* iwork, lapack_int const* liwork, - lapack_complex_double* cwork, lapack_int* lcwork, - double* rwork, lapack_int const* lrwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgesvdq(...) LAPACK_zgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1) -#else - #define LAPACK_zgesvdq(...) LAPACK_zgesvdq_base(__VA_ARGS__) -#endif - -#define LAPACK_cgesvdx_base LAPACK_GLOBAL(cgesvdx,CGESVDX) -void LAPACK_cgesvdx_base( - char const* jobu, char const* jobvt, char const* range, - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns, - float* S, - lapack_complex_float* U, lapack_int const* ldu, - lapack_complex_float* VT, lapack_int const* ldvt, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgesvdx(...) LAPACK_cgesvdx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cgesvdx(...) LAPACK_cgesvdx_base(__VA_ARGS__) -#endif - - -#define LAPACK_dgesvdx_base LAPACK_GLOBAL(dgesvdx,DGESVDX) -void LAPACK_dgesvdx_base( - char const* jobu, char const* jobvt, char const* range, - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns, - double* S, - double* U, lapack_int const* ldu, - double* VT, lapack_int const* ldvt, - double* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgesvdx(...) LAPACK_dgesvdx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dgesvdx(...) LAPACK_dgesvdx_base(__VA_ARGS__) -#endif - -#define LAPACK_sgesvdx_base LAPACK_GLOBAL(sgesvdx,SGESVDX) -void LAPACK_sgesvdx_base( - char const* jobu, char const* jobvt, char const* range, - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns, - float* S, - float* U, lapack_int const* ldu, - float* VT, lapack_int const* ldvt, - float* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgesvdx(...) LAPACK_sgesvdx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_sgesvdx(...) LAPACK_sgesvdx_base(__VA_ARGS__) -#endif - -#define LAPACK_zgesvdx_base LAPACK_GLOBAL(zgesvdx,ZGESVDX) -void LAPACK_zgesvdx_base( - char const* jobu, char const* jobvt, char const* range, - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns, - double* S, - lapack_complex_double* U, lapack_int const* ldu, - lapack_complex_double* VT, lapack_int const* ldvt, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgesvdx(...) LAPACK_zgesvdx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zgesvdx(...) LAPACK_zgesvdx_base(__VA_ARGS__) -#endif - -#define LAPACK_cgesvj_base LAPACK_GLOBAL(cgesvj,CGESVJ) -void LAPACK_cgesvj_base( - char const* joba, char const* jobu, char const* jobv, - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - float* SVA, lapack_int const* mv, - lapack_complex_float* V, lapack_int const* ldv, - lapack_complex_float* cwork, lapack_int const* lwork, - float* rwork, lapack_int const* lrwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgesvj(...) LAPACK_cgesvj_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cgesvj(...) LAPACK_cgesvj_base(__VA_ARGS__) -#endif - -#define LAPACK_dgesvj_base LAPACK_GLOBAL(dgesvj,DGESVJ) -void LAPACK_dgesvj_base( - char const* joba, char const* jobu, char const* jobv, - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, - double* SVA, lapack_int const* mv, - double* V, lapack_int const* ldv, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgesvj(...) LAPACK_dgesvj_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dgesvj(...) LAPACK_dgesvj_base(__VA_ARGS__) -#endif - -#define LAPACK_sgesvj_base LAPACK_GLOBAL(sgesvj,SGESVJ) -void LAPACK_sgesvj_base( - char const* joba, char const* jobu, char const* jobv, - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, - float* SVA, lapack_int const* mv, - float* V, lapack_int const* ldv, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgesvj(...) LAPACK_sgesvj_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_sgesvj(...) LAPACK_sgesvj_base(__VA_ARGS__) -#endif - -#define LAPACK_zgesvj_base LAPACK_GLOBAL(zgesvj,ZGESVJ) -void LAPACK_zgesvj_base( - char const* joba, char const* jobu, char const* jobv, - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - double* SVA, lapack_int const* mv, - lapack_complex_double* V, lapack_int const* ldv, - lapack_complex_double* cwork, lapack_int const* lwork, - double* rwork, lapack_int const* lrwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgesvj(...) LAPACK_zgesvj_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zgesvj(...) LAPACK_zgesvj_base(__VA_ARGS__) -#endif - -#define LAPACK_cgesvx_base LAPACK_GLOBAL(cgesvx,CGESVX) -void LAPACK_cgesvx_base( - char const* fact, char const* trans, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed, - float* R, - float* C, - lapack_complex_float* B, - lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* rcond, - float* ferr, - float* berr, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgesvx(...) LAPACK_cgesvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cgesvx(...) LAPACK_cgesvx_base(__VA_ARGS__) -#endif - -#define LAPACK_dgesvx_base LAPACK_GLOBAL(dgesvx,DGESVX) -void LAPACK_dgesvx_base( - char const* fact, char const* trans, - lapack_int const* n, lapack_int const* nrhs, - double* A, lapack_int const* lda, - double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed, - double* R, - double* C, - double* B, - lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* rcond, - double* ferr, - double* berr, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgesvx(...) LAPACK_dgesvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dgesvx(...) LAPACK_dgesvx_base(__VA_ARGS__) -#endif - -#define LAPACK_sgesvx_base LAPACK_GLOBAL(sgesvx,SGESVX) -void LAPACK_sgesvx_base( - char const* fact, char const* trans, - lapack_int const* n, lapack_int const* nrhs, - float* A, lapack_int const* lda, - float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed, - float* R, - float* C, - float* B, - lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* rcond, - float* ferr, - float* berr, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgesvx(...) LAPACK_sgesvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_sgesvx(...) LAPACK_sgesvx_base(__VA_ARGS__) -#endif - -#define LAPACK_zgesvx_base LAPACK_GLOBAL(zgesvx,ZGESVX) -void LAPACK_zgesvx_base( - char const* fact, char const* trans, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed, - double* R, - double* C, - lapack_complex_double* B, - lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* rcond, - double* ferr, - double* berr, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgesvx(...) LAPACK_zgesvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zgesvx(...) LAPACK_zgesvx_base(__VA_ARGS__) -#endif - -#define LAPACK_cgesvxx_base LAPACK_GLOBAL(cgesvxx,CGESVXX) -void LAPACK_cgesvxx_base( - char const* fact, char const* trans, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed, - float* R, - float* C, - lapack_complex_float* B, - lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* rcond, - float* rpvgrw, - float* berr, lapack_int const* n_err_bnds, - float* err_bnds_norm, - float* err_bnds_comp, lapack_int const* nparams, - float* params, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgesvxx(...) LAPACK_cgesvxx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cgesvxx(...) LAPACK_cgesvxx_base(__VA_ARGS__) -#endif - -#define LAPACK_dgesvxx_base LAPACK_GLOBAL(dgesvxx,DGESVXX) -void LAPACK_dgesvxx_base( - char const* fact, char const* trans, - lapack_int const* n, lapack_int const* nrhs, - double* A, lapack_int const* lda, - double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed, - double* R, - double* C, - double* B, - lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* rcond, - double* rpvgrw, - double* berr, lapack_int const* n_err_bnds, - double* err_bnds_norm, - double* err_bnds_comp, lapack_int const* nparams, - double* params, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgesvxx(...) LAPACK_dgesvxx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dgesvxx(...) LAPACK_dgesvxx_base(__VA_ARGS__) -#endif - -#define LAPACK_sgesvxx_base LAPACK_GLOBAL(sgesvxx,SGESVXX) -void LAPACK_sgesvxx_base( - char const* fact, char const* trans, - lapack_int const* n, lapack_int const* nrhs, - float* A, lapack_int const* lda, - float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed, - float* R, - float* C, - float* B, - lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* rcond, - float* rpvgrw, - float* berr, lapack_int const* n_err_bnds, - float* err_bnds_norm, - float* err_bnds_comp, lapack_int const* nparams, - float* params, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgesvxx(...) LAPACK_sgesvxx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_sgesvxx(...) LAPACK_sgesvxx_base(__VA_ARGS__) -#endif - -#define LAPACK_zgesvxx_base LAPACK_GLOBAL(zgesvxx,ZGESVXX) -void LAPACK_zgesvxx_base( - char const* fact, char const* trans, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed, - double* R, - double* C, - lapack_complex_double* B, - lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* rcond, - double* rpvgrw, - double* berr, lapack_int const* n_err_bnds, - double* err_bnds_norm, - double* err_bnds_comp, lapack_int const* nparams, - double* params, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgesvxx(...) LAPACK_zgesvxx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zgesvxx(...) LAPACK_zgesvxx_base(__VA_ARGS__) -#endif - -#define LAPACK_cgetf2 LAPACK_GLOBAL(cgetf2,CGETF2) -lapack_int LAPACK_cgetf2( - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, - lapack_int* info ); - -#define LAPACK_dgetf2 LAPACK_GLOBAL(dgetf2,DGETF2) -lapack_int LAPACK_dgetf2( - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, lapack_int* ipiv, - lapack_int* info ); - -#define LAPACK_sgetf2 LAPACK_GLOBAL(sgetf2,SGETF2) -lapack_int LAPACK_sgetf2( - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, lapack_int* ipiv, - lapack_int* info ); - -#define LAPACK_zgetf2 LAPACK_GLOBAL(zgetf2,ZGETF2) -lapack_int LAPACK_zgetf2( - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, - lapack_int* info ); - -#define LAPACK_cgetrf LAPACK_GLOBAL(cgetrf,CGETRF) -lapack_int LAPACK_cgetrf( - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, - lapack_int* info ); - -#define LAPACK_dgetrf LAPACK_GLOBAL(dgetrf,DGETRF) -lapack_int LAPACK_dgetrf( - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, lapack_int* ipiv, - lapack_int* info ); - -#define LAPACK_sgetrf LAPACK_GLOBAL(sgetrf,SGETRF) -lapack_int LAPACK_sgetrf( - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, lapack_int* ipiv, - lapack_int* info ); - -#define LAPACK_zgetrf LAPACK_GLOBAL(zgetrf,ZGETRF) -lapack_int LAPACK_zgetrf( - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, - lapack_int* info ); - -#define LAPACK_cgetrf2 LAPACK_GLOBAL(cgetrf2,CGETRF2) -void LAPACK_cgetrf2( - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, - lapack_int* info ); - -#define LAPACK_dgetrf2 LAPACK_GLOBAL(dgetrf2,DGETRF2) -void LAPACK_dgetrf2( - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, lapack_int* ipiv, - lapack_int* info ); - -#define LAPACK_sgetrf2 LAPACK_GLOBAL(sgetrf2,SGETRF2) -void LAPACK_sgetrf2( - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, lapack_int* ipiv, - lapack_int* info ); - -#define LAPACK_zgetrf2 LAPACK_GLOBAL(zgetrf2,ZGETRF2) -void LAPACK_zgetrf2( - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, - lapack_int* info ); - -#define LAPACK_cgetri LAPACK_GLOBAL(cgetri,CGETRI) -void LAPACK_cgetri( - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_dgetri LAPACK_GLOBAL(dgetri,DGETRI) -void LAPACK_dgetri( - lapack_int const* n, - double* A, lapack_int const* lda, lapack_int const* ipiv, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sgetri LAPACK_GLOBAL(sgetri,SGETRI) -void LAPACK_sgetri( - lapack_int const* n, - float* A, lapack_int const* lda, lapack_int const* ipiv, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zgetri LAPACK_GLOBAL(zgetri,ZGETRI) -void LAPACK_zgetri( - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_cgetrs_base LAPACK_GLOBAL(cgetrs,CGETRS) -lapack_int LAPACK_cgetrs_base( - char const* trans, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgetrs(...) LAPACK_cgetrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_cgetrs(...) LAPACK_cgetrs_base(__VA_ARGS__) -#endif - -#define LAPACK_dgetrs_base LAPACK_GLOBAL(dgetrs,DGETRS) -lapack_int LAPACK_dgetrs_base( - char const* trans, - lapack_int const* n, lapack_int const* nrhs, - double const* A, lapack_int const* lda, lapack_int const* ipiv, - double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgetrs(...) LAPACK_dgetrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_dgetrs(...) LAPACK_dgetrs_base(__VA_ARGS__) -#endif - -#define LAPACK_sgetrs_base LAPACK_GLOBAL(sgetrs,SGETRS) -lapack_int LAPACK_sgetrs_base( - char const* trans, - lapack_int const* n, lapack_int const* nrhs, - float const* A, lapack_int const* lda, lapack_int const* ipiv, - float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgetrs(...) LAPACK_sgetrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_sgetrs(...) LAPACK_sgetrs_base(__VA_ARGS__) -#endif - -#define LAPACK_zgetrs_base LAPACK_GLOBAL(zgetrs,ZGETRS) -lapack_int LAPACK_zgetrs_base( - char const* trans, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgetrs(...) LAPACK_zgetrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_zgetrs(...) LAPACK_zgetrs_base(__VA_ARGS__) -#endif - -#define LAPACK_cgetsls_base LAPACK_GLOBAL(cgetsls,CGETSLS) -void LAPACK_cgetsls_base( - char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgetsls(...) LAPACK_cgetsls_base(__VA_ARGS__, 1) -#else - #define LAPACK_cgetsls(...) LAPACK_cgetsls_base(__VA_ARGS__) -#endif - -#define LAPACK_dgetsls_base LAPACK_GLOBAL(dgetsls,DGETSLS) -void LAPACK_dgetsls_base( - char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgetsls(...) LAPACK_dgetsls_base(__VA_ARGS__, 1) -#else - #define LAPACK_dgetsls(...) LAPACK_dgetsls_base(__VA_ARGS__) -#endif - -#define LAPACK_sgetsls_base LAPACK_GLOBAL(sgetsls,SGETSLS) -void LAPACK_sgetsls_base( - char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgetsls(...) LAPACK_sgetsls_base(__VA_ARGS__, 1) -#else - #define LAPACK_sgetsls(...) LAPACK_sgetsls_base(__VA_ARGS__) -#endif - -#define LAPACK_zgetsls_base LAPACK_GLOBAL(zgetsls,ZGETSLS) -void LAPACK_zgetsls_base( - char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgetsls(...) LAPACK_zgetsls_base(__VA_ARGS__, 1) -#else - #define LAPACK_zgetsls(...) LAPACK_zgetsls_base(__VA_ARGS__) -#endif - -#define LAPACK_cgetsqrhrt LAPACK_GLOBAL(cgetsqrhrt,CGETSQRHRT) -void LAPACK_cgetsqrhrt( - lapack_int const* m, lapack_int const* n, - lapack_int const* mb1, lapack_int const* nb1, lapack_int const* nb2, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* T, lapack_int const* ldt, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_dgetsqrhrt LAPACK_GLOBAL(dgetsqrhrt,DGETSQRHRT) -void LAPACK_dgetsqrhrt( - lapack_int const* m, lapack_int const* n, - lapack_int const* mb1, lapack_int const* nb1, lapack_int const* nb2, - double* A, lapack_int const* lda, - double* T, lapack_int const* ldt, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sgetsqrhrt LAPACK_GLOBAL(sgetsqrhrt,SGETSQRHRT) -void LAPACK_sgetsqrhrt( - lapack_int const* m, lapack_int const* n, - lapack_int const* mb1, lapack_int const* nb1, lapack_int const* nb2, - float* A, lapack_int const* lda, - float* T, lapack_int const* ldt, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zgetsqrhrt LAPACK_GLOBAL(zgetsqrhrt,ZGETSQRHRT) -void LAPACK_zgetsqrhrt( - lapack_int const* m, lapack_int const* n, - lapack_int const* mb1, lapack_int const* nb1, lapack_int const* nb2, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* T, lapack_int const* ldt, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_cggbak_base LAPACK_GLOBAL(cggbak,CGGBAK) -void LAPACK_cggbak_base( - char const* job, char const* side, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - float const* lscale, - float const* rscale, lapack_int const* m, - lapack_complex_float* V, lapack_int const* ldv, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cggbak(...) LAPACK_cggbak_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cggbak(...) LAPACK_cggbak_base(__VA_ARGS__) -#endif - -#define LAPACK_dggbak_base LAPACK_GLOBAL(dggbak,DGGBAK) -void LAPACK_dggbak_base( - char const* job, char const* side, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - double const* lscale, - double const* rscale, lapack_int const* m, - double* V, lapack_int const* ldv, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dggbak(...) LAPACK_dggbak_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dggbak(...) LAPACK_dggbak_base(__VA_ARGS__) -#endif - -#define LAPACK_sggbak_base LAPACK_GLOBAL(sggbak,SGGBAK) -void LAPACK_sggbak_base( - char const* job, char const* side, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - float const* lscale, - float const* rscale, lapack_int const* m, - float* V, lapack_int const* ldv, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sggbak(...) LAPACK_sggbak_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sggbak(...) LAPACK_sggbak_base(__VA_ARGS__) -#endif - -#define LAPACK_zggbak_base LAPACK_GLOBAL(zggbak,ZGGBAK) -void LAPACK_zggbak_base( - char const* job, char const* side, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - double const* lscale, - double const* rscale, lapack_int const* m, - lapack_complex_double* V, lapack_int const* ldv, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zggbak(...) LAPACK_zggbak_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zggbak(...) LAPACK_zggbak_base(__VA_ARGS__) -#endif - -#define LAPACK_cggbal_base LAPACK_GLOBAL(cggbal,CGGBAL) -void LAPACK_cggbal_base( - char const* job, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi, - float* lscale, - float* rscale, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cggbal(...) LAPACK_cggbal_base(__VA_ARGS__, 1) -#else - #define LAPACK_cggbal(...) LAPACK_cggbal_base(__VA_ARGS__) -#endif - -#define LAPACK_dggbal_base LAPACK_GLOBAL(dggbal,DGGBAL) -void LAPACK_dggbal_base( - char const* job, - lapack_int const* n, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi, - double* lscale, - double* rscale, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dggbal(...) LAPACK_dggbal_base(__VA_ARGS__, 1) -#else - #define LAPACK_dggbal(...) LAPACK_dggbal_base(__VA_ARGS__) -#endif - -#define LAPACK_sggbal_base LAPACK_GLOBAL(sggbal,SGGBAL) -void LAPACK_sggbal_base( - char const* job, - lapack_int const* n, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi, - float* lscale, - float* rscale, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sggbal(...) LAPACK_sggbal_base(__VA_ARGS__, 1) -#else - #define LAPACK_sggbal(...) LAPACK_sggbal_base(__VA_ARGS__) -#endif - -#define LAPACK_zggbal_base LAPACK_GLOBAL(zggbal,ZGGBAL) -void LAPACK_zggbal_base( - char const* job, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi, - double* lscale, - double* rscale, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zggbal(...) LAPACK_zggbal_base(__VA_ARGS__, 1) -#else - #define LAPACK_zggbal(...) LAPACK_zggbal_base(__VA_ARGS__) -#endif - -#define LAPACK_cgges_base LAPACK_GLOBAL(cgges,CGGES) -void LAPACK_cgges_base( - char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_C_SELECT2 selctg, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, lapack_int* sdim, - lapack_complex_float* alpha, - lapack_complex_float* beta, - lapack_complex_float* VSL, lapack_int const* ldvsl, - lapack_complex_float* VSR, lapack_int const* ldvsr, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgges(...) LAPACK_cgges_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cgges(...) LAPACK_cgges_base(__VA_ARGS__) -#endif - -#define LAPACK_dgges_base LAPACK_GLOBAL(dgges,DGGES) -void LAPACK_dgges_base( - char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_D_SELECT3 selctg, - lapack_int const* n, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, lapack_int* sdim, - double* alphar, - double* alphai, - double* beta, - double* VSL, lapack_int const* ldvsl, - double* VSR, lapack_int const* ldvsr, - double* work, lapack_int const* lwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgges(...) LAPACK_dgges_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dgges(...) LAPACK_dgges_base(__VA_ARGS__) -#endif - -#define LAPACK_sgges_base LAPACK_GLOBAL(sgges,SGGES) -void LAPACK_sgges_base( - char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_S_SELECT3 selctg, - lapack_int const* n, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, lapack_int* sdim, - float* alphar, - float* alphai, - float* beta, - float* VSL, lapack_int const* ldvsl, - float* VSR, lapack_int const* ldvsr, - float* work, lapack_int const* lwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgges(...) LAPACK_sgges_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_sgges(...) LAPACK_sgges_base(__VA_ARGS__) -#endif - -#define LAPACK_zgges_base LAPACK_GLOBAL(zgges,ZGGES) -void LAPACK_zgges_base( - char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_Z_SELECT2 selctg, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, lapack_int* sdim, - lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* VSL, lapack_int const* ldvsl, - lapack_complex_double* VSR, lapack_int const* ldvsr, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgges(...) LAPACK_zgges_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zgges(...) LAPACK_zgges_base(__VA_ARGS__) -#endif - -#define LAPACK_cgges3_base LAPACK_GLOBAL(cgges3,CGGES3) -void LAPACK_cgges3_base( - char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_C_SELECT2 selctg, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, lapack_int* sdim, - lapack_complex_float* alpha, - lapack_complex_float* beta, - lapack_complex_float* VSL, lapack_int const* ldvsl, - lapack_complex_float* VSR, lapack_int const* ldvsr, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgges3(...) LAPACK_cgges3_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cgges3(...) LAPACK_cgges3_base(__VA_ARGS__) -#endif - -#define LAPACK_dgges3_base LAPACK_GLOBAL(dgges3,DGGES3) -void LAPACK_dgges3_base( - char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_D_SELECT3 selctg, - lapack_int const* n, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, lapack_int* sdim, - double* alphar, - double* alphai, - double* beta, - double* VSL, lapack_int const* ldvsl, - double* VSR, lapack_int const* ldvsr, - double* work, lapack_int const* lwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgges3(...) LAPACK_dgges3_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dgges3(...) LAPACK_dgges3_base(__VA_ARGS__) -#endif - -#define LAPACK_sgges3_base LAPACK_GLOBAL(sgges3,SGGES3) -void LAPACK_sgges3_base( - char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_S_SELECT3 selctg, - lapack_int const* n, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, lapack_int* sdim, - float* alphar, - float* alphai, - float* beta, - float* VSL, lapack_int const* ldvsl, - float* VSR, lapack_int const* ldvsr, - float* work, lapack_int const* lwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgges3(...) LAPACK_sgges3_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_sgges3(...) LAPACK_sgges3_base(__VA_ARGS__) -#endif - -#define LAPACK_zgges3_base LAPACK_GLOBAL(zgges3,ZGGES3) -void LAPACK_zgges3_base( - char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_Z_SELECT2 selctg, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, lapack_int* sdim, - lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* VSL, lapack_int const* ldvsl, - lapack_complex_double* VSR, lapack_int const* ldvsr, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgges3(...) LAPACK_zgges3_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zgges3(...) LAPACK_zgges3_base(__VA_ARGS__) -#endif - -#define LAPACK_cggesx_base LAPACK_GLOBAL(cggesx,CGGESX) -void LAPACK_cggesx_base( - char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_C_SELECT2 selctg, char const* sense, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, lapack_int* sdim, - lapack_complex_float* alpha, - lapack_complex_float* beta, - lapack_complex_float* VSL, lapack_int const* ldvsl, - lapack_complex_float* VSR, lapack_int const* ldvsr, - float* rconde, - float* rcondv, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cggesx(...) LAPACK_cggesx_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_cggesx(...) LAPACK_cggesx_base(__VA_ARGS__) -#endif - -#define LAPACK_dggesx_base LAPACK_GLOBAL(dggesx,DGGESX) -void LAPACK_dggesx_base( - char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_D_SELECT3 selctg, char const* sense, - lapack_int const* n, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, lapack_int* sdim, - double* alphar, - double* alphai, - double* beta, - double* VSL, lapack_int const* ldvsl, - double* VSR, lapack_int const* ldvsr, - double* rconde, - double* rcondv, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dggesx(...) LAPACK_dggesx_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_dggesx(...) LAPACK_dggesx_base(__VA_ARGS__) -#endif - -#define LAPACK_sggesx_base LAPACK_GLOBAL(sggesx,SGGESX) -void LAPACK_sggesx_base( - char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_S_SELECT3 selctg, char const* sense, - lapack_int const* n, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, lapack_int* sdim, - float* alphar, - float* alphai, - float* beta, - float* VSL, lapack_int const* ldvsl, - float* VSR, lapack_int const* ldvsr, - float* rconde, - float* rcondv, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sggesx(...) LAPACK_sggesx_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_sggesx(...) LAPACK_sggesx_base(__VA_ARGS__) -#endif - -#define LAPACK_zggesx_base LAPACK_GLOBAL(zggesx,ZGGESX) -void LAPACK_zggesx_base( - char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_Z_SELECT2 selctg, char const* sense, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, lapack_int* sdim, - lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* VSL, lapack_int const* ldvsl, - lapack_complex_double* VSR, lapack_int const* ldvsr, - double* rconde, - double* rcondv, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zggesx(...) LAPACK_zggesx_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_zggesx(...) LAPACK_zggesx_base(__VA_ARGS__) -#endif - -#define LAPACK_cggev_base LAPACK_GLOBAL(cggev,CGGEV) -void LAPACK_cggev_base( - char const* jobvl, char const* jobvr, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* alpha, - lapack_complex_float* beta, - lapack_complex_float* VL, lapack_int const* ldvl, - lapack_complex_float* VR, lapack_int const* ldvr, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cggev(...) LAPACK_cggev_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cggev(...) LAPACK_cggev_base(__VA_ARGS__) -#endif - -#define LAPACK_dggev_base LAPACK_GLOBAL(dggev,DGGEV) -void LAPACK_dggev_base( - char const* jobvl, char const* jobvr, - lapack_int const* n, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* alphar, - double* alphai, - double* beta, - double* VL, lapack_int const* ldvl, - double* VR, lapack_int const* ldvr, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dggev(...) LAPACK_dggev_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dggev(...) LAPACK_dggev_base(__VA_ARGS__) -#endif - -#define LAPACK_sggev_base LAPACK_GLOBAL(sggev,SGGEV) -void LAPACK_sggev_base( - char const* jobvl, char const* jobvr, - lapack_int const* n, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* alphar, - float* alphai, - float* beta, - float* VL, lapack_int const* ldvl, - float* VR, lapack_int const* ldvr, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sggev(...) LAPACK_sggev_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sggev(...) LAPACK_sggev_base(__VA_ARGS__) -#endif - -#define LAPACK_zggev_base LAPACK_GLOBAL(zggev,ZGGEV) -void LAPACK_zggev_base( - char const* jobvl, char const* jobvr, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* VL, lapack_int const* ldvl, - lapack_complex_double* VR, lapack_int const* ldvr, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zggev(...) LAPACK_zggev_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zggev(...) LAPACK_zggev_base(__VA_ARGS__) -#endif - -#define LAPACK_cggev3_base LAPACK_GLOBAL(cggev3,CGGEV3) -void LAPACK_cggev3_base( - char const* jobvl, char const* jobvr, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* alpha, - lapack_complex_float* beta, - lapack_complex_float* VL, lapack_int const* ldvl, - lapack_complex_float* VR, lapack_int const* ldvr, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cggev3(...) LAPACK_cggev3_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cggev3(...) LAPACK_cggev3_base(__VA_ARGS__) -#endif - -#define LAPACK_dggev3_base LAPACK_GLOBAL(dggev3,DGGEV3) -void LAPACK_dggev3_base( - char const* jobvl, char const* jobvr, - lapack_int const* n, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* alphar, - double* alphai, - double* beta, - double* VL, lapack_int const* ldvl, - double* VR, lapack_int const* ldvr, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dggev3(...) LAPACK_dggev3_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dggev3(...) LAPACK_dggev3_base(__VA_ARGS__) -#endif - -#define LAPACK_sggev3_base LAPACK_GLOBAL(sggev3,SGGEV3) -void LAPACK_sggev3_base( - char const* jobvl, char const* jobvr, - lapack_int const* n, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* alphar, - float* alphai, - float* beta, - float* VL, lapack_int const* ldvl, - float* VR, lapack_int const* ldvr, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sggev3(...) LAPACK_sggev3_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sggev3(...) LAPACK_sggev3_base(__VA_ARGS__) -#endif - -#define LAPACK_zggev3_base LAPACK_GLOBAL(zggev3,ZGGEV3) -void LAPACK_zggev3_base( - char const* jobvl, char const* jobvr, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* VL, lapack_int const* ldvl, - lapack_complex_double* VR, lapack_int const* ldvr, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zggev3(...) LAPACK_zggev3_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zggev3(...) LAPACK_zggev3_base(__VA_ARGS__) -#endif - -#define LAPACK_cggevx_base LAPACK_GLOBAL(cggevx,CGGEVX) -void LAPACK_cggevx_base( - char const* balanc, char const* jobvl, char const* jobvr, char const* sense, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* alpha, - lapack_complex_float* beta, - lapack_complex_float* VL, lapack_int const* ldvl, - lapack_complex_float* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi, - float* lscale, - float* rscale, - float* abnrm, - float* bbnrm, - float* rconde, - float* rcondv, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* iwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cggevx(...) LAPACK_cggevx_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_cggevx(...) LAPACK_cggevx_base(__VA_ARGS__) -#endif - -#define LAPACK_dggevx_base LAPACK_GLOBAL(dggevx,DGGEVX) -void LAPACK_dggevx_base( - char const* balanc, char const* jobvl, char const* jobvr, char const* sense, - lapack_int const* n, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* alphar, - double* alphai, - double* beta, - double* VL, lapack_int const* ldvl, - double* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi, - double* lscale, - double* rscale, - double* abnrm, - double* bbnrm, - double* rconde, - double* rcondv, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dggevx(...) LAPACK_dggevx_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_dggevx(...) LAPACK_dggevx_base(__VA_ARGS__) -#endif - -#define LAPACK_sggevx_base LAPACK_GLOBAL(sggevx,SGGEVX) -void LAPACK_sggevx_base( - char const* balanc, char const* jobvl, char const* jobvr, char const* sense, - lapack_int const* n, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* alphar, - float* alphai, - float* beta, - float* VL, lapack_int const* ldvl, - float* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi, - float* lscale, - float* rscale, - float* abnrm, - float* bbnrm, - float* rconde, - float* rcondv, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sggevx(...) LAPACK_sggevx_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_sggevx(...) LAPACK_sggevx_base(__VA_ARGS__) -#endif - -#define LAPACK_zggevx_base LAPACK_GLOBAL(zggevx,ZGGEVX) -void LAPACK_zggevx_base( - char const* balanc, char const* jobvl, char const* jobvr, char const* sense, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* VL, lapack_int const* ldvl, - lapack_complex_double* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi, - double* lscale, - double* rscale, - double* abnrm, - double* bbnrm, - double* rconde, - double* rcondv, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* iwork, lapack_logical* BWORK, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zggevx(...) LAPACK_zggevx_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_zggevx(...) LAPACK_zggevx_base(__VA_ARGS__) -#endif - -#define LAPACK_cggglm LAPACK_GLOBAL(cggglm,CGGGLM) -void LAPACK_cggglm( - lapack_int const* n, lapack_int const* m, lapack_int const* p, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* D, - lapack_complex_float* X, - lapack_complex_float* Y, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_dggglm LAPACK_GLOBAL(dggglm,DGGGLM) -void LAPACK_dggglm( - lapack_int const* n, lapack_int const* m, lapack_int const* p, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* D, - double* X, - double* Y, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sggglm LAPACK_GLOBAL(sggglm,SGGGLM) -void LAPACK_sggglm( - lapack_int const* n, lapack_int const* m, lapack_int const* p, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* D, - float* X, - float* Y, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zggglm LAPACK_GLOBAL(zggglm,ZGGGLM) -void LAPACK_zggglm( - lapack_int const* n, lapack_int const* m, lapack_int const* p, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* D, - lapack_complex_double* X, - lapack_complex_double* Y, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_cgghd3_base LAPACK_GLOBAL(cgghd3,CGGHD3) -void LAPACK_cgghd3_base( - char const* compq, char const* compz, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* Q, lapack_int const* ldq, - lapack_complex_float* Z, lapack_int const* ldz, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgghd3(...) LAPACK_cgghd3_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cgghd3(...) LAPACK_cgghd3_base(__VA_ARGS__) -#endif - -#define LAPACK_dgghd3_base LAPACK_GLOBAL(dgghd3,DGGHD3) -void LAPACK_dgghd3_base( - char const* compq, char const* compz, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* Q, lapack_int const* ldq, - double* Z, lapack_int const* ldz, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgghd3(...) LAPACK_dgghd3_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dgghd3(...) LAPACK_dgghd3_base(__VA_ARGS__) -#endif - -#define LAPACK_sgghd3_base LAPACK_GLOBAL(sgghd3,SGGHD3) -void LAPACK_sgghd3_base( - char const* compq, char const* compz, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* Q, lapack_int const* ldq, - float* Z, lapack_int const* ldz, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgghd3(...) LAPACK_sgghd3_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sgghd3(...) LAPACK_sgghd3_base(__VA_ARGS__) -#endif - -#define LAPACK_zgghd3_base LAPACK_GLOBAL(zgghd3,ZGGHD3) -void LAPACK_zgghd3_base( - char const* compq, char const* compz, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* Q, lapack_int const* ldq, - lapack_complex_double* Z, lapack_int const* ldz, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgghd3(...) LAPACK_zgghd3_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zgghd3(...) LAPACK_zgghd3_base(__VA_ARGS__) -#endif - -#define LAPACK_cgghrd_base LAPACK_GLOBAL(cgghrd,CGGHRD) -void LAPACK_cgghrd_base( - char const* compq, char const* compz, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* Q, lapack_int const* ldq, - lapack_complex_float* Z, lapack_int const* ldz, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgghrd(...) LAPACK_cgghrd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cgghrd(...) LAPACK_cgghrd_base(__VA_ARGS__) -#endif - -#define LAPACK_dgghrd_base LAPACK_GLOBAL(dgghrd,DGGHRD) -void LAPACK_dgghrd_base( - char const* compq, char const* compz, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* Q, lapack_int const* ldq, - double* Z, lapack_int const* ldz, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgghrd(...) LAPACK_dgghrd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dgghrd(...) LAPACK_dgghrd_base(__VA_ARGS__) -#endif - -#define LAPACK_sgghrd_base LAPACK_GLOBAL(sgghrd,SGGHRD) -void LAPACK_sgghrd_base( - char const* compq, char const* compz, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* Q, lapack_int const* ldq, - float* Z, lapack_int const* ldz, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgghrd(...) LAPACK_sgghrd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sgghrd(...) LAPACK_sgghrd_base(__VA_ARGS__) -#endif - -#define LAPACK_zgghrd_base LAPACK_GLOBAL(zgghrd,ZGGHRD) -void LAPACK_zgghrd_base( - char const* compq, char const* compz, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* Q, lapack_int const* ldq, - lapack_complex_double* Z, lapack_int const* ldz, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgghrd(...) LAPACK_zgghrd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zgghrd(...) LAPACK_zgghrd_base(__VA_ARGS__) -#endif - -#define LAPACK_cgglse LAPACK_GLOBAL(cgglse,CGGLSE) -void LAPACK_cgglse( - lapack_int const* m, lapack_int const* n, lapack_int const* p, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* C, - lapack_complex_float* D, - lapack_complex_float* X, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_dgglse LAPACK_GLOBAL(dgglse,DGGLSE) -void LAPACK_dgglse( - lapack_int const* m, lapack_int const* n, lapack_int const* p, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* C, - double* D, - double* X, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sgglse LAPACK_GLOBAL(sgglse,SGGLSE) -void LAPACK_sgglse( - lapack_int const* m, lapack_int const* n, lapack_int const* p, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* C, - float* D, - float* X, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zgglse LAPACK_GLOBAL(zgglse,ZGGLSE) -void LAPACK_zgglse( - lapack_int const* m, lapack_int const* n, lapack_int const* p, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* C, - lapack_complex_double* D, - lapack_complex_double* X, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_cggqrf LAPACK_GLOBAL(cggqrf,CGGQRF) -void LAPACK_cggqrf( - lapack_int const* n, lapack_int const* m, lapack_int const* p, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* taua, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* taub, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_dggqrf LAPACK_GLOBAL(dggqrf,DGGQRF) -void LAPACK_dggqrf( - lapack_int const* n, lapack_int const* m, lapack_int const* p, - double* A, lapack_int const* lda, - double* taua, - double* B, lapack_int const* ldb, - double* taub, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sggqrf LAPACK_GLOBAL(sggqrf,SGGQRF) -void LAPACK_sggqrf( - lapack_int const* n, lapack_int const* m, lapack_int const* p, - float* A, lapack_int const* lda, - float* taua, - float* B, lapack_int const* ldb, - float* taub, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zggqrf LAPACK_GLOBAL(zggqrf,ZGGQRF) -void LAPACK_zggqrf( - lapack_int const* n, lapack_int const* m, lapack_int const* p, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* taua, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* taub, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_cggrqf LAPACK_GLOBAL(cggrqf,CGGRQF) -void LAPACK_cggrqf( - lapack_int const* m, lapack_int const* p, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* taua, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* taub, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_dggrqf LAPACK_GLOBAL(dggrqf,DGGRQF) -void LAPACK_dggrqf( - lapack_int const* m, lapack_int const* p, lapack_int const* n, - double* A, lapack_int const* lda, - double* taua, - double* B, lapack_int const* ldb, - double* taub, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sggrqf LAPACK_GLOBAL(sggrqf,SGGRQF) -void LAPACK_sggrqf( - lapack_int const* m, lapack_int const* p, lapack_int const* n, - float* A, lapack_int const* lda, - float* taua, - float* B, lapack_int const* ldb, - float* taub, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zggrqf LAPACK_GLOBAL(zggrqf,ZGGRQF) -void LAPACK_zggrqf( - lapack_int const* m, lapack_int const* p, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* taua, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* taub, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_cggsvd_base LAPACK_GLOBAL(cggsvd,CGGSVD) -void LAPACK_cggsvd_base( - char const* jobu, char const* jobv, char const* jobq, - lapack_int const* m, lapack_int const* n, lapack_int const* p, - lapack_int* k, lapack_int* l, - lapack_complex_float* a, lapack_int const* lda, - lapack_complex_float* b, lapack_int const* ldb, - float* alpha, float* beta, - lapack_complex_float* u, lapack_int const* ldu, - lapack_complex_float* v, lapack_int const* ldv, - lapack_complex_float* q, lapack_int const* ldq, - lapack_complex_float* work, float* rwork, - lapack_int* iwork, lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cggsvd(...) LAPACK_cggsvd_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cggsvd(...) LAPACK_cggsvd_base(__VA_ARGS__) -#endif - -#define LAPACK_sggsvd_base LAPACK_GLOBAL(sggsvd,SGGSVD) -void LAPACK_sggsvd_base( - char const* jobu, char const* jobv, char const* jobq, - lapack_int const* m, lapack_int const* n, lapack_int const* p, - lapack_int* k, lapack_int* l, - float* a, lapack_int const* lda, - float* b, lapack_int const* ldb, - float* alpha, float* beta, - float* u, lapack_int const* ldu, - float* v, lapack_int const* ldv, - float* q, lapack_int const* ldq, - float* work, lapack_int* iwork, lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sggsvd(...) LAPACK_sggsvd_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_sggsvd(...) LAPACK_sggsvd_base(__VA_ARGS__) -#endif - -#define LAPACK_dggsvd_base LAPACK_GLOBAL(dggsvd,DGGSVD) -void LAPACK_dggsvd_base( - char const* jobu, char const* jobv, char const* jobq, - lapack_int const* m, lapack_int const* n, lapack_int const* p, - lapack_int* k, lapack_int* l, - double* a, lapack_int const* lda, - double* b, lapack_int const* ldb, - double* alpha, double* beta, - double* u, lapack_int const* ldu, - double* v, lapack_int const* ldv, - double* q, lapack_int const* ldq, - double* work, lapack_int* iwork, lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dggsvd(...) LAPACK_dggsvd_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dggsvd(...) LAPACK_dggsvd_base(__VA_ARGS__) -#endif - -#define LAPACK_zggsvd_base LAPACK_GLOBAL(zggsvd,ZGGSVD) -void LAPACK_zggsvd_base( - char const* jobu, char const* jobv, char const* jobq, - lapack_int const* m, lapack_int const* n, lapack_int const* p, - lapack_int* k, lapack_int* l, - lapack_complex_double* a, lapack_int const* lda, - lapack_complex_double* b, lapack_int const* ldb, - double* alpha, double* beta, - lapack_complex_double* u, lapack_int const* ldu, - lapack_complex_double* v, lapack_int const* ldv, - lapack_complex_double* q, lapack_int const* ldq, - lapack_complex_double* work, double* rwork, - lapack_int* iwork, lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zggsvd(...) LAPACK_zggsvd_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zggsvd(...) LAPACK_zggsvd_base(__VA_ARGS__) -#endif - -#define LAPACK_cggsvd3_base LAPACK_GLOBAL(cggsvd3,CGGSVD3) -void LAPACK_cggsvd3_base( - char const* jobu, char const* jobv, char const* jobq, - lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - float* alpha, - float* beta, - lapack_complex_float* U, lapack_int const* ldu, - lapack_complex_float* V, lapack_int const* ldv, - lapack_complex_float* Q, lapack_int const* ldq, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cggsvd3(...) LAPACK_cggsvd3_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cggsvd3(...) LAPACK_cggsvd3_base(__VA_ARGS__) -#endif - -#define LAPACK_dggsvd3_base LAPACK_GLOBAL(dggsvd3,DGGSVD3) -void LAPACK_dggsvd3_base( - char const* jobu, char const* jobv, char const* jobq, - lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* alpha, - double* beta, - double* U, lapack_int const* ldu, - double* V, lapack_int const* ldv, - double* Q, lapack_int const* ldq, - double* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dggsvd3(...) LAPACK_dggsvd3_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dggsvd3(...) LAPACK_dggsvd3_base(__VA_ARGS__) -#endif - -#define LAPACK_sggsvd3_base LAPACK_GLOBAL(sggsvd3,SGGSVD3) -void LAPACK_sggsvd3_base( - char const* jobu, char const* jobv, char const* jobq, - lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* alpha, - float* beta, - float* U, lapack_int const* ldu, - float* V, lapack_int const* ldv, - float* Q, lapack_int const* ldq, - float* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sggsvd3(...) LAPACK_sggsvd3_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_sggsvd3(...) LAPACK_sggsvd3_base(__VA_ARGS__) -#endif - -#define LAPACK_zggsvd3_base LAPACK_GLOBAL(zggsvd3,ZGGSVD3) -void LAPACK_zggsvd3_base( - char const* jobu, char const* jobv, char const* jobq, - lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - double* alpha, - double* beta, - lapack_complex_double* U, lapack_int const* ldu, - lapack_complex_double* V, lapack_int const* ldv, - lapack_complex_double* Q, lapack_int const* ldq, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zggsvd3(...) LAPACK_zggsvd3_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zggsvd3(...) LAPACK_zggsvd3_base(__VA_ARGS__) -#endif - -#define LAPACK_sggsvp_base LAPACK_GLOBAL(sggsvp,SGGSVP) -void LAPACK_sggsvp_base( - char const* jobu, char const* jobv, char const* jobq, - lapack_int const* m, lapack_int const* p, lapack_int const* n, - float* a, lapack_int const* lda, - float* b, lapack_int const* ldb, - float* tola, float* tolb, - lapack_int* k, lapack_int* l, - float* u, lapack_int const* ldu, - float* v, lapack_int const* ldv, - float* q, lapack_int const* ldq, - lapack_int* iwork, float* tau, - float* work, lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sggsvp(...) LAPACK_sggsvp_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_sggsvp(...) LAPACK_sggsvp_base(__VA_ARGS__) -#endif - -#define LAPACK_dggsvp_base LAPACK_GLOBAL(dggsvp,DGGSVP) -void LAPACK_dggsvp_base( - char const* jobu, char const* jobv, char const* jobq, - lapack_int const* m, lapack_int const* p, lapack_int const* n, - double* a, lapack_int const* lda, - double* b, lapack_int const* ldb, - double* tola, double* tolb, - lapack_int* k, lapack_int* l, - double* u, lapack_int const* ldu, - double* v, lapack_int const* ldv, - double* q, lapack_int const* ldq, - lapack_int* iwork, double* tau, - double* work, lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dggsvp(...) LAPACK_dggsvp_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dggsvp(...) LAPACK_dggsvp_base(__VA_ARGS__) -#endif - -#define LAPACK_cggsvp_base LAPACK_GLOBAL(cggsvp,CGGSVP) -void LAPACK_cggsvp_base( - char const* jobu, char const* jobv, char const* jobq, - lapack_int const* m, lapack_int const* p, lapack_int const* n, - lapack_complex_float* a, lapack_int const* lda, - lapack_complex_float* b, lapack_int const* ldb, - float* tola, float* tolb, lapack_int* k, lapack_int* l, - lapack_complex_float* u, lapack_int const* ldu, - lapack_complex_float* v, lapack_int const* ldv, - lapack_complex_float* q, lapack_int const* ldq, - lapack_int* iwork, float* rwork, lapack_complex_float* tau, - lapack_complex_float* work, lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cggsvp(...) LAPACK_cggsvp_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cggsvp(...) LAPACK_cggsvp_base(__VA_ARGS__) -#endif - -#define LAPACK_zggsvp_base LAPACK_GLOBAL(zggsvp,ZGGSVP) -void LAPACK_zggsvp_base( - char const* jobu, char const* jobv, char const* jobq, - lapack_int const* m, lapack_int const* p, lapack_int const* n, - lapack_complex_double* a, lapack_int const* lda, - lapack_complex_double* b, lapack_int const* ldb, - double* tola, double* tolb, lapack_int* k, lapack_int* l, - lapack_complex_double* u, lapack_int const* ldu, - lapack_complex_double* v, lapack_int const* ldv, - lapack_complex_double* q, lapack_int const* ldq, - lapack_int* iwork, double* rwork, lapack_complex_double* tau, - lapack_complex_double* work, lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zggsvp(...) LAPACK_zggsvp_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zggsvp(...) LAPACK_zggsvp_base(__VA_ARGS__) -#endif - -#define LAPACK_cggsvp3_base LAPACK_GLOBAL(cggsvp3,CGGSVP3) -void LAPACK_cggsvp3_base( - char const* jobu, char const* jobv, char const* jobq, - lapack_int const* m, lapack_int const* p, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - float const* tola, - float const* tolb, lapack_int* k, lapack_int* l, - lapack_complex_float* U, lapack_int const* ldu, - lapack_complex_float* V, lapack_int const* ldv, - lapack_complex_float* Q, lapack_int const* ldq, - lapack_int* iwork, - float* rwork, - lapack_complex_float* tau, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cggsvp3(...) LAPACK_cggsvp3_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cggsvp3(...) LAPACK_cggsvp3_base(__VA_ARGS__) -#endif - -#define LAPACK_dggsvp3_base LAPACK_GLOBAL(dggsvp3,DGGSVP3) -void LAPACK_dggsvp3_base( - char const* jobu, char const* jobv, char const* jobq, - lapack_int const* m, lapack_int const* p, lapack_int const* n, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double const* tola, - double const* tolb, lapack_int* k, lapack_int* l, - double* U, lapack_int const* ldu, - double* V, lapack_int const* ldv, - double* Q, lapack_int const* ldq, - lapack_int* iwork, - double* tau, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dggsvp3(...) LAPACK_dggsvp3_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dggsvp3(...) LAPACK_dggsvp3_base(__VA_ARGS__) -#endif - -#define LAPACK_sggsvp3_base LAPACK_GLOBAL(sggsvp3,SGGSVP3) -void LAPACK_sggsvp3_base( - char const* jobu, char const* jobv, char const* jobq, - lapack_int const* m, lapack_int const* p, lapack_int const* n, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float const* tola, - float const* tolb, lapack_int* k, lapack_int* l, - float* U, lapack_int const* ldu, - float* V, lapack_int const* ldv, - float* Q, lapack_int const* ldq, - lapack_int* iwork, - float* tau, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sggsvp3(...) LAPACK_sggsvp3_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_sggsvp3(...) LAPACK_sggsvp3_base(__VA_ARGS__) -#endif - -#define LAPACK_zggsvp3_base LAPACK_GLOBAL(zggsvp3,ZGGSVP3) -void LAPACK_zggsvp3_base( - char const* jobu, char const* jobv, char const* jobq, - lapack_int const* m, lapack_int const* p, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - double const* tola, - double const* tolb, lapack_int* k, lapack_int* l, - lapack_complex_double* U, lapack_int const* ldu, - lapack_complex_double* V, lapack_int const* ldv, - lapack_complex_double* Q, lapack_int const* ldq, - lapack_int* iwork, - double* rwork, - lapack_complex_double* tau, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zggsvp3(...) LAPACK_zggsvp3_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zggsvp3(...) LAPACK_zggsvp3_base(__VA_ARGS__) -#endif - -#define LAPACK_cgtcon_base LAPACK_GLOBAL(cgtcon,CGTCON) -void LAPACK_cgtcon_base( - char const* norm, - lapack_int const* n, - lapack_complex_float const* DL, - lapack_complex_float const* D, - lapack_complex_float const* DU, - lapack_complex_float const* DU2, lapack_int const* ipiv, - float const* anorm, - float* rcond, - lapack_complex_float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgtcon(...) LAPACK_cgtcon_base(__VA_ARGS__, 1) -#else - #define LAPACK_cgtcon(...) LAPACK_cgtcon_base(__VA_ARGS__) -#endif - -#define LAPACK_dgtcon_base LAPACK_GLOBAL(dgtcon,DGTCON) -void LAPACK_dgtcon_base( - char const* norm, - lapack_int const* n, - double const* DL, - double const* D, - double const* DU, - double const* DU2, lapack_int const* ipiv, - double const* anorm, - double* rcond, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgtcon(...) LAPACK_dgtcon_base(__VA_ARGS__, 1) -#else - #define LAPACK_dgtcon(...) LAPACK_dgtcon_base(__VA_ARGS__) -#endif - -#define LAPACK_sgtcon_base LAPACK_GLOBAL(sgtcon,SGTCON) -void LAPACK_sgtcon_base( - char const* norm, - lapack_int const* n, - float const* DL, - float const* D, - float const* DU, - float const* DU2, lapack_int const* ipiv, - float const* anorm, - float* rcond, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgtcon(...) LAPACK_sgtcon_base(__VA_ARGS__, 1) -#else - #define LAPACK_sgtcon(...) LAPACK_sgtcon_base(__VA_ARGS__) -#endif - -#define LAPACK_zgtcon_base LAPACK_GLOBAL(zgtcon,ZGTCON) -void LAPACK_zgtcon_base( - char const* norm, - lapack_int const* n, - lapack_complex_double const* DL, - lapack_complex_double const* D, - lapack_complex_double const* DU, - lapack_complex_double const* DU2, lapack_int const* ipiv, - double const* anorm, - double* rcond, - lapack_complex_double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgtcon(...) LAPACK_zgtcon_base(__VA_ARGS__, 1) -#else - #define LAPACK_zgtcon(...) LAPACK_zgtcon_base(__VA_ARGS__) -#endif - -#define LAPACK_cgtrfs_base LAPACK_GLOBAL(cgtrfs,CGTRFS) -void LAPACK_cgtrfs_base( - char const* trans, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* DL, - lapack_complex_float const* D, - lapack_complex_float const* DU, - lapack_complex_float const* DLF, - lapack_complex_float const* DF, - lapack_complex_float const* DUF, - lapack_complex_float const* DU2, lapack_int const* ipiv, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* ferr, - float* berr, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgtrfs(...) LAPACK_cgtrfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_cgtrfs(...) LAPACK_cgtrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_dgtrfs_base LAPACK_GLOBAL(dgtrfs,DGTRFS) -void LAPACK_dgtrfs_base( - char const* trans, - lapack_int const* n, lapack_int const* nrhs, - double const* DL, - double const* D, - double const* DU, - double const* DLF, - double const* DF, - double const* DUF, - double const* DU2, lapack_int const* ipiv, - double const* B, lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* ferr, - double* berr, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgtrfs(...) LAPACK_dgtrfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_dgtrfs(...) LAPACK_dgtrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_sgtrfs_base LAPACK_GLOBAL(sgtrfs,SGTRFS) -void LAPACK_sgtrfs_base( - char const* trans, - lapack_int const* n, lapack_int const* nrhs, - float const* DL, - float const* D, - float const* DU, - float const* DLF, - float const* DF, - float const* DUF, - float const* DU2, lapack_int const* ipiv, - float const* B, lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* ferr, - float* berr, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgtrfs(...) LAPACK_sgtrfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_sgtrfs(...) LAPACK_sgtrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_zgtrfs_base LAPACK_GLOBAL(zgtrfs,ZGTRFS) -void LAPACK_zgtrfs_base( - char const* trans, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* DL, - lapack_complex_double const* D, - lapack_complex_double const* DU, - lapack_complex_double const* DLF, - lapack_complex_double const* DF, - lapack_complex_double const* DUF, - lapack_complex_double const* DU2, lapack_int const* ipiv, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* ferr, - double* berr, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgtrfs(...) LAPACK_zgtrfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_zgtrfs(...) LAPACK_zgtrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_cgtsv LAPACK_GLOBAL(cgtsv,CGTSV) -void LAPACK_cgtsv( - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* DL, - lapack_complex_float* D, - lapack_complex_float* DU, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); - -#define LAPACK_dgtsv LAPACK_GLOBAL(dgtsv,DGTSV) -void LAPACK_dgtsv( - lapack_int const* n, lapack_int const* nrhs, - double* DL, - double* D, - double* DU, - double* B, lapack_int const* ldb, - lapack_int* info ); - -#define LAPACK_sgtsv LAPACK_GLOBAL(sgtsv,SGTSV) -void LAPACK_sgtsv( - lapack_int const* n, lapack_int const* nrhs, - float* DL, - float* D, - float* DU, - float* B, lapack_int const* ldb, - lapack_int* info ); - -#define LAPACK_zgtsv LAPACK_GLOBAL(zgtsv,ZGTSV) -void LAPACK_zgtsv( - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* DL, - lapack_complex_double* D, - lapack_complex_double* DU, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); - -#define LAPACK_cgtsvx_base LAPACK_GLOBAL(cgtsvx,CGTSVX) -void LAPACK_cgtsvx_base( - char const* fact, char const* trans, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* DL, - lapack_complex_float const* D, - lapack_complex_float const* DU, - lapack_complex_float* DLF, - lapack_complex_float* DF, - lapack_complex_float* DUF, - lapack_complex_float* DU2, lapack_int* ipiv, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* rcond, - float* ferr, - float* berr, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgtsvx(...) LAPACK_cgtsvx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cgtsvx(...) LAPACK_cgtsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_dgtsvx_base LAPACK_GLOBAL(dgtsvx,DGTSVX) -void LAPACK_dgtsvx_base( - char const* fact, char const* trans, - lapack_int const* n, lapack_int const* nrhs, - double const* DL, - double const* D, - double const* DU, - double* DLF, - double* DF, - double* DUF, - double* DU2, lapack_int* ipiv, - double const* B, lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* rcond, - double* ferr, - double* berr, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgtsvx(...) LAPACK_dgtsvx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dgtsvx(...) LAPACK_dgtsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_sgtsvx_base LAPACK_GLOBAL(sgtsvx,SGTSVX) -void LAPACK_sgtsvx_base( - char const* fact, char const* trans, - lapack_int const* n, lapack_int const* nrhs, - float const* DL, - float const* D, - float const* DU, - float* DLF, - float* DF, - float* DUF, - float* DU2, lapack_int* ipiv, - float const* B, lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* rcond, - float* ferr, - float* berr, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgtsvx(...) LAPACK_sgtsvx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sgtsvx(...) LAPACK_sgtsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_zgtsvx_base LAPACK_GLOBAL(zgtsvx,ZGTSVX) -void LAPACK_zgtsvx_base( - char const* fact, char const* trans, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* DL, - lapack_complex_double const* D, - lapack_complex_double const* DU, - lapack_complex_double* DLF, - lapack_complex_double* DF, - lapack_complex_double* DUF, - lapack_complex_double* DU2, lapack_int* ipiv, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* rcond, - double* ferr, - double* berr, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgtsvx(...) LAPACK_zgtsvx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zgtsvx(...) LAPACK_zgtsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_cgttrf LAPACK_GLOBAL(cgttrf,CGTTRF) -void LAPACK_cgttrf( - lapack_int const* n, - lapack_complex_float* DL, - lapack_complex_float* D, - lapack_complex_float* DU, - lapack_complex_float* DU2, lapack_int* ipiv, - lapack_int* info ); - -#define LAPACK_dgttrf LAPACK_GLOBAL(dgttrf,DGTTRF) -void LAPACK_dgttrf( - lapack_int const* n, - double* DL, - double* D, - double* DU, - double* DU2, lapack_int* ipiv, - lapack_int* info ); - -#define LAPACK_sgttrf LAPACK_GLOBAL(sgttrf,SGTTRF) -void LAPACK_sgttrf( - lapack_int const* n, - float* DL, - float* D, - float* DU, - float* DU2, lapack_int* ipiv, - lapack_int* info ); - -#define LAPACK_zgttrf LAPACK_GLOBAL(zgttrf,ZGTTRF) -void LAPACK_zgttrf( - lapack_int const* n, - lapack_complex_double* DL, - lapack_complex_double* D, - lapack_complex_double* DU, - lapack_complex_double* DU2, lapack_int* ipiv, - lapack_int* info ); - -#define LAPACK_cgttrs_base LAPACK_GLOBAL(cgttrs,CGTTRS) -void LAPACK_cgttrs_base( - char const* trans, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* DL, - lapack_complex_float const* D, - lapack_complex_float const* DU, - lapack_complex_float const* DU2, lapack_int const* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cgttrs(...) LAPACK_cgttrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_cgttrs(...) LAPACK_cgttrs_base(__VA_ARGS__) -#endif - -#define LAPACK_dgttrs_base LAPACK_GLOBAL(dgttrs,DGTTRS) -void LAPACK_dgttrs_base( - char const* trans, - lapack_int const* n, lapack_int const* nrhs, - double const* DL, - double const* D, - double const* DU, - double const* DU2, lapack_int const* ipiv, - double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dgttrs(...) LAPACK_dgttrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_dgttrs(...) LAPACK_dgttrs_base(__VA_ARGS__) -#endif - -#define LAPACK_sgttrs_base LAPACK_GLOBAL(sgttrs,SGTTRS) -void LAPACK_sgttrs_base( - char const* trans, - lapack_int const* n, lapack_int const* nrhs, - float const* DL, - float const* D, - float const* DU, - float const* DU2, lapack_int const* ipiv, - float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sgttrs(...) LAPACK_sgttrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_sgttrs(...) LAPACK_sgttrs_base(__VA_ARGS__) -#endif - -#define LAPACK_zgttrs_base LAPACK_GLOBAL(zgttrs,ZGTTRS) -void LAPACK_zgttrs_base( - char const* trans, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* DL, - lapack_complex_double const* D, - lapack_complex_double const* DU, - lapack_complex_double const* DU2, lapack_int const* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zgttrs(...) LAPACK_zgttrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_zgttrs(...) LAPACK_zgttrs_base(__VA_ARGS__) -#endif - -#define LAPACK_chbev_base LAPACK_GLOBAL(chbev,CHBEV) -void LAPACK_chbev_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* kd, - lapack_complex_float* AB, lapack_int const* ldab, - float* W, - lapack_complex_float* Z, lapack_int const* ldz, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chbev(...) LAPACK_chbev_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_chbev(...) LAPACK_chbev_base(__VA_ARGS__) -#endif - -#define LAPACK_zhbev_base LAPACK_GLOBAL(zhbev,ZHBEV) -void LAPACK_zhbev_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* kd, - lapack_complex_double* AB, lapack_int const* ldab, - double* W, - lapack_complex_double* Z, lapack_int const* ldz, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhbev(...) LAPACK_zhbev_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zhbev(...) LAPACK_zhbev_base(__VA_ARGS__) -#endif - -#define LAPACK_chbev_2stage_base LAPACK_GLOBAL(chbev_2stage,CHBEV_2STAGE) -void LAPACK_chbev_2stage_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* kd, - lapack_complex_float* AB, lapack_int const* ldab, - float* W, - lapack_complex_float* Z, lapack_int const* ldz, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chbev_2stage(...) LAPACK_chbev_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_chbev_2stage(...) LAPACK_chbev_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_zhbev_2stage_base LAPACK_GLOBAL(zhbev_2stage,ZHBEV_2STAGE) -void LAPACK_zhbev_2stage_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* kd, - lapack_complex_double* AB, lapack_int const* ldab, - double* W, - lapack_complex_double* Z, lapack_int const* ldz, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhbev_2stage(...) LAPACK_zhbev_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zhbev_2stage(...) LAPACK_zhbev_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_chbevd_base LAPACK_GLOBAL(chbevd,CHBEVD) -void LAPACK_chbevd_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* kd, - lapack_complex_float* AB, lapack_int const* ldab, - float* W, - lapack_complex_float* Z, lapack_int const* ldz, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, lapack_int const* lrwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chbevd(...) LAPACK_chbevd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_chbevd(...) LAPACK_chbevd_base(__VA_ARGS__) -#endif - -#define LAPACK_zhbevd_base LAPACK_GLOBAL(zhbevd,ZHBEVD) -void LAPACK_zhbevd_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* kd, - lapack_complex_double* AB, lapack_int const* ldab, - double* W, - lapack_complex_double* Z, lapack_int const* ldz, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, lapack_int const* lrwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhbevd(...) LAPACK_zhbevd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zhbevd(...) LAPACK_zhbevd_base(__VA_ARGS__) -#endif - -#define LAPACK_chbevd_2stage_base LAPACK_GLOBAL(chbevd_2stage,CHBEVD_2STAGE) -void LAPACK_chbevd_2stage_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* kd, - lapack_complex_float* AB, lapack_int const* ldab, - float* W, - lapack_complex_float* Z, lapack_int const* ldz, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, lapack_int const* lrwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chbevd_2stage(...) LAPACK_chbevd_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_chbevd_2stage(...) LAPACK_chbevd_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_zhbevd_2stage_base LAPACK_GLOBAL(zhbevd_2stage,ZHBEVD_2STAGE) -void LAPACK_zhbevd_2stage_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* kd, - lapack_complex_double* AB, lapack_int const* ldab, - double* W, - lapack_complex_double* Z, lapack_int const* ldz, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, lapack_int const* lrwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhbevd_2stage(...) LAPACK_zhbevd_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zhbevd_2stage(...) LAPACK_zhbevd_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_chbevx_base LAPACK_GLOBAL(chbevx,CHBEVX) -void LAPACK_chbevx_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, lapack_int const* kd, - lapack_complex_float* AB, lapack_int const* ldab, - lapack_complex_float* Q, lapack_int const* ldq, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - lapack_complex_float* Z, lapack_int const* ldz, - lapack_complex_float* work, - float* rwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chbevx(...) LAPACK_chbevx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_chbevx(...) LAPACK_chbevx_base(__VA_ARGS__) -#endif - -#define LAPACK_zhbevx_base LAPACK_GLOBAL(zhbevx,ZHBEVX) -void LAPACK_zhbevx_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, lapack_int const* kd, - lapack_complex_double* AB, lapack_int const* ldab, - lapack_complex_double* Q, lapack_int const* ldq, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - lapack_complex_double* Z, lapack_int const* ldz, - lapack_complex_double* work, - double* rwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhbevx(...) LAPACK_zhbevx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zhbevx(...) LAPACK_zhbevx_base(__VA_ARGS__) -#endif - -#define LAPACK_chbevx_2stage_base LAPACK_GLOBAL(chbevx_2stage,CHBEVX_2STAGE) -void LAPACK_chbevx_2stage_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, lapack_int const* kd, - lapack_complex_float* AB, lapack_int const* ldab, - lapack_complex_float* Q, lapack_int const* ldq, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - lapack_complex_float* Z, lapack_int const* ldz, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chbevx_2stage(...) LAPACK_chbevx_2stage_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_chbevx_2stage(...) LAPACK_chbevx_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_zhbevx_2stage_base LAPACK_GLOBAL(zhbevx_2stage,ZHBEVX_2STAGE) -void LAPACK_zhbevx_2stage_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, lapack_int const* kd, - lapack_complex_double* AB, lapack_int const* ldab, - lapack_complex_double* Q, lapack_int const* ldq, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - lapack_complex_double* Z, lapack_int const* ldz, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhbevx_2stage(...) LAPACK_zhbevx_2stage_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zhbevx_2stage(...) LAPACK_zhbevx_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_chbgst_base LAPACK_GLOBAL(chbgst,CHBGST) -void LAPACK_chbgst_base( - char const* vect, char const* uplo, - lapack_int const* n, lapack_int const* ka, lapack_int const* kb, - lapack_complex_float* AB, lapack_int const* ldab, - lapack_complex_float const* BB, lapack_int const* ldbb, - lapack_complex_float* X, lapack_int const* ldx, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chbgst(...) LAPACK_chbgst_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_chbgst(...) LAPACK_chbgst_base(__VA_ARGS__) -#endif - -#define LAPACK_zhbgst_base LAPACK_GLOBAL(zhbgst,ZHBGST) -void LAPACK_zhbgst_base( - char const* vect, char const* uplo, - lapack_int const* n, lapack_int const* ka, lapack_int const* kb, - lapack_complex_double* AB, lapack_int const* ldab, - lapack_complex_double const* BB, lapack_int const* ldbb, - lapack_complex_double* X, lapack_int const* ldx, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhbgst(...) LAPACK_zhbgst_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zhbgst(...) LAPACK_zhbgst_base(__VA_ARGS__) -#endif - -#define LAPACK_chbgv_base LAPACK_GLOBAL(chbgv,CHBGV) -void LAPACK_chbgv_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* ka, lapack_int const* kb, - lapack_complex_float* AB, lapack_int const* ldab, - lapack_complex_float* BB, lapack_int const* ldbb, - float* W, - lapack_complex_float* Z, lapack_int const* ldz, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chbgv(...) LAPACK_chbgv_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_chbgv(...) LAPACK_chbgv_base(__VA_ARGS__) -#endif - -#define LAPACK_zhbgv_base LAPACK_GLOBAL(zhbgv,ZHBGV) -void LAPACK_zhbgv_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* ka, lapack_int const* kb, - lapack_complex_double* AB, lapack_int const* ldab, - lapack_complex_double* BB, lapack_int const* ldbb, - double* W, - lapack_complex_double* Z, lapack_int const* ldz, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhbgv(...) LAPACK_zhbgv_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zhbgv(...) LAPACK_zhbgv_base(__VA_ARGS__) -#endif - -#define LAPACK_chbgvd_base LAPACK_GLOBAL(chbgvd,CHBGVD) -void LAPACK_chbgvd_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* ka, lapack_int const* kb, - lapack_complex_float* AB, lapack_int const* ldab, - lapack_complex_float* BB, lapack_int const* ldbb, - float* W, - lapack_complex_float* Z, lapack_int const* ldz, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, lapack_int const* lrwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chbgvd(...) LAPACK_chbgvd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_chbgvd(...) LAPACK_chbgvd_base(__VA_ARGS__) -#endif - -#define LAPACK_zhbgvd_base LAPACK_GLOBAL(zhbgvd,ZHBGVD) -void LAPACK_zhbgvd_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* ka, lapack_int const* kb, - lapack_complex_double* AB, lapack_int const* ldab, - lapack_complex_double* BB, lapack_int const* ldbb, - double* W, - lapack_complex_double* Z, lapack_int const* ldz, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, lapack_int const* lrwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhbgvd(...) LAPACK_zhbgvd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zhbgvd(...) LAPACK_zhbgvd_base(__VA_ARGS__) -#endif - -#define LAPACK_chbgvx_base LAPACK_GLOBAL(chbgvx,CHBGVX) -void LAPACK_chbgvx_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, lapack_int const* ka, lapack_int const* kb, - lapack_complex_float* AB, lapack_int const* ldab, - lapack_complex_float* BB, lapack_int const* ldbb, - lapack_complex_float* Q, lapack_int const* ldq, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - lapack_complex_float* Z, lapack_int const* ldz, - lapack_complex_float* work, - float* rwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chbgvx(...) LAPACK_chbgvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_chbgvx(...) LAPACK_chbgvx_base(__VA_ARGS__) -#endif - -#define LAPACK_zhbgvx_base LAPACK_GLOBAL(zhbgvx,ZHBGVX) -void LAPACK_zhbgvx_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, lapack_int const* ka, lapack_int const* kb, - lapack_complex_double* AB, lapack_int const* ldab, - lapack_complex_double* BB, lapack_int const* ldbb, - lapack_complex_double* Q, lapack_int const* ldq, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - lapack_complex_double* Z, lapack_int const* ldz, - lapack_complex_double* work, - double* rwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhbgvx(...) LAPACK_zhbgvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zhbgvx(...) LAPACK_zhbgvx_base(__VA_ARGS__) -#endif - -#define LAPACK_chbtrd_base LAPACK_GLOBAL(chbtrd,CHBTRD) -void LAPACK_chbtrd_base( - char const* vect, char const* uplo, - lapack_int const* n, lapack_int const* kd, - lapack_complex_float* AB, lapack_int const* ldab, - float* D, - float* E, - lapack_complex_float* Q, lapack_int const* ldq, - lapack_complex_float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chbtrd(...) LAPACK_chbtrd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_chbtrd(...) LAPACK_chbtrd_base(__VA_ARGS__) -#endif - -#define LAPACK_zhbtrd_base LAPACK_GLOBAL(zhbtrd,ZHBTRD) -void LAPACK_zhbtrd_base( - char const* vect, char const* uplo, - lapack_int const* n, lapack_int const* kd, - lapack_complex_double* AB, lapack_int const* ldab, - double* D, - double* E, - lapack_complex_double* Q, lapack_int const* ldq, - lapack_complex_double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhbtrd(...) LAPACK_zhbtrd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zhbtrd(...) LAPACK_zhbtrd_base(__VA_ARGS__) -#endif - -#define LAPACK_checon_base LAPACK_GLOBAL(checon,CHECON) -void LAPACK_checon_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, - float const* anorm, - float* rcond, - lapack_complex_float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_checon(...) LAPACK_checon_base(__VA_ARGS__, 1) -#else - #define LAPACK_checon(...) LAPACK_checon_base(__VA_ARGS__) -#endif - -#define LAPACK_zhecon_base LAPACK_GLOBAL(zhecon,ZHECON) -void LAPACK_zhecon_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, - double const* anorm, - double* rcond, - lapack_complex_double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhecon(...) LAPACK_zhecon_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhecon(...) LAPACK_zhecon_base(__VA_ARGS__) -#endif - -#define LAPACK_checon_3_base LAPACK_GLOBAL(checon_3,CHECON_3) -void LAPACK_checon_3_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* E, lapack_int const* ipiv, - float const* anorm, - float* rcond, - lapack_complex_float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_checon_3(...) LAPACK_checon_3_base(__VA_ARGS__, 1) -#else - #define LAPACK_checon_3(...) LAPACK_checon_3_base(__VA_ARGS__) -#endif - -#define LAPACK_zhecon_3_base LAPACK_GLOBAL(zhecon_3,ZHECON_3) -void LAPACK_zhecon_3_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* E, lapack_int const* ipiv, - double const* anorm, - double* rcond, - lapack_complex_double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhecon_3(...) LAPACK_zhecon_3_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhecon_3(...) LAPACK_zhecon_3_base(__VA_ARGS__) -#endif - -#define LAPACK_cheequb_base LAPACK_GLOBAL(cheequb,CHEEQUB) -void LAPACK_cheequb_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - float* S, - float* scond, - float* amax, - lapack_complex_float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cheequb(...) LAPACK_cheequb_base(__VA_ARGS__, 1) -#else - #define LAPACK_cheequb(...) LAPACK_cheequb_base(__VA_ARGS__) -#endif - -#define LAPACK_zheequb_base LAPACK_GLOBAL(zheequb,ZHEEQUB) -void LAPACK_zheequb_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - double* S, - double* scond, - double* amax, - lapack_complex_double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zheequb(...) LAPACK_zheequb_base(__VA_ARGS__, 1) -#else - #define LAPACK_zheequb(...) LAPACK_zheequb_base(__VA_ARGS__) -#endif - -#define LAPACK_cheev_base LAPACK_GLOBAL(cheev,CHEEV) -void LAPACK_cheev_base( - char const* jobz, char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - float* W, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cheev(...) LAPACK_cheev_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cheev(...) LAPACK_cheev_base(__VA_ARGS__) -#endif - -#define LAPACK_zheev_base LAPACK_GLOBAL(zheev,ZHEEV) -void LAPACK_zheev_base( - char const* jobz, char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - double* W, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zheev(...) LAPACK_zheev_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zheev(...) LAPACK_zheev_base(__VA_ARGS__) -#endif - -#define LAPACK_cheev_2stage_base LAPACK_GLOBAL(cheev_2stage,CHEEV_2STAGE) -void LAPACK_cheev_2stage_base( - char const* jobz, char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - float* W, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cheev_2stage(...) LAPACK_cheev_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cheev_2stage(...) LAPACK_cheev_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_zheev_2stage_base LAPACK_GLOBAL(zheev_2stage,ZHEEV_2STAGE) -void LAPACK_zheev_2stage_base( - char const* jobz, char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - double* W, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zheev_2stage(...) LAPACK_zheev_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zheev_2stage(...) LAPACK_zheev_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_cheevd_base LAPACK_GLOBAL(cheevd,CHEEVD) -void LAPACK_cheevd_base( - char const* jobz, char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - float* W, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, lapack_int const* lrwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cheevd(...) LAPACK_cheevd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cheevd(...) LAPACK_cheevd_base(__VA_ARGS__) -#endif - -#define LAPACK_zheevd_base LAPACK_GLOBAL(zheevd,ZHEEVD) -void LAPACK_zheevd_base( - char const* jobz, char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - double* W, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, lapack_int const* lrwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zheevd(...) LAPACK_zheevd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zheevd(...) LAPACK_zheevd_base(__VA_ARGS__) -#endif - -#define LAPACK_cheevd_2stage_base LAPACK_GLOBAL(cheevd_2stage,CHEEVD_2STAGE) -void LAPACK_cheevd_2stage_base( - char const* jobz, char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - float* W, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, lapack_int const* lrwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cheevd_2stage(...) LAPACK_cheevd_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cheevd_2stage(...) LAPACK_cheevd_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_zheevd_2stage_base LAPACK_GLOBAL(zheevd_2stage,ZHEEVD_2STAGE) -void LAPACK_zheevd_2stage_base( - char const* jobz, char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - double* W, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, lapack_int const* lrwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zheevd_2stage(...) LAPACK_zheevd_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zheevd_2stage(...) LAPACK_zheevd_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_cheevr_base LAPACK_GLOBAL(cheevr,CHEEVR) -void LAPACK_cheevr_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - lapack_complex_float* Z, lapack_int const* ldz, lapack_int* ISUPPZ, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, lapack_int const* lrwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cheevr(...) LAPACK_cheevr_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cheevr(...) LAPACK_cheevr_base(__VA_ARGS__) -#endif - -#define LAPACK_zheevr_base LAPACK_GLOBAL(zheevr,ZHEEVR) -void LAPACK_zheevr_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - lapack_complex_double* Z, lapack_int const* ldz, lapack_int* ISUPPZ, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, lapack_int const* lrwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zheevr(...) LAPACK_zheevr_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zheevr(...) LAPACK_zheevr_base(__VA_ARGS__) -#endif - -#define LAPACK_cheevr_2stage_base LAPACK_GLOBAL(cheevr_2stage,CHEEVR_2STAGE) -void LAPACK_cheevr_2stage_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - lapack_complex_float* Z, lapack_int const* ldz, lapack_int* ISUPPZ, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, lapack_int const* lrwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cheevr_2stage(...) LAPACK_cheevr_2stage_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cheevr_2stage(...) LAPACK_cheevr_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_zheevr_2stage_base LAPACK_GLOBAL(zheevr_2stage,ZHEEVR_2STAGE) -void LAPACK_zheevr_2stage_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - lapack_complex_double* Z, lapack_int const* ldz, lapack_int* ISUPPZ, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, lapack_int const* lrwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zheevr_2stage(...) LAPACK_zheevr_2stage_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zheevr_2stage(...) LAPACK_zheevr_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_cheevx_base LAPACK_GLOBAL(cheevx,CHEEVX) -void LAPACK_cheevx_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - lapack_complex_float* Z, lapack_int const* ldz, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cheevx(...) LAPACK_cheevx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cheevx(...) LAPACK_cheevx_base(__VA_ARGS__) -#endif - -#define LAPACK_zheevx_base LAPACK_GLOBAL(zheevx,ZHEEVX) -void LAPACK_zheevx_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - lapack_complex_double* Z, lapack_int const* ldz, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zheevx(...) LAPACK_zheevx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zheevx(...) LAPACK_zheevx_base(__VA_ARGS__) -#endif - -#define LAPACK_cheevx_2stage_base LAPACK_GLOBAL(cheevx_2stage,CHEEVX_2STAGE) -void LAPACK_cheevx_2stage_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - lapack_complex_float* Z, lapack_int const* ldz, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cheevx_2stage(...) LAPACK_cheevx_2stage_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cheevx_2stage(...) LAPACK_cheevx_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_zheevx_2stage_base LAPACK_GLOBAL(zheevx_2stage,ZHEEVX_2STAGE) -void LAPACK_zheevx_2stage_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - lapack_complex_double* Z, lapack_int const* ldz, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zheevx_2stage(...) LAPACK_zheevx_2stage_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zheevx_2stage(...) LAPACK_zheevx_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_chegst_base LAPACK_GLOBAL(chegst,CHEGST) -void LAPACK_chegst_base( - lapack_int const* itype, char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - const lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chegst(...) LAPACK_chegst_base(__VA_ARGS__, 1) -#else - #define LAPACK_chegst(...) LAPACK_chegst_base(__VA_ARGS__) -#endif - -#define LAPACK_zhegst_base LAPACK_GLOBAL(zhegst,ZHEGST) -void LAPACK_zhegst_base( - lapack_int const* itype, char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - const lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhegst(...) LAPACK_zhegst_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhegst(...) LAPACK_zhegst_base(__VA_ARGS__) -#endif - -#define LAPACK_chegv_base LAPACK_GLOBAL(chegv,CHEGV) -void LAPACK_chegv_base( - lapack_int const* itype, char const* jobz, char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - float* W, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chegv(...) LAPACK_chegv_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_chegv(...) LAPACK_chegv_base(__VA_ARGS__) -#endif - -#define LAPACK_zhegv_base LAPACK_GLOBAL(zhegv,ZHEGV) -void LAPACK_zhegv_base( - lapack_int const* itype, char const* jobz, char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - double* W, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhegv(...) LAPACK_zhegv_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zhegv(...) LAPACK_zhegv_base(__VA_ARGS__) -#endif - -#define LAPACK_chegv_2stage_base LAPACK_GLOBAL(chegv_2stage,CHEGV_2STAGE) -void LAPACK_chegv_2stage_base( - lapack_int const* itype, char const* jobz, char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - float* W, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chegv_2stage(...) LAPACK_chegv_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_chegv_2stage(...) LAPACK_chegv_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_zhegv_2stage_base LAPACK_GLOBAL(zhegv_2stage,ZHEGV_2STAGE) -void LAPACK_zhegv_2stage_base( - lapack_int const* itype, char const* jobz, char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - double* W, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhegv_2stage(...) LAPACK_zhegv_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zhegv_2stage(...) LAPACK_zhegv_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_chegvd_base LAPACK_GLOBAL(chegvd,CHEGVD) -void LAPACK_chegvd_base( - lapack_int const* itype, char const* jobz, char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - float* W, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, lapack_int const* lrwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chegvd(...) LAPACK_chegvd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_chegvd(...) LAPACK_chegvd_base(__VA_ARGS__) -#endif - -#define LAPACK_zhegvd_base LAPACK_GLOBAL(zhegvd,ZHEGVD) -void LAPACK_zhegvd_base( - lapack_int const* itype, char const* jobz, char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - double* W, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, lapack_int const* lrwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhegvd(...) LAPACK_zhegvd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zhegvd(...) LAPACK_zhegvd_base(__VA_ARGS__) -#endif - -#define LAPACK_chegvx_base LAPACK_GLOBAL(chegvx,CHEGVX) -void LAPACK_chegvx_base( - lapack_int const* itype, char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - lapack_complex_float* Z, lapack_int const* ldz, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chegvx(...) LAPACK_chegvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_chegvx(...) LAPACK_chegvx_base(__VA_ARGS__) -#endif - -#define LAPACK_zhegvx_base LAPACK_GLOBAL(zhegvx,ZHEGVX) -void LAPACK_zhegvx_base( - lapack_int const* itype, char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - lapack_complex_double* Z, lapack_int const* ldz, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhegvx(...) LAPACK_zhegvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zhegvx(...) LAPACK_zhegvx_base(__VA_ARGS__) -#endif - -#define LAPACK_cherfs_base LAPACK_GLOBAL(cherfs,CHERFS) -void LAPACK_cherfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* ferr, - float* berr, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cherfs(...) LAPACK_cherfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_cherfs(...) LAPACK_cherfs_base(__VA_ARGS__) -#endif - -#define LAPACK_zherfs_base LAPACK_GLOBAL(zherfs,ZHERFS) -void LAPACK_zherfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* ferr, - double* berr, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zherfs(...) LAPACK_zherfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_zherfs(...) LAPACK_zherfs_base(__VA_ARGS__) -#endif - -#define LAPACK_cherfsx_base LAPACK_GLOBAL(cherfsx,CHERFSX) -void LAPACK_cherfsx_base( - char const* uplo, char const* equed, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv, - const float* S, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* rcond, - float* berr, lapack_int const* n_err_bnds, - float* err_bnds_norm, - float* err_bnds_comp, lapack_int const* nparams, - float* params, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cherfsx(...) LAPACK_cherfsx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cherfsx(...) LAPACK_cherfsx_base(__VA_ARGS__) -#endif - -#define LAPACK_zherfsx_base LAPACK_GLOBAL(zherfsx,ZHERFSX) -void LAPACK_zherfsx_base( - char const* uplo, char const* equed, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv, - const double* S, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* rcond, - double* berr, lapack_int const* n_err_bnds, - double* err_bnds_norm, - double* err_bnds_comp, lapack_int const* nparams, - double* params, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zherfsx(...) LAPACK_zherfsx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zherfsx(...) LAPACK_zherfsx_base(__VA_ARGS__) -#endif - -#define LAPACK_chesv_base LAPACK_GLOBAL(chesv,CHESV) -void LAPACK_chesv_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chesv(...) LAPACK_chesv_base(__VA_ARGS__, 1) -#else - #define LAPACK_chesv(...) LAPACK_chesv_base(__VA_ARGS__) -#endif - -#define LAPACK_zhesv_base LAPACK_GLOBAL(zhesv,ZHESV) -void LAPACK_zhesv_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhesv(...) LAPACK_zhesv_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhesv(...) LAPACK_zhesv_base(__VA_ARGS__) -#endif - -#define LAPACK_chesv_aa_base LAPACK_GLOBAL(chesv_aa,CHESV_AA) -void LAPACK_chesv_aa_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chesv_aa(...) LAPACK_chesv_aa_base(__VA_ARGS__, 1) -#else - #define LAPACK_chesv_aa(...) LAPACK_chesv_aa_base(__VA_ARGS__) -#endif - -#define LAPACK_zhesv_aa_base LAPACK_GLOBAL(zhesv_aa,ZHESV_AA) -void LAPACK_zhesv_aa_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhesv_aa(...) LAPACK_zhesv_aa_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhesv_aa(...) LAPACK_zhesv_aa_base(__VA_ARGS__) -#endif - -#define LAPACK_chesv_aa_2stage_base LAPACK_GLOBAL(chesv_aa_2stage,CHESV_AA_2STAGE) -void LAPACK_chesv_aa_2stage_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chesv_aa_2stage(...) LAPACK_chesv_aa_2stage_base(__VA_ARGS__, 1) -#else - #define LAPACK_chesv_aa_2stage(...) LAPACK_chesv_aa_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_zhesv_aa_2stage_base LAPACK_GLOBAL(zhesv_aa_2stage,ZHESV_AA_2STAGE) -void LAPACK_zhesv_aa_2stage_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhesv_aa_2stage(...) LAPACK_zhesv_aa_2stage_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhesv_aa_2stage(...) LAPACK_zhesv_aa_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_chesv_rk_base LAPACK_GLOBAL(chesv_rk,CHESV_RK) -void LAPACK_chesv_rk_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* E, lapack_int* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chesv_rk(...) LAPACK_chesv_rk_base(__VA_ARGS__, 1) -#else - #define LAPACK_chesv_rk(...) LAPACK_chesv_rk_base(__VA_ARGS__) -#endif - -#define LAPACK_zhesv_rk_base LAPACK_GLOBAL(zhesv_rk,ZHESV_RK) -void LAPACK_zhesv_rk_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* E, lapack_int* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhesv_rk(...) LAPACK_zhesv_rk_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhesv_rk(...) LAPACK_zhesv_rk_base(__VA_ARGS__) -#endif - -#define LAPACK_chesv_rook_base LAPACK_GLOBAL(chesv_rook,CHESV_ROOK) -void LAPACK_chesv_rook_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chesv_rook(...) LAPACK_chesv_rook_base(__VA_ARGS__, 1) -#else - #define LAPACK_chesv_rook(...) LAPACK_chesv_rook_base(__VA_ARGS__) -#endif - -#define LAPACK_zhesv_rook_base LAPACK_GLOBAL(zhesv_rook,ZHESV_ROOK) -void LAPACK_zhesv_rook_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhesv_rook(...) LAPACK_zhesv_rook_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhesv_rook(...) LAPACK_zhesv_rook_base(__VA_ARGS__) -#endif - -#define LAPACK_chesvx_base LAPACK_GLOBAL(chesvx,CHESVX) -void LAPACK_chesvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* rcond, - float* ferr, - float* berr, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chesvx(...) LAPACK_chesvx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_chesvx(...) LAPACK_chesvx_base(__VA_ARGS__) -#endif - -#define LAPACK_zhesvx_base LAPACK_GLOBAL(zhesvx,ZHESVX) -void LAPACK_zhesvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* rcond, - double* ferr, - double* berr, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhesvx(...) LAPACK_zhesvx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zhesvx(...) LAPACK_zhesvx_base(__VA_ARGS__) -#endif - -#define LAPACK_chesvxx_base LAPACK_GLOBAL(chesvxx,CHESVXX) -void LAPACK_chesvxx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed, - float* S, - lapack_complex_float* B, - lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* rcond, - float* rpvgrw, - float* berr, lapack_int const* n_err_bnds, - float* err_bnds_norm, - float* err_bnds_comp, lapack_int const* nparams, - float* params, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chesvxx(...) LAPACK_chesvxx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_chesvxx(...) LAPACK_chesvxx_base(__VA_ARGS__) -#endif - -#define LAPACK_zhesvxx_base LAPACK_GLOBAL(zhesvxx,ZHESVXX) -void LAPACK_zhesvxx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed, - double* S, - lapack_complex_double* B, - lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* rcond, - double* rpvgrw, - double* berr, lapack_int const* n_err_bnds, - double* err_bnds_norm, - double* err_bnds_comp, lapack_int const* nparams, - double* params, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhesvxx(...) LAPACK_zhesvxx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zhesvxx(...) LAPACK_zhesvxx_base(__VA_ARGS__) -#endif - -#define LAPACK_cheswapr_base LAPACK_GLOBAL(cheswapr,CHESWAPR) -void LAPACK_cheswapr_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cheswapr(...) LAPACK_cheswapr_base(__VA_ARGS__, 1) -#else - #define LAPACK_cheswapr(...) LAPACK_cheswapr_base(__VA_ARGS__) -#endif - -#define LAPACK_zheswapr_base LAPACK_GLOBAL(zheswapr,ZHESWAPR) -void LAPACK_zheswapr_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zheswapr(...) LAPACK_zheswapr_base(__VA_ARGS__, 1) -#else - #define LAPACK_zheswapr(...) LAPACK_zheswapr_base(__VA_ARGS__) -#endif - -#define LAPACK_chetrd_base LAPACK_GLOBAL(chetrd,CHETRD) -void LAPACK_chetrd_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - float* D, - float* E, - lapack_complex_float* tau, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chetrd(...) LAPACK_chetrd_base(__VA_ARGS__, 1) -#else - #define LAPACK_chetrd(...) LAPACK_chetrd_base(__VA_ARGS__) -#endif - -#define LAPACK_zhetrd_base LAPACK_GLOBAL(zhetrd,ZHETRD) -void LAPACK_zhetrd_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - double* D, - double* E, - lapack_complex_double* tau, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhetrd(...) LAPACK_zhetrd_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhetrd(...) LAPACK_zhetrd_base(__VA_ARGS__) -#endif - -#define LAPACK_chetrd_2stage_base LAPACK_GLOBAL(chetrd_2stage,CHETRD_2STAGE) -void LAPACK_chetrd_2stage_base( - char const* vect, char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - float* D, - float* E, - lapack_complex_float* tau, - lapack_complex_float* HOUS2, lapack_int const* lhous2, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chetrd_2stage(...) LAPACK_chetrd_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_chetrd_2stage(...) LAPACK_chetrd_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_zhetrd_2stage_base LAPACK_GLOBAL(zhetrd_2stage,ZHETRD_2STAGE) -void LAPACK_zhetrd_2stage_base( - char const* vect, char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - double* D, - double* E, - lapack_complex_double* tau, - lapack_complex_double* HOUS2, lapack_int const* lhous2, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhetrd_2stage(...) LAPACK_zhetrd_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zhetrd_2stage(...) LAPACK_zhetrd_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_chetrf_base LAPACK_GLOBAL(chetrf,CHETRF) -void LAPACK_chetrf_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chetrf(...) LAPACK_chetrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_chetrf(...) LAPACK_chetrf_base(__VA_ARGS__) -#endif - -#define LAPACK_zhetrf_base LAPACK_GLOBAL(zhetrf,ZHETRF) -void LAPACK_zhetrf_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhetrf(...) LAPACK_zhetrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhetrf(...) LAPACK_zhetrf_base(__VA_ARGS__) -#endif - -#define LAPACK_chetrf_aa_base LAPACK_GLOBAL(chetrf_aa,CHETRF_AA) -void LAPACK_chetrf_aa_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chetrf_aa(...) LAPACK_chetrf_aa_base(__VA_ARGS__, 1) -#else - #define LAPACK_chetrf_aa(...) LAPACK_chetrf_aa_base(__VA_ARGS__) -#endif - -#define LAPACK_zhetrf_aa_base LAPACK_GLOBAL(zhetrf_aa,ZHETRF_AA) -void LAPACK_zhetrf_aa_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhetrf_aa(...) LAPACK_zhetrf_aa_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhetrf_aa(...) LAPACK_zhetrf_aa_base(__VA_ARGS__) -#endif - -#define LAPACK_chetrf_aa_2stage_base LAPACK_GLOBAL(chetrf_aa_2stage,CHETRF_AA_2STAGE) -void LAPACK_chetrf_aa_2stage_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chetrf_aa_2stage(...) LAPACK_chetrf_aa_2stage_base(__VA_ARGS__, 1) -#else - #define LAPACK_chetrf_aa_2stage(...) LAPACK_chetrf_aa_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_zhetrf_aa_2stage_base LAPACK_GLOBAL(zhetrf_aa_2stage,ZHETRF_AA_2STAGE) -void LAPACK_zhetrf_aa_2stage_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhetrf_aa_2stage(...) LAPACK_zhetrf_aa_2stage_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhetrf_aa_2stage(...) LAPACK_zhetrf_aa_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_chetrf_rk_base LAPACK_GLOBAL(chetrf_rk,CHETRF_RK) -void LAPACK_chetrf_rk_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* E, lapack_int* ipiv, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chetrf_rk(...) LAPACK_chetrf_rk_base(__VA_ARGS__, 1) -#else - #define LAPACK_chetrf_rk(...) LAPACK_chetrf_rk_base(__VA_ARGS__) -#endif - -#define LAPACK_zhetrf_rk_base LAPACK_GLOBAL(zhetrf_rk,ZHETRF_RK) -void LAPACK_zhetrf_rk_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* E, lapack_int* ipiv, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhetrf_rk(...) LAPACK_zhetrf_rk_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhetrf_rk(...) LAPACK_zhetrf_rk_base(__VA_ARGS__) -#endif - -#define LAPACK_chetrf_rook_base LAPACK_GLOBAL(chetrf_rook,CHETRF_ROOK) -void LAPACK_chetrf_rook_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chetrf_rook(...) LAPACK_chetrf_rook_base(__VA_ARGS__, 1) -#else - #define LAPACK_chetrf_rook(...) LAPACK_chetrf_rook_base(__VA_ARGS__) -#endif - -#define LAPACK_zhetrf_rook_base LAPACK_GLOBAL(zhetrf_rook,ZHETRF_ROOK) -void LAPACK_zhetrf_rook_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhetrf_rook(...) LAPACK_zhetrf_rook_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhetrf_rook(...) LAPACK_zhetrf_rook_base(__VA_ARGS__) -#endif - -#define LAPACK_chetri_base LAPACK_GLOBAL(chetri,CHETRI) -void LAPACK_chetri_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chetri(...) LAPACK_chetri_base(__VA_ARGS__, 1) -#else - #define LAPACK_chetri(...) LAPACK_chetri_base(__VA_ARGS__) -#endif - -#define LAPACK_zhetri_base LAPACK_GLOBAL(zhetri,ZHETRI) -void LAPACK_zhetri_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhetri(...) LAPACK_zhetri_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhetri(...) LAPACK_zhetri_base(__VA_ARGS__) -#endif - -#define LAPACK_chetri2_base LAPACK_GLOBAL(chetri2,CHETRI2) -void LAPACK_chetri2_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chetri2(...) LAPACK_chetri2_base(__VA_ARGS__, 1) -#else - #define LAPACK_chetri2(...) LAPACK_chetri2_base(__VA_ARGS__) -#endif - -#define LAPACK_zhetri2_base LAPACK_GLOBAL(zhetri2,ZHETRI2) -void LAPACK_zhetri2_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhetri2(...) LAPACK_zhetri2_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhetri2(...) LAPACK_zhetri2_base(__VA_ARGS__) -#endif - -#define LAPACK_chetri2x_base LAPACK_GLOBAL(chetri2x,CHETRI2X) -void LAPACK_chetri2x_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_float* work, lapack_int const* nb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chetri2x(...) LAPACK_chetri2x_base(__VA_ARGS__, 1) -#else - #define LAPACK_chetri2x(...) LAPACK_chetri2x_base(__VA_ARGS__) -#endif - -#define LAPACK_zhetri2x_base LAPACK_GLOBAL(zhetri2x,ZHETRI2X) -void LAPACK_zhetri2x_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_double* work, lapack_int const* nb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhetri2x(...) LAPACK_zhetri2x_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhetri2x(...) LAPACK_zhetri2x_base(__VA_ARGS__) -#endif - -#define LAPACK_chetri_3_base LAPACK_GLOBAL(chetri_3,CHETRI_3) -void LAPACK_chetri_3_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float const* E, lapack_int const* ipiv, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chetri_3(...) LAPACK_chetri_3_base(__VA_ARGS__, 1) -#else - #define LAPACK_chetri_3(...) LAPACK_chetri_3_base(__VA_ARGS__) -#endif - -#define LAPACK_zhetri_3_base LAPACK_GLOBAL(zhetri_3,ZHETRI_3) -void LAPACK_zhetri_3_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double const* E, lapack_int const* ipiv, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhetri_3(...) LAPACK_zhetri_3_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhetri_3(...) LAPACK_zhetri_3_base(__VA_ARGS__) -#endif - -#define LAPACK_chetrs_base LAPACK_GLOBAL(chetrs,CHETRS) -void LAPACK_chetrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chetrs(...) LAPACK_chetrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_chetrs(...) LAPACK_chetrs_base(__VA_ARGS__) -#endif - -#define LAPACK_zhetrs_base LAPACK_GLOBAL(zhetrs,ZHETRS) -void LAPACK_zhetrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhetrs(...) LAPACK_zhetrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhetrs(...) LAPACK_zhetrs_base(__VA_ARGS__) -#endif - -#define LAPACK_chetrs2_base LAPACK_GLOBAL(chetrs2,CHETRS2) -void LAPACK_chetrs2_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chetrs2(...) LAPACK_chetrs2_base(__VA_ARGS__, 1) -#else - #define LAPACK_chetrs2(...) LAPACK_chetrs2_base(__VA_ARGS__) -#endif - -#define LAPACK_zhetrs2_base LAPACK_GLOBAL(zhetrs2,ZHETRS2) -void LAPACK_zhetrs2_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhetrs2(...) LAPACK_zhetrs2_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhetrs2(...) LAPACK_zhetrs2_base(__VA_ARGS__) -#endif - -#define LAPACK_chetrs_3_base LAPACK_GLOBAL(chetrs_3,CHETRS_3) -void LAPACK_chetrs_3_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* E, lapack_int const* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chetrs_3(...) LAPACK_chetrs_3_base(__VA_ARGS__, 1) -#else - #define LAPACK_chetrs_3(...) LAPACK_chetrs_3_base(__VA_ARGS__) -#endif - -#define LAPACK_zhetrs_3_base LAPACK_GLOBAL(zhetrs_3,ZHETRS_3) -void LAPACK_zhetrs_3_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* E, lapack_int const* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhetrs_3(...) LAPACK_zhetrs_3_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhetrs_3(...) LAPACK_zhetrs_3_base(__VA_ARGS__) -#endif - -#define LAPACK_chetrs_aa_base LAPACK_GLOBAL(chetrs_aa,CHETRS_AA) -void LAPACK_chetrs_aa_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chetrs_aa(...) LAPACK_chetrs_aa_base(__VA_ARGS__, 1) -#else - #define LAPACK_chetrs_aa(...) LAPACK_chetrs_aa_base(__VA_ARGS__) -#endif - -#define LAPACK_zhetrs_aa_base LAPACK_GLOBAL(zhetrs_aa,ZHETRS_AA) -void LAPACK_zhetrs_aa_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhetrs_aa(...) LAPACK_zhetrs_aa_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhetrs_aa(...) LAPACK_zhetrs_aa_base(__VA_ARGS__) -#endif - -#define LAPACK_chetrs_aa_2stage_base LAPACK_GLOBAL(chetrs_aa_2stage,CHETRS_AA_2STAGE) -void LAPACK_chetrs_aa_2stage_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chetrs_aa_2stage(...) LAPACK_chetrs_aa_2stage_base(__VA_ARGS__, 1) -#else - #define LAPACK_chetrs_aa_2stage(...) LAPACK_chetrs_aa_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_zhetrs_aa_2stage_base LAPACK_GLOBAL(zhetrs_aa_2stage,ZHETRS_AA_2STAGE) -void LAPACK_zhetrs_aa_2stage_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhetrs_aa_2stage(...) LAPACK_zhetrs_aa_2stage_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhetrs_aa_2stage(...) LAPACK_zhetrs_aa_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_chetrs_rook_base LAPACK_GLOBAL(chetrs_rook,CHETRS_ROOK) -void LAPACK_chetrs_rook_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chetrs_rook(...) LAPACK_chetrs_rook_base(__VA_ARGS__, 1) -#else - #define LAPACK_chetrs_rook(...) LAPACK_chetrs_rook_base(__VA_ARGS__) -#endif - -#define LAPACK_zhetrs_rook_base LAPACK_GLOBAL(zhetrs_rook,ZHETRS_ROOK) -void LAPACK_zhetrs_rook_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhetrs_rook(...) LAPACK_zhetrs_rook_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhetrs_rook(...) LAPACK_zhetrs_rook_base(__VA_ARGS__) -#endif - -#define LAPACK_chfrk_base LAPACK_GLOBAL(chfrk,CHFRK) -void LAPACK_chfrk_base( - char const* transr, char const* uplo, char const* trans, - lapack_int const* n, lapack_int const* k, - float const* alpha, - lapack_complex_float const* A, lapack_int const* lda, - float const* beta, - lapack_complex_float* C -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chfrk(...) LAPACK_chfrk_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_chfrk(...) LAPACK_chfrk_base(__VA_ARGS__) -#endif - -#define LAPACK_zhfrk_base LAPACK_GLOBAL(zhfrk,ZHFRK) -void LAPACK_zhfrk_base( - char const* transr, char const* uplo, char const* trans, - lapack_int const* n, lapack_int const* k, - double const* alpha, - lapack_complex_double const* A, lapack_int const* lda, - double const* beta, - lapack_complex_double* C -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhfrk(...) LAPACK_zhfrk_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zhfrk(...) LAPACK_zhfrk_base(__VA_ARGS__) -#endif - -#define LAPACK_chgeqz_base LAPACK_GLOBAL(chgeqz,CHGEQZ) -void LAPACK_chgeqz_base( - char const* job, char const* compq, char const* compz, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - lapack_complex_float* H, lapack_int const* ldh, - lapack_complex_float* T, lapack_int const* ldt, - lapack_complex_float* alpha, - lapack_complex_float* beta, - lapack_complex_float* Q, lapack_int const* ldq, - lapack_complex_float* Z, lapack_int const* ldz, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chgeqz(...) LAPACK_chgeqz_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_chgeqz(...) LAPACK_chgeqz_base(__VA_ARGS__) -#endif - -#define LAPACK_dhgeqz_base LAPACK_GLOBAL(dhgeqz,DHGEQZ) -void LAPACK_dhgeqz_base( - char const* job, char const* compq, char const* compz, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - double* H, lapack_int const* ldh, - double* T, lapack_int const* ldt, - double* alphar, - double* alphai, - double* beta, - double* Q, lapack_int const* ldq, - double* Z, lapack_int const* ldz, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dhgeqz(...) LAPACK_dhgeqz_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dhgeqz(...) LAPACK_dhgeqz_base(__VA_ARGS__) -#endif - -#define LAPACK_shgeqz_base LAPACK_GLOBAL(shgeqz,SHGEQZ) -void LAPACK_shgeqz_base( - char const* job, char const* compq, char const* compz, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - float* H, lapack_int const* ldh, - float* T, lapack_int const* ldt, - float* alphar, - float* alphai, - float* beta, - float* Q, lapack_int const* ldq, - float* Z, lapack_int const* ldz, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_shgeqz(...) LAPACK_shgeqz_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_shgeqz(...) LAPACK_shgeqz_base(__VA_ARGS__) -#endif - -#define LAPACK_zhgeqz_base LAPACK_GLOBAL(zhgeqz,ZHGEQZ) -void LAPACK_zhgeqz_base( - char const* job, char const* compq, char const* compz, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - lapack_complex_double* H, lapack_int const* ldh, - lapack_complex_double* T, lapack_int const* ldt, - lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* Q, lapack_int const* ldq, - lapack_complex_double* Z, lapack_int const* ldz, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhgeqz(...) LAPACK_zhgeqz_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zhgeqz(...) LAPACK_zhgeqz_base(__VA_ARGS__) -#endif - -#define LAPACK_chpcon_base LAPACK_GLOBAL(chpcon,CHPCON) -void LAPACK_chpcon_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float const* AP, lapack_int const* ipiv, - float const* anorm, - float* rcond, - lapack_complex_float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chpcon(...) LAPACK_chpcon_base(__VA_ARGS__, 1) -#else - #define LAPACK_chpcon(...) LAPACK_chpcon_base(__VA_ARGS__) -#endif - -#define LAPACK_zhpcon_base LAPACK_GLOBAL(zhpcon,ZHPCON) -void LAPACK_zhpcon_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double const* AP, lapack_int const* ipiv, - double const* anorm, - double* rcond, - lapack_complex_double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhpcon(...) LAPACK_zhpcon_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhpcon(...) LAPACK_zhpcon_base(__VA_ARGS__) -#endif - -#define LAPACK_chpev_base LAPACK_GLOBAL(chpev,CHPEV) -void LAPACK_chpev_base( - char const* jobz, char const* uplo, - lapack_int const* n, - lapack_complex_float* AP, - float* W, - lapack_complex_float* Z, lapack_int const* ldz, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chpev(...) LAPACK_chpev_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_chpev(...) LAPACK_chpev_base(__VA_ARGS__) -#endif - -#define LAPACK_zhpev_base LAPACK_GLOBAL(zhpev,ZHPEV) -void LAPACK_zhpev_base( - char const* jobz, char const* uplo, - lapack_int const* n, - lapack_complex_double* AP, - double* W, - lapack_complex_double* Z, lapack_int const* ldz, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhpev(...) LAPACK_zhpev_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zhpev(...) LAPACK_zhpev_base(__VA_ARGS__) -#endif - -#define LAPACK_chpevd_base LAPACK_GLOBAL(chpevd,CHPEVD) -void LAPACK_chpevd_base( - char const* jobz, char const* uplo, - lapack_int const* n, - lapack_complex_float* AP, - float* W, - lapack_complex_float* Z, lapack_int const* ldz, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, lapack_int const* lrwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chpevd(...) LAPACK_chpevd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_chpevd(...) LAPACK_chpevd_base(__VA_ARGS__) -#endif - -#define LAPACK_zhpevd_base LAPACK_GLOBAL(zhpevd,ZHPEVD) -void LAPACK_zhpevd_base( - char const* jobz, char const* uplo, - lapack_int const* n, - lapack_complex_double* AP, - double* W, - lapack_complex_double* Z, lapack_int const* ldz, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, lapack_int const* lrwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhpevd(...) LAPACK_zhpevd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zhpevd(...) LAPACK_zhpevd_base(__VA_ARGS__) -#endif - -#define LAPACK_chpevx_base LAPACK_GLOBAL(chpevx,CHPEVX) -void LAPACK_chpevx_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - lapack_complex_float* AP, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - lapack_complex_float* Z, lapack_int const* ldz, - lapack_complex_float* work, - float* rwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chpevx(...) LAPACK_chpevx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_chpevx(...) LAPACK_chpevx_base(__VA_ARGS__) -#endif - -#define LAPACK_zhpevx_base LAPACK_GLOBAL(zhpevx,ZHPEVX) -void LAPACK_zhpevx_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - lapack_complex_double* AP, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - lapack_complex_double* Z, lapack_int const* ldz, - lapack_complex_double* work, - double* rwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhpevx(...) LAPACK_zhpevx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zhpevx(...) LAPACK_zhpevx_base(__VA_ARGS__) -#endif - -#define LAPACK_chpgst_base LAPACK_GLOBAL(chpgst,CHPGST) -void LAPACK_chpgst_base( - lapack_int const* itype, char const* uplo, - lapack_int const* n, - lapack_complex_float* AP, - lapack_complex_float const* BP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chpgst(...) LAPACK_chpgst_base(__VA_ARGS__, 1) -#else - #define LAPACK_chpgst(...) LAPACK_chpgst_base(__VA_ARGS__) -#endif - -#define LAPACK_zhpgst_base LAPACK_GLOBAL(zhpgst,ZHPGST) -void LAPACK_zhpgst_base( - lapack_int const* itype, char const* uplo, - lapack_int const* n, - lapack_complex_double* AP, - lapack_complex_double const* BP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhpgst(...) LAPACK_zhpgst_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhpgst(...) LAPACK_zhpgst_base(__VA_ARGS__) -#endif - -#define LAPACK_chpgv_base LAPACK_GLOBAL(chpgv,CHPGV) -void LAPACK_chpgv_base( - lapack_int const* itype, char const* jobz, char const* uplo, - lapack_int const* n, - lapack_complex_float* AP, - lapack_complex_float* BP, - float* W, - lapack_complex_float* Z, lapack_int const* ldz, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chpgv(...) LAPACK_chpgv_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_chpgv(...) LAPACK_chpgv_base(__VA_ARGS__) -#endif - -#define LAPACK_zhpgv_base LAPACK_GLOBAL(zhpgv,ZHPGV) -void LAPACK_zhpgv_base( - lapack_int const* itype, char const* jobz, char const* uplo, - lapack_int const* n, - lapack_complex_double* AP, - lapack_complex_double* BP, - double* W, - lapack_complex_double* Z, lapack_int const* ldz, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhpgv(...) LAPACK_zhpgv_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zhpgv(...) LAPACK_zhpgv_base(__VA_ARGS__) -#endif - -#define LAPACK_chpgvd_base LAPACK_GLOBAL(chpgvd,CHPGVD) -void LAPACK_chpgvd_base( - lapack_int const* itype, char const* jobz, char const* uplo, - lapack_int const* n, - lapack_complex_float* AP, - lapack_complex_float* BP, - float* W, - lapack_complex_float* Z, lapack_int const* ldz, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, lapack_int const* lrwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chpgvd(...) LAPACK_chpgvd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_chpgvd(...) LAPACK_chpgvd_base(__VA_ARGS__) -#endif - -#define LAPACK_zhpgvd_base LAPACK_GLOBAL(zhpgvd,ZHPGVD) -void LAPACK_zhpgvd_base( - lapack_int const* itype, char const* jobz, char const* uplo, - lapack_int const* n, - lapack_complex_double* AP, - lapack_complex_double* BP, - double* W, - lapack_complex_double* Z, lapack_int const* ldz, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, lapack_int const* lrwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhpgvd(...) LAPACK_zhpgvd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zhpgvd(...) LAPACK_zhpgvd_base(__VA_ARGS__) -#endif - -#define LAPACK_chpgvx_base LAPACK_GLOBAL(chpgvx,CHPGVX) -void LAPACK_chpgvx_base( - lapack_int const* itype, char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - lapack_complex_float* AP, - lapack_complex_float* BP, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - lapack_complex_float* Z, lapack_int const* ldz, - lapack_complex_float* work, - float* rwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chpgvx(...) LAPACK_chpgvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_chpgvx(...) LAPACK_chpgvx_base(__VA_ARGS__) -#endif - -#define LAPACK_zhpgvx_base LAPACK_GLOBAL(zhpgvx,ZHPGVX) -void LAPACK_zhpgvx_base( - lapack_int const* itype, char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - lapack_complex_double* AP, - lapack_complex_double* BP, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - lapack_complex_double* Z, lapack_int const* ldz, - lapack_complex_double* work, - double* rwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhpgvx(...) LAPACK_zhpgvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zhpgvx(...) LAPACK_zhpgvx_base(__VA_ARGS__) -#endif - -#define LAPACK_chprfs_base LAPACK_GLOBAL(chprfs,CHPRFS) -void LAPACK_chprfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* AP, - lapack_complex_float const* AFP, lapack_int const* ipiv, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* ferr, - float* berr, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chprfs(...) LAPACK_chprfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_chprfs(...) LAPACK_chprfs_base(__VA_ARGS__) -#endif - -#define LAPACK_zhprfs_base LAPACK_GLOBAL(zhprfs,ZHPRFS) -void LAPACK_zhprfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* AP, - lapack_complex_double const* AFP, lapack_int const* ipiv, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* ferr, - double* berr, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhprfs(...) LAPACK_zhprfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhprfs(...) LAPACK_zhprfs_base(__VA_ARGS__) -#endif - -#define LAPACK_chpsv_base LAPACK_GLOBAL(chpsv,CHPSV) -void LAPACK_chpsv_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* AP, lapack_int* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chpsv(...) LAPACK_chpsv_base(__VA_ARGS__, 1) -#else - #define LAPACK_chpsv(...) LAPACK_chpsv_base(__VA_ARGS__) -#endif - -#define LAPACK_zhpsv_base LAPACK_GLOBAL(zhpsv,ZHPSV) -void LAPACK_zhpsv_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* AP, lapack_int* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhpsv(...) LAPACK_zhpsv_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhpsv(...) LAPACK_zhpsv_base(__VA_ARGS__) -#endif - -#define LAPACK_chpsvx_base LAPACK_GLOBAL(chpsvx,CHPSVX) -void LAPACK_chpsvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* AP, - lapack_complex_float* AFP, lapack_int* ipiv, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* rcond, - float* ferr, - float* berr, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chpsvx(...) LAPACK_chpsvx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_chpsvx(...) LAPACK_chpsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_zhpsvx_base LAPACK_GLOBAL(zhpsvx,ZHPSVX) -void LAPACK_zhpsvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* AP, - lapack_complex_double* AFP, lapack_int* ipiv, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* rcond, - double* ferr, - double* berr, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhpsvx(...) LAPACK_zhpsvx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zhpsvx(...) LAPACK_zhpsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_chptrd_base LAPACK_GLOBAL(chptrd,CHPTRD) -void LAPACK_chptrd_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* AP, - float* D, - float* E, - lapack_complex_float* tau, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chptrd(...) LAPACK_chptrd_base(__VA_ARGS__, 1) -#else - #define LAPACK_chptrd(...) LAPACK_chptrd_base(__VA_ARGS__) -#endif - -#define LAPACK_zhptrd_base LAPACK_GLOBAL(zhptrd,ZHPTRD) -void LAPACK_zhptrd_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* AP, - double* D, - double* E, - lapack_complex_double* tau, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhptrd(...) LAPACK_zhptrd_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhptrd(...) LAPACK_zhptrd_base(__VA_ARGS__) -#endif - -#define LAPACK_chptrf_base LAPACK_GLOBAL(chptrf,CHPTRF) -void LAPACK_chptrf_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* AP, lapack_int* ipiv, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chptrf(...) LAPACK_chptrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_chptrf(...) LAPACK_chptrf_base(__VA_ARGS__) -#endif - -#define LAPACK_zhptrf_base LAPACK_GLOBAL(zhptrf,ZHPTRF) -void LAPACK_zhptrf_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* AP, lapack_int* ipiv, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhptrf(...) LAPACK_zhptrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhptrf(...) LAPACK_zhptrf_base(__VA_ARGS__) -#endif - -#define LAPACK_chptri_base LAPACK_GLOBAL(chptri,CHPTRI) -void LAPACK_chptri_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* AP, lapack_int const* ipiv, - lapack_complex_float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chptri(...) LAPACK_chptri_base(__VA_ARGS__, 1) -#else - #define LAPACK_chptri(...) LAPACK_chptri_base(__VA_ARGS__) -#endif - -#define LAPACK_zhptri_base LAPACK_GLOBAL(zhptri,ZHPTRI) -void LAPACK_zhptri_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* AP, lapack_int const* ipiv, - lapack_complex_double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhptri(...) LAPACK_zhptri_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhptri(...) LAPACK_zhptri_base(__VA_ARGS__) -#endif - -#define LAPACK_chptrs_base LAPACK_GLOBAL(chptrs,CHPTRS) -void LAPACK_chptrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* AP, lapack_int const* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chptrs(...) LAPACK_chptrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_chptrs(...) LAPACK_chptrs_base(__VA_ARGS__) -#endif - -#define LAPACK_zhptrs_base LAPACK_GLOBAL(zhptrs,ZHPTRS) -void LAPACK_zhptrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* AP, lapack_int const* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhptrs(...) LAPACK_zhptrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_zhptrs(...) LAPACK_zhptrs_base(__VA_ARGS__) -#endif - -#define LAPACK_chsein_base LAPACK_GLOBAL(chsein,CHSEIN) -void LAPACK_chsein_base( - char const* side, char const* eigsrc, char const* initv, - lapack_logical const* select, - lapack_int const* n, - lapack_complex_float const* H, lapack_int const* ldh, - lapack_complex_float* W, - lapack_complex_float* VL, lapack_int const* ldvl, - lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, - lapack_complex_float* work, - float* rwork, lapack_int* IFAILL, lapack_int* IFAILR, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chsein(...) LAPACK_chsein_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_chsein(...) LAPACK_chsein_base(__VA_ARGS__) -#endif - -#define LAPACK_dhsein_base LAPACK_GLOBAL(dhsein,DHSEIN) -void LAPACK_dhsein_base( - char const* side, char const* eigsrc, char const* initv, - lapack_logical* select, - lapack_int const* n, - double const* H, lapack_int const* ldh, - double* WR, - double const* WI, - double* VL, lapack_int const* ldvl, - double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, - double* work, lapack_int* IFAILL, lapack_int* IFAILR, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dhsein(...) LAPACK_dhsein_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dhsein(...) LAPACK_dhsein_base(__VA_ARGS__) -#endif - -#define LAPACK_shsein_base LAPACK_GLOBAL(shsein,SHSEIN) -void LAPACK_shsein_base( - char const* side, char const* eigsrc, char const* initv, - lapack_logical* select, - lapack_int const* n, - float const* H, lapack_int const* ldh, - float* WR, - float const* WI, - float* VL, lapack_int const* ldvl, - float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, - float* work, lapack_int* IFAILL, lapack_int* IFAILR, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_shsein(...) LAPACK_shsein_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_shsein(...) LAPACK_shsein_base(__VA_ARGS__) -#endif - -#define LAPACK_zhsein_base LAPACK_GLOBAL(zhsein,ZHSEIN) -void LAPACK_zhsein_base( - char const* side, char const* eigsrc, char const* initv, - lapack_logical const* select, - lapack_int const* n, - lapack_complex_double const* H, lapack_int const* ldh, - lapack_complex_double* W, - lapack_complex_double* VL, lapack_int const* ldvl, - lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, - lapack_complex_double* work, - double* rwork, lapack_int* IFAILL, lapack_int* IFAILR, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhsein(...) LAPACK_zhsein_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zhsein(...) LAPACK_zhsein_base(__VA_ARGS__) -#endif - -#define LAPACK_chseqr_base LAPACK_GLOBAL(chseqr,CHSEQR) -void LAPACK_chseqr_base( - char const* job, char const* compz, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - lapack_complex_float* H, lapack_int const* ldh, - lapack_complex_float* W, - lapack_complex_float* Z, lapack_int const* ldz, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_chseqr(...) LAPACK_chseqr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_chseqr(...) LAPACK_chseqr_base(__VA_ARGS__) -#endif - -#define LAPACK_dhseqr_base LAPACK_GLOBAL(dhseqr,DHSEQR) -void LAPACK_dhseqr_base( - char const* job, char const* compz, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - double* H, lapack_int const* ldh, - double* WR, - double* WI, - double* Z, lapack_int const* ldz, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dhseqr(...) LAPACK_dhseqr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dhseqr(...) LAPACK_dhseqr_base(__VA_ARGS__) -#endif - -#define LAPACK_shseqr_base LAPACK_GLOBAL(shseqr,SHSEQR) -void LAPACK_shseqr_base( - char const* job, char const* compz, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - float* H, lapack_int const* ldh, - float* WR, - float* WI, - float* Z, lapack_int const* ldz, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_shseqr(...) LAPACK_shseqr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_shseqr(...) LAPACK_shseqr_base(__VA_ARGS__) -#endif - -#define LAPACK_zhseqr_base LAPACK_GLOBAL(zhseqr,ZHSEQR) -void LAPACK_zhseqr_base( - char const* job, char const* compz, - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - lapack_complex_double* H, lapack_int const* ldh, - lapack_complex_double* W, - lapack_complex_double* Z, lapack_int const* ldz, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zhseqr(...) LAPACK_zhseqr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zhseqr(...) LAPACK_zhseqr_base(__VA_ARGS__) -#endif - -#define LAPACK_clacgv LAPACK_GLOBAL(clacgv,CLACGV) -void LAPACK_clacgv( - lapack_int const* n, - lapack_complex_float* X, lapack_int const* incx ); - -#define LAPACK_zlacgv LAPACK_GLOBAL(zlacgv,ZLACGV) -void LAPACK_zlacgv( - lapack_int const* n, - lapack_complex_double* X, lapack_int const* incx ); - -#define LAPACK_clacn2 LAPACK_GLOBAL(clacn2,CLACN2) -void LAPACK_clacn2( - lapack_int const* n, - lapack_complex_float* V, - lapack_complex_float* X, - float* est, lapack_int* kase, lapack_int* ISAVE ); - -#define LAPACK_dlacn2 LAPACK_GLOBAL(dlacn2,DLACN2) -void LAPACK_dlacn2( - lapack_int const* n, - double* V, - double* X, lapack_int* ISGN, - double* est, lapack_int* kase, lapack_int* ISAVE ); - -#define LAPACK_slacn2 LAPACK_GLOBAL(slacn2,SLACN2) -void LAPACK_slacn2( - lapack_int const* n, - float* V, - float* X, lapack_int* ISGN, - float* est, lapack_int* kase, lapack_int* ISAVE ); - -#define LAPACK_zlacn2 LAPACK_GLOBAL(zlacn2,ZLACN2) -void LAPACK_zlacn2( - lapack_int const* n, - lapack_complex_double* V, - lapack_complex_double* X, - double* est, lapack_int* kase, lapack_int* ISAVE ); - -#define LAPACK_clacp2_base LAPACK_GLOBAL(clacp2,CLACP2) -void LAPACK_clacp2_base( - char const* uplo, - lapack_int const* m, lapack_int const* n, - float const* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_clacp2(...) LAPACK_clacp2_base(__VA_ARGS__, 1) -#else - #define LAPACK_clacp2(...) LAPACK_clacp2_base(__VA_ARGS__) -#endif - -#define LAPACK_zlacp2_base LAPACK_GLOBAL(zlacp2,ZLACP2) -void LAPACK_zlacp2_base( - char const* uplo, - lapack_int const* m, lapack_int const* n, - double const* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlacp2(...) LAPACK_zlacp2_base(__VA_ARGS__, 1) -#else - #define LAPACK_zlacp2(...) LAPACK_zlacp2_base(__VA_ARGS__) -#endif - -#define LAPACK_clacpy_base LAPACK_GLOBAL(clacpy,CLACPY) -void LAPACK_clacpy_base( - char const* uplo, - lapack_int const* m, lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_clacpy(...) LAPACK_clacpy_base(__VA_ARGS__, 1) -#else - #define LAPACK_clacpy(...) LAPACK_clacpy_base(__VA_ARGS__) -#endif - -#define LAPACK_dlacpy_base LAPACK_GLOBAL(dlacpy,DLACPY) -void LAPACK_dlacpy_base( - char const* uplo, - lapack_int const* m, lapack_int const* n, - double const* A, lapack_int const* lda, - double* B, lapack_int const* ldb -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dlacpy(...) LAPACK_dlacpy_base(__VA_ARGS__, 1) -#else - #define LAPACK_dlacpy(...) LAPACK_dlacpy_base(__VA_ARGS__) -#endif - -#define LAPACK_slacpy_base LAPACK_GLOBAL(slacpy,SLACPY) -void LAPACK_slacpy_base( - char const* uplo, - lapack_int const* m, lapack_int const* n, - float const* A, lapack_int const* lda, - float* B, lapack_int const* ldb -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_slacpy(...) LAPACK_slacpy_base(__VA_ARGS__, 1) -#else - #define LAPACK_slacpy(...) LAPACK_slacpy_base(__VA_ARGS__) -#endif - -#define LAPACK_zlacpy_base LAPACK_GLOBAL(zlacpy,ZLACPY) -void LAPACK_zlacpy_base( - char const* uplo, - lapack_int const* m, lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlacpy(...) LAPACK_zlacpy_base(__VA_ARGS__, 1) -#else - #define LAPACK_zlacpy(...) LAPACK_zlacpy_base(__VA_ARGS__) -#endif - -#define LAPACK_clacrm LAPACK_GLOBAL(clacrm,CLACRM) -void LAPACK_clacrm( - lapack_int const* m, lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - float const* B, lapack_int const* ldb, - lapack_complex_float* C, lapack_int const* ldc, - float* rwork ); - -#define LAPACK_zlacrm LAPACK_GLOBAL(zlacrm,ZLACRM) -void LAPACK_zlacrm( - lapack_int const* m, lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - double const* B, lapack_int const* ldb, - lapack_complex_double* C, lapack_int const* ldc, - double* rwork ); - -#define LAPACK_zlag2c LAPACK_GLOBAL(zlag2c,ZLAG2C) -void LAPACK_zlag2c( - lapack_int const* m, lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_float* SA, lapack_int const* ldsa, - lapack_int* info ); - -#define LAPACK_slag2d LAPACK_GLOBAL(slag2d,SLAG2D) -void LAPACK_slag2d( - lapack_int const* m, lapack_int const* n, - float const* SA, lapack_int const* ldsa, - double* A, lapack_int const* lda, - lapack_int* info ); - -#define LAPACK_dlag2s LAPACK_GLOBAL(dlag2s,DLAG2S) -void LAPACK_dlag2s( - lapack_int const* m, lapack_int const* n, - double const* A, lapack_int const* lda, - float* SA, lapack_int const* ldsa, - lapack_int* info ); - -#define LAPACK_clag2z LAPACK_GLOBAL(clag2z,CLAG2Z) -void LAPACK_clag2z( - lapack_int const* m, lapack_int const* n, - lapack_complex_float const* SA, lapack_int const* ldsa, - lapack_complex_double* A, lapack_int const* lda, - lapack_int* info ); - -#define LAPACK_clagge LAPACK_GLOBAL(clagge,CLAGGE) -void LAPACK_clagge( - lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - float const* D, - lapack_complex_float* A, lapack_int const* lda, lapack_int* iseed, - lapack_complex_float* work, - lapack_int* info ); - -#define LAPACK_dlagge LAPACK_GLOBAL(dlagge,DLAGGE) -void LAPACK_dlagge( - lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - double const* D, - double* A, lapack_int const* lda, lapack_int* iseed, - double* work, - lapack_int* info ); - -#define LAPACK_slagge LAPACK_GLOBAL(slagge,SLAGGE) -void LAPACK_slagge( - lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - float const* D, - float* A, lapack_int const* lda, lapack_int* iseed, - float* work, - lapack_int* info ); - -#define LAPACK_zlagge LAPACK_GLOBAL(zlagge,ZLAGGE) -void LAPACK_zlagge( - lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - double const* D, - lapack_complex_double* A, lapack_int const* lda, lapack_int* iseed, - lapack_complex_double* work, - lapack_int* info ); - -#define LAPACK_claghe LAPACK_GLOBAL(claghe,CLAGHE) -void LAPACK_claghe( - lapack_int const* n, lapack_int const* k, - float const* D, - lapack_complex_float* A, lapack_int const* lda, lapack_int* iseed, - lapack_complex_float* work, - lapack_int* info ); - -#define LAPACK_zlaghe LAPACK_GLOBAL(zlaghe,ZLAGHE) -void LAPACK_zlaghe( - lapack_int const* n, lapack_int const* k, - double const* D, - lapack_complex_double* A, lapack_int const* lda, lapack_int* iseed, - lapack_complex_double* work, - lapack_int* info ); - -#define LAPACK_clagsy LAPACK_GLOBAL(clagsy,CLAGSY) -void LAPACK_clagsy( - lapack_int const* n, lapack_int const* k, - float const* D, - lapack_complex_float* A, lapack_int const* lda, lapack_int* iseed, - lapack_complex_float* work, - lapack_int* info ); - -#define LAPACK_dlagsy LAPACK_GLOBAL(dlagsy,DLAGSY) -void LAPACK_dlagsy( - lapack_int const* n, lapack_int const* k, - double const* D, - double* A, lapack_int const* lda, lapack_int* iseed, - double* work, - lapack_int* info ); - -#define LAPACK_slagsy LAPACK_GLOBAL(slagsy,SLAGSY) -void LAPACK_slagsy( - lapack_int const* n, lapack_int const* k, - float const* D, - float* A, lapack_int const* lda, lapack_int* iseed, - float* work, - lapack_int* info ); - -#define LAPACK_zlagsy LAPACK_GLOBAL(zlagsy,ZLAGSY) -void LAPACK_zlagsy( - lapack_int const* n, lapack_int const* k, - double const* D, - lapack_complex_double* A, lapack_int const* lda, lapack_int* iseed, - lapack_complex_double* work, - lapack_int* info ); - -#define LAPACK_dlamch_base LAPACK_GLOBAL(dlamch,DLAMCH) -double LAPACK_dlamch_base( - char const* cmach -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dlamch(...) LAPACK_dlamch_base(__VA_ARGS__, 1) -#else - #define LAPACK_dlamch(...) LAPACK_dlamch_base(__VA_ARGS__) -#endif - -#define LAPACK_slamch_base LAPACK_GLOBAL(slamch,SLAMCH) -lapack_float_return LAPACK_slamch_base( - char const* cmach -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_slamch(...) LAPACK_slamch_base(__VA_ARGS__, 1) -#else - #define LAPACK_slamch(...) LAPACK_slamch_base(__VA_ARGS__) -#endif - -#define LAPACK_clangb_base LAPACK_GLOBAL(clangb,CLANGB) -lapack_float_return LAPACK_clangb_base( - char const* norm, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - lapack_complex_float const* AB, lapack_int const* ldab, - float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_clangb(...) LAPACK_clangb_base(__VA_ARGS__, 1) -#else - #define LAPACK_clangb(...) LAPACK_clangb_base(__VA_ARGS__) -#endif - -#define LAPACK_dlangb_base LAPACK_GLOBAL(dlangb,DLANGB) -double LAPACK_dlangb_base( - char const* norm, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - double const* AB, lapack_int const* ldab, - double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dlangb(...) LAPACK_dlangb_base(__VA_ARGS__, 1) -#else - #define LAPACK_dlangb(...) LAPACK_dlangb_base(__VA_ARGS__) -#endif - -#define LAPACK_slangb_base LAPACK_GLOBAL(slangb,SLANGB) -lapack_float_return LAPACK_slangb_base( - char const* norm, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - float const* AB, lapack_int const* ldab, - float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_slangb(...) LAPACK_slangb_base(__VA_ARGS__, 1) -#else - #define LAPACK_slangb(...) LAPACK_slangb_base(__VA_ARGS__) -#endif - -#define LAPACK_zlangb_base LAPACK_GLOBAL(zlangb,ZLANGB) -double LAPACK_zlangb_base( - char const* norm, - lapack_int const* n, lapack_int const* kl, lapack_int const* ku, - lapack_complex_double const* AB, lapack_int const* ldab, - double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlangb(...) LAPACK_zlangb_base(__VA_ARGS__, 1) -#else - #define LAPACK_zlangb(...) LAPACK_zlangb_base(__VA_ARGS__) -#endif - -#define LAPACK_clange_base LAPACK_GLOBAL(clange,CLANGE) -lapack_float_return LAPACK_clange_base( - char const* norm, - lapack_int const* m, lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_clange(...) LAPACK_clange_base(__VA_ARGS__, 1) -#else - #define LAPACK_clange(...) LAPACK_clange_base(__VA_ARGS__) -#endif - -#define LAPACK_dlange_base LAPACK_GLOBAL(dlange,DLANGE) -double LAPACK_dlange_base( - char const* norm, - lapack_int const* m, lapack_int const* n, - double const* A, lapack_int const* lda, - double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dlange(...) LAPACK_dlange_base(__VA_ARGS__, 1) -#else - #define LAPACK_dlange(...) LAPACK_dlange_base(__VA_ARGS__) -#endif - -#define LAPACK_slange_base LAPACK_GLOBAL(slange,SLANGE) -lapack_float_return LAPACK_slange_base( - char const* norm, - lapack_int const* m, lapack_int const* n, - float const* A, lapack_int const* lda, - float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_slange(...) LAPACK_slange_base(__VA_ARGS__, 1) -#else - #define LAPACK_slange(...) LAPACK_slange_base(__VA_ARGS__) -#endif - -#define LAPACK_zlange_base LAPACK_GLOBAL(zlange,ZLANGE) -double LAPACK_zlange_base( - char const* norm, - lapack_int const* m, lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlange(...) LAPACK_zlange_base(__VA_ARGS__, 1) -#else - #define LAPACK_zlange(...) LAPACK_zlange_base(__VA_ARGS__) -#endif - -#define LAPACK_clangt_base LAPACK_GLOBAL(clangt,CLANGT) -lapack_float_return LAPACK_clangt_base( - char const* norm, - lapack_int const* n, - lapack_complex_float const* DL, - lapack_complex_float const* D, - lapack_complex_float const* DU -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_clangt(...) LAPACK_clangt_base(__VA_ARGS__, 1) -#else - #define LAPACK_clangt(...) LAPACK_clangt_base(__VA_ARGS__) -#endif - -#define LAPACK_dlangt_base LAPACK_GLOBAL(dlangt,DLANGT) -double LAPACK_dlangt_base( - char const* norm, - lapack_int const* n, - double const* DL, - double const* D, - double const* DU -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dlangt(...) LAPACK_dlangt_base(__VA_ARGS__, 1) -#else - #define LAPACK_dlangt(...) LAPACK_dlangt_base(__VA_ARGS__) -#endif - -#define LAPACK_slangt_base LAPACK_GLOBAL(slangt,SLANGT) -lapack_float_return LAPACK_slangt_base( - char const* norm, - lapack_int const* n, - float const* DL, - float const* D, - float const* DU -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_slangt(...) LAPACK_slangt_base(__VA_ARGS__, 1) -#else - #define LAPACK_slangt(...) LAPACK_slangt_base(__VA_ARGS__) -#endif - -#define LAPACK_zlangt_base LAPACK_GLOBAL(zlangt,ZLANGT) -double LAPACK_zlangt_base( - char const* norm, - lapack_int const* n, - lapack_complex_double const* DL, - lapack_complex_double const* D, - lapack_complex_double const* DU -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlangt(...) LAPACK_zlangt_base(__VA_ARGS__, 1) -#else - #define LAPACK_zlangt(...) LAPACK_zlangt_base(__VA_ARGS__) -#endif - -#define LAPACK_clanhb_base LAPACK_GLOBAL(clanhb,CLANHB) -lapack_float_return LAPACK_clanhb_base( - char const* norm, char const* uplo, - lapack_int const* n, lapack_int const* k, - lapack_complex_float const* AB, lapack_int const* ldab, - float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_clanhb(...) LAPACK_clanhb_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_clanhb(...) LAPACK_clanhb_base(__VA_ARGS__) -#endif - -#define LAPACK_zlanhb_base LAPACK_GLOBAL(zlanhb,ZLANHB) -double LAPACK_zlanhb_base( - char const* norm, char const* uplo, - lapack_int const* n, lapack_int const* k, - lapack_complex_double const* AB, lapack_int const* ldab, - double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlanhb(...) LAPACK_zlanhb_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zlanhb(...) LAPACK_zlanhb_base(__VA_ARGS__) -#endif - -#define LAPACK_clanhe_base LAPACK_GLOBAL(clanhe,CLANHE) -lapack_float_return LAPACK_clanhe_base( - char const* norm, char const* uplo, - lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_clanhe(...) LAPACK_clanhe_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_clanhe(...) LAPACK_clanhe_base(__VA_ARGS__) -#endif - -#define LAPACK_zlanhe_base LAPACK_GLOBAL(zlanhe,ZLANHE) -double LAPACK_zlanhe_base( - char const* norm, char const* uplo, - lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlanhe(...) LAPACK_zlanhe_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zlanhe(...) LAPACK_zlanhe_base(__VA_ARGS__) -#endif - -#define LAPACK_clanhp_base LAPACK_GLOBAL(clanhp,CLANHP) -lapack_float_return LAPACK_clanhp_base( - char const* norm, char const* uplo, - lapack_int const* n, - lapack_complex_float const* AP, - float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_clanhp(...) LAPACK_clanhp_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_clanhp(...) LAPACK_clanhp_base(__VA_ARGS__) -#endif - -#define LAPACK_zlanhp_base LAPACK_GLOBAL(zlanhp,ZLANHP) -double LAPACK_zlanhp_base( - char const* norm, char const* uplo, - lapack_int const* n, - lapack_complex_double const* AP, - double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlanhp(...) LAPACK_zlanhp_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zlanhp(...) LAPACK_zlanhp_base(__VA_ARGS__) -#endif - -#define LAPACK_clanhs_base LAPACK_GLOBAL(clanhs,CLANHS) -lapack_float_return LAPACK_clanhs_base( - char const* norm, - lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_clanhs(...) LAPACK_clanhs_base(__VA_ARGS__, 1) -#else - #define LAPACK_clanhs(...) LAPACK_clanhs_base(__VA_ARGS__) -#endif - -#define LAPACK_dlanhs_base LAPACK_GLOBAL(dlanhs,DLANHS) -double LAPACK_dlanhs_base( - char const* norm, - lapack_int const* n, - double const* A, lapack_int const* lda, - double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dlanhs(...) LAPACK_dlanhs_base(__VA_ARGS__, 1) -#else - #define LAPACK_dlanhs(...) LAPACK_dlanhs_base(__VA_ARGS__) -#endif - -#define LAPACK_slanhs_base LAPACK_GLOBAL(slanhs,SLANHS) -lapack_float_return LAPACK_slanhs_base( - char const* norm, - lapack_int const* n, - float const* A, lapack_int const* lda, - float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_slanhs(...) LAPACK_slanhs_base(__VA_ARGS__, 1) -#else - #define LAPACK_slanhs(...) LAPACK_slanhs_base(__VA_ARGS__) -#endif - -#define LAPACK_zlanhs_base LAPACK_GLOBAL(zlanhs,ZLANHS) -double LAPACK_zlanhs_base( - char const* norm, - lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlanhs(...) LAPACK_zlanhs_base(__VA_ARGS__, 1) -#else - #define LAPACK_zlanhs(...) LAPACK_zlanhs_base(__VA_ARGS__) -#endif - -#define LAPACK_clanht_base LAPACK_GLOBAL(clanht,CLANHT) -lapack_float_return LAPACK_clanht_base( - char const* norm, - lapack_int const* n, - float const* D, - lapack_complex_float const* E -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_clanht(...) LAPACK_clanht_base(__VA_ARGS__, 1) -#else - #define LAPACK_clanht(...) LAPACK_clanht_base(__VA_ARGS__) -#endif - -#define LAPACK_zlanht_base LAPACK_GLOBAL(zlanht,ZLANHT) -double LAPACK_zlanht_base( - char const* norm, - lapack_int const* n, - double const* D, - lapack_complex_double const* E -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlanht(...) LAPACK_zlanht_base(__VA_ARGS__, 1) -#else - #define LAPACK_zlanht(...) LAPACK_zlanht_base(__VA_ARGS__) -#endif - -#define LAPACK_clansb_base LAPACK_GLOBAL(clansb,CLANSB) -lapack_float_return LAPACK_clansb_base( - char const* norm, char const* uplo, - lapack_int const* n, lapack_int const* k, - lapack_complex_float const* AB, lapack_int const* ldab, - float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_clansb(...) LAPACK_clansb_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_clansb(...) LAPACK_clansb_base(__VA_ARGS__) -#endif - -#define LAPACK_dlansb_base LAPACK_GLOBAL(dlansb,DLANSB) -double LAPACK_dlansb_base( - char const* norm, char const* uplo, - lapack_int const* n, lapack_int const* k, - double const* AB, lapack_int const* ldab, - double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dlansb(...) LAPACK_dlansb_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dlansb(...) LAPACK_dlansb_base(__VA_ARGS__) -#endif - -#define LAPACK_slansb_base LAPACK_GLOBAL(slansb,SLANSB) -lapack_float_return LAPACK_slansb_base( - char const* norm, char const* uplo, - lapack_int const* n, lapack_int const* k, - float const* AB, lapack_int const* ldab, - float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_slansb(...) LAPACK_slansb_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_slansb(...) LAPACK_slansb_base(__VA_ARGS__) -#endif - -#define LAPACK_zlansb_base LAPACK_GLOBAL(zlansb,ZLANSB) -double LAPACK_zlansb_base( - char const* norm, char const* uplo, - lapack_int const* n, lapack_int const* k, - lapack_complex_double const* AB, lapack_int const* ldab, - double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlansb(...) LAPACK_zlansb_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zlansb(...) LAPACK_zlansb_base(__VA_ARGS__) -#endif - -#define LAPACK_clansp_base LAPACK_GLOBAL(clansp,CLANSP) -lapack_float_return LAPACK_clansp_base( - char const* norm, char const* uplo, - lapack_int const* n, - lapack_complex_float const* AP, - float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_clansp(...) LAPACK_clansp_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_clansp(...) LAPACK_clansp_base(__VA_ARGS__) -#endif - -#define LAPACK_dlansp_base LAPACK_GLOBAL(dlansp,DLANSP) -double LAPACK_dlansp_base( - char const* norm, char const* uplo, - lapack_int const* n, - double const* AP, - double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dlansp(...) LAPACK_dlansp_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dlansp(...) LAPACK_dlansp_base(__VA_ARGS__) -#endif - -#define LAPACK_slansp_base LAPACK_GLOBAL(slansp,SLANSP) -lapack_float_return LAPACK_slansp_base( - char const* norm, char const* uplo, - lapack_int const* n, - float const* AP, - float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_slansp(...) LAPACK_slansp_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_slansp(...) LAPACK_slansp_base(__VA_ARGS__) -#endif - -#define LAPACK_zlansp_base LAPACK_GLOBAL(zlansp,ZLANSP) -double LAPACK_zlansp_base( - char const* norm, char const* uplo, - lapack_int const* n, - lapack_complex_double const* AP, - double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlansp(...) LAPACK_zlansp_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zlansp(...) LAPACK_zlansp_base(__VA_ARGS__) -#endif - -#define LAPACK_dlanst_base LAPACK_GLOBAL(dlanst,DLANST) -double LAPACK_dlanst_base( - char const* norm, - lapack_int const* n, - double const* D, - double const* E -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dlanst(...) LAPACK_dlanst_base(__VA_ARGS__, 1) -#else - #define LAPACK_dlanst(...) LAPACK_dlanst_base(__VA_ARGS__) -#endif - -#define LAPACK_slanst_base LAPACK_GLOBAL(slanst,SLANST) -lapack_float_return LAPACK_slanst_base( - char const* norm, - lapack_int const* n, - float const* D, - float const* E -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_slanst(...) LAPACK_slanst_base(__VA_ARGS__, 1) -#else - #define LAPACK_slanst(...) LAPACK_slanst_base(__VA_ARGS__) -#endif - -#define LAPACK_clansy_base LAPACK_GLOBAL(clansy,CLANSY) -lapack_float_return LAPACK_clansy_base( - char const* norm, char const* uplo, - lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_clansy(...) LAPACK_clansy_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_clansy(...) LAPACK_clansy_base(__VA_ARGS__) -#endif - -#define LAPACK_dlansy_base LAPACK_GLOBAL(dlansy,DLANSY) -double LAPACK_dlansy_base( - char const* norm, char const* uplo, - lapack_int const* n, - double const* A, lapack_int const* lda, - double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dlansy(...) LAPACK_dlansy_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dlansy(...) LAPACK_dlansy_base(__VA_ARGS__) -#endif - -#define LAPACK_slansy_base LAPACK_GLOBAL(slansy,SLANSY) -lapack_float_return LAPACK_slansy_base( - char const* norm, char const* uplo, - lapack_int const* n, - float const* A, lapack_int const* lda, - float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_slansy(...) LAPACK_slansy_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_slansy(...) LAPACK_slansy_base(__VA_ARGS__) -#endif - -#define LAPACK_zlansy_base LAPACK_GLOBAL(zlansy,ZLANSY) -double LAPACK_zlansy_base( - char const* norm, char const* uplo, - lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlansy(...) LAPACK_zlansy_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zlansy(...) LAPACK_zlansy_base(__VA_ARGS__) -#endif - -#define LAPACK_clantb_base LAPACK_GLOBAL(clantb,CLANTB) -lapack_float_return LAPACK_clantb_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* n, lapack_int const* k, - lapack_complex_float const* AB, lapack_int const* ldab, - float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_clantb(...) LAPACK_clantb_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_clantb(...) LAPACK_clantb_base(__VA_ARGS__) -#endif - -#define LAPACK_dlantb_base LAPACK_GLOBAL(dlantb,DLANTB) -double LAPACK_dlantb_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* n, lapack_int const* k, - double const* AB, lapack_int const* ldab, - double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dlantb(...) LAPACK_dlantb_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dlantb(...) LAPACK_dlantb_base(__VA_ARGS__) -#endif - -#define LAPACK_slantb_base LAPACK_GLOBAL(slantb,SLANTB) -lapack_float_return LAPACK_slantb_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* n, lapack_int const* k, - float const* AB, lapack_int const* ldab, - float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_slantb(...) LAPACK_slantb_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_slantb(...) LAPACK_slantb_base(__VA_ARGS__) -#endif - -#define LAPACK_zlantb_base LAPACK_GLOBAL(zlantb,ZLANTB) -double LAPACK_zlantb_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* n, lapack_int const* k, - lapack_complex_double const* AB, lapack_int const* ldab, - double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlantb(...) LAPACK_zlantb_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zlantb(...) LAPACK_zlantb_base(__VA_ARGS__) -#endif - -#define LAPACK_clantp_base LAPACK_GLOBAL(clantp,CLANTP) -lapack_float_return LAPACK_clantp_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* n, - lapack_complex_float const* AP, - float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_clantp(...) LAPACK_clantp_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_clantp(...) LAPACK_clantp_base(__VA_ARGS__) -#endif - -#define LAPACK_dlantp_base LAPACK_GLOBAL(dlantp,DLANTP) -double LAPACK_dlantp_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* n, - double const* AP, - double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dlantp(...) LAPACK_dlantp_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dlantp(...) LAPACK_dlantp_base(__VA_ARGS__) -#endif - -#define LAPACK_slantp_base LAPACK_GLOBAL(slantp,SLANTP) -lapack_float_return LAPACK_slantp_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* n, - float const* AP, - float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_slantp(...) LAPACK_slantp_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_slantp(...) LAPACK_slantp_base(__VA_ARGS__) -#endif - -#define LAPACK_zlantp_base LAPACK_GLOBAL(zlantp,ZLANTP) -double LAPACK_zlantp_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* n, - lapack_complex_double const* AP, - double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlantp(...) LAPACK_zlantp_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zlantp(...) LAPACK_zlantp_base(__VA_ARGS__) -#endif - -#define LAPACK_clantr_base LAPACK_GLOBAL(clantr,CLANTR) -lapack_float_return LAPACK_clantr_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* m, lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_clantr(...) LAPACK_clantr_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_clantr(...) LAPACK_clantr_base(__VA_ARGS__) -#endif - -#define LAPACK_dlantr_base LAPACK_GLOBAL(dlantr,DLANTR) -double LAPACK_dlantr_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* m, lapack_int const* n, - double const* A, lapack_int const* lda, - double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dlantr(...) LAPACK_dlantr_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dlantr(...) LAPACK_dlantr_base(__VA_ARGS__) -#endif - -#define LAPACK_slantr_base LAPACK_GLOBAL(slantr,SLANTR) -lapack_float_return LAPACK_slantr_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* m, lapack_int const* n, - float const* A, lapack_int const* lda, - float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_slantr(...) LAPACK_slantr_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_slantr(...) LAPACK_slantr_base(__VA_ARGS__) -#endif - -#define LAPACK_zlantr_base LAPACK_GLOBAL(zlantr,ZLANTR) -double LAPACK_zlantr_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* m, lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlantr(...) LAPACK_zlantr_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zlantr(...) LAPACK_zlantr_base(__VA_ARGS__) -#endif - -#define LAPACK_clapmr LAPACK_GLOBAL(clapmr,CLAPMR) -void LAPACK_clapmr( - lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n, - lapack_complex_float* X, lapack_int const* ldx, lapack_int* K ); - -#define LAPACK_dlapmr LAPACK_GLOBAL(dlapmr,DLAPMR) -void LAPACK_dlapmr( - lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n, - double* X, lapack_int const* ldx, lapack_int* K ); - -#define LAPACK_slapmr LAPACK_GLOBAL(slapmr,SLAPMR) -void LAPACK_slapmr( - lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n, - float* X, lapack_int const* ldx, lapack_int* K ); - -#define LAPACK_zlapmr LAPACK_GLOBAL(zlapmr,ZLAPMR) -void LAPACK_zlapmr( - lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n, - lapack_complex_double* X, lapack_int const* ldx, lapack_int* K ); - -#define LAPACK_clapmt LAPACK_GLOBAL(clapmt,CLAPMT) -void LAPACK_clapmt( - lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n, - lapack_complex_float* X, lapack_int const* ldx, lapack_int* K ); - -#define LAPACK_dlapmt LAPACK_GLOBAL(dlapmt,DLAPMT) -void LAPACK_dlapmt( - lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n, - double* X, lapack_int const* ldx, lapack_int* K ); - -#define LAPACK_slapmt LAPACK_GLOBAL(slapmt,SLAPMT) -void LAPACK_slapmt( - lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n, - float* X, lapack_int const* ldx, lapack_int* K ); - -#define LAPACK_zlapmt LAPACK_GLOBAL(zlapmt,ZLAPMT) -void LAPACK_zlapmt( - lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n, - lapack_complex_double* X, lapack_int const* ldx, lapack_int* K ); - -#define LAPACK_dlapy2 LAPACK_GLOBAL(dlapy2,DLAPY2) -double LAPACK_dlapy2( - double const* x, - double const* y ); - -#define LAPACK_slapy2 LAPACK_GLOBAL(slapy2,SLAPY2) -lapack_float_return LAPACK_slapy2( - float const* x, - float const* y ); - -#define LAPACK_dlapy3 LAPACK_GLOBAL(dlapy3,DLAPY3) -double LAPACK_dlapy3( - double const* x, - double const* y, - double const* z ); - -#define LAPACK_slapy3 LAPACK_GLOBAL(slapy3,SLAPY3) -lapack_float_return LAPACK_slapy3( - float const* x, - float const* y, - float const* z ); - -#define LAPACK_clarcm LAPACK_GLOBAL(clarcm,CLARCM) -void LAPACK_clarcm( - lapack_int const* m, lapack_int const* n, - float const* A, lapack_int const* lda, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* C, lapack_int const* ldc, - float* rwork ); - -#define LAPACK_zlarcm LAPACK_GLOBAL(zlarcm,ZLARCM) -void LAPACK_zlarcm( - lapack_int const* m, lapack_int const* n, - double const* A, lapack_int const* lda, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* C, lapack_int const* ldc, - double* rwork ); - -#define LAPACK_clarf_base LAPACK_GLOBAL(clarf,CLARF) -void LAPACK_clarf_base( - char const* side, - lapack_int const* m, lapack_int const* n, - lapack_complex_float const* V, lapack_int const* incv, - lapack_complex_float const* tau, - lapack_complex_float* C, lapack_int const* ldc, - lapack_complex_float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_clarf(...) LAPACK_clarf_base(__VA_ARGS__, 1) -#else - #define LAPACK_clarf(...) LAPACK_clarf_base(__VA_ARGS__) -#endif - -#define LAPACK_dlarf_base LAPACK_GLOBAL(dlarf,DLARF) -void LAPACK_dlarf_base( - char const* side, - lapack_int const* m, lapack_int const* n, - double const* V, lapack_int const* incv, - double const* tau, - double* C, lapack_int const* ldc, - double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dlarf(...) LAPACK_dlarf_base(__VA_ARGS__, 1) -#else - #define LAPACK_dlarf(...) LAPACK_dlarf_base(__VA_ARGS__) -#endif - -#define LAPACK_slarf_base LAPACK_GLOBAL(slarf,SLARF) -void LAPACK_slarf_base( - char const* side, - lapack_int const* m, lapack_int const* n, - float const* V, lapack_int const* incv, - float const* tau, - float* C, lapack_int const* ldc, - float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_slarf(...) LAPACK_slarf_base(__VA_ARGS__, 1) -#else - #define LAPACK_slarf(...) LAPACK_slarf_base(__VA_ARGS__) -#endif - -#define LAPACK_zlarf_base LAPACK_GLOBAL(zlarf,ZLARF) -void LAPACK_zlarf_base( - char const* side, - lapack_int const* m, lapack_int const* n, - lapack_complex_double const* V, lapack_int const* incv, - lapack_complex_double const* tau, - lapack_complex_double* C, lapack_int const* ldc, - lapack_complex_double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlarf(...) LAPACK_zlarf_base(__VA_ARGS__, 1) -#else - #define LAPACK_zlarf(...) LAPACK_zlarf_base(__VA_ARGS__) -#endif - -#define LAPACK_clarfb_base LAPACK_GLOBAL(clarfb,CLARFB) -void LAPACK_clarfb_base( - char const* side, char const* trans, char const* direct, char const* storev, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_float const* V, lapack_int const* ldv, - lapack_complex_float const* T, lapack_int const* ldt, - lapack_complex_float* C, lapack_int const* ldc, - lapack_complex_float* work, lapack_int const* ldwork -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_clarfb(...) LAPACK_clarfb_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_clarfb(...) LAPACK_clarfb_base(__VA_ARGS__) -#endif - -#define LAPACK_dlarfb_base LAPACK_GLOBAL(dlarfb,DLARFB) -void LAPACK_dlarfb_base( - char const* side, char const* trans, char const* direct, char const* storev, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - double const* V, lapack_int const* ldv, - double const* T, lapack_int const* ldt, - double* C, lapack_int const* ldc, - double* work, lapack_int const* ldwork -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dlarfb(...) LAPACK_dlarfb_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_dlarfb(...) LAPACK_dlarfb_base(__VA_ARGS__) -#endif - -#define LAPACK_slarfb_base LAPACK_GLOBAL(slarfb,SLARFB) -void LAPACK_slarfb_base( - char const* side, char const* trans, char const* direct, char const* storev, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - float const* V, lapack_int const* ldv, - float const* T, lapack_int const* ldt, - float* C, lapack_int const* ldc, - float* work, lapack_int const* ldwork -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_slarfb(...) LAPACK_slarfb_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_slarfb(...) LAPACK_slarfb_base(__VA_ARGS__) -#endif - -#define LAPACK_zlarfb_base LAPACK_GLOBAL(zlarfb,ZLARFB) -void LAPACK_zlarfb_base( - char const* side, char const* trans, char const* direct, char const* storev, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_double const* V, lapack_int const* ldv, - lapack_complex_double const* T, lapack_int const* ldt, - lapack_complex_double* C, lapack_int const* ldc, - lapack_complex_double* work, lapack_int const* ldwork -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlarfb(...) LAPACK_zlarfb_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_zlarfb(...) LAPACK_zlarfb_base(__VA_ARGS__) -#endif - -#define LAPACK_clarfg LAPACK_GLOBAL(clarfg,CLARFG) -void LAPACK_clarfg( - lapack_int const* n, - lapack_complex_float* alpha, - lapack_complex_float* X, lapack_int const* incx, - lapack_complex_float* tau ); - -#define LAPACK_dlarfg LAPACK_GLOBAL(dlarfg,DLARFG) -void LAPACK_dlarfg( - lapack_int const* n, - double* alpha, - double* X, lapack_int const* incx, - double* tau ); - -#define LAPACK_slarfg LAPACK_GLOBAL(slarfg,SLARFG) -void LAPACK_slarfg( - lapack_int const* n, - float* alpha, - float* X, lapack_int const* incx, - float* tau ); - -#define LAPACK_zlarfg LAPACK_GLOBAL(zlarfg,ZLARFG) -void LAPACK_zlarfg( - lapack_int const* n, - lapack_complex_double* alpha, - lapack_complex_double* X, lapack_int const* incx, - lapack_complex_double* tau ); - -#define LAPACK_clarft_base LAPACK_GLOBAL(clarft,CLARFT) -void LAPACK_clarft_base( - char const* direct, char const* storev, - lapack_int const* n, lapack_int const* k, - lapack_complex_float const* V, lapack_int const* ldv, - lapack_complex_float const* tau, - lapack_complex_float* T, lapack_int const* ldt -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_clarft(...) LAPACK_clarft_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_clarft(...) LAPACK_clarft_base(__VA_ARGS__) -#endif - -#define LAPACK_dlarft_base LAPACK_GLOBAL(dlarft,DLARFT) -void LAPACK_dlarft_base( - char const* direct, char const* storev, - lapack_int const* n, lapack_int const* k, - double const* V, lapack_int const* ldv, - double const* tau, - double* T, lapack_int const* ldt -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dlarft(...) LAPACK_dlarft_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dlarft(...) LAPACK_dlarft_base(__VA_ARGS__) -#endif - -#define LAPACK_slarft_base LAPACK_GLOBAL(slarft,SLARFT) -void LAPACK_slarft_base( - char const* direct, char const* storev, - lapack_int const* n, lapack_int const* k, - float const* V, lapack_int const* ldv, - float const* tau, - float* T, lapack_int const* ldt -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_slarft(...) LAPACK_slarft_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_slarft(...) LAPACK_slarft_base(__VA_ARGS__) -#endif - -#define LAPACK_zlarft_base LAPACK_GLOBAL(zlarft,ZLARFT) -void LAPACK_zlarft_base( - char const* direct, char const* storev, - lapack_int const* n, lapack_int const* k, - lapack_complex_double const* V, lapack_int const* ldv, - lapack_complex_double const* tau, - lapack_complex_double* T, lapack_int const* ldt -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlarft(...) LAPACK_zlarft_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zlarft(...) LAPACK_zlarft_base(__VA_ARGS__) -#endif - -#define LAPACK_clarfx_base LAPACK_GLOBAL(clarfx,CLARFX) -void LAPACK_clarfx_base( - char const* side, - lapack_int const* m, lapack_int const* n, - lapack_complex_float const* V, - lapack_complex_float const* tau, - lapack_complex_float* C, lapack_int const* ldc, - lapack_complex_float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_clarfx(...) LAPACK_clarfx_base(__VA_ARGS__, 1) -#else - #define LAPACK_clarfx(...) LAPACK_clarfx_base(__VA_ARGS__) -#endif - -#define LAPACK_dlarfx_base LAPACK_GLOBAL(dlarfx,DLARFX) -void LAPACK_dlarfx_base( - char const* side, - lapack_int const* m, lapack_int const* n, - double const* V, - double const* tau, - double* C, lapack_int const* ldc, - double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dlarfx(...) LAPACK_dlarfx_base(__VA_ARGS__, 1) -#else - #define LAPACK_dlarfx(...) LAPACK_dlarfx_base(__VA_ARGS__) -#endif - -#define LAPACK_slarfx_base LAPACK_GLOBAL(slarfx,SLARFX) -void LAPACK_slarfx_base( - char const* side, - lapack_int const* m, lapack_int const* n, - float const* V, - float const* tau, - float* C, lapack_int const* ldc, - float* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_slarfx(...) LAPACK_slarfx_base(__VA_ARGS__, 1) -#else - #define LAPACK_slarfx(...) LAPACK_slarfx_base(__VA_ARGS__) -#endif - -#define LAPACK_zlarfx_base LAPACK_GLOBAL(zlarfx,ZLARFX) -void LAPACK_zlarfx_base( - char const* side, - lapack_int const* m, lapack_int const* n, - lapack_complex_double const* V, - lapack_complex_double const* tau, - lapack_complex_double* C, lapack_int const* ldc, - lapack_complex_double* work -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlarfx(...) LAPACK_zlarfx_base(__VA_ARGS__, 1) -#else - #define LAPACK_zlarfx(...) LAPACK_zlarfx_base(__VA_ARGS__) -#endif - -#define LAPACK_clarnv LAPACK_GLOBAL(clarnv,CLARNV) -void LAPACK_clarnv( - lapack_int const* idist, lapack_int* iseed, lapack_int const* n, - lapack_complex_float* X ); - -#define LAPACK_dlarnv LAPACK_GLOBAL(dlarnv,DLARNV) -void LAPACK_dlarnv( - lapack_int const* idist, lapack_int* iseed, lapack_int const* n, - double* X ); - -#define LAPACK_slarnv LAPACK_GLOBAL(slarnv,SLARNV) -void LAPACK_slarnv( - lapack_int const* idist, lapack_int* iseed, lapack_int const* n, - float* X ); - -#define LAPACK_zlarnv LAPACK_GLOBAL(zlarnv,ZLARNV) -void LAPACK_zlarnv( - lapack_int const* idist, lapack_int* iseed, lapack_int const* n, - lapack_complex_double* X ); - -#define LAPACK_dlartgp LAPACK_GLOBAL(dlartgp,DLARTGP) -void LAPACK_dlartgp( - double const* f, - double const* g, - double* cs, - double* sn, - double* r ); - -#define LAPACK_slartgp LAPACK_GLOBAL(slartgp,SLARTGP) -void LAPACK_slartgp( - float const* f, - float const* g, - float* cs, - float* sn, - float* r ); - -#define LAPACK_dlartgs LAPACK_GLOBAL(dlartgs,DLARTGS) -void LAPACK_dlartgs( - double const* x, - double const* y, - double const* sigma, - double* cs, - double* sn ); - -#define LAPACK_slartgs LAPACK_GLOBAL(slartgs,SLARTGS) -void LAPACK_slartgs( - float const* x, - float const* y, - float const* sigma, - float* cs, - float* sn ); - -#define LAPACK_clascl_base LAPACK_GLOBAL(clascl,CLASCL) -void LAPACK_clascl_base( - char const* type, - lapack_int const* kl, lapack_int const* ku, - float const* cfrom, - float const* cto, lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_clascl(...) LAPACK_clascl_base(__VA_ARGS__, 1) -#else - #define LAPACK_clascl(...) LAPACK_clascl_base(__VA_ARGS__) -#endif - -#define LAPACK_dlascl_base LAPACK_GLOBAL(dlascl,DLASCL) -void LAPACK_dlascl_base( - char const* type, - lapack_int const* kl, lapack_int const* ku, - double const* cfrom, - double const* cto, lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dlascl(...) LAPACK_dlascl_base(__VA_ARGS__, 1) -#else - #define LAPACK_dlascl(...) LAPACK_dlascl_base(__VA_ARGS__) -#endif - -#define LAPACK_slascl_base LAPACK_GLOBAL(slascl,SLASCL) -void LAPACK_slascl_base( - char const* type, - lapack_int const* kl, lapack_int const* ku, - float const* cfrom, - float const* cto, lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_slascl(...) LAPACK_slascl_base(__VA_ARGS__, 1) -#else - #define LAPACK_slascl(...) LAPACK_slascl_base(__VA_ARGS__) -#endif - -#define LAPACK_zlascl_base LAPACK_GLOBAL(zlascl,ZLASCL) -void LAPACK_zlascl_base( - char const* type, - lapack_int const* kl, lapack_int const* ku, - double const* cfrom, - double const* cto, lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlascl(...) LAPACK_zlascl_base(__VA_ARGS__, 1) -#else - #define LAPACK_zlascl(...) LAPACK_zlascl_base(__VA_ARGS__) -#endif - -#define LAPACK_claset_base LAPACK_GLOBAL(claset,CLASET) -void LAPACK_claset_base( - char const* uplo, - lapack_int const* m, lapack_int const* n, - lapack_complex_float const* alpha, - lapack_complex_float const* beta, - lapack_complex_float* A, lapack_int const* lda -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_claset(...) LAPACK_claset_base(__VA_ARGS__, 1) -#else - #define LAPACK_claset(...) LAPACK_claset_base(__VA_ARGS__) -#endif - -#define LAPACK_dlaset_base LAPACK_GLOBAL(dlaset,DLASET) -void LAPACK_dlaset_base( - char const* uplo, - lapack_int const* m, lapack_int const* n, - double const* alpha, - double const* beta, - double* A, lapack_int const* lda -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dlaset(...) LAPACK_dlaset_base(__VA_ARGS__, 1) -#else - #define LAPACK_dlaset(...) LAPACK_dlaset_base(__VA_ARGS__) -#endif - -#define LAPACK_slaset_base LAPACK_GLOBAL(slaset,SLASET) -void LAPACK_slaset_base( - char const* uplo, - lapack_int const* m, lapack_int const* n, - float const* alpha, - float const* beta, - float* A, lapack_int const* lda -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_slaset(...) LAPACK_slaset_base(__VA_ARGS__, 1) -#else - #define LAPACK_slaset(...) LAPACK_slaset_base(__VA_ARGS__) -#endif - -#define LAPACK_zlaset_base LAPACK_GLOBAL(zlaset,ZLASET) -void LAPACK_zlaset_base( - char const* uplo, - lapack_int const* m, lapack_int const* n, - lapack_complex_double const* alpha, - lapack_complex_double const* beta, - lapack_complex_double* A, lapack_int const* lda -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlaset(...) LAPACK_zlaset_base(__VA_ARGS__, 1) -#else - #define LAPACK_zlaset(...) LAPACK_zlaset_base(__VA_ARGS__) -#endif - -#define LAPACK_dlasrt_base LAPACK_GLOBAL(dlasrt,DLASRT) -void LAPACK_dlasrt_base( - char const* id, - lapack_int const* n, - double* D, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dlasrt(...) LAPACK_dlasrt_base(__VA_ARGS__, 1) -#else - #define LAPACK_dlasrt(...) LAPACK_dlasrt_base(__VA_ARGS__) -#endif - -#define LAPACK_slasrt_base LAPACK_GLOBAL(slasrt,SLASRT) -void LAPACK_slasrt_base( - char const* id, - lapack_int const* n, - float* D, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_slasrt(...) LAPACK_slasrt_base(__VA_ARGS__, 1) -#else - #define LAPACK_slasrt(...) LAPACK_slasrt_base(__VA_ARGS__) -#endif - -#define LAPACK_classq LAPACK_GLOBAL(classq,CLASSQ) -void LAPACK_classq( - lapack_int const* n, - lapack_complex_float const* X, lapack_int const* incx, - float* scale, - float* sumsq ); - -#define LAPACK_dlassq LAPACK_GLOBAL(dlassq,DLASSQ) -void LAPACK_dlassq( - lapack_int const* n, - double const* X, lapack_int const* incx, - double* scale, - double* sumsq ); - -#define LAPACK_slassq LAPACK_GLOBAL(slassq,SLASSQ) -void LAPACK_slassq( - lapack_int const* n, - float const* X, lapack_int const* incx, - float* scale, - float* sumsq ); - -#define LAPACK_zlassq LAPACK_GLOBAL(zlassq,ZLASSQ) -void LAPACK_zlassq( - lapack_int const* n, - lapack_complex_double const* X, lapack_int const* incx, - double* scale, - double* sumsq ); - -#define LAPACK_claswp LAPACK_GLOBAL(claswp,CLASWP) -lapack_int LAPACK_claswp( - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx ); - -#define LAPACK_dlaswp LAPACK_GLOBAL(dlaswp,DLASWP) -lapack_int LAPACK_dlaswp( - lapack_int const* n, - double* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx ); - -#define LAPACK_slaswp LAPACK_GLOBAL(slaswp,SLASWP) -lapack_int LAPACK_slaswp( - lapack_int const* n, - float* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx ); - -#define LAPACK_zlaswp LAPACK_GLOBAL(zlaswp,ZLASWP) -lapack_int LAPACK_zlaswp( - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx ); - -#define LAPACK_clatms_base LAPACK_GLOBAL(clatms,CLATMS) -void LAPACK_clatms_base( - lapack_int const* m, lapack_int const* n, char const* dist, - lapack_int* iseed, char const* sym, - float* D, - lapack_int const* mode, - float const* cond, - float const* dmax, lapack_int const* kl, lapack_int const* ku, char const* pack, - lapack_complex_float* A, - lapack_int const* lda, - lapack_complex_float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_clatms(...) LAPACK_clatms_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_clatms(...) LAPACK_clatms_base(__VA_ARGS__) -#endif - -#define LAPACK_dlatms_base LAPACK_GLOBAL(dlatms,DLATMS) -void LAPACK_dlatms_base( - lapack_int const* m, lapack_int const* n, char const* dist, - lapack_int* iseed, char const* sym, - double* D, - lapack_int const* mode, - double const* cond, - double const* dmax, lapack_int const* kl, lapack_int const* ku, char const* pack, - double* A, - lapack_int const* lda, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dlatms(...) LAPACK_dlatms_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dlatms(...) LAPACK_dlatms_base(__VA_ARGS__) -#endif - -#define LAPACK_slatms_base LAPACK_GLOBAL(slatms,SLATMS) -void LAPACK_slatms_base( - lapack_int const* m, lapack_int const* n, char const* dist, - lapack_int* iseed, char const* sym, - float* D, - lapack_int const* mode, - float const* cond, - float const* dmax, lapack_int const* kl, lapack_int const* ku, char const* pack, - float* A, - lapack_int const* lda, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_slatms(...) LAPACK_slatms_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_slatms(...) LAPACK_slatms_base(__VA_ARGS__) -#endif - -#define LAPACK_zlatms_base LAPACK_GLOBAL(zlatms,ZLATMS) -void LAPACK_zlatms_base( - lapack_int const* m, lapack_int const* n, char const* dist, - lapack_int* iseed, char const* sym, - double* D, - lapack_int const* mode, - double const* cond, - double const* dmax, lapack_int const* kl, lapack_int const* ku, char const* pack, - lapack_complex_double* A, - lapack_int const* lda, - lapack_complex_double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlatms(...) LAPACK_zlatms_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zlatms(...) LAPACK_zlatms_base(__VA_ARGS__) -#endif - -#define LAPACK_clauum_base LAPACK_GLOBAL(clauum,CLAUUM) -lapack_int LAPACK_clauum_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_clauum(...) LAPACK_clauum_base(__VA_ARGS__, 1) -#else - #define LAPACK_clauum(...) LAPACK_clauum_base(__VA_ARGS__) -#endif - -#define LAPACK_dlauum_base LAPACK_GLOBAL(dlauum,DLAUUM) -lapack_int LAPACK_dlauum_base( - char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dlauum(...) LAPACK_dlauum_base(__VA_ARGS__, 1) -#else - #define LAPACK_dlauum(...) LAPACK_dlauum_base(__VA_ARGS__) -#endif - -#define LAPACK_slauum_base LAPACK_GLOBAL(slauum,SLAUUM) -lapack_int LAPACK_slauum_base( - char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_slauum(...) LAPACK_slauum_base(__VA_ARGS__, 1) -#else - #define LAPACK_slauum(...) LAPACK_slauum_base(__VA_ARGS__) -#endif - -#define LAPACK_zlauum_base LAPACK_GLOBAL(zlauum,ZLAUUM) -lapack_int LAPACK_zlauum_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zlauum(...) LAPACK_zlauum_base(__VA_ARGS__, 1) -#else - #define LAPACK_zlauum(...) LAPACK_zlauum_base(__VA_ARGS__) -#endif - -#define LAPACK_ilaver LAPACK_GLOBAL(ilaver,ILAVER) -lapack_int LAPACK_ilaver( - lapack_int* vers_major, lapack_int* vers_minor, lapack_int* vers_patch ); - -#define LAPACK_dopgtr_base LAPACK_GLOBAL(dopgtr,DOPGTR) -void LAPACK_dopgtr_base( - char const* uplo, - lapack_int const* n, - double const* AP, - double const* tau, - double* Q, lapack_int const* ldq, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dopgtr(...) LAPACK_dopgtr_base(__VA_ARGS__, 1) -#else - #define LAPACK_dopgtr(...) LAPACK_dopgtr_base(__VA_ARGS__) -#endif - -#define LAPACK_sopgtr_base LAPACK_GLOBAL(sopgtr,SOPGTR) -void LAPACK_sopgtr_base( - char const* uplo, - lapack_int const* n, - float const* AP, - float const* tau, - float* Q, lapack_int const* ldq, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sopgtr(...) LAPACK_sopgtr_base(__VA_ARGS__, 1) -#else - #define LAPACK_sopgtr(...) LAPACK_sopgtr_base(__VA_ARGS__) -#endif - -#define LAPACK_dopmtr_base LAPACK_GLOBAL(dopmtr,DOPMTR) -void LAPACK_dopmtr_base( - char const* side, char const* uplo, char const* trans, - lapack_int const* m, lapack_int const* n, - double const* AP, - double const* tau, - double* C, lapack_int const* ldc, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dopmtr(...) LAPACK_dopmtr_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dopmtr(...) LAPACK_dopmtr_base(__VA_ARGS__) -#endif - -#define LAPACK_sopmtr_base LAPACK_GLOBAL(sopmtr,SOPMTR) -void LAPACK_sopmtr_base( - char const* side, char const* uplo, char const* trans, - lapack_int const* m, lapack_int const* n, - float const* AP, - float const* tau, - float* C, lapack_int const* ldc, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sopmtr(...) LAPACK_sopmtr_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_sopmtr(...) LAPACK_sopmtr_base(__VA_ARGS__) -#endif - -#define LAPACK_dorbdb_base LAPACK_GLOBAL(dorbdb,DORBDB) -void LAPACK_dorbdb_base( - char const* trans, char const* signs, - lapack_int const* m, lapack_int const* p, lapack_int const* q, - double* X11, lapack_int const* ldx11, - double* X12, lapack_int const* ldx12, - double* X21, lapack_int const* ldx21, - double* X22, lapack_int const* ldx22, - double* theta, - double* phi, - double* TAUP1, - double* TAUP2, - double* TAUQ1, - double* TAUQ2, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dorbdb(...) LAPACK_dorbdb_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dorbdb(...) LAPACK_dorbdb_base(__VA_ARGS__) -#endif - -#define LAPACK_sorbdb_base LAPACK_GLOBAL(sorbdb,SORBDB) -void LAPACK_sorbdb_base( - char const* trans, char const* signs, - lapack_int const* m, lapack_int const* p, lapack_int const* q, - float* X11, lapack_int const* ldx11, - float* X12, lapack_int const* ldx12, - float* X21, lapack_int const* ldx21, - float* X22, lapack_int const* ldx22, - float* theta, - float* phi, - float* TAUP1, - float* TAUP2, - float* TAUQ1, - float* TAUQ2, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sorbdb(...) LAPACK_sorbdb_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sorbdb(...) LAPACK_sorbdb_base(__VA_ARGS__) -#endif - -#define LAPACK_dorcsd_base LAPACK_GLOBAL(dorcsd,DORCSD) -void LAPACK_dorcsd_base( - char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs, - lapack_int const* m, lapack_int const* p, lapack_int const* q, - double* X11, lapack_int const* ldx11, - double* X12, lapack_int const* ldx12, - double* X21, lapack_int const* ldx21, - double* X22, lapack_int const* ldx22, - double* theta, - double* U1, lapack_int const* ldu1, - double* U2, lapack_int const* ldu2, - double* V1T, lapack_int const* ldv1t, - double* V2T, lapack_int const* ldv2t, - double* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dorcsd(...) LAPACK_dorcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) -#else - #define LAPACK_dorcsd(...) LAPACK_dorcsd_base(__VA_ARGS__) -#endif - -#define LAPACK_sorcsd_base LAPACK_GLOBAL(sorcsd,SORCSD) -void LAPACK_sorcsd_base( - char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs, - lapack_int const* m, lapack_int const* p, lapack_int const* q, - float* X11, lapack_int const* ldx11, - float* X12, lapack_int const* ldx12, - float* X21, lapack_int const* ldx21, - float* X22, lapack_int const* ldx22, - float* theta, - float* U1, lapack_int const* ldu1, - float* U2, lapack_int const* ldu2, - float* V1T, lapack_int const* ldv1t, - float* V2T, lapack_int const* ldv2t, - float* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sorcsd(...) LAPACK_sorcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) -#else - #define LAPACK_sorcsd(...) LAPACK_sorcsd_base(__VA_ARGS__) -#endif - -#define LAPACK_dorcsd2by1_base LAPACK_GLOBAL(dorcsd2by1,DORCSD2BY1) -void LAPACK_dorcsd2by1_base( - char const* jobu1, char const* jobu2, char const* jobv1t, - lapack_int const* m, lapack_int const* p, lapack_int const* q, - double* X11, lapack_int const* ldx11, - double* X21, lapack_int const* ldx21, - double* theta, - double* U1, lapack_int const* ldu1, - double* U2, lapack_int const* ldu2, - double* V1T, lapack_int const* ldv1t, - double* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dorcsd2by1(...) LAPACK_dorcsd2by1_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dorcsd2by1(...) LAPACK_dorcsd2by1_base(__VA_ARGS__) -#endif - -#define LAPACK_sorcsd2by1_base LAPACK_GLOBAL(sorcsd2by1,SORCSD2BY1) -void LAPACK_sorcsd2by1_base( - char const* jobu1, char const* jobu2, char const* jobv1t, - lapack_int const* m, lapack_int const* p, lapack_int const* q, - float* X11, lapack_int const* ldx11, - float* X21, lapack_int const* ldx21, - float* theta, - float* U1, lapack_int const* ldu1, - float* U2, lapack_int const* ldu2, - float* V1T, lapack_int const* ldv1t, - float* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sorcsd2by1(...) LAPACK_sorcsd2by1_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_sorcsd2by1(...) LAPACK_sorcsd2by1_base(__VA_ARGS__) -#endif - -#define LAPACK_dorgbr_base LAPACK_GLOBAL(dorgbr,DORGBR) -void LAPACK_dorgbr_base( - char const* vect, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - double* A, lapack_int const* lda, - double const* tau, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dorgbr(...) LAPACK_dorgbr_base(__VA_ARGS__, 1) -#else - #define LAPACK_dorgbr(...) LAPACK_dorgbr_base(__VA_ARGS__) -#endif - -#define LAPACK_sorgbr_base LAPACK_GLOBAL(sorgbr,SORGBR) -void LAPACK_sorgbr_base( - char const* vect, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - float* A, lapack_int const* lda, - float const* tau, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sorgbr(...) LAPACK_sorgbr_base(__VA_ARGS__, 1) -#else - #define LAPACK_sorgbr(...) LAPACK_sorgbr_base(__VA_ARGS__) -#endif - -#define LAPACK_dorghr LAPACK_GLOBAL(dorghr,DORGHR) -void LAPACK_dorghr( - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - double* A, lapack_int const* lda, - double const* tau, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sorghr LAPACK_GLOBAL(sorghr,SORGHR) -void LAPACK_sorghr( - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - float* A, lapack_int const* lda, - float const* tau, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_dorglq LAPACK_GLOBAL(dorglq,DORGLQ) -void LAPACK_dorglq( - lapack_int const* m, lapack_int const* n, lapack_int const* k, - double* A, lapack_int const* lda, - double const* tau, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sorglq LAPACK_GLOBAL(sorglq,SORGLQ) -void LAPACK_sorglq( - lapack_int const* m, lapack_int const* n, lapack_int const* k, - float* A, lapack_int const* lda, - float const* tau, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_dorgql LAPACK_GLOBAL(dorgql,DORGQL) -void LAPACK_dorgql( - lapack_int const* m, lapack_int const* n, lapack_int const* k, - double* A, lapack_int const* lda, - double const* tau, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sorgql LAPACK_GLOBAL(sorgql,SORGQL) -void LAPACK_sorgql( - lapack_int const* m, lapack_int const* n, lapack_int const* k, - float* A, lapack_int const* lda, - float const* tau, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_dorgqr LAPACK_GLOBAL(dorgqr,DORGQR) -void LAPACK_dorgqr( - lapack_int const* m, lapack_int const* n, lapack_int const* k, - double* A, lapack_int const* lda, - double const* tau, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sorgqr LAPACK_GLOBAL(sorgqr,SORGQR) -void LAPACK_sorgqr( - lapack_int const* m, lapack_int const* n, lapack_int const* k, - float* A, lapack_int const* lda, - float const* tau, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_dorgrq LAPACK_GLOBAL(dorgrq,DORGRQ) -void LAPACK_dorgrq( - lapack_int const* m, lapack_int const* n, lapack_int const* k, - double* A, lapack_int const* lda, - double const* tau, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sorgrq LAPACK_GLOBAL(sorgrq,SORGRQ) -void LAPACK_sorgrq( - lapack_int const* m, lapack_int const* n, lapack_int const* k, - float* A, lapack_int const* lda, - float const* tau, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_dorgtr_base LAPACK_GLOBAL(dorgtr,DORGTR) -void LAPACK_dorgtr_base( - char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - double const* tau, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dorgtr(...) LAPACK_dorgtr_base(__VA_ARGS__, 1) -#else - #define LAPACK_dorgtr(...) LAPACK_dorgtr_base(__VA_ARGS__) -#endif - -#define LAPACK_sorgtr_base LAPACK_GLOBAL(sorgtr,SORGTR) -void LAPACK_sorgtr_base( - char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - float const* tau, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sorgtr(...) LAPACK_sorgtr_base(__VA_ARGS__, 1) -#else - #define LAPACK_sorgtr(...) LAPACK_sorgtr_base(__VA_ARGS__) -#endif - -#define LAPACK_dorgtsqr_row LAPACK_GLOBAL(dorgtsqr_row,DORGTSQR_ROW) -void LAPACK_dorgtsqr_row( - lapack_int const* m, lapack_int const* n, - lapack_int const* mb, lapack_int const* nb, - double* A, lapack_int const* lda, - double const* T, lapack_int const* ldt, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_sorgtsqr_row LAPACK_GLOBAL(sorgtsqr_row,SORGTSQR_ROW) -void LAPACK_sorgtsqr_row( - lapack_int const* m, lapack_int const* n, - lapack_int const* mb, lapack_int const* nb, - float* A, lapack_int const* lda, - float const* T, lapack_int const* ldt, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_dorhr_col LAPACK_GLOBAL(dorhr_col,DORHR_COL) -void LAPACK_dorhr_col( - lapack_int const* m, lapack_int const* n, - lapack_int const* nb, double* A, - lapack_int const* lda, double* T, - lapack_int const* ldt, double* D, - lapack_int* info ); - -#define LAPACK_sorhr_col LAPACK_GLOBAL(sorhr_col,SORHR_COL) -void LAPACK_sorhr_col( - lapack_int const* m, lapack_int const* n, - lapack_int const* nb, float* A, - lapack_int const* lda, float* T, - lapack_int const* ldt, float* D, - lapack_int* info ); - -#define LAPACK_dormbr_base LAPACK_GLOBAL(dormbr,DORMBR) -void LAPACK_dormbr_base( - char const* vect, char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - double const* A, lapack_int const* lda, - double const* tau, - double* C, lapack_int const* ldc, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dormbr(...) LAPACK_dormbr_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dormbr(...) LAPACK_dormbr_base(__VA_ARGS__) -#endif - -#define LAPACK_sormbr_base LAPACK_GLOBAL(sormbr,SORMBR) -void LAPACK_sormbr_base( - char const* vect, char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - float const* A, lapack_int const* lda, - float const* tau, - float* C, lapack_int const* ldc, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sormbr(...) LAPACK_sormbr_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_sormbr(...) LAPACK_sormbr_base(__VA_ARGS__) -#endif - -#define LAPACK_dormhr_base LAPACK_GLOBAL(dormhr,DORMHR) -void LAPACK_dormhr_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - double const* A, lapack_int const* lda, - double const* tau, - double* C, lapack_int const* ldc, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dormhr(...) LAPACK_dormhr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dormhr(...) LAPACK_dormhr_base(__VA_ARGS__) -#endif - -#define LAPACK_sormhr_base LAPACK_GLOBAL(sormhr,SORMHR) -void LAPACK_sormhr_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - float const* A, lapack_int const* lda, - float const* tau, - float* C, lapack_int const* ldc, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sormhr(...) LAPACK_sormhr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sormhr(...) LAPACK_sormhr_base(__VA_ARGS__) -#endif - -#define LAPACK_dormlq_base LAPACK_GLOBAL(dormlq,DORMLQ) -void LAPACK_dormlq_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - double const* A, lapack_int const* lda, - double const* tau, - double* C, lapack_int const* ldc, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dormlq(...) LAPACK_dormlq_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dormlq(...) LAPACK_dormlq_base(__VA_ARGS__) -#endif - -#define LAPACK_sormlq_base LAPACK_GLOBAL(sormlq,SORMLQ) -void LAPACK_sormlq_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - float const* A, lapack_int const* lda, - float const* tau, - float* C, lapack_int const* ldc, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sormlq(...) LAPACK_sormlq_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sormlq(...) LAPACK_sormlq_base(__VA_ARGS__) -#endif - -#define LAPACK_dormql_base LAPACK_GLOBAL(dormql,DORMQL) -void LAPACK_dormql_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - double const* A, lapack_int const* lda, - double const* tau, - double* C, lapack_int const* ldc, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dormql(...) LAPACK_dormql_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dormql(...) LAPACK_dormql_base(__VA_ARGS__) -#endif - -#define LAPACK_sormql_base LAPACK_GLOBAL(sormql,SORMQL) -void LAPACK_sormql_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - float const* A, lapack_int const* lda, - float const* tau, - float* C, lapack_int const* ldc, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sormql(...) LAPACK_sormql_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sormql(...) LAPACK_sormql_base(__VA_ARGS__) -#endif - -#define LAPACK_dormqr_base LAPACK_GLOBAL(dormqr,DORMQR) -void LAPACK_dormqr_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - double const* A, lapack_int const* lda, - double const* tau, - double* C, lapack_int const* ldc, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dormqr(...) LAPACK_dormqr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dormqr(...) LAPACK_dormqr_base(__VA_ARGS__) -#endif - -#define LAPACK_sormqr_base LAPACK_GLOBAL(sormqr,SORMQR) -void LAPACK_sormqr_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - float const* A, lapack_int const* lda, - float const* tau, - float* C, lapack_int const* ldc, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sormqr(...) LAPACK_sormqr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sormqr(...) LAPACK_sormqr_base(__VA_ARGS__) -#endif - -#define LAPACK_dormrq_base LAPACK_GLOBAL(dormrq,DORMRQ) -void LAPACK_dormrq_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - double const* A, lapack_int const* lda, - double const* tau, - double* C, lapack_int const* ldc, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dormrq(...) LAPACK_dormrq_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dormrq(...) LAPACK_dormrq_base(__VA_ARGS__) -#endif - -#define LAPACK_sormrq_base LAPACK_GLOBAL(sormrq,SORMRQ) -void LAPACK_sormrq_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - float const* A, lapack_int const* lda, - float const* tau, - float* C, lapack_int const* ldc, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sormrq(...) LAPACK_sormrq_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sormrq(...) LAPACK_sormrq_base(__VA_ARGS__) -#endif - -#define LAPACK_dormrz_base LAPACK_GLOBAL(dormrz,DORMRZ) -void LAPACK_dormrz_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, - double const* A, lapack_int const* lda, - double const* tau, - double* C, lapack_int const* ldc, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dormrz(...) LAPACK_dormrz_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dormrz(...) LAPACK_dormrz_base(__VA_ARGS__) -#endif - -#define LAPACK_sormrz_base LAPACK_GLOBAL(sormrz,SORMRZ) -void LAPACK_sormrz_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, - float const* A, lapack_int const* lda, - float const* tau, - float* C, lapack_int const* ldc, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sormrz(...) LAPACK_sormrz_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sormrz(...) LAPACK_sormrz_base(__VA_ARGS__) -#endif - -#define LAPACK_dormtr_base LAPACK_GLOBAL(dormtr,DORMTR) -void LAPACK_dormtr_base( - char const* side, char const* uplo, char const* trans, - lapack_int const* m, lapack_int const* n, - double const* A, lapack_int const* lda, - double const* tau, - double* C, lapack_int const* ldc, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dormtr(...) LAPACK_dormtr_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dormtr(...) LAPACK_dormtr_base(__VA_ARGS__) -#endif - -#define LAPACK_sormtr_base LAPACK_GLOBAL(sormtr,SORMTR) -void LAPACK_sormtr_base( - char const* side, char const* uplo, char const* trans, - lapack_int const* m, lapack_int const* n, - float const* A, lapack_int const* lda, - float const* tau, - float* C, lapack_int const* ldc, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sormtr(...) LAPACK_sormtr_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_sormtr(...) LAPACK_sormtr_base(__VA_ARGS__) -#endif - -#define LAPACK_cpbcon_base LAPACK_GLOBAL(cpbcon,CPBCON) -void LAPACK_cpbcon_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, - lapack_complex_float const* AB, lapack_int const* ldab, - float const* anorm, - float* rcond, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpbcon(...) LAPACK_cpbcon_base(__VA_ARGS__, 1) -#else - #define LAPACK_cpbcon(...) LAPACK_cpbcon_base(__VA_ARGS__) -#endif - -#define LAPACK_dpbcon_base LAPACK_GLOBAL(dpbcon,DPBCON) -void LAPACK_dpbcon_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, - double const* AB, lapack_int const* ldab, - double const* anorm, - double* rcond, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dpbcon(...) LAPACK_dpbcon_base(__VA_ARGS__, 1) -#else - #define LAPACK_dpbcon(...) LAPACK_dpbcon_base(__VA_ARGS__) -#endif - -#define LAPACK_spbcon_base LAPACK_GLOBAL(spbcon,SPBCON) -void LAPACK_spbcon_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, - float const* AB, lapack_int const* ldab, - float const* anorm, - float* rcond, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_spbcon(...) LAPACK_spbcon_base(__VA_ARGS__, 1) -#else - #define LAPACK_spbcon(...) LAPACK_spbcon_base(__VA_ARGS__) -#endif - -#define LAPACK_zpbcon_base LAPACK_GLOBAL(zpbcon,ZPBCON) -void LAPACK_zpbcon_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, - lapack_complex_double const* AB, lapack_int const* ldab, - double const* anorm, - double* rcond, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpbcon(...) LAPACK_zpbcon_base(__VA_ARGS__, 1) -#else - #define LAPACK_zpbcon(...) LAPACK_zpbcon_base(__VA_ARGS__) -#endif - -#define LAPACK_cpbequ_base LAPACK_GLOBAL(cpbequ,CPBEQU) -void LAPACK_cpbequ_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, - lapack_complex_float const* AB, lapack_int const* ldab, - float* S, - float* scond, - float* amax, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpbequ(...) LAPACK_cpbequ_base(__VA_ARGS__, 1) -#else - #define LAPACK_cpbequ(...) LAPACK_cpbequ_base(__VA_ARGS__) -#endif - -#define LAPACK_dpbequ_base LAPACK_GLOBAL(dpbequ,DPBEQU) -void LAPACK_dpbequ_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, - double const* AB, lapack_int const* ldab, - double* S, - double* scond, - double* amax, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dpbequ(...) LAPACK_dpbequ_base(__VA_ARGS__, 1) -#else - #define LAPACK_dpbequ(...) LAPACK_dpbequ_base(__VA_ARGS__) -#endif - -#define LAPACK_spbequ_base LAPACK_GLOBAL(spbequ,SPBEQU) -void LAPACK_spbequ_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, - float const* AB, lapack_int const* ldab, - float* S, - float* scond, - float* amax, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_spbequ(...) LAPACK_spbequ_base(__VA_ARGS__, 1) -#else - #define LAPACK_spbequ(...) LAPACK_spbequ_base(__VA_ARGS__) -#endif - -#define LAPACK_zpbequ_base LAPACK_GLOBAL(zpbequ,ZPBEQU) -void LAPACK_zpbequ_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, - lapack_complex_double const* AB, lapack_int const* ldab, - double* S, - double* scond, - double* amax, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpbequ(...) LAPACK_zpbequ_base(__VA_ARGS__, 1) -#else - #define LAPACK_zpbequ(...) LAPACK_zpbequ_base(__VA_ARGS__) -#endif - -#define LAPACK_cpbrfs_base LAPACK_GLOBAL(cpbrfs,CPBRFS) -void LAPACK_cpbrfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - lapack_complex_float const* AB, lapack_int const* ldab, - lapack_complex_float const* AFB, lapack_int const* ldafb, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* ferr, - float* berr, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpbrfs(...) LAPACK_cpbrfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_cpbrfs(...) LAPACK_cpbrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_dpbrfs_base LAPACK_GLOBAL(dpbrfs,DPBRFS) -void LAPACK_dpbrfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - double const* AB, lapack_int const* ldab, - double const* AFB, lapack_int const* ldafb, - double const* B, lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* ferr, - double* berr, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dpbrfs(...) LAPACK_dpbrfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_dpbrfs(...) LAPACK_dpbrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_spbrfs_base LAPACK_GLOBAL(spbrfs,SPBRFS) -void LAPACK_spbrfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - float const* AB, lapack_int const* ldab, - float const* AFB, lapack_int const* ldafb, - float const* B, lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* ferr, - float* berr, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_spbrfs(...) LAPACK_spbrfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_spbrfs(...) LAPACK_spbrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_zpbrfs_base LAPACK_GLOBAL(zpbrfs,ZPBRFS) -void LAPACK_zpbrfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - lapack_complex_double const* AB, lapack_int const* ldab, - lapack_complex_double const* AFB, lapack_int const* ldafb, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* ferr, - double* berr, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpbrfs(...) LAPACK_zpbrfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_zpbrfs(...) LAPACK_zpbrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_cpbstf_base LAPACK_GLOBAL(cpbstf,CPBSTF) -void LAPACK_cpbstf_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, - lapack_complex_float* AB, lapack_int const* ldab, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpbstf(...) LAPACK_cpbstf_base(__VA_ARGS__, 1) -#else - #define LAPACK_cpbstf(...) LAPACK_cpbstf_base(__VA_ARGS__) -#endif - -#define LAPACK_dpbstf_base LAPACK_GLOBAL(dpbstf,DPBSTF) -void LAPACK_dpbstf_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, - double* AB, lapack_int const* ldab, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dpbstf(...) LAPACK_dpbstf_base(__VA_ARGS__, 1) -#else - #define LAPACK_dpbstf(...) LAPACK_dpbstf_base(__VA_ARGS__) -#endif - -#define LAPACK_spbstf_base LAPACK_GLOBAL(spbstf,SPBSTF) -void LAPACK_spbstf_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, - float* AB, lapack_int const* ldab, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_spbstf(...) LAPACK_spbstf_base(__VA_ARGS__, 1) -#else - #define LAPACK_spbstf(...) LAPACK_spbstf_base(__VA_ARGS__) -#endif - -#define LAPACK_zpbstf_base LAPACK_GLOBAL(zpbstf,ZPBSTF) -void LAPACK_zpbstf_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, - lapack_complex_double* AB, lapack_int const* ldab, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpbstf(...) LAPACK_zpbstf_base(__VA_ARGS__, 1) -#else - #define LAPACK_zpbstf(...) LAPACK_zpbstf_base(__VA_ARGS__) -#endif - -#define LAPACK_cpbsv_base LAPACK_GLOBAL(cpbsv,CPBSV) -void LAPACK_cpbsv_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - lapack_complex_float* AB, lapack_int const* ldab, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpbsv(...) LAPACK_cpbsv_base(__VA_ARGS__, 1) -#else - #define LAPACK_cpbsv(...) LAPACK_cpbsv_base(__VA_ARGS__) -#endif - -#define LAPACK_dpbsv_base LAPACK_GLOBAL(dpbsv,DPBSV) -void LAPACK_dpbsv_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - double* AB, lapack_int const* ldab, - double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dpbsv(...) LAPACK_dpbsv_base(__VA_ARGS__, 1) -#else - #define LAPACK_dpbsv(...) LAPACK_dpbsv_base(__VA_ARGS__) -#endif - -#define LAPACK_spbsv_base LAPACK_GLOBAL(spbsv,SPBSV) -void LAPACK_spbsv_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - float* AB, lapack_int const* ldab, - float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_spbsv(...) LAPACK_spbsv_base(__VA_ARGS__, 1) -#else - #define LAPACK_spbsv(...) LAPACK_spbsv_base(__VA_ARGS__) -#endif - -#define LAPACK_zpbsv_base LAPACK_GLOBAL(zpbsv,ZPBSV) -void LAPACK_zpbsv_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - lapack_complex_double* AB, lapack_int const* ldab, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpbsv(...) LAPACK_zpbsv_base(__VA_ARGS__, 1) -#else - #define LAPACK_zpbsv(...) LAPACK_zpbsv_base(__VA_ARGS__) -#endif - -#define LAPACK_cpbsvx_base LAPACK_GLOBAL(cpbsvx,CPBSVX) -void LAPACK_cpbsvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - lapack_complex_float* AB, lapack_int const* ldab, - lapack_complex_float* AFB, lapack_int const* ldafb, char* equed, - float* S, - lapack_complex_float* B, - lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* rcond, - float* ferr, - float* berr, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpbsvx(...) LAPACK_cpbsvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cpbsvx(...) LAPACK_cpbsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_dpbsvx_base LAPACK_GLOBAL(dpbsvx,DPBSVX) -void LAPACK_dpbsvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - double* AB, lapack_int const* ldab, - double* AFB, lapack_int const* ldafb, char* equed, - double* S, - double* B, - lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* rcond, - double* ferr, - double* berr, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dpbsvx(...) LAPACK_dpbsvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dpbsvx(...) LAPACK_dpbsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_spbsvx_base LAPACK_GLOBAL(spbsvx,SPBSVX) -void LAPACK_spbsvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - float* AB, lapack_int const* ldab, - float* AFB, lapack_int const* ldafb, char* equed, - float* S, - float* B, - lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* rcond, - float* ferr, - float* berr, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_spbsvx(...) LAPACK_spbsvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_spbsvx(...) LAPACK_spbsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_zpbsvx_base LAPACK_GLOBAL(zpbsvx,ZPBSVX) -void LAPACK_zpbsvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - lapack_complex_double* AB, lapack_int const* ldab, - lapack_complex_double* AFB, lapack_int const* ldafb, char* equed, - double* S, - lapack_complex_double* B, - lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* rcond, - double* ferr, - double* berr, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpbsvx(...) LAPACK_zpbsvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zpbsvx(...) LAPACK_zpbsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_cpbtrf_base LAPACK_GLOBAL(cpbtrf,CPBTRF) -void LAPACK_cpbtrf_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, - lapack_complex_float* AB, lapack_int const* ldab, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpbtrf(...) LAPACK_cpbtrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_cpbtrf(...) LAPACK_cpbtrf_base(__VA_ARGS__) -#endif - -#define LAPACK_dpbtrf_base LAPACK_GLOBAL(dpbtrf,DPBTRF) -void LAPACK_dpbtrf_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, - double* AB, lapack_int const* ldab, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dpbtrf(...) LAPACK_dpbtrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_dpbtrf(...) LAPACK_dpbtrf_base(__VA_ARGS__) -#endif - -#define LAPACK_spbtrf_base LAPACK_GLOBAL(spbtrf,SPBTRF) -void LAPACK_spbtrf_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, - float* AB, lapack_int const* ldab, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_spbtrf(...) LAPACK_spbtrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_spbtrf(...) LAPACK_spbtrf_base(__VA_ARGS__) -#endif - -#define LAPACK_zpbtrf_base LAPACK_GLOBAL(zpbtrf,ZPBTRF) -void LAPACK_zpbtrf_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, - lapack_complex_double* AB, lapack_int const* ldab, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpbtrf(...) LAPACK_zpbtrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_zpbtrf(...) LAPACK_zpbtrf_base(__VA_ARGS__) -#endif - -#define LAPACK_cpbtrs_base LAPACK_GLOBAL(cpbtrs,CPBTRS) -void LAPACK_cpbtrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - lapack_complex_float const* AB, lapack_int const* ldab, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpbtrs(...) LAPACK_cpbtrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_cpbtrs(...) LAPACK_cpbtrs_base(__VA_ARGS__) -#endif - -#define LAPACK_dpbtrs_base LAPACK_GLOBAL(dpbtrs,DPBTRS) -void LAPACK_dpbtrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - double const* AB, lapack_int const* ldab, - double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dpbtrs(...) LAPACK_dpbtrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_dpbtrs(...) LAPACK_dpbtrs_base(__VA_ARGS__) -#endif - -#define LAPACK_spbtrs_base LAPACK_GLOBAL(spbtrs,SPBTRS) -void LAPACK_spbtrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - float const* AB, lapack_int const* ldab, - float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_spbtrs(...) LAPACK_spbtrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_spbtrs(...) LAPACK_spbtrs_base(__VA_ARGS__) -#endif - -#define LAPACK_zpbtrs_base LAPACK_GLOBAL(zpbtrs,ZPBTRS) -void LAPACK_zpbtrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - lapack_complex_double const* AB, lapack_int const* ldab, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpbtrs(...) LAPACK_zpbtrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_zpbtrs(...) LAPACK_zpbtrs_base(__VA_ARGS__) -#endif - -#define LAPACK_cpftrf_base LAPACK_GLOBAL(cpftrf,CPFTRF) -void LAPACK_cpftrf_base( - char const* transr, char const* uplo, - lapack_int const* n, - lapack_complex_float* A, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpftrf(...) LAPACK_cpftrf_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cpftrf(...) LAPACK_cpftrf_base(__VA_ARGS__) -#endif - -#define LAPACK_dpftrf_base LAPACK_GLOBAL(dpftrf,DPFTRF) -void LAPACK_dpftrf_base( - char const* transr, char const* uplo, - lapack_int const* n, - double* A, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dpftrf(...) LAPACK_dpftrf_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dpftrf(...) LAPACK_dpftrf_base(__VA_ARGS__) -#endif - -#define LAPACK_spftrf_base LAPACK_GLOBAL(spftrf,SPFTRF) -void LAPACK_spftrf_base( - char const* transr, char const* uplo, - lapack_int const* n, - float* A, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_spftrf(...) LAPACK_spftrf_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_spftrf(...) LAPACK_spftrf_base(__VA_ARGS__) -#endif - -#define LAPACK_zpftrf_base LAPACK_GLOBAL(zpftrf,ZPFTRF) -void LAPACK_zpftrf_base( - char const* transr, char const* uplo, - lapack_int const* n, - lapack_complex_double* A, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpftrf(...) LAPACK_zpftrf_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zpftrf(...) LAPACK_zpftrf_base(__VA_ARGS__) -#endif - -#define LAPACK_cpftri_base LAPACK_GLOBAL(cpftri,CPFTRI) -void LAPACK_cpftri_base( - char const* transr, char const* uplo, - lapack_int const* n, - lapack_complex_float* A, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpftri(...) LAPACK_cpftri_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cpftri(...) LAPACK_cpftri_base(__VA_ARGS__) -#endif - -#define LAPACK_dpftri_base LAPACK_GLOBAL(dpftri,DPFTRI) -void LAPACK_dpftri_base( - char const* transr, char const* uplo, - lapack_int const* n, - double* A, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dpftri(...) LAPACK_dpftri_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dpftri(...) LAPACK_dpftri_base(__VA_ARGS__) -#endif - -#define LAPACK_spftri_base LAPACK_GLOBAL(spftri,SPFTRI) -void LAPACK_spftri_base( - char const* transr, char const* uplo, - lapack_int const* n, - float* A, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_spftri(...) LAPACK_spftri_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_spftri(...) LAPACK_spftri_base(__VA_ARGS__) -#endif - -#define LAPACK_zpftri_base LAPACK_GLOBAL(zpftri,ZPFTRI) -void LAPACK_zpftri_base( - char const* transr, char const* uplo, - lapack_int const* n, - lapack_complex_double* A, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpftri(...) LAPACK_zpftri_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zpftri(...) LAPACK_zpftri_base(__VA_ARGS__) -#endif - -#define LAPACK_cpftrs_base LAPACK_GLOBAL(cpftrs,CPFTRS) -void LAPACK_cpftrs_base( - char const* transr, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpftrs(...) LAPACK_cpftrs_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cpftrs(...) LAPACK_cpftrs_base(__VA_ARGS__) -#endif - -#define LAPACK_dpftrs_base LAPACK_GLOBAL(dpftrs,DPFTRS) -void LAPACK_dpftrs_base( - char const* transr, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double const* A, - double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dpftrs(...) LAPACK_dpftrs_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dpftrs(...) LAPACK_dpftrs_base(__VA_ARGS__) -#endif - -#define LAPACK_spftrs_base LAPACK_GLOBAL(spftrs,SPFTRS) -void LAPACK_spftrs_base( - char const* transr, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float const* A, - float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_spftrs(...) LAPACK_spftrs_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_spftrs(...) LAPACK_spftrs_base(__VA_ARGS__) -#endif - -#define LAPACK_zpftrs_base LAPACK_GLOBAL(zpftrs,ZPFTRS) -void LAPACK_zpftrs_base( - char const* transr, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpftrs(...) LAPACK_zpftrs_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zpftrs(...) LAPACK_zpftrs_base(__VA_ARGS__) -#endif - -#define LAPACK_cpocon_base LAPACK_GLOBAL(cpocon,CPOCON) -void LAPACK_cpocon_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - float const* anorm, - float* rcond, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpocon(...) LAPACK_cpocon_base(__VA_ARGS__, 1) -#else - #define LAPACK_cpocon(...) LAPACK_cpocon_base(__VA_ARGS__) -#endif - -#define LAPACK_dpocon_base LAPACK_GLOBAL(dpocon,DPOCON) -void LAPACK_dpocon_base( - char const* uplo, - lapack_int const* n, - double const* A, lapack_int const* lda, - double const* anorm, - double* rcond, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dpocon(...) LAPACK_dpocon_base(__VA_ARGS__, 1) -#else - #define LAPACK_dpocon(...) LAPACK_dpocon_base(__VA_ARGS__) -#endif - -#define LAPACK_spocon_base LAPACK_GLOBAL(spocon,SPOCON) -void LAPACK_spocon_base( - char const* uplo, - lapack_int const* n, - float const* A, lapack_int const* lda, - float const* anorm, - float* rcond, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_spocon(...) LAPACK_spocon_base(__VA_ARGS__, 1) -#else - #define LAPACK_spocon(...) LAPACK_spocon_base(__VA_ARGS__) -#endif - -#define LAPACK_zpocon_base LAPACK_GLOBAL(zpocon,ZPOCON) -void LAPACK_zpocon_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - double const* anorm, - double* rcond, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpocon(...) LAPACK_zpocon_base(__VA_ARGS__, 1) -#else - #define LAPACK_zpocon(...) LAPACK_zpocon_base(__VA_ARGS__) -#endif - -#define LAPACK_cpoequ LAPACK_GLOBAL(cpoequ,CPOEQU) -void LAPACK_cpoequ( - lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - float* S, - float* scond, - float* amax, - lapack_int* info ); - -#define LAPACK_dpoequ LAPACK_GLOBAL(dpoequ,DPOEQU) -void LAPACK_dpoequ( - lapack_int const* n, - double const* A, lapack_int const* lda, - double* S, - double* scond, - double* amax, - lapack_int* info ); - -#define LAPACK_spoequ LAPACK_GLOBAL(spoequ,SPOEQU) -void LAPACK_spoequ( - lapack_int const* n, - float const* A, lapack_int const* lda, - float* S, - float* scond, - float* amax, - lapack_int* info ); - -#define LAPACK_zpoequ LAPACK_GLOBAL(zpoequ,ZPOEQU) -void LAPACK_zpoequ( - lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - double* S, - double* scond, - double* amax, - lapack_int* info ); - -#define LAPACK_cpoequb LAPACK_GLOBAL(cpoequb,CPOEQUB) -void LAPACK_cpoequb( - lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - float* S, - float* scond, - float* amax, - lapack_int* info ); - -#define LAPACK_dpoequb LAPACK_GLOBAL(dpoequb,DPOEQUB) -void LAPACK_dpoequb( - lapack_int const* n, - double const* A, lapack_int const* lda, - double* S, - double* scond, - double* amax, - lapack_int* info ); - -#define LAPACK_spoequb LAPACK_GLOBAL(spoequb,SPOEQUB) -void LAPACK_spoequb( - lapack_int const* n, - float const* A, lapack_int const* lda, - float* S, - float* scond, - float* amax, - lapack_int* info ); - -#define LAPACK_zpoequb LAPACK_GLOBAL(zpoequb,ZPOEQUB) -void LAPACK_zpoequb( - lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - double* S, - double* scond, - double* amax, - lapack_int* info ); - -#define LAPACK_cporfs_base LAPACK_GLOBAL(cporfs,CPORFS) -void LAPACK_cporfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* AF, lapack_int const* ldaf, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* ferr, - float* berr, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cporfs(...) LAPACK_cporfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_cporfs(...) LAPACK_cporfs_base(__VA_ARGS__) -#endif - -#define LAPACK_dporfs_base LAPACK_GLOBAL(dporfs,DPORFS) -void LAPACK_dporfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double const* A, lapack_int const* lda, - double const* AF, lapack_int const* ldaf, - double const* B, lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* ferr, - double* berr, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dporfs(...) LAPACK_dporfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_dporfs(...) LAPACK_dporfs_base(__VA_ARGS__) -#endif - -#define LAPACK_sporfs_base LAPACK_GLOBAL(sporfs,SPORFS) -void LAPACK_sporfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float const* A, lapack_int const* lda, - float const* AF, lapack_int const* ldaf, - float const* B, lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* ferr, - float* berr, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sporfs(...) LAPACK_sporfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_sporfs(...) LAPACK_sporfs_base(__VA_ARGS__) -#endif - -#define LAPACK_zporfs_base LAPACK_GLOBAL(zporfs,ZPORFS) -void LAPACK_zporfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* AF, lapack_int const* ldaf, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* ferr, - double* berr, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zporfs(...) LAPACK_zporfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_zporfs(...) LAPACK_zporfs_base(__VA_ARGS__) -#endif - -#define LAPACK_cporfsx_base LAPACK_GLOBAL(cporfsx,CPORFSX) -void LAPACK_cporfsx_base( - char const* uplo, char const* equed, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* AF, lapack_int const* ldaf, - const float* S, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* rcond, - float* berr, lapack_int const* n_err_bnds, - float* err_bnds_norm, - float* err_bnds_comp, lapack_int const* nparams, - float* params, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cporfsx(...) LAPACK_cporfsx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cporfsx(...) LAPACK_cporfsx_base(__VA_ARGS__) -#endif - -#define LAPACK_dporfsx_base LAPACK_GLOBAL(dporfsx,DPORFSX) -void LAPACK_dporfsx_base( - char const* uplo, char const* equed, - lapack_int const* n, lapack_int const* nrhs, - double const* A, lapack_int const* lda, - double const* AF, lapack_int const* ldaf, - const double* S, - double const* B, lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* rcond, - double* berr, lapack_int const* n_err_bnds, - double* err_bnds_norm, - double* err_bnds_comp, lapack_int const* nparams, - double* params, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dporfsx(...) LAPACK_dporfsx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dporfsx(...) LAPACK_dporfsx_base(__VA_ARGS__) -#endif - -#define LAPACK_sporfsx_base LAPACK_GLOBAL(sporfsx,SPORFSX) -void LAPACK_sporfsx_base( - char const* uplo, char const* equed, - lapack_int const* n, lapack_int const* nrhs, - float const* A, lapack_int const* lda, - float const* AF, lapack_int const* ldaf, - const float* S, - float const* B, lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* rcond, - float* berr, lapack_int const* n_err_bnds, - float* err_bnds_norm, - float* err_bnds_comp, lapack_int const* nparams, - float* params, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sporfsx(...) LAPACK_sporfsx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sporfsx(...) LAPACK_sporfsx_base(__VA_ARGS__) -#endif - -#define LAPACK_zporfsx_base LAPACK_GLOBAL(zporfsx,ZPORFSX) -void LAPACK_zporfsx_base( - char const* uplo, char const* equed, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* AF, lapack_int const* ldaf, - const double* S, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* rcond, - double* berr, lapack_int const* n_err_bnds, - double* err_bnds_norm, - double* err_bnds_comp, lapack_int const* nparams, - double* params, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zporfsx(...) LAPACK_zporfsx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zporfsx(...) LAPACK_zporfsx_base(__VA_ARGS__) -#endif - -#define LAPACK_cposv_base LAPACK_GLOBAL(cposv,CPOSV) -void LAPACK_cposv_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cposv(...) LAPACK_cposv_base(__VA_ARGS__, 1) -#else - #define LAPACK_cposv(...) LAPACK_cposv_base(__VA_ARGS__) -#endif - -#define LAPACK_dposv_base LAPACK_GLOBAL(dposv,DPOSV) -void LAPACK_dposv_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dposv(...) LAPACK_dposv_base(__VA_ARGS__, 1) -#else - #define LAPACK_dposv(...) LAPACK_dposv_base(__VA_ARGS__) -#endif - -#define LAPACK_sposv_base LAPACK_GLOBAL(sposv,SPOSV) -void LAPACK_sposv_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sposv(...) LAPACK_sposv_base(__VA_ARGS__, 1) -#else - #define LAPACK_sposv(...) LAPACK_sposv_base(__VA_ARGS__) -#endif - -#define LAPACK_zposv_base LAPACK_GLOBAL(zposv,ZPOSV) -void LAPACK_zposv_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zposv(...) LAPACK_zposv_base(__VA_ARGS__, 1) -#else - #define LAPACK_zposv(...) LAPACK_zposv_base(__VA_ARGS__) -#endif - -#define LAPACK_dsposv_base LAPACK_GLOBAL(dsposv,DSPOSV) -void LAPACK_dsposv_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double* A, lapack_int const* lda, - double const* B, lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* work, - float* swork, lapack_int* iter, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsposv(...) LAPACK_dsposv_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsposv(...) LAPACK_dsposv_base(__VA_ARGS__) -#endif - -#define LAPACK_zcposv_base LAPACK_GLOBAL(zcposv,ZCPOSV) -void LAPACK_zcposv_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - lapack_complex_double* work, - lapack_complex_float* swork, - double* rwork, lapack_int* iter, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zcposv(...) LAPACK_zcposv_base(__VA_ARGS__, 1) -#else - #define LAPACK_zcposv(...) LAPACK_zcposv_base(__VA_ARGS__) -#endif - -#define LAPACK_cposvx_base LAPACK_GLOBAL(cposvx,CPOSVX) -void LAPACK_cposvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* AF, lapack_int const* ldaf, char* equed, - float* S, - lapack_complex_float* B, - lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* rcond, - float* ferr, - float* berr, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cposvx(...) LAPACK_cposvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cposvx(...) LAPACK_cposvx_base(__VA_ARGS__) -#endif - -#define LAPACK_dposvx_base LAPACK_GLOBAL(dposvx,DPOSVX) -void LAPACK_dposvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double* A, lapack_int const* lda, - double* AF, lapack_int const* ldaf, char* equed, - double* S, - double* B, - lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* rcond, - double* ferr, - double* berr, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dposvx(...) LAPACK_dposvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dposvx(...) LAPACK_dposvx_base(__VA_ARGS__) -#endif - -#define LAPACK_sposvx_base LAPACK_GLOBAL(sposvx,SPOSVX) -void LAPACK_sposvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float* A, lapack_int const* lda, - float* AF, lapack_int const* ldaf, char* equed, - float* S, - float* B, - lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* rcond, - float* ferr, - float* berr, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sposvx(...) LAPACK_sposvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_sposvx(...) LAPACK_sposvx_base(__VA_ARGS__) -#endif - -#define LAPACK_zposvx_base LAPACK_GLOBAL(zposvx,ZPOSVX) -void LAPACK_zposvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* AF, lapack_int const* ldaf, char* equed, - double* S, - lapack_complex_double* B, - lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* rcond, - double* ferr, - double* berr, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zposvx(...) LAPACK_zposvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zposvx(...) LAPACK_zposvx_base(__VA_ARGS__) -#endif - -#define LAPACK_cposvxx_base LAPACK_GLOBAL(cposvxx,CPOSVXX) -void LAPACK_cposvxx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* AF, lapack_int const* ldaf, char* equed, - float* S, - lapack_complex_float* B, - lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* rcond, - float* rpvgrw, - float* berr, lapack_int const* n_err_bnds, - float* err_bnds_norm, - float* err_bnds_comp, lapack_int const* nparams, - float* params, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cposvxx(...) LAPACK_cposvxx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cposvxx(...) LAPACK_cposvxx_base(__VA_ARGS__) -#endif - -#define LAPACK_dposvxx_base LAPACK_GLOBAL(dposvxx,DPOSVXX) -void LAPACK_dposvxx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double* A, lapack_int const* lda, - double* AF, lapack_int const* ldaf, char* equed, - double* S, - double* B, - lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* rcond, - double* rpvgrw, - double* berr, lapack_int const* n_err_bnds, - double* err_bnds_norm, - double* err_bnds_comp, lapack_int const* nparams, - double* params, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dposvxx(...) LAPACK_dposvxx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dposvxx(...) LAPACK_dposvxx_base(__VA_ARGS__) -#endif - -#define LAPACK_sposvxx_base LAPACK_GLOBAL(sposvxx,SPOSVXX) -void LAPACK_sposvxx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float* A, lapack_int const* lda, - float* AF, lapack_int const* ldaf, char* equed, - float* S, - float* B, - lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* rcond, - float* rpvgrw, - float* berr, lapack_int const* n_err_bnds, - float* err_bnds_norm, - float* err_bnds_comp, lapack_int const* nparams, - float* params, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sposvxx(...) LAPACK_sposvxx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_sposvxx(...) LAPACK_sposvxx_base(__VA_ARGS__) -#endif - -#define LAPACK_zposvxx_base LAPACK_GLOBAL(zposvxx,ZPOSVXX) -void LAPACK_zposvxx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* AF, lapack_int const* ldaf, char* equed, - double* S, - lapack_complex_double* B, - lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* rcond, - double* rpvgrw, - double* berr, lapack_int const* n_err_bnds, - double* err_bnds_norm, - double* err_bnds_comp, lapack_int const* nparams, - double* params, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zposvxx(...) LAPACK_zposvxx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zposvxx(...) LAPACK_zposvxx_base(__VA_ARGS__) -#endif - -#define LAPACK_cpotf2_base LAPACK_GLOBAL(cpotf2,CPOTF2) -void LAPACK_cpotf2_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpotf2(...) LAPACK_cpotf2_base(__VA_ARGS__, 1) -#else - #define LAPACK_cpotf2(...) LAPACK_cpotf2_base(__VA_ARGS__) -#endif - -#define LAPACK_dpotf2_base LAPACK_GLOBAL(dpotf2,DPOTF2) -void LAPACK_dpotf2_base( - char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dpotf2(...) LAPACK_dpotf2_base(__VA_ARGS__, 1) -#else - #define LAPACK_dpotf2(...) LAPACK_dpotf2_base(__VA_ARGS__) -#endif - -#define LAPACK_spotf2_base LAPACK_GLOBAL(spotf2,SPOTF2) -void LAPACK_spotf2_base( - char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_spotf2(...) LAPACK_spotf2_base(__VA_ARGS__, 1) -#else - #define LAPACK_spotf2(...) LAPACK_spotf2_base(__VA_ARGS__) -#endif - -#define LAPACK_zpotf2_base LAPACK_GLOBAL(zpotf2,ZPOTF2) -void LAPACK_zpotf2_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpotf2(...) LAPACK_zpotf2_base(__VA_ARGS__, 1) -#else - #define LAPACK_zpotf2(...) LAPACK_zpotf2_base(__VA_ARGS__) -#endif - -#define LAPACK_cpotrf_base LAPACK_GLOBAL(cpotrf,CPOTRF) -lapack_int LAPACK_cpotrf_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpotrf(...) LAPACK_cpotrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_cpotrf(...) LAPACK_cpotrf_base(__VA_ARGS__) -#endif - -#define LAPACK_dpotrf_base LAPACK_GLOBAL(dpotrf,DPOTRF) -lapack_int LAPACK_dpotrf_base( - char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dpotrf(...) LAPACK_dpotrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_dpotrf(...) LAPACK_dpotrf_base(__VA_ARGS__) -#endif - -#define LAPACK_spotrf_base LAPACK_GLOBAL(spotrf,SPOTRF) -lapack_int LAPACK_spotrf_base( - char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_spotrf(...) LAPACK_spotrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_spotrf(...) LAPACK_spotrf_base(__VA_ARGS__) -#endif - -#define LAPACK_zpotrf_base LAPACK_GLOBAL(zpotrf,ZPOTRF) -lapack_int LAPACK_zpotrf_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpotrf(...) LAPACK_zpotrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_zpotrf(...) LAPACK_zpotrf_base(__VA_ARGS__) -#endif - -#define LAPACK_cpotrf2_base LAPACK_GLOBAL(cpotrf2,CPOTRF2) -void LAPACK_cpotrf2_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpotrf2(...) LAPACK_cpotrf2_base(__VA_ARGS__, 1) -#else - #define LAPACK_cpotrf2(...) LAPACK_cpotrf2_base(__VA_ARGS__) -#endif - -#define LAPACK_dpotrf2_base LAPACK_GLOBAL(dpotrf2,DPOTRF2) -void LAPACK_dpotrf2_base( - char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dpotrf2(...) LAPACK_dpotrf2_base(__VA_ARGS__, 1) -#else - #define LAPACK_dpotrf2(...) LAPACK_dpotrf2_base(__VA_ARGS__) -#endif - -#define LAPACK_spotrf2_base LAPACK_GLOBAL(spotrf2,SPOTRF2) -void LAPACK_spotrf2_base( - char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_spotrf2(...) LAPACK_spotrf2_base(__VA_ARGS__, 1) -#else - #define LAPACK_spotrf2(...) LAPACK_spotrf2_base(__VA_ARGS__) -#endif - -#define LAPACK_zpotrf2_base LAPACK_GLOBAL(zpotrf2,ZPOTRF2) -void LAPACK_zpotrf2_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpotrf2(...) LAPACK_zpotrf2_base(__VA_ARGS__, 1) -#else - #define LAPACK_zpotrf2(...) LAPACK_zpotrf2_base(__VA_ARGS__) -#endif - -#define LAPACK_cpotri_base LAPACK_GLOBAL(cpotri,CPOTRI) -void LAPACK_cpotri_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpotri(...) LAPACK_cpotri_base(__VA_ARGS__, 1) -#else - #define LAPACK_cpotri(...) LAPACK_cpotri_base(__VA_ARGS__) -#endif - -#define LAPACK_dpotri_base LAPACK_GLOBAL(dpotri,DPOTRI) -void LAPACK_dpotri_base( - char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dpotri(...) LAPACK_dpotri_base(__VA_ARGS__, 1) -#else - #define LAPACK_dpotri(...) LAPACK_dpotri_base(__VA_ARGS__) -#endif - -#define LAPACK_spotri_base LAPACK_GLOBAL(spotri,SPOTRI) -void LAPACK_spotri_base( - char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_spotri(...) LAPACK_spotri_base(__VA_ARGS__, 1) -#else - #define LAPACK_spotri(...) LAPACK_spotri_base(__VA_ARGS__) -#endif - -#define LAPACK_zpotri_base LAPACK_GLOBAL(zpotri,ZPOTRI) -void LAPACK_zpotri_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpotri(...) LAPACK_zpotri_base(__VA_ARGS__, 1) -#else - #define LAPACK_zpotri(...) LAPACK_zpotri_base(__VA_ARGS__) -#endif - -#define LAPACK_cpotrs_base LAPACK_GLOBAL(cpotrs,CPOTRS) -void LAPACK_cpotrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpotrs(...) LAPACK_cpotrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_cpotrs(...) LAPACK_cpotrs_base(__VA_ARGS__) -#endif - -#define LAPACK_dpotrs_base LAPACK_GLOBAL(dpotrs,DPOTRS) -void LAPACK_dpotrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double const* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dpotrs(...) LAPACK_dpotrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_dpotrs(...) LAPACK_dpotrs_base(__VA_ARGS__) -#endif - -#define LAPACK_spotrs_base LAPACK_GLOBAL(spotrs,SPOTRS) -void LAPACK_spotrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float const* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_spotrs(...) LAPACK_spotrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_spotrs(...) LAPACK_spotrs_base(__VA_ARGS__) -#endif - -#define LAPACK_zpotrs_base LAPACK_GLOBAL(zpotrs,ZPOTRS) -void LAPACK_zpotrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpotrs(...) LAPACK_zpotrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_zpotrs(...) LAPACK_zpotrs_base(__VA_ARGS__) -#endif - -#define LAPACK_cppcon_base LAPACK_GLOBAL(cppcon,CPPCON) -void LAPACK_cppcon_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float const* AP, - float const* anorm, - float* rcond, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cppcon(...) LAPACK_cppcon_base(__VA_ARGS__, 1) -#else - #define LAPACK_cppcon(...) LAPACK_cppcon_base(__VA_ARGS__) -#endif - -#define LAPACK_dppcon_base LAPACK_GLOBAL(dppcon,DPPCON) -void LAPACK_dppcon_base( - char const* uplo, - lapack_int const* n, - double const* AP, - double const* anorm, - double* rcond, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dppcon(...) LAPACK_dppcon_base(__VA_ARGS__, 1) -#else - #define LAPACK_dppcon(...) LAPACK_dppcon_base(__VA_ARGS__) -#endif - -#define LAPACK_sppcon_base LAPACK_GLOBAL(sppcon,SPPCON) -void LAPACK_sppcon_base( - char const* uplo, - lapack_int const* n, - float const* AP, - float const* anorm, - float* rcond, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sppcon(...) LAPACK_sppcon_base(__VA_ARGS__, 1) -#else - #define LAPACK_sppcon(...) LAPACK_sppcon_base(__VA_ARGS__) -#endif - -#define LAPACK_zppcon_base LAPACK_GLOBAL(zppcon,ZPPCON) -void LAPACK_zppcon_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double const* AP, - double const* anorm, - double* rcond, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zppcon(...) LAPACK_zppcon_base(__VA_ARGS__, 1) -#else - #define LAPACK_zppcon(...) LAPACK_zppcon_base(__VA_ARGS__) -#endif - -#define LAPACK_cppequ_base LAPACK_GLOBAL(cppequ,CPPEQU) -void LAPACK_cppequ_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float const* AP, - float* S, - float* scond, - float* amax, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cppequ(...) LAPACK_cppequ_base(__VA_ARGS__, 1) -#else - #define LAPACK_cppequ(...) LAPACK_cppequ_base(__VA_ARGS__) -#endif - -#define LAPACK_dppequ_base LAPACK_GLOBAL(dppequ,DPPEQU) -void LAPACK_dppequ_base( - char const* uplo, - lapack_int const* n, - double const* AP, - double* S, - double* scond, - double* amax, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dppequ(...) LAPACK_dppequ_base(__VA_ARGS__, 1) -#else - #define LAPACK_dppequ(...) LAPACK_dppequ_base(__VA_ARGS__) -#endif - -#define LAPACK_sppequ_base LAPACK_GLOBAL(sppequ,SPPEQU) -void LAPACK_sppequ_base( - char const* uplo, - lapack_int const* n, - float const* AP, - float* S, - float* scond, - float* amax, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sppequ(...) LAPACK_sppequ_base(__VA_ARGS__, 1) -#else - #define LAPACK_sppequ(...) LAPACK_sppequ_base(__VA_ARGS__) -#endif - -#define LAPACK_zppequ_base LAPACK_GLOBAL(zppequ,ZPPEQU) -void LAPACK_zppequ_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double const* AP, - double* S, - double* scond, - double* amax, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zppequ(...) LAPACK_zppequ_base(__VA_ARGS__, 1) -#else - #define LAPACK_zppequ(...) LAPACK_zppequ_base(__VA_ARGS__) -#endif - -#define LAPACK_cpprfs_base LAPACK_GLOBAL(cpprfs,CPPRFS) -void LAPACK_cpprfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* AP, - lapack_complex_float const* AFP, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* ferr, - float* berr, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpprfs(...) LAPACK_cpprfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_cpprfs(...) LAPACK_cpprfs_base(__VA_ARGS__) -#endif - -#define LAPACK_dpprfs_base LAPACK_GLOBAL(dpprfs,DPPRFS) -void LAPACK_dpprfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double const* AP, - double const* AFP, - double const* B, lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* ferr, - double* berr, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dpprfs(...) LAPACK_dpprfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_dpprfs(...) LAPACK_dpprfs_base(__VA_ARGS__) -#endif - -#define LAPACK_spprfs_base LAPACK_GLOBAL(spprfs,SPPRFS) -void LAPACK_spprfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float const* AP, - float const* AFP, - float const* B, lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* ferr, - float* berr, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_spprfs(...) LAPACK_spprfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_spprfs(...) LAPACK_spprfs_base(__VA_ARGS__) -#endif - -#define LAPACK_zpprfs_base LAPACK_GLOBAL(zpprfs,ZPPRFS) -void LAPACK_zpprfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* AP, - lapack_complex_double const* AFP, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* ferr, - double* berr, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpprfs(...) LAPACK_zpprfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_zpprfs(...) LAPACK_zpprfs_base(__VA_ARGS__) -#endif - -#define LAPACK_cppsv_base LAPACK_GLOBAL(cppsv,CPPSV) -void LAPACK_cppsv_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* AP, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cppsv(...) LAPACK_cppsv_base(__VA_ARGS__, 1) -#else - #define LAPACK_cppsv(...) LAPACK_cppsv_base(__VA_ARGS__) -#endif - -#define LAPACK_dppsv_base LAPACK_GLOBAL(dppsv,DPPSV) -void LAPACK_dppsv_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double* AP, - double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dppsv(...) LAPACK_dppsv_base(__VA_ARGS__, 1) -#else - #define LAPACK_dppsv(...) LAPACK_dppsv_base(__VA_ARGS__) -#endif - -#define LAPACK_sppsv_base LAPACK_GLOBAL(sppsv,SPPSV) -void LAPACK_sppsv_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float* AP, - float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sppsv(...) LAPACK_sppsv_base(__VA_ARGS__, 1) -#else - #define LAPACK_sppsv(...) LAPACK_sppsv_base(__VA_ARGS__) -#endif - -#define LAPACK_zppsv_base LAPACK_GLOBAL(zppsv,ZPPSV) -void LAPACK_zppsv_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* AP, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zppsv(...) LAPACK_zppsv_base(__VA_ARGS__, 1) -#else - #define LAPACK_zppsv(...) LAPACK_zppsv_base(__VA_ARGS__) -#endif - -#define LAPACK_cppsvx_base LAPACK_GLOBAL(cppsvx,CPPSVX) -void LAPACK_cppsvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* AP, - lapack_complex_float* AFP, char* equed, - float* S, - lapack_complex_float* B, - lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* rcond, - float* ferr, - float* berr, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cppsvx(...) LAPACK_cppsvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cppsvx(...) LAPACK_cppsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_dppsvx_base LAPACK_GLOBAL(dppsvx,DPPSVX) -void LAPACK_dppsvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double* AP, - double* AFP, char* equed, - double* S, - double* B, - lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* rcond, - double* ferr, - double* berr, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dppsvx(...) LAPACK_dppsvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dppsvx(...) LAPACK_dppsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_sppsvx_base LAPACK_GLOBAL(sppsvx,SPPSVX) -void LAPACK_sppsvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float* AP, - float* AFP, char* equed, - float* S, - float* B, - lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* rcond, - float* ferr, - float* berr, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sppsvx(...) LAPACK_sppsvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_sppsvx(...) LAPACK_sppsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_zppsvx_base LAPACK_GLOBAL(zppsvx,ZPPSVX) -void LAPACK_zppsvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* AP, - lapack_complex_double* AFP, char* equed, - double* S, - lapack_complex_double* B, - lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* rcond, - double* ferr, - double* berr, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zppsvx(...) LAPACK_zppsvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zppsvx(...) LAPACK_zppsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_cpptrf_base LAPACK_GLOBAL(cpptrf,CPPTRF) -void LAPACK_cpptrf_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* AP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpptrf(...) LAPACK_cpptrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_cpptrf(...) LAPACK_cpptrf_base(__VA_ARGS__) -#endif - -#define LAPACK_dpptrf_base LAPACK_GLOBAL(dpptrf,DPPTRF) -void LAPACK_dpptrf_base( - char const* uplo, - lapack_int const* n, - double* AP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dpptrf(...) LAPACK_dpptrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_dpptrf(...) LAPACK_dpptrf_base(__VA_ARGS__) -#endif - -#define LAPACK_spptrf_base LAPACK_GLOBAL(spptrf,SPPTRF) -void LAPACK_spptrf_base( - char const* uplo, - lapack_int const* n, - float* AP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_spptrf(...) LAPACK_spptrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_spptrf(...) LAPACK_spptrf_base(__VA_ARGS__) -#endif - -#define LAPACK_zpptrf_base LAPACK_GLOBAL(zpptrf,ZPPTRF) -void LAPACK_zpptrf_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* AP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpptrf(...) LAPACK_zpptrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_zpptrf(...) LAPACK_zpptrf_base(__VA_ARGS__) -#endif - -#define LAPACK_cpptri_base LAPACK_GLOBAL(cpptri,CPPTRI) -void LAPACK_cpptri_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* AP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpptri(...) LAPACK_cpptri_base(__VA_ARGS__, 1) -#else - #define LAPACK_cpptri(...) LAPACK_cpptri_base(__VA_ARGS__) -#endif - -#define LAPACK_dpptri_base LAPACK_GLOBAL(dpptri,DPPTRI) -void LAPACK_dpptri_base( - char const* uplo, - lapack_int const* n, - double* AP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dpptri(...) LAPACK_dpptri_base(__VA_ARGS__, 1) -#else - #define LAPACK_dpptri(...) LAPACK_dpptri_base(__VA_ARGS__) -#endif - -#define LAPACK_spptri_base LAPACK_GLOBAL(spptri,SPPTRI) -void LAPACK_spptri_base( - char const* uplo, - lapack_int const* n, - float* AP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_spptri(...) LAPACK_spptri_base(__VA_ARGS__, 1) -#else - #define LAPACK_spptri(...) LAPACK_spptri_base(__VA_ARGS__) -#endif - -#define LAPACK_zpptri_base LAPACK_GLOBAL(zpptri,ZPPTRI) -void LAPACK_zpptri_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* AP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpptri(...) LAPACK_zpptri_base(__VA_ARGS__, 1) -#else - #define LAPACK_zpptri(...) LAPACK_zpptri_base(__VA_ARGS__) -#endif - -#define LAPACK_cpptrs_base LAPACK_GLOBAL(cpptrs,CPPTRS) -void LAPACK_cpptrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* AP, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpptrs(...) LAPACK_cpptrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_cpptrs(...) LAPACK_cpptrs_base(__VA_ARGS__) -#endif - -#define LAPACK_dpptrs_base LAPACK_GLOBAL(dpptrs,DPPTRS) -void LAPACK_dpptrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double const* AP, - double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dpptrs(...) LAPACK_dpptrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_dpptrs(...) LAPACK_dpptrs_base(__VA_ARGS__) -#endif - -#define LAPACK_spptrs_base LAPACK_GLOBAL(spptrs,SPPTRS) -void LAPACK_spptrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float const* AP, - float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_spptrs(...) LAPACK_spptrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_spptrs(...) LAPACK_spptrs_base(__VA_ARGS__) -#endif - -#define LAPACK_zpptrs_base LAPACK_GLOBAL(zpptrs,ZPPTRS) -void LAPACK_zpptrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* AP, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpptrs(...) LAPACK_zpptrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_zpptrs(...) LAPACK_zpptrs_base(__VA_ARGS__) -#endif - -#define LAPACK_cpstrf_base LAPACK_GLOBAL(cpstrf,CPSTRF) -void LAPACK_cpstrf_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank, - float const* tol, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpstrf(...) LAPACK_cpstrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_cpstrf(...) LAPACK_cpstrf_base(__VA_ARGS__) -#endif - -#define LAPACK_dpstrf_base LAPACK_GLOBAL(dpstrf,DPSTRF) -void LAPACK_dpstrf_base( - char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank, - double const* tol, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dpstrf(...) LAPACK_dpstrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_dpstrf(...) LAPACK_dpstrf_base(__VA_ARGS__) -#endif - -#define LAPACK_spstrf_base LAPACK_GLOBAL(spstrf,SPSTRF) -void LAPACK_spstrf_base( - char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank, - float const* tol, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_spstrf(...) LAPACK_spstrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_spstrf(...) LAPACK_spstrf_base(__VA_ARGS__) -#endif - -#define LAPACK_zpstrf_base LAPACK_GLOBAL(zpstrf,ZPSTRF) -void LAPACK_zpstrf_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank, - double const* tol, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpstrf(...) LAPACK_zpstrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_zpstrf(...) LAPACK_zpstrf_base(__VA_ARGS__) -#endif - -#define LAPACK_cptcon LAPACK_GLOBAL(cptcon,CPTCON) -void LAPACK_cptcon( - lapack_int const* n, - float const* D, - lapack_complex_float const* E, - float const* anorm, - float* rcond, - float* rwork, - lapack_int* info ); - -#define LAPACK_dptcon LAPACK_GLOBAL(dptcon,DPTCON) -void LAPACK_dptcon( - lapack_int const* n, - double const* D, - double const* E, - double const* anorm, - double* rcond, - double* work, - lapack_int* info ); - -#define LAPACK_sptcon LAPACK_GLOBAL(sptcon,SPTCON) -void LAPACK_sptcon( - lapack_int const* n, - float const* D, - float const* E, - float const* anorm, - float* rcond, - float* work, - lapack_int* info ); - -#define LAPACK_zptcon LAPACK_GLOBAL(zptcon,ZPTCON) -void LAPACK_zptcon( - lapack_int const* n, - double const* D, - lapack_complex_double const* E, - double const* anorm, - double* rcond, - double* rwork, - lapack_int* info ); - -#define LAPACK_cpteqr_base LAPACK_GLOBAL(cpteqr,CPTEQR) -void LAPACK_cpteqr_base( - char const* compz, - lapack_int const* n, - float* D, - float* E, - lapack_complex_float* Z, lapack_int const* ldz, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpteqr(...) LAPACK_cpteqr_base(__VA_ARGS__, 1) -#else - #define LAPACK_cpteqr(...) LAPACK_cpteqr_base(__VA_ARGS__) -#endif - -#define LAPACK_dpteqr_base LAPACK_GLOBAL(dpteqr,DPTEQR) -void LAPACK_dpteqr_base( - char const* compz, - lapack_int const* n, - double* D, - double* E, - double* Z, lapack_int const* ldz, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dpteqr(...) LAPACK_dpteqr_base(__VA_ARGS__, 1) -#else - #define LAPACK_dpteqr(...) LAPACK_dpteqr_base(__VA_ARGS__) -#endif - -#define LAPACK_spteqr_base LAPACK_GLOBAL(spteqr,SPTEQR) -void LAPACK_spteqr_base( - char const* compz, - lapack_int const* n, - float* D, - float* E, - float* Z, lapack_int const* ldz, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_spteqr(...) LAPACK_spteqr_base(__VA_ARGS__, 1) -#else - #define LAPACK_spteqr(...) LAPACK_spteqr_base(__VA_ARGS__) -#endif - -#define LAPACK_zpteqr_base LAPACK_GLOBAL(zpteqr,ZPTEQR) -void LAPACK_zpteqr_base( - char const* compz, - lapack_int const* n, - double* D, - double* E, - lapack_complex_double* Z, lapack_int const* ldz, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpteqr(...) LAPACK_zpteqr_base(__VA_ARGS__, 1) -#else - #define LAPACK_zpteqr(...) LAPACK_zpteqr_base(__VA_ARGS__) -#endif - -#define LAPACK_cptrfs_base LAPACK_GLOBAL(cptrfs,CPTRFS) -void LAPACK_cptrfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float const* D, - lapack_complex_float const* E, - float const* DF, - lapack_complex_float const* EF, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* ferr, - float* berr, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cptrfs(...) LAPACK_cptrfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_cptrfs(...) LAPACK_cptrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_dptrfs LAPACK_GLOBAL(dptrfs,DPTRFS) -void LAPACK_dptrfs( - lapack_int const* n, lapack_int const* nrhs, - double const* D, - double const* E, - double const* DF, - double const* EF, - double const* B, lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* ferr, - double* berr, - double* work, - lapack_int* info ); - -#define LAPACK_sptrfs LAPACK_GLOBAL(sptrfs,SPTRFS) -void LAPACK_sptrfs( - lapack_int const* n, lapack_int const* nrhs, - float const* D, - float const* E, - float const* DF, - float const* EF, - float const* B, lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* ferr, - float* berr, - float* work, - lapack_int* info ); - -#define LAPACK_zptrfs_base LAPACK_GLOBAL(zptrfs,ZPTRFS) -void LAPACK_zptrfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double const* D, - lapack_complex_double const* E, - double const* DF, - lapack_complex_double const* EF, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* ferr, - double* berr, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zptrfs(...) LAPACK_zptrfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_zptrfs(...) LAPACK_zptrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_cptsv LAPACK_GLOBAL(cptsv,CPTSV) -void LAPACK_cptsv( - lapack_int const* n, lapack_int const* nrhs, - float* D, - lapack_complex_float* E, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info ); - -#define LAPACK_dptsv LAPACK_GLOBAL(dptsv,DPTSV) -void LAPACK_dptsv( - lapack_int const* n, lapack_int const* nrhs, - double* D, - double* E, - double* B, lapack_int const* ldb, - lapack_int* info ); - -#define LAPACK_sptsv LAPACK_GLOBAL(sptsv,SPTSV) -void LAPACK_sptsv( - lapack_int const* n, lapack_int const* nrhs, - float* D, - float* E, - float* B, lapack_int const* ldb, - lapack_int* info ); - -#define LAPACK_zptsv LAPACK_GLOBAL(zptsv,ZPTSV) -void LAPACK_zptsv( - lapack_int const* n, lapack_int const* nrhs, - double* D, - lapack_complex_double* E, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info ); - -#define LAPACK_cptsvx_base LAPACK_GLOBAL(cptsvx,CPTSVX) -void LAPACK_cptsvx_base( - char const* fact, - lapack_int const* n, lapack_int const* nrhs, - float const* D, - lapack_complex_float const* E, - float* DF, - lapack_complex_float* EF, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* rcond, - float* ferr, - float* berr, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cptsvx(...) LAPACK_cptsvx_base(__VA_ARGS__, 1) -#else - #define LAPACK_cptsvx(...) LAPACK_cptsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_dptsvx_base LAPACK_GLOBAL(dptsvx,DPTSVX) -void LAPACK_dptsvx_base( - char const* fact, - lapack_int const* n, lapack_int const* nrhs, - double const* D, - double const* E, - double* DF, - double* EF, - double const* B, lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* rcond, - double* ferr, - double* berr, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dptsvx(...) LAPACK_dptsvx_base(__VA_ARGS__, 1) -#else - #define LAPACK_dptsvx(...) LAPACK_dptsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_sptsvx_base LAPACK_GLOBAL(sptsvx,SPTSVX) -void LAPACK_sptsvx_base( - char const* fact, - lapack_int const* n, lapack_int const* nrhs, - float const* D, - float const* E, - float* DF, - float* EF, - float const* B, lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* rcond, - float* ferr, - float* berr, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sptsvx(...) LAPACK_sptsvx_base(__VA_ARGS__, 1) -#else - #define LAPACK_sptsvx(...) LAPACK_sptsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_zptsvx_base LAPACK_GLOBAL(zptsvx,ZPTSVX) -void LAPACK_zptsvx_base( - char const* fact, - lapack_int const* n, lapack_int const* nrhs, - double const* D, - lapack_complex_double const* E, - double* DF, - lapack_complex_double* EF, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* rcond, - double* ferr, - double* berr, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zptsvx(...) LAPACK_zptsvx_base(__VA_ARGS__, 1) -#else - #define LAPACK_zptsvx(...) LAPACK_zptsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_cpttrf LAPACK_GLOBAL(cpttrf,CPTTRF) -void LAPACK_cpttrf( - lapack_int const* n, - float* D, - lapack_complex_float* E, - lapack_int* info ); - -#define LAPACK_dpttrf LAPACK_GLOBAL(dpttrf,DPTTRF) -void LAPACK_dpttrf( - lapack_int const* n, - double* D, - double* E, - lapack_int* info ); - -#define LAPACK_spttrf LAPACK_GLOBAL(spttrf,SPTTRF) -void LAPACK_spttrf( - lapack_int const* n, - float* D, - float* E, - lapack_int* info ); - -#define LAPACK_zpttrf LAPACK_GLOBAL(zpttrf,ZPTTRF) -void LAPACK_zpttrf( - lapack_int const* n, - double* D, - lapack_complex_double* E, - lapack_int* info ); - -#define LAPACK_cpttrs_base LAPACK_GLOBAL(cpttrs,CPTTRS) -void LAPACK_cpttrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float const* D, - lapack_complex_float const* E, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cpttrs(...) LAPACK_cpttrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_cpttrs(...) LAPACK_cpttrs_base(__VA_ARGS__) -#endif - -#define LAPACK_dpttrs LAPACK_GLOBAL(dpttrs,DPTTRS) -void LAPACK_dpttrs( - lapack_int const* n, lapack_int const* nrhs, - double const* D, - double const* E, - double* B, lapack_int const* ldb, - lapack_int* info ); - -#define LAPACK_spttrs LAPACK_GLOBAL(spttrs,SPTTRS) -void LAPACK_spttrs( - lapack_int const* n, lapack_int const* nrhs, - float const* D, - float const* E, - float* B, lapack_int const* ldb, - lapack_int* info ); - -#define LAPACK_zpttrs_base LAPACK_GLOBAL(zpttrs,ZPTTRS) -void LAPACK_zpttrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double const* D, - lapack_complex_double const* E, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zpttrs(...) LAPACK_zpttrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_zpttrs(...) LAPACK_zpttrs_base(__VA_ARGS__) -#endif - -#define LAPACK_dsbev_base LAPACK_GLOBAL(dsbev,DSBEV) -void LAPACK_dsbev_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* kd, - double* AB, lapack_int const* ldab, - double* W, - double* Z, lapack_int const* ldz, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsbev(...) LAPACK_dsbev_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dsbev(...) LAPACK_dsbev_base(__VA_ARGS__) -#endif - -#define LAPACK_ssbev_base LAPACK_GLOBAL(ssbev,SSBEV) -void LAPACK_ssbev_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* kd, - float* AB, lapack_int const* ldab, - float* W, - float* Z, lapack_int const* ldz, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssbev(...) LAPACK_ssbev_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ssbev(...) LAPACK_ssbev_base(__VA_ARGS__) -#endif - -#define LAPACK_dsbev_2stage_base LAPACK_GLOBAL(dsbev_2stage,DSBEV_2STAGE) -void LAPACK_dsbev_2stage_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* kd, - double* AB, lapack_int const* ldab, - double* W, - double* Z, lapack_int const* ldz, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsbev_2stage(...) LAPACK_dsbev_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dsbev_2stage(...) LAPACK_dsbev_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_ssbev_2stage_base LAPACK_GLOBAL(ssbev_2stage,SSBEV_2STAGE) -void LAPACK_ssbev_2stage_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* kd, - float* AB, lapack_int const* ldab, - float* W, - float* Z, lapack_int const* ldz, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssbev_2stage(...) LAPACK_ssbev_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ssbev_2stage(...) LAPACK_ssbev_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_dsbevd_base LAPACK_GLOBAL(dsbevd,DSBEVD) -void LAPACK_dsbevd_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* kd, - double* AB, lapack_int const* ldab, - double* W, - double* Z, lapack_int const* ldz, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsbevd(...) LAPACK_dsbevd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dsbevd(...) LAPACK_dsbevd_base(__VA_ARGS__) -#endif - -#define LAPACK_ssbevd_base LAPACK_GLOBAL(ssbevd,SSBEVD) -void LAPACK_ssbevd_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* kd, - float* AB, lapack_int const* ldab, - float* W, - float* Z, lapack_int const* ldz, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssbevd(...) LAPACK_ssbevd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ssbevd(...) LAPACK_ssbevd_base(__VA_ARGS__) -#endif - -#define LAPACK_dsbevd_2stage_base LAPACK_GLOBAL(dsbevd_2stage,DSBEVD_2STAGE) -void LAPACK_dsbevd_2stage_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* kd, - double* AB, lapack_int const* ldab, - double* W, - double* Z, lapack_int const* ldz, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsbevd_2stage(...) LAPACK_dsbevd_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dsbevd_2stage(...) LAPACK_dsbevd_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_ssbevd_2stage_base LAPACK_GLOBAL(ssbevd_2stage,SSBEVD_2STAGE) -void LAPACK_ssbevd_2stage_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* kd, - float* AB, lapack_int const* ldab, - float* W, - float* Z, lapack_int const* ldz, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssbevd_2stage(...) LAPACK_ssbevd_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ssbevd_2stage(...) LAPACK_ssbevd_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_dsbevx_base LAPACK_GLOBAL(dsbevx,DSBEVX) -void LAPACK_dsbevx_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, lapack_int const* kd, - double* AB, lapack_int const* ldab, - double* Q, lapack_int const* ldq, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - double* Z, lapack_int const* ldz, - double* work, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsbevx(...) LAPACK_dsbevx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dsbevx(...) LAPACK_dsbevx_base(__VA_ARGS__) -#endif - -#define LAPACK_ssbevx_base LAPACK_GLOBAL(ssbevx,SSBEVX) -void LAPACK_ssbevx_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, lapack_int const* kd, - float* AB, lapack_int const* ldab, - float* Q, lapack_int const* ldq, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - float* Z, lapack_int const* ldz, - float* work, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssbevx(...) LAPACK_ssbevx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ssbevx(...) LAPACK_ssbevx_base(__VA_ARGS__) -#endif - -#define LAPACK_dsbevx_2stage_base LAPACK_GLOBAL(dsbevx_2stage,DSBEVX_2STAGE) -void LAPACK_dsbevx_2stage_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, lapack_int const* kd, - double* AB, lapack_int const* ldab, - double* Q, lapack_int const* ldq, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - double* Z, lapack_int const* ldz, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsbevx_2stage(...) LAPACK_dsbevx_2stage_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dsbevx_2stage(...) LAPACK_dsbevx_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_ssbevx_2stage_base LAPACK_GLOBAL(ssbevx_2stage,SSBEVX_2STAGE) -void LAPACK_ssbevx_2stage_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, lapack_int const* kd, - float* AB, lapack_int const* ldab, - float* Q, lapack_int const* ldq, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - float* Z, lapack_int const* ldz, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssbevx_2stage(...) LAPACK_ssbevx_2stage_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ssbevx_2stage(...) LAPACK_ssbevx_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_dsbgst_base LAPACK_GLOBAL(dsbgst,DSBGST) -void LAPACK_dsbgst_base( - char const* vect, char const* uplo, - lapack_int const* n, lapack_int const* ka, lapack_int const* kb, - double* AB, lapack_int const* ldab, - double const* BB, lapack_int const* ldbb, - double* X, lapack_int const* ldx, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsbgst(...) LAPACK_dsbgst_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dsbgst(...) LAPACK_dsbgst_base(__VA_ARGS__) -#endif - -#define LAPACK_ssbgst_base LAPACK_GLOBAL(ssbgst,SSBGST) -void LAPACK_ssbgst_base( - char const* vect, char const* uplo, - lapack_int const* n, lapack_int const* ka, lapack_int const* kb, - float* AB, lapack_int const* ldab, - float const* BB, lapack_int const* ldbb, - float* X, lapack_int const* ldx, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssbgst(...) LAPACK_ssbgst_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ssbgst(...) LAPACK_ssbgst_base(__VA_ARGS__) -#endif - -#define LAPACK_dsbgv_base LAPACK_GLOBAL(dsbgv,DSBGV) -void LAPACK_dsbgv_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* ka, lapack_int const* kb, - double* AB, lapack_int const* ldab, - double* BB, lapack_int const* ldbb, - double* W, - double* Z, lapack_int const* ldz, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsbgv(...) LAPACK_dsbgv_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dsbgv(...) LAPACK_dsbgv_base(__VA_ARGS__) -#endif - -#define LAPACK_ssbgv_base LAPACK_GLOBAL(ssbgv,SSBGV) -void LAPACK_ssbgv_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* ka, lapack_int const* kb, - float* AB, lapack_int const* ldab, - float* BB, lapack_int const* ldbb, - float* W, - float* Z, lapack_int const* ldz, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssbgv(...) LAPACK_ssbgv_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ssbgv(...) LAPACK_ssbgv_base(__VA_ARGS__) -#endif - -#define LAPACK_dsbgvd_base LAPACK_GLOBAL(dsbgvd,DSBGVD) -void LAPACK_dsbgvd_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* ka, lapack_int const* kb, - double* AB, lapack_int const* ldab, - double* BB, lapack_int const* ldbb, - double* W, - double* Z, lapack_int const* ldz, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsbgvd(...) LAPACK_dsbgvd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dsbgvd(...) LAPACK_dsbgvd_base(__VA_ARGS__) -#endif - -#define LAPACK_ssbgvd_base LAPACK_GLOBAL(ssbgvd,SSBGVD) -void LAPACK_ssbgvd_base( - char const* jobz, char const* uplo, - lapack_int const* n, lapack_int const* ka, lapack_int const* kb, - float* AB, lapack_int const* ldab, - float* BB, lapack_int const* ldbb, - float* W, - float* Z, lapack_int const* ldz, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssbgvd(...) LAPACK_ssbgvd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ssbgvd(...) LAPACK_ssbgvd_base(__VA_ARGS__) -#endif - -#define LAPACK_dsbgvx_base LAPACK_GLOBAL(dsbgvx,DSBGVX) -void LAPACK_dsbgvx_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, lapack_int const* ka, lapack_int const* kb, - double* AB, lapack_int const* ldab, - double* BB, lapack_int const* ldbb, - double* Q, lapack_int const* ldq, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - double* Z, lapack_int const* ldz, - double* work, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsbgvx(...) LAPACK_dsbgvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dsbgvx(...) LAPACK_dsbgvx_base(__VA_ARGS__) -#endif - -#define LAPACK_ssbgvx_base LAPACK_GLOBAL(ssbgvx,SSBGVX) -void LAPACK_ssbgvx_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, lapack_int const* ka, lapack_int const* kb, - float* AB, lapack_int const* ldab, - float* BB, lapack_int const* ldbb, - float* Q, lapack_int const* ldq, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - float* Z, lapack_int const* ldz, - float* work, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssbgvx(...) LAPACK_ssbgvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ssbgvx(...) LAPACK_ssbgvx_base(__VA_ARGS__) -#endif - -#define LAPACK_dsbtrd_base LAPACK_GLOBAL(dsbtrd,DSBTRD) -void LAPACK_dsbtrd_base( - char const* vect, char const* uplo, - lapack_int const* n, lapack_int const* kd, - double* AB, lapack_int const* ldab, - double* D, - double* E, - double* Q, lapack_int const* ldq, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsbtrd(...) LAPACK_dsbtrd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dsbtrd(...) LAPACK_dsbtrd_base(__VA_ARGS__) -#endif - -#define LAPACK_ssbtrd_base LAPACK_GLOBAL(ssbtrd,SSBTRD) -void LAPACK_ssbtrd_base( - char const* vect, char const* uplo, - lapack_int const* n, lapack_int const* kd, - float* AB, lapack_int const* ldab, - float* D, - float* E, - float* Q, lapack_int const* ldq, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssbtrd(...) LAPACK_ssbtrd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ssbtrd(...) LAPACK_ssbtrd_base(__VA_ARGS__) -#endif - -#define LAPACK_dsfrk_base LAPACK_GLOBAL(dsfrk,DSFRK) -void LAPACK_dsfrk_base( - char const* transr, char const* uplo, char const* trans, - lapack_int const* n, lapack_int const* k, - double const* alpha, - double const* A, lapack_int const* lda, - double const* beta, - double* C -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsfrk(...) LAPACK_dsfrk_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dsfrk(...) LAPACK_dsfrk_base(__VA_ARGS__) -#endif - -#define LAPACK_ssfrk_base LAPACK_GLOBAL(ssfrk,SSFRK) -void LAPACK_ssfrk_base( - char const* transr, char const* uplo, char const* trans, - lapack_int const* n, lapack_int const* k, - float const* alpha, - float const* A, lapack_int const* lda, - float const* beta, - float* C -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssfrk(...) LAPACK_ssfrk_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ssfrk(...) LAPACK_ssfrk_base(__VA_ARGS__) -#endif - -#define LAPACK_cspcon_base LAPACK_GLOBAL(cspcon,CSPCON) -void LAPACK_cspcon_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float const* AP, lapack_int const* ipiv, - float const* anorm, - float* rcond, - lapack_complex_float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cspcon(...) LAPACK_cspcon_base(__VA_ARGS__, 1) -#else - #define LAPACK_cspcon(...) LAPACK_cspcon_base(__VA_ARGS__) -#endif - -#define LAPACK_dspcon_base LAPACK_GLOBAL(dspcon,DSPCON) -void LAPACK_dspcon_base( - char const* uplo, - lapack_int const* n, - double const* AP, lapack_int const* ipiv, - double const* anorm, - double* rcond, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dspcon(...) LAPACK_dspcon_base(__VA_ARGS__, 1) -#else - #define LAPACK_dspcon(...) LAPACK_dspcon_base(__VA_ARGS__) -#endif - -#define LAPACK_sspcon_base LAPACK_GLOBAL(sspcon,SSPCON) -void LAPACK_sspcon_base( - char const* uplo, - lapack_int const* n, - float const* AP, lapack_int const* ipiv, - float const* anorm, - float* rcond, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sspcon(...) LAPACK_sspcon_base(__VA_ARGS__, 1) -#else - #define LAPACK_sspcon(...) LAPACK_sspcon_base(__VA_ARGS__) -#endif - -#define LAPACK_zspcon_base LAPACK_GLOBAL(zspcon,ZSPCON) -void LAPACK_zspcon_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double const* AP, lapack_int const* ipiv, - double const* anorm, - double* rcond, - lapack_complex_double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zspcon(...) LAPACK_zspcon_base(__VA_ARGS__, 1) -#else - #define LAPACK_zspcon(...) LAPACK_zspcon_base(__VA_ARGS__) -#endif - -#define LAPACK_dspev_base LAPACK_GLOBAL(dspev,DSPEV) -void LAPACK_dspev_base( - char const* jobz, char const* uplo, - lapack_int const* n, - double* AP, - double* W, - double* Z, lapack_int const* ldz, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dspev(...) LAPACK_dspev_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dspev(...) LAPACK_dspev_base(__VA_ARGS__) -#endif - -#define LAPACK_sspev_base LAPACK_GLOBAL(sspev,SSPEV) -void LAPACK_sspev_base( - char const* jobz, char const* uplo, - lapack_int const* n, - float* AP, - float* W, - float* Z, lapack_int const* ldz, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sspev(...) LAPACK_sspev_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sspev(...) LAPACK_sspev_base(__VA_ARGS__) -#endif - -#define LAPACK_dspevd_base LAPACK_GLOBAL(dspevd,DSPEVD) -void LAPACK_dspevd_base( - char const* jobz, char const* uplo, - lapack_int const* n, - double* AP, - double* W, - double* Z, lapack_int const* ldz, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dspevd(...) LAPACK_dspevd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dspevd(...) LAPACK_dspevd_base(__VA_ARGS__) -#endif - -#define LAPACK_sspevd_base LAPACK_GLOBAL(sspevd,SSPEVD) -void LAPACK_sspevd_base( - char const* jobz, char const* uplo, - lapack_int const* n, - float* AP, - float* W, - float* Z, lapack_int const* ldz, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sspevd(...) LAPACK_sspevd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sspevd(...) LAPACK_sspevd_base(__VA_ARGS__) -#endif - -#define LAPACK_dspevx_base LAPACK_GLOBAL(dspevx,DSPEVX) -void LAPACK_dspevx_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - double* AP, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - double* Z, lapack_int const* ldz, - double* work, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dspevx(...) LAPACK_dspevx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dspevx(...) LAPACK_dspevx_base(__VA_ARGS__) -#endif - -#define LAPACK_sspevx_base LAPACK_GLOBAL(sspevx,SSPEVX) -void LAPACK_sspevx_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - float* AP, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - float* Z, lapack_int const* ldz, - float* work, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sspevx(...) LAPACK_sspevx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_sspevx(...) LAPACK_sspevx_base(__VA_ARGS__) -#endif - -#define LAPACK_dspgst_base LAPACK_GLOBAL(dspgst,DSPGST) -void LAPACK_dspgst_base( - lapack_int const* itype, char const* uplo, - lapack_int const* n, - double* AP, - double const* BP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dspgst(...) LAPACK_dspgst_base(__VA_ARGS__, 1) -#else - #define LAPACK_dspgst(...) LAPACK_dspgst_base(__VA_ARGS__) -#endif - -#define LAPACK_sspgst_base LAPACK_GLOBAL(sspgst,SSPGST) -void LAPACK_sspgst_base( - lapack_int const* itype, char const* uplo, - lapack_int const* n, - float* AP, - float const* BP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sspgst(...) LAPACK_sspgst_base(__VA_ARGS__, 1) -#else - #define LAPACK_sspgst(...) LAPACK_sspgst_base(__VA_ARGS__) -#endif - -#define LAPACK_dspgv_base LAPACK_GLOBAL(dspgv,DSPGV) -void LAPACK_dspgv_base( - lapack_int const* itype, char const* jobz, char const* uplo, - lapack_int const* n, - double* AP, - double* BP, - double* W, - double* Z, lapack_int const* ldz, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dspgv(...) LAPACK_dspgv_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dspgv(...) LAPACK_dspgv_base(__VA_ARGS__) -#endif - -#define LAPACK_sspgv_base LAPACK_GLOBAL(sspgv,SSPGV) -void LAPACK_sspgv_base( - lapack_int const* itype, char const* jobz, char const* uplo, - lapack_int const* n, - float* AP, - float* BP, - float* W, - float* Z, lapack_int const* ldz, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sspgv(...) LAPACK_sspgv_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sspgv(...) LAPACK_sspgv_base(__VA_ARGS__) -#endif - -#define LAPACK_dspgvd_base LAPACK_GLOBAL(dspgvd,DSPGVD) -void LAPACK_dspgvd_base( - lapack_int const* itype, char const* jobz, char const* uplo, - lapack_int const* n, - double* AP, - double* BP, - double* W, - double* Z, lapack_int const* ldz, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dspgvd(...) LAPACK_dspgvd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dspgvd(...) LAPACK_dspgvd_base(__VA_ARGS__) -#endif - -#define LAPACK_sspgvd_base LAPACK_GLOBAL(sspgvd,SSPGVD) -void LAPACK_sspgvd_base( - lapack_int const* itype, char const* jobz, char const* uplo, - lapack_int const* n, - float* AP, - float* BP, - float* W, - float* Z, lapack_int const* ldz, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sspgvd(...) LAPACK_sspgvd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sspgvd(...) LAPACK_sspgvd_base(__VA_ARGS__) -#endif - -#define LAPACK_dspgvx_base LAPACK_GLOBAL(dspgvx,DSPGVX) -void LAPACK_dspgvx_base( - lapack_int const* itype, char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - double* AP, - double* BP, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - double* Z, lapack_int const* ldz, - double* work, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dspgvx(...) LAPACK_dspgvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dspgvx(...) LAPACK_dspgvx_base(__VA_ARGS__) -#endif - -#define LAPACK_sspgvx_base LAPACK_GLOBAL(sspgvx,SSPGVX) -void LAPACK_sspgvx_base( - lapack_int const* itype, char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - float* AP, - float* BP, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - float* Z, lapack_int const* ldz, - float* work, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sspgvx(...) LAPACK_sspgvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_sspgvx(...) LAPACK_sspgvx_base(__VA_ARGS__) -#endif - -#define LAPACK_csprfs_base LAPACK_GLOBAL(csprfs,CSPRFS) -void LAPACK_csprfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* AP, - lapack_complex_float const* AFP, lapack_int const* ipiv, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* ferr, - float* berr, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csprfs(...) LAPACK_csprfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_csprfs(...) LAPACK_csprfs_base(__VA_ARGS__) -#endif - -#define LAPACK_dsprfs_base LAPACK_GLOBAL(dsprfs,DSPRFS) -void LAPACK_dsprfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double const* AP, - double const* AFP, lapack_int const* ipiv, - double const* B, lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* ferr, - double* berr, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsprfs(...) LAPACK_dsprfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsprfs(...) LAPACK_dsprfs_base(__VA_ARGS__) -#endif - -#define LAPACK_ssprfs_base LAPACK_GLOBAL(ssprfs,SSPRFS) -void LAPACK_ssprfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float const* AP, - float const* AFP, lapack_int const* ipiv, - float const* B, lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* ferr, - float* berr, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssprfs(...) LAPACK_ssprfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssprfs(...) LAPACK_ssprfs_base(__VA_ARGS__) -#endif - -#define LAPACK_zsprfs_base LAPACK_GLOBAL(zsprfs,ZSPRFS) -void LAPACK_zsprfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* AP, - lapack_complex_double const* AFP, lapack_int const* ipiv, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* ferr, - double* berr, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsprfs(...) LAPACK_zsprfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsprfs(...) LAPACK_zsprfs_base(__VA_ARGS__) -#endif - -#define LAPACK_cspsv_base LAPACK_GLOBAL(cspsv,CSPSV) -void LAPACK_cspsv_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* AP, lapack_int* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cspsv(...) LAPACK_cspsv_base(__VA_ARGS__, 1) -#else - #define LAPACK_cspsv(...) LAPACK_cspsv_base(__VA_ARGS__) -#endif - -#define LAPACK_dspsv_base LAPACK_GLOBAL(dspsv,DSPSV) -void LAPACK_dspsv_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double* AP, lapack_int* ipiv, - double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dspsv(...) LAPACK_dspsv_base(__VA_ARGS__, 1) -#else - #define LAPACK_dspsv(...) LAPACK_dspsv_base(__VA_ARGS__) -#endif - -#define LAPACK_sspsv_base LAPACK_GLOBAL(sspsv,SSPSV) -void LAPACK_sspsv_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float* AP, lapack_int* ipiv, - float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sspsv(...) LAPACK_sspsv_base(__VA_ARGS__, 1) -#else - #define LAPACK_sspsv(...) LAPACK_sspsv_base(__VA_ARGS__) -#endif - -#define LAPACK_zspsv_base LAPACK_GLOBAL(zspsv,ZSPSV) -void LAPACK_zspsv_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* AP, lapack_int* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zspsv(...) LAPACK_zspsv_base(__VA_ARGS__, 1) -#else - #define LAPACK_zspsv(...) LAPACK_zspsv_base(__VA_ARGS__) -#endif - -#define LAPACK_cspsvx_base LAPACK_GLOBAL(cspsvx,CSPSVX) -void LAPACK_cspsvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* AP, - lapack_complex_float* AFP, lapack_int* ipiv, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* rcond, - float* ferr, - float* berr, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cspsvx(...) LAPACK_cspsvx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cspsvx(...) LAPACK_cspsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_dspsvx_base LAPACK_GLOBAL(dspsvx,DSPSVX) -void LAPACK_dspsvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double const* AP, - double* AFP, lapack_int* ipiv, - double const* B, lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* rcond, - double* ferr, - double* berr, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dspsvx(...) LAPACK_dspsvx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dspsvx(...) LAPACK_dspsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_sspsvx_base LAPACK_GLOBAL(sspsvx,SSPSVX) -void LAPACK_sspsvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float const* AP, - float* AFP, lapack_int* ipiv, - float const* B, lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* rcond, - float* ferr, - float* berr, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sspsvx(...) LAPACK_sspsvx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sspsvx(...) LAPACK_sspsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_zspsvx_base LAPACK_GLOBAL(zspsvx,ZSPSVX) -void LAPACK_zspsvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* AP, - lapack_complex_double* AFP, lapack_int* ipiv, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* rcond, - double* ferr, - double* berr, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zspsvx(...) LAPACK_zspsvx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zspsvx(...) LAPACK_zspsvx_base(__VA_ARGS__) -#endif - -#define LAPACK_dsptrd_base LAPACK_GLOBAL(dsptrd,DSPTRD) -void LAPACK_dsptrd_base( - char const* uplo, - lapack_int const* n, - double* AP, - double* D, - double* E, - double* tau, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsptrd(...) LAPACK_dsptrd_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsptrd(...) LAPACK_dsptrd_base(__VA_ARGS__) -#endif - -#define LAPACK_ssptrd_base LAPACK_GLOBAL(ssptrd,SSPTRD) -void LAPACK_ssptrd_base( - char const* uplo, - lapack_int const* n, - float* AP, - float* D, - float* E, - float* tau, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssptrd(...) LAPACK_ssptrd_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssptrd(...) LAPACK_ssptrd_base(__VA_ARGS__) -#endif - -#define LAPACK_csptrf_base LAPACK_GLOBAL(csptrf,CSPTRF) -void LAPACK_csptrf_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* AP, lapack_int* ipiv, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csptrf(...) LAPACK_csptrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_csptrf(...) LAPACK_csptrf_base(__VA_ARGS__) -#endif - -#define LAPACK_dsptrf_base LAPACK_GLOBAL(dsptrf,DSPTRF) -void LAPACK_dsptrf_base( - char const* uplo, - lapack_int const* n, - double* AP, lapack_int* ipiv, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsptrf(...) LAPACK_dsptrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsptrf(...) LAPACK_dsptrf_base(__VA_ARGS__) -#endif - -#define LAPACK_ssptrf_base LAPACK_GLOBAL(ssptrf,SSPTRF) -void LAPACK_ssptrf_base( - char const* uplo, - lapack_int const* n, - float* AP, lapack_int* ipiv, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssptrf(...) LAPACK_ssptrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssptrf(...) LAPACK_ssptrf_base(__VA_ARGS__) -#endif - -#define LAPACK_zsptrf_base LAPACK_GLOBAL(zsptrf,ZSPTRF) -void LAPACK_zsptrf_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* AP, lapack_int* ipiv, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsptrf(...) LAPACK_zsptrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsptrf(...) LAPACK_zsptrf_base(__VA_ARGS__) -#endif - -#define LAPACK_csptri_base LAPACK_GLOBAL(csptri,CSPTRI) -void LAPACK_csptri_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* AP, lapack_int const* ipiv, - lapack_complex_float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csptri(...) LAPACK_csptri_base(__VA_ARGS__, 1) -#else - #define LAPACK_csptri(...) LAPACK_csptri_base(__VA_ARGS__) -#endif - -#define LAPACK_dsptri_base LAPACK_GLOBAL(dsptri,DSPTRI) -void LAPACK_dsptri_base( - char const* uplo, - lapack_int const* n, - double* AP, lapack_int const* ipiv, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsptri(...) LAPACK_dsptri_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsptri(...) LAPACK_dsptri_base(__VA_ARGS__) -#endif - -#define LAPACK_ssptri_base LAPACK_GLOBAL(ssptri,SSPTRI) -void LAPACK_ssptri_base( - char const* uplo, - lapack_int const* n, - float* AP, lapack_int const* ipiv, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssptri(...) LAPACK_ssptri_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssptri(...) LAPACK_ssptri_base(__VA_ARGS__) -#endif - -#define LAPACK_zsptri_base LAPACK_GLOBAL(zsptri,ZSPTRI) -void LAPACK_zsptri_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* AP, lapack_int const* ipiv, - lapack_complex_double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsptri(...) LAPACK_zsptri_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsptri(...) LAPACK_zsptri_base(__VA_ARGS__) -#endif - -#define LAPACK_csptrs_base LAPACK_GLOBAL(csptrs,CSPTRS) -void LAPACK_csptrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* AP, lapack_int const* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csptrs(...) LAPACK_csptrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_csptrs(...) LAPACK_csptrs_base(__VA_ARGS__) -#endif - -#define LAPACK_dsptrs_base LAPACK_GLOBAL(dsptrs,DSPTRS) -void LAPACK_dsptrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double const* AP, lapack_int const* ipiv, - double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsptrs(...) LAPACK_dsptrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsptrs(...) LAPACK_dsptrs_base(__VA_ARGS__) -#endif - -#define LAPACK_ssptrs_base LAPACK_GLOBAL(ssptrs,SSPTRS) -void LAPACK_ssptrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float const* AP, lapack_int const* ipiv, - float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssptrs(...) LAPACK_ssptrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssptrs(...) LAPACK_ssptrs_base(__VA_ARGS__) -#endif - -#define LAPACK_zsptrs_base LAPACK_GLOBAL(zsptrs,ZSPTRS) -void LAPACK_zsptrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* AP, lapack_int const* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsptrs(...) LAPACK_zsptrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsptrs(...) LAPACK_zsptrs_base(__VA_ARGS__) -#endif - -#define LAPACK_dstebz_base LAPACK_GLOBAL(dstebz,DSTEBZ) -void LAPACK_dstebz_base( - char const* range, char const* order, - lapack_int const* n, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, - double const* D, - double const* E, lapack_int* m, lapack_int* nsplit, - double* W, lapack_int* IBLOCK, lapack_int* ISPLIT, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dstebz(...) LAPACK_dstebz_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dstebz(...) LAPACK_dstebz_base(__VA_ARGS__) -#endif - -#define LAPACK_sstebz_base LAPACK_GLOBAL(sstebz,SSTEBZ) -void LAPACK_sstebz_base( - char const* range, char const* order, - lapack_int const* n, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, - float const* D, - float const* E, lapack_int* m, lapack_int* nsplit, - float* W, lapack_int* IBLOCK, lapack_int* ISPLIT, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sstebz(...) LAPACK_sstebz_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sstebz(...) LAPACK_sstebz_base(__VA_ARGS__) -#endif - -#define LAPACK_cstedc_base LAPACK_GLOBAL(cstedc,CSTEDC) -void LAPACK_cstedc_base( - char const* compz, - lapack_int const* n, - float* D, - float* E, - lapack_complex_float* Z, lapack_int const* ldz, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, lapack_int const* lrwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cstedc(...) LAPACK_cstedc_base(__VA_ARGS__, 1) -#else - #define LAPACK_cstedc(...) LAPACK_cstedc_base(__VA_ARGS__) -#endif - -#define LAPACK_dstedc_base LAPACK_GLOBAL(dstedc,DSTEDC) -void LAPACK_dstedc_base( - char const* compz, - lapack_int const* n, - double* D, - double* E, - double* Z, lapack_int const* ldz, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dstedc(...) LAPACK_dstedc_base(__VA_ARGS__, 1) -#else - #define LAPACK_dstedc(...) LAPACK_dstedc_base(__VA_ARGS__) -#endif - -#define LAPACK_sstedc_base LAPACK_GLOBAL(sstedc,SSTEDC) -void LAPACK_sstedc_base( - char const* compz, - lapack_int const* n, - float* D, - float* E, - float* Z, lapack_int const* ldz, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sstedc(...) LAPACK_sstedc_base(__VA_ARGS__, 1) -#else - #define LAPACK_sstedc(...) LAPACK_sstedc_base(__VA_ARGS__) -#endif - -#define LAPACK_zstedc_base LAPACK_GLOBAL(zstedc,ZSTEDC) -void LAPACK_zstedc_base( - char const* compz, - lapack_int const* n, - double* D, - double* E, - lapack_complex_double* Z, lapack_int const* ldz, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, lapack_int const* lrwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zstedc(...) LAPACK_zstedc_base(__VA_ARGS__, 1) -#else - #define LAPACK_zstedc(...) LAPACK_zstedc_base(__VA_ARGS__) -#endif - -#define LAPACK_cstegr_base LAPACK_GLOBAL(cstegr,CSTEGR) -void LAPACK_cstegr_base( - char const* jobz, char const* range, - lapack_int const* n, - float* D, - float* E, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - lapack_complex_float* Z, lapack_int const* ldz, lapack_int* ISUPPZ, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cstegr(...) LAPACK_cstegr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cstegr(...) LAPACK_cstegr_base(__VA_ARGS__) -#endif - -#define LAPACK_dstegr_base LAPACK_GLOBAL(dstegr,DSTEGR) -void LAPACK_dstegr_base( - char const* jobz, char const* range, - lapack_int const* n, - double* D, - double* E, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - double* Z, lapack_int const* ldz, lapack_int* ISUPPZ, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dstegr(...) LAPACK_dstegr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dstegr(...) LAPACK_dstegr_base(__VA_ARGS__) -#endif - -#define LAPACK_sstegr_base LAPACK_GLOBAL(sstegr,SSTEGR) -void LAPACK_sstegr_base( - char const* jobz, char const* range, - lapack_int const* n, - float* D, - float* E, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - float* Z, lapack_int const* ldz, lapack_int* ISUPPZ, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sstegr(...) LAPACK_sstegr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sstegr(...) LAPACK_sstegr_base(__VA_ARGS__) -#endif - -#define LAPACK_zstegr_base LAPACK_GLOBAL(zstegr,ZSTEGR) -void LAPACK_zstegr_base( - char const* jobz, char const* range, - lapack_int const* n, - double* D, - double* E, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - lapack_complex_double* Z, lapack_int const* ldz, lapack_int* ISUPPZ, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zstegr(...) LAPACK_zstegr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zstegr(...) LAPACK_zstegr_base(__VA_ARGS__) -#endif - -#define LAPACK_cstein LAPACK_GLOBAL(cstein,CSTEIN) -void LAPACK_cstein( - lapack_int const* n, - float const* D, - float const* E, lapack_int const* m, - float const* W, lapack_int const* IBLOCK, lapack_int const* ISPLIT, - lapack_complex_float* Z, lapack_int const* ldz, - float* work, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); - -#define LAPACK_dstein LAPACK_GLOBAL(dstein,DSTEIN) -void LAPACK_dstein( - lapack_int const* n, - double const* D, - double const* E, lapack_int const* m, - double const* W, lapack_int const* IBLOCK, lapack_int const* ISPLIT, - double* Z, lapack_int const* ldz, - double* work, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); - -#define LAPACK_sstein LAPACK_GLOBAL(sstein,SSTEIN) -void LAPACK_sstein( - lapack_int const* n, - float const* D, - float const* E, lapack_int const* m, - float const* W, lapack_int const* IBLOCK, lapack_int const* ISPLIT, - float* Z, lapack_int const* ldz, - float* work, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); - -#define LAPACK_zstein LAPACK_GLOBAL(zstein,ZSTEIN) -void LAPACK_zstein( - lapack_int const* n, - double const* D, - double const* E, lapack_int const* m, - double const* W, lapack_int const* IBLOCK, lapack_int const* ISPLIT, - lapack_complex_double* Z, lapack_int const* ldz, - double* work, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info ); - -#define LAPACK_cstemr_base LAPACK_GLOBAL(cstemr,CSTEMR) -void LAPACK_cstemr_base( - char const* jobz, char const* range, - lapack_int const* n, - float* D, - float* E, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* m, - float* W, - lapack_complex_float* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cstemr(...) LAPACK_cstemr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cstemr(...) LAPACK_cstemr_base(__VA_ARGS__) -#endif - -#define LAPACK_dstemr_base LAPACK_GLOBAL(dstemr,DSTEMR) -void LAPACK_dstemr_base( - char const* jobz, char const* range, - lapack_int const* n, - double* D, - double* E, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* m, - double* W, - double* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dstemr(...) LAPACK_dstemr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dstemr(...) LAPACK_dstemr_base(__VA_ARGS__) -#endif - -#define LAPACK_sstemr_base LAPACK_GLOBAL(sstemr,SSTEMR) -void LAPACK_sstemr_base( - char const* jobz, char const* range, - lapack_int const* n, - float* D, - float* E, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* m, - float* W, - float* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sstemr(...) LAPACK_sstemr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sstemr(...) LAPACK_sstemr_base(__VA_ARGS__) -#endif - -#define LAPACK_zstemr_base LAPACK_GLOBAL(zstemr,ZSTEMR) -void LAPACK_zstemr_base( - char const* jobz, char const* range, - lapack_int const* n, - double* D, - double* E, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* m, - double* W, - lapack_complex_double* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zstemr(...) LAPACK_zstemr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zstemr(...) LAPACK_zstemr_base(__VA_ARGS__) -#endif - -#define LAPACK_csteqr_base LAPACK_GLOBAL(csteqr,CSTEQR) -void LAPACK_csteqr_base( - char const* compz, - lapack_int const* n, - float* D, - float* E, - lapack_complex_float* Z, lapack_int const* ldz, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csteqr(...) LAPACK_csteqr_base(__VA_ARGS__, 1) -#else - #define LAPACK_csteqr(...) LAPACK_csteqr_base(__VA_ARGS__) -#endif - -#define LAPACK_dsteqr_base LAPACK_GLOBAL(dsteqr,DSTEQR) -void LAPACK_dsteqr_base( - char const* compz, - lapack_int const* n, - double* D, - double* E, - double* Z, lapack_int const* ldz, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsteqr(...) LAPACK_dsteqr_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsteqr(...) LAPACK_dsteqr_base(__VA_ARGS__) -#endif - -#define LAPACK_ssteqr_base LAPACK_GLOBAL(ssteqr,SSTEQR) -void LAPACK_ssteqr_base( - char const* compz, - lapack_int const* n, - float* D, - float* E, - float* Z, lapack_int const* ldz, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssteqr(...) LAPACK_ssteqr_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssteqr(...) LAPACK_ssteqr_base(__VA_ARGS__) -#endif - -#define LAPACK_zsteqr_base LAPACK_GLOBAL(zsteqr,ZSTEQR) -void LAPACK_zsteqr_base( - char const* compz, - lapack_int const* n, - double* D, - double* E, - lapack_complex_double* Z, lapack_int const* ldz, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsteqr(...) LAPACK_zsteqr_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsteqr(...) LAPACK_zsteqr_base(__VA_ARGS__) -#endif - -#define LAPACK_dsterf LAPACK_GLOBAL(dsterf,DSTERF) -void LAPACK_dsterf( - lapack_int const* n, - double* D, - double* E, - lapack_int* info ); - -#define LAPACK_ssterf LAPACK_GLOBAL(ssterf,SSTERF) -void LAPACK_ssterf( - lapack_int const* n, - float* D, - float* E, - lapack_int* info ); - -#define LAPACK_dstev_base LAPACK_GLOBAL(dstev,DSTEV) -void LAPACK_dstev_base( - char const* jobz, - lapack_int const* n, - double* D, - double* E, - double* Z, lapack_int const* ldz, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dstev(...) LAPACK_dstev_base(__VA_ARGS__, 1) -#else - #define LAPACK_dstev(...) LAPACK_dstev_base(__VA_ARGS__) -#endif - -#define LAPACK_sstev_base LAPACK_GLOBAL(sstev,SSTEV) -void LAPACK_sstev_base( - char const* jobz, - lapack_int const* n, - float* D, - float* E, - float* Z, lapack_int const* ldz, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sstev(...) LAPACK_sstev_base(__VA_ARGS__, 1) -#else - #define LAPACK_sstev(...) LAPACK_sstev_base(__VA_ARGS__) -#endif - -#define LAPACK_dstevd_base LAPACK_GLOBAL(dstevd,DSTEVD) -void LAPACK_dstevd_base( - char const* jobz, - lapack_int const* n, - double* D, - double* E, - double* Z, lapack_int const* ldz, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dstevd(...) LAPACK_dstevd_base(__VA_ARGS__, 1) -#else - #define LAPACK_dstevd(...) LAPACK_dstevd_base(__VA_ARGS__) -#endif - -#define LAPACK_sstevd_base LAPACK_GLOBAL(sstevd,SSTEVD) -void LAPACK_sstevd_base( - char const* jobz, - lapack_int const* n, - float* D, - float* E, - float* Z, lapack_int const* ldz, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sstevd(...) LAPACK_sstevd_base(__VA_ARGS__, 1) -#else - #define LAPACK_sstevd(...) LAPACK_sstevd_base(__VA_ARGS__) -#endif - -#define LAPACK_dstevr_base LAPACK_GLOBAL(dstevr,DSTEVR) -void LAPACK_dstevr_base( - char const* jobz, char const* range, - lapack_int const* n, - double* D, - double* E, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - double* Z, lapack_int const* ldz, lapack_int* ISUPPZ, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dstevr(...) LAPACK_dstevr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dstevr(...) LAPACK_dstevr_base(__VA_ARGS__) -#endif - -#define LAPACK_sstevr_base LAPACK_GLOBAL(sstevr,SSTEVR) -void LAPACK_sstevr_base( - char const* jobz, char const* range, - lapack_int const* n, - float* D, - float* E, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - float* Z, lapack_int const* ldz, lapack_int* ISUPPZ, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sstevr(...) LAPACK_sstevr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sstevr(...) LAPACK_sstevr_base(__VA_ARGS__) -#endif - -#define LAPACK_dstevx_base LAPACK_GLOBAL(dstevx,DSTEVX) -void LAPACK_dstevx_base( - char const* jobz, char const* range, - lapack_int const* n, - double* D, - double* E, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - double* Z, lapack_int const* ldz, - double* work, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dstevx(...) LAPACK_dstevx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dstevx(...) LAPACK_dstevx_base(__VA_ARGS__) -#endif - -#define LAPACK_sstevx_base LAPACK_GLOBAL(sstevx,SSTEVX) -void LAPACK_sstevx_base( - char const* jobz, char const* range, - lapack_int const* n, - float* D, - float* E, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - float* Z, lapack_int const* ldz, - float* work, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_sstevx(...) LAPACK_sstevx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_sstevx(...) LAPACK_sstevx_base(__VA_ARGS__) -#endif - -#define LAPACK_csycon_base LAPACK_GLOBAL(csycon,CSYCON) -void LAPACK_csycon_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, - float const* anorm, - float* rcond, - lapack_complex_float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csycon(...) LAPACK_csycon_base(__VA_ARGS__, 1) -#else - #define LAPACK_csycon(...) LAPACK_csycon_base(__VA_ARGS__) -#endif - -#define LAPACK_dsycon_base LAPACK_GLOBAL(dsycon,DSYCON) -void LAPACK_dsycon_base( - char const* uplo, - lapack_int const* n, - double const* A, lapack_int const* lda, lapack_int const* ipiv, - double const* anorm, - double* rcond, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsycon(...) LAPACK_dsycon_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsycon(...) LAPACK_dsycon_base(__VA_ARGS__) -#endif - -#define LAPACK_ssycon_base LAPACK_GLOBAL(ssycon,SSYCON) -void LAPACK_ssycon_base( - char const* uplo, - lapack_int const* n, - float const* A, lapack_int const* lda, lapack_int const* ipiv, - float const* anorm, - float* rcond, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssycon(...) LAPACK_ssycon_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssycon(...) LAPACK_ssycon_base(__VA_ARGS__) -#endif - -#define LAPACK_zsycon_base LAPACK_GLOBAL(zsycon,ZSYCON) -void LAPACK_zsycon_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, - double const* anorm, - double* rcond, - lapack_complex_double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsycon(...) LAPACK_zsycon_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsycon(...) LAPACK_zsycon_base(__VA_ARGS__) -#endif - -#define LAPACK_csycon_3_base LAPACK_GLOBAL(csycon_3,CSYCON_3) -void LAPACK_csycon_3_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* E, lapack_int const* ipiv, - float const* anorm, - float* rcond, - lapack_complex_float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csycon_3(...) LAPACK_csycon_3_base(__VA_ARGS__, 1) -#else - #define LAPACK_csycon_3(...) LAPACK_csycon_3_base(__VA_ARGS__) -#endif - -#define LAPACK_dsycon_3_base LAPACK_GLOBAL(dsycon_3,DSYCON_3) -void LAPACK_dsycon_3_base( - char const* uplo, - lapack_int const* n, - double const* A, lapack_int const* lda, - double const* E, lapack_int const* ipiv, - double const* anorm, - double* rcond, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsycon_3(...) LAPACK_dsycon_3_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsycon_3(...) LAPACK_dsycon_3_base(__VA_ARGS__) -#endif - -#define LAPACK_ssycon_3_base LAPACK_GLOBAL(ssycon_3,SSYCON_3) -void LAPACK_ssycon_3_base( - char const* uplo, - lapack_int const* n, - float const* A, lapack_int const* lda, - float const* E, lapack_int const* ipiv, - float const* anorm, - float* rcond, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssycon_3(...) LAPACK_ssycon_3_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssycon_3(...) LAPACK_ssycon_3_base(__VA_ARGS__) -#endif - -#define LAPACK_zsycon_3_base LAPACK_GLOBAL(zsycon_3,ZSYCON_3) -void LAPACK_zsycon_3_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* E, lapack_int const* ipiv, - double const* anorm, - double* rcond, - lapack_complex_double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsycon_3(...) LAPACK_zsycon_3_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsycon_3(...) LAPACK_zsycon_3_base(__VA_ARGS__) -#endif - -#define LAPACK_csyconv_base LAPACK_GLOBAL(csyconv,CSYCONV) -void LAPACK_csyconv_base( - char const* uplo, char const* way, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_float* E, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csyconv(...) LAPACK_csyconv_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_csyconv(...) LAPACK_csyconv_base(__VA_ARGS__) -#endif - -#define LAPACK_dsyconv_base LAPACK_GLOBAL(dsyconv,DSYCONV) -void LAPACK_dsyconv_base( - char const* uplo, char const* way, - lapack_int const* n, - double* A, lapack_int const* lda, lapack_int const* ipiv, - double* E, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsyconv(...) LAPACK_dsyconv_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dsyconv(...) LAPACK_dsyconv_base(__VA_ARGS__) -#endif - -#define LAPACK_ssyconv_base LAPACK_GLOBAL(ssyconv,SSYCONV) -void LAPACK_ssyconv_base( - char const* uplo, char const* way, - lapack_int const* n, - float* A, lapack_int const* lda, lapack_int const* ipiv, - float* E, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssyconv(...) LAPACK_ssyconv_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ssyconv(...) LAPACK_ssyconv_base(__VA_ARGS__) -#endif - -#define LAPACK_zsyconv_base LAPACK_GLOBAL(zsyconv,ZSYCONV) -void LAPACK_zsyconv_base( - char const* uplo, char const* way, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_double* E, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsyconv(...) LAPACK_zsyconv_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zsyconv(...) LAPACK_zsyconv_base(__VA_ARGS__) -#endif - -#define LAPACK_csyequb_base LAPACK_GLOBAL(csyequb,CSYEQUB) -void LAPACK_csyequb_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - float* S, - float* scond, - float* amax, - lapack_complex_float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csyequb(...) LAPACK_csyequb_base(__VA_ARGS__, 1) -#else - #define LAPACK_csyequb(...) LAPACK_csyequb_base(__VA_ARGS__) -#endif - -#define LAPACK_dsyequb_base LAPACK_GLOBAL(dsyequb,DSYEQUB) -void LAPACK_dsyequb_base( - char const* uplo, - lapack_int const* n, - double const* A, lapack_int const* lda, - double* S, - double* scond, - double* amax, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsyequb(...) LAPACK_dsyequb_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsyequb(...) LAPACK_dsyequb_base(__VA_ARGS__) -#endif - -#define LAPACK_ssyequb_base LAPACK_GLOBAL(ssyequb,SSYEQUB) -void LAPACK_ssyequb_base( - char const* uplo, - lapack_int const* n, - float const* A, lapack_int const* lda, - float* S, - float* scond, - float* amax, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssyequb(...) LAPACK_ssyequb_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssyequb(...) LAPACK_ssyequb_base(__VA_ARGS__) -#endif - -#define LAPACK_zsyequb_base LAPACK_GLOBAL(zsyequb,ZSYEQUB) -void LAPACK_zsyequb_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - double* S, - double* scond, - double* amax, - lapack_complex_double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsyequb(...) LAPACK_zsyequb_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsyequb(...) LAPACK_zsyequb_base(__VA_ARGS__) -#endif - -#define LAPACK_dsyev_base LAPACK_GLOBAL(dsyev,DSYEV) -void LAPACK_dsyev_base( - char const* jobz, char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - double* W, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsyev(...) LAPACK_dsyev_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dsyev(...) LAPACK_dsyev_base(__VA_ARGS__) -#endif - -#define LAPACK_ssyev_base LAPACK_GLOBAL(ssyev,SSYEV) -void LAPACK_ssyev_base( - char const* jobz, char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - float* W, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssyev(...) LAPACK_ssyev_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ssyev(...) LAPACK_ssyev_base(__VA_ARGS__) -#endif - -#define LAPACK_dsyev_2stage_base LAPACK_GLOBAL(dsyev_2stage,DSYEV_2STAGE) -void LAPACK_dsyev_2stage_base( - char const* jobz, char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - double* W, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsyev_2stage(...) LAPACK_dsyev_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dsyev_2stage(...) LAPACK_dsyev_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_ssyev_2stage_base LAPACK_GLOBAL(ssyev_2stage,SSYEV_2STAGE) -void LAPACK_ssyev_2stage_base( - char const* jobz, char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - float* W, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssyev_2stage(...) LAPACK_ssyev_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ssyev_2stage(...) LAPACK_ssyev_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_dsyevd_base LAPACK_GLOBAL(dsyevd,DSYEVD) -void LAPACK_dsyevd_base( - char const* jobz, char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - double* W, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsyevd(...) LAPACK_dsyevd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dsyevd(...) LAPACK_dsyevd_base(__VA_ARGS__) -#endif - -#define LAPACK_ssyevd_base LAPACK_GLOBAL(ssyevd,SSYEVD) -void LAPACK_ssyevd_base( - char const* jobz, char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - float* W, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssyevd(...) LAPACK_ssyevd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ssyevd(...) LAPACK_ssyevd_base(__VA_ARGS__) -#endif - -#define LAPACK_dsyevd_2stage_base LAPACK_GLOBAL(dsyevd_2stage,DSYEVD_2STAGE) -void LAPACK_dsyevd_2stage_base( - char const* jobz, char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - double* W, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsyevd_2stage(...) LAPACK_dsyevd_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dsyevd_2stage(...) LAPACK_dsyevd_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_ssyevd_2stage_base LAPACK_GLOBAL(ssyevd_2stage,SSYEVD_2STAGE) -void LAPACK_ssyevd_2stage_base( - char const* jobz, char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - float* W, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssyevd_2stage(...) LAPACK_ssyevd_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ssyevd_2stage(...) LAPACK_ssyevd_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_dsyevr_base LAPACK_GLOBAL(dsyevr,DSYEVR) -void LAPACK_dsyevr_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - double* Z, lapack_int const* ldz, lapack_int* ISUPPZ, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsyevr(...) LAPACK_dsyevr_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dsyevr(...) LAPACK_dsyevr_base(__VA_ARGS__) -#endif - -#define LAPACK_ssyevr_base LAPACK_GLOBAL(ssyevr,SSYEVR) -void LAPACK_ssyevr_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - float* Z, lapack_int const* ldz, lapack_int* ISUPPZ, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssyevr(...) LAPACK_ssyevr_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ssyevr(...) LAPACK_ssyevr_base(__VA_ARGS__) -#endif - -#define LAPACK_dsyevr_2stage_base LAPACK_GLOBAL(dsyevr_2stage,DSYEVR_2STAGE) -void LAPACK_dsyevr_2stage_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - double* Z, lapack_int const* ldz, lapack_int* ISUPPZ, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsyevr_2stage(...) LAPACK_dsyevr_2stage_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dsyevr_2stage(...) LAPACK_dsyevr_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_ssyevr_2stage_base LAPACK_GLOBAL(ssyevr_2stage,SSYEVR_2STAGE) -void LAPACK_ssyevr_2stage_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - float* Z, lapack_int const* ldz, lapack_int* ISUPPZ, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssyevr_2stage(...) LAPACK_ssyevr_2stage_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ssyevr_2stage(...) LAPACK_ssyevr_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_dsyevx_base LAPACK_GLOBAL(dsyevx,DSYEVX) -void LAPACK_dsyevx_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - double* Z, lapack_int const* ldz, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsyevx(...) LAPACK_dsyevx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dsyevx(...) LAPACK_dsyevx_base(__VA_ARGS__) -#endif - -#define LAPACK_ssyevx_base LAPACK_GLOBAL(ssyevx,SSYEVX) -void LAPACK_ssyevx_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - float* Z, lapack_int const* ldz, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssyevx(...) LAPACK_ssyevx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ssyevx(...) LAPACK_ssyevx_base(__VA_ARGS__) -#endif - -#define LAPACK_dsyevx_2stage_base LAPACK_GLOBAL(dsyevx_2stage,DSYEVX_2STAGE) -void LAPACK_dsyevx_2stage_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - double* Z, lapack_int const* ldz, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsyevx_2stage(...) LAPACK_dsyevx_2stage_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dsyevx_2stage(...) LAPACK_dsyevx_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_ssyevx_2stage_base LAPACK_GLOBAL(ssyevx_2stage,SSYEVX_2STAGE) -void LAPACK_ssyevx_2stage_base( - char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - float* Z, lapack_int const* ldz, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssyevx_2stage(...) LAPACK_ssyevx_2stage_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ssyevx_2stage(...) LAPACK_ssyevx_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_dsygst_base LAPACK_GLOBAL(dsygst,DSYGST) -void LAPACK_dsygst_base( - lapack_int const* itype, char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - double const* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsygst(...) LAPACK_dsygst_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsygst(...) LAPACK_dsygst_base(__VA_ARGS__) -#endif - -#define LAPACK_ssygst_base LAPACK_GLOBAL(ssygst,SSYGST) -void LAPACK_ssygst_base( - lapack_int const* itype, char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - float const* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssygst(...) LAPACK_ssygst_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssygst(...) LAPACK_ssygst_base(__VA_ARGS__) -#endif - -#define LAPACK_dsygv_base LAPACK_GLOBAL(dsygv,DSYGV) -void LAPACK_dsygv_base( - lapack_int const* itype, char const* jobz, char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* W, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsygv(...) LAPACK_dsygv_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dsygv(...) LAPACK_dsygv_base(__VA_ARGS__) -#endif - -#define LAPACK_ssygv_base LAPACK_GLOBAL(ssygv,SSYGV) -void LAPACK_ssygv_base( - lapack_int const* itype, char const* jobz, char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* W, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssygv(...) LAPACK_ssygv_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ssygv(...) LAPACK_ssygv_base(__VA_ARGS__) -#endif - -#define LAPACK_dsygv_2stage_base LAPACK_GLOBAL(dsygv_2stage,DSYGV_2STAGE) -void LAPACK_dsygv_2stage_base( - lapack_int const* itype, char const* jobz, char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* W, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsygv_2stage(...) LAPACK_dsygv_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dsygv_2stage(...) LAPACK_dsygv_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_ssygv_2stage_base LAPACK_GLOBAL(ssygv_2stage,SSYGV_2STAGE) -void LAPACK_ssygv_2stage_base( - lapack_int const* itype, char const* jobz, char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* W, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssygv_2stage(...) LAPACK_ssygv_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ssygv_2stage(...) LAPACK_ssygv_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_dsygvd_base LAPACK_GLOBAL(dsygvd,DSYGVD) -void LAPACK_dsygvd_base( - lapack_int const* itype, char const* jobz, char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* W, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsygvd(...) LAPACK_dsygvd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dsygvd(...) LAPACK_dsygvd_base(__VA_ARGS__) -#endif - -#define LAPACK_ssygvd_base LAPACK_GLOBAL(ssygvd,SSYGVD) -void LAPACK_ssygvd_base( - lapack_int const* itype, char const* jobz, char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* W, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssygvd(...) LAPACK_ssygvd_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ssygvd(...) LAPACK_ssygvd_base(__VA_ARGS__) -#endif - -#define LAPACK_dsygvx_base LAPACK_GLOBAL(dsygvx,DSYGVX) -void LAPACK_dsygvx_base( - lapack_int const* itype, char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double const* vl, - double const* vu, lapack_int const* il, lapack_int const* iu, - double const* abstol, lapack_int* m, - double* W, - double* Z, lapack_int const* ldz, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsygvx(...) LAPACK_dsygvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dsygvx(...) LAPACK_dsygvx_base(__VA_ARGS__) -#endif - -#define LAPACK_ssygvx_base LAPACK_GLOBAL(ssygvx,SSYGVX) -void LAPACK_ssygvx_base( - lapack_int const* itype, char const* jobz, char const* range, char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float const* vl, - float const* vu, lapack_int const* il, lapack_int const* iu, - float const* abstol, lapack_int* m, - float* W, - float* Z, lapack_int const* ldz, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int* IFAIL, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssygvx(...) LAPACK_ssygvx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ssygvx(...) LAPACK_ssygvx_base(__VA_ARGS__) -#endif - -#define LAPACK_csyr_base LAPACK_GLOBAL(csyr,CSYR) -void LAPACK_csyr_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float const* alpha, - lapack_complex_float const* X, lapack_int const* incx, - lapack_complex_float* A, lapack_int const* lda -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csyr(...) LAPACK_csyr_base(__VA_ARGS__, 1) -#else - #define LAPACK_csyr(...) LAPACK_csyr_base(__VA_ARGS__) -#endif - -#define LAPACK_zsyr_base LAPACK_GLOBAL(zsyr,ZSYR) -void LAPACK_zsyr_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double const* alpha, - lapack_complex_double const* X, lapack_int const* incx, - lapack_complex_double* A, lapack_int const* lda -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsyr(...) LAPACK_zsyr_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsyr(...) LAPACK_zsyr_base(__VA_ARGS__) -#endif - -#define LAPACK_csyrfs_base LAPACK_GLOBAL(csyrfs,CSYRFS) -void LAPACK_csyrfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* ferr, - float* berr, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csyrfs(...) LAPACK_csyrfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_csyrfs(...) LAPACK_csyrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_dsyrfs_base LAPACK_GLOBAL(dsyrfs,DSYRFS) -void LAPACK_dsyrfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double const* A, lapack_int const* lda, - double const* AF, lapack_int const* ldaf, lapack_int const* ipiv, - double const* B, lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* ferr, - double* berr, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsyrfs(...) LAPACK_dsyrfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsyrfs(...) LAPACK_dsyrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_ssyrfs_base LAPACK_GLOBAL(ssyrfs,SSYRFS) -void LAPACK_ssyrfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float const* A, lapack_int const* lda, - float const* AF, lapack_int const* ldaf, lapack_int const* ipiv, - float const* B, lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* ferr, - float* berr, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssyrfs(...) LAPACK_ssyrfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssyrfs(...) LAPACK_ssyrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_zsyrfs_base LAPACK_GLOBAL(zsyrfs,ZSYRFS) -void LAPACK_zsyrfs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* ferr, - double* berr, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsyrfs(...) LAPACK_zsyrfs_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsyrfs(...) LAPACK_zsyrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_csyrfsx_base LAPACK_GLOBAL(csyrfsx,CSYRFSX) -void LAPACK_csyrfsx_base( - char const* uplo, char const* equed, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv, - const float* S, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* rcond, - float* berr, lapack_int const* n_err_bnds, - float* err_bnds_norm, - float* err_bnds_comp, lapack_int const* nparams, - float* params, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csyrfsx(...) LAPACK_csyrfsx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_csyrfsx(...) LAPACK_csyrfsx_base(__VA_ARGS__) -#endif - -#define LAPACK_dsyrfsx_base LAPACK_GLOBAL(dsyrfsx,DSYRFSX) -void LAPACK_dsyrfsx_base( - char const* uplo, char const* equed, - lapack_int const* n, lapack_int const* nrhs, - double const* A, lapack_int const* lda, - double const* AF, lapack_int const* ldaf, lapack_int const* ipiv, - const double* S, - double const* B, lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* rcond, - double* berr, lapack_int const* n_err_bnds, - double* err_bnds_norm, - double* err_bnds_comp, lapack_int const* nparams, - double* params, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsyrfsx(...) LAPACK_dsyrfsx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dsyrfsx(...) LAPACK_dsyrfsx_base(__VA_ARGS__) -#endif - -#define LAPACK_ssyrfsx_base LAPACK_GLOBAL(ssyrfsx,SSYRFSX) -void LAPACK_ssyrfsx_base( - char const* uplo, char const* equed, - lapack_int const* n, lapack_int const* nrhs, - float const* A, lapack_int const* lda, - float const* AF, lapack_int const* ldaf, lapack_int const* ipiv, - const float* S, - float const* B, lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* rcond, - float* berr, lapack_int const* n_err_bnds, - float* err_bnds_norm, - float* err_bnds_comp, lapack_int const* nparams, - float* params, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssyrfsx(...) LAPACK_ssyrfsx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ssyrfsx(...) LAPACK_ssyrfsx_base(__VA_ARGS__) -#endif - -#define LAPACK_zsyrfsx_base LAPACK_GLOBAL(zsyrfsx,ZSYRFSX) -void LAPACK_zsyrfsx_base( - char const* uplo, char const* equed, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv, - const double* S, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* rcond, - double* berr, lapack_int const* n_err_bnds, - double* err_bnds_norm, - double* err_bnds_comp, lapack_int const* nparams, - double* params, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsyrfsx(...) LAPACK_zsyrfsx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zsyrfsx(...) LAPACK_zsyrfsx_base(__VA_ARGS__) -#endif - -#define LAPACK_csysv_base LAPACK_GLOBAL(csysv,CSYSV) -void LAPACK_csysv_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csysv(...) LAPACK_csysv_base(__VA_ARGS__, 1) -#else - #define LAPACK_csysv(...) LAPACK_csysv_base(__VA_ARGS__) -#endif - -#define LAPACK_dsysv_base LAPACK_GLOBAL(dsysv,DSYSV) -void LAPACK_dsysv_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double* A, lapack_int const* lda, lapack_int* ipiv, - double* B, lapack_int const* ldb, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsysv(...) LAPACK_dsysv_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsysv(...) LAPACK_dsysv_base(__VA_ARGS__) -#endif - -#define LAPACK_ssysv_base LAPACK_GLOBAL(ssysv,SSYSV) -void LAPACK_ssysv_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float* A, lapack_int const* lda, lapack_int* ipiv, - float* B, lapack_int const* ldb, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssysv(...) LAPACK_ssysv_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssysv(...) LAPACK_ssysv_base(__VA_ARGS__) -#endif - -#define LAPACK_zsysv_base LAPACK_GLOBAL(zsysv,ZSYSV) -void LAPACK_zsysv_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsysv(...) LAPACK_zsysv_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsysv(...) LAPACK_zsysv_base(__VA_ARGS__) -#endif - -#define LAPACK_csysv_aa_base LAPACK_GLOBAL(csysv_aa,CSYSV_AA) -void LAPACK_csysv_aa_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csysv_aa(...) LAPACK_csysv_aa_base(__VA_ARGS__, 1) -#else - #define LAPACK_csysv_aa(...) LAPACK_csysv_aa_base(__VA_ARGS__) -#endif - -#define LAPACK_dsysv_aa_base LAPACK_GLOBAL(dsysv_aa,DSYSV_AA) -void LAPACK_dsysv_aa_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double* A, lapack_int const* lda, lapack_int* ipiv, - double* B, lapack_int const* ldb, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsysv_aa(...) LAPACK_dsysv_aa_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsysv_aa(...) LAPACK_dsysv_aa_base(__VA_ARGS__) -#endif - -#define LAPACK_ssysv_aa_base LAPACK_GLOBAL(ssysv_aa,SSYSV_AA) -void LAPACK_ssysv_aa_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float* A, lapack_int const* lda, lapack_int* ipiv, - float* B, lapack_int const* ldb, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssysv_aa(...) LAPACK_ssysv_aa_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssysv_aa(...) LAPACK_ssysv_aa_base(__VA_ARGS__) -#endif - -#define LAPACK_zsysv_aa_base LAPACK_GLOBAL(zsysv_aa,ZSYSV_AA) -void LAPACK_zsysv_aa_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsysv_aa(...) LAPACK_zsysv_aa_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsysv_aa(...) LAPACK_zsysv_aa_base(__VA_ARGS__) -#endif - -#define LAPACK_csysv_aa_2stage_base LAPACK_GLOBAL(csysv_aa_2stage,CSYSV_AA_2STAGE) -void LAPACK_csysv_aa_2stage_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csysv_aa_2stage(...) LAPACK_csysv_aa_2stage_base(__VA_ARGS__, 1) -#else - #define LAPACK_csysv_aa_2stage(...) LAPACK_csysv_aa_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_dsysv_aa_2stage_base LAPACK_GLOBAL(dsysv_aa_2stage,DSYSV_AA_2STAGE) -void LAPACK_dsysv_aa_2stage_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double* A, lapack_int const* lda, - double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, - double* B, lapack_int const* ldb, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsysv_aa_2stage(...) LAPACK_dsysv_aa_2stage_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsysv_aa_2stage(...) LAPACK_dsysv_aa_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_ssysv_aa_2stage_base LAPACK_GLOBAL(ssysv_aa_2stage,SSYSV_AA_2STAGE) -void LAPACK_ssysv_aa_2stage_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float* A, lapack_int const* lda, - float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, - float* B, lapack_int const* ldb, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssysv_aa_2stage(...) LAPACK_ssysv_aa_2stage_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssysv_aa_2stage(...) LAPACK_ssysv_aa_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_zsysv_aa_2stage_base LAPACK_GLOBAL(zsysv_aa_2stage,ZSYSV_AA_2STAGE) -void LAPACK_zsysv_aa_2stage_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsysv_aa_2stage(...) LAPACK_zsysv_aa_2stage_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsysv_aa_2stage(...) LAPACK_zsysv_aa_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_csysv_rk_base LAPACK_GLOBAL(csysv_rk,CSYSV_RK) -void LAPACK_csysv_rk_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* E, lapack_int* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csysv_rk(...) LAPACK_csysv_rk_base(__VA_ARGS__, 1) -#else - #define LAPACK_csysv_rk(...) LAPACK_csysv_rk_base(__VA_ARGS__) -#endif - -#define LAPACK_dsysv_rk_base LAPACK_GLOBAL(dsysv_rk,DSYSV_RK) -void LAPACK_dsysv_rk_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double* A, lapack_int const* lda, - double* E, lapack_int* ipiv, - double* B, lapack_int const* ldb, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsysv_rk(...) LAPACK_dsysv_rk_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsysv_rk(...) LAPACK_dsysv_rk_base(__VA_ARGS__) -#endif - -#define LAPACK_ssysv_rk_base LAPACK_GLOBAL(ssysv_rk,SSYSV_RK) -void LAPACK_ssysv_rk_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float* A, lapack_int const* lda, - float* E, lapack_int* ipiv, - float* B, lapack_int const* ldb, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssysv_rk(...) LAPACK_ssysv_rk_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssysv_rk(...) LAPACK_ssysv_rk_base(__VA_ARGS__) -#endif - -#define LAPACK_zsysv_rk_base LAPACK_GLOBAL(zsysv_rk,ZSYSV_RK) -void LAPACK_zsysv_rk_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* E, lapack_int* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsysv_rk(...) LAPACK_zsysv_rk_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsysv_rk(...) LAPACK_zsysv_rk_base(__VA_ARGS__) -#endif - -#define LAPACK_csysv_rook_base LAPACK_GLOBAL(csysv_rook,CSYSV_ROOK) -void LAPACK_csysv_rook_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csysv_rook(...) LAPACK_csysv_rook_base(__VA_ARGS__, 1) -#else - #define LAPACK_csysv_rook(...) LAPACK_csysv_rook_base(__VA_ARGS__) -#endif - -#define LAPACK_dsysv_rook_base LAPACK_GLOBAL(dsysv_rook,DSYSV_ROOK) -void LAPACK_dsysv_rook_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double* A, lapack_int const* lda, lapack_int* ipiv, - double* B, lapack_int const* ldb, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsysv_rook(...) LAPACK_dsysv_rook_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsysv_rook(...) LAPACK_dsysv_rook_base(__VA_ARGS__) -#endif - -#define LAPACK_ssysv_rook_base LAPACK_GLOBAL(ssysv_rook,SSYSV_ROOK) -void LAPACK_ssysv_rook_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float* A, lapack_int const* lda, lapack_int* ipiv, - float* B, lapack_int const* ldb, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssysv_rook(...) LAPACK_ssysv_rook_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssysv_rook(...) LAPACK_ssysv_rook_base(__VA_ARGS__) -#endif - -#define LAPACK_zsysv_rook_base LAPACK_GLOBAL(zsysv_rook,ZSYSV_ROOK) -void LAPACK_zsysv_rook_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsysv_rook(...) LAPACK_zsysv_rook_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsysv_rook(...) LAPACK_zsysv_rook_base(__VA_ARGS__) -#endif - -#define LAPACK_csysvx_base LAPACK_GLOBAL(csysvx,CSYSVX) -void LAPACK_csysvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* rcond, - float* ferr, - float* berr, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csysvx(...) LAPACK_csysvx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_csysvx(...) LAPACK_csysvx_base(__VA_ARGS__) -#endif - -#define LAPACK_dsysvx_base LAPACK_GLOBAL(dsysvx,DSYSVX) -void LAPACK_dsysvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double const* A, lapack_int const* lda, - double* AF, lapack_int const* ldaf, lapack_int* ipiv, - double const* B, lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* rcond, - double* ferr, - double* berr, - double* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsysvx(...) LAPACK_dsysvx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dsysvx(...) LAPACK_dsysvx_base(__VA_ARGS__) -#endif - -#define LAPACK_ssysvx_base LAPACK_GLOBAL(ssysvx,SSYSVX) -void LAPACK_ssysvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float const* A, lapack_int const* lda, - float* AF, lapack_int const* ldaf, lapack_int* ipiv, - float const* B, lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* rcond, - float* ferr, - float* berr, - float* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssysvx(...) LAPACK_ssysvx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ssysvx(...) LAPACK_ssysvx_base(__VA_ARGS__) -#endif - -#define LAPACK_zsysvx_base LAPACK_GLOBAL(zsysvx,ZSYSVX) -void LAPACK_zsysvx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* rcond, - double* ferr, - double* berr, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsysvx(...) LAPACK_zsysvx_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zsysvx(...) LAPACK_zsysvx_base(__VA_ARGS__) -#endif - -#define LAPACK_csysvxx_base LAPACK_GLOBAL(csysvxx,CSYSVXX) -void LAPACK_csysvxx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed, - float* S, - lapack_complex_float* B, - lapack_int const* ldb, - lapack_complex_float* X, lapack_int const* ldx, - float* rcond, - float* rpvgrw, - float* berr, lapack_int const* n_err_bnds, - float* err_bnds_norm, - float* err_bnds_comp, lapack_int const* nparams, - float* params, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csysvxx(...) LAPACK_csysvxx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_csysvxx(...) LAPACK_csysvxx_base(__VA_ARGS__) -#endif - -#define LAPACK_dsysvxx_base LAPACK_GLOBAL(dsysvxx,DSYSVXX) -void LAPACK_dsysvxx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double* A, lapack_int const* lda, - double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed, - double* S, - double* B, - lapack_int const* ldb, - double* X, lapack_int const* ldx, - double* rcond, - double* rpvgrw, - double* berr, lapack_int const* n_err_bnds, - double* err_bnds_norm, - double* err_bnds_comp, lapack_int const* nparams, - double* params, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsysvxx(...) LAPACK_dsysvxx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dsysvxx(...) LAPACK_dsysvxx_base(__VA_ARGS__) -#endif - -#define LAPACK_ssysvxx_base LAPACK_GLOBAL(ssysvxx,SSYSVXX) -void LAPACK_ssysvxx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float* A, lapack_int const* lda, - float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed, - float* S, - float* B, - lapack_int const* ldb, - float* X, lapack_int const* ldx, - float* rcond, - float* rpvgrw, - float* berr, lapack_int const* n_err_bnds, - float* err_bnds_norm, - float* err_bnds_comp, lapack_int const* nparams, - float* params, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssysvxx(...) LAPACK_ssysvxx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ssysvxx(...) LAPACK_ssysvxx_base(__VA_ARGS__) -#endif - -#define LAPACK_zsysvxx_base LAPACK_GLOBAL(zsysvxx,ZSYSVXX) -void LAPACK_zsysvxx_base( - char const* fact, char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed, - double* S, - lapack_complex_double* B, - lapack_int const* ldb, - lapack_complex_double* X, lapack_int const* ldx, - double* rcond, - double* rpvgrw, - double* berr, lapack_int const* n_err_bnds, - double* err_bnds_norm, - double* err_bnds_comp, lapack_int const* nparams, - double* params, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsysvxx(...) LAPACK_zsysvxx_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zsysvxx(...) LAPACK_zsysvxx_base(__VA_ARGS__) -#endif - -#define LAPACK_csyswapr_base LAPACK_GLOBAL(csyswapr,CSYSWAPR) -void LAPACK_csyswapr_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csyswapr(...) LAPACK_csyswapr_base(__VA_ARGS__, 1) -#else - #define LAPACK_csyswapr(...) LAPACK_csyswapr_base(__VA_ARGS__) -#endif - -#define LAPACK_dsyswapr_base LAPACK_GLOBAL(dsyswapr,DSYSWAPR) -void LAPACK_dsyswapr_base( - char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsyswapr(...) LAPACK_dsyswapr_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsyswapr(...) LAPACK_dsyswapr_base(__VA_ARGS__) -#endif - -#define LAPACK_ssyswapr_base LAPACK_GLOBAL(ssyswapr,SSYSWAPR) -void LAPACK_ssyswapr_base( - char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssyswapr(...) LAPACK_ssyswapr_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssyswapr(...) LAPACK_ssyswapr_base(__VA_ARGS__) -#endif - -#define LAPACK_zsyswapr_base LAPACK_GLOBAL(zsyswapr,ZSYSWAPR) -void LAPACK_zsyswapr_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2 -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsyswapr(...) LAPACK_zsyswapr_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsyswapr(...) LAPACK_zsyswapr_base(__VA_ARGS__) -#endif - -#define LAPACK_dsytrd_base LAPACK_GLOBAL(dsytrd,DSYTRD) -void LAPACK_dsytrd_base( - char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - double* D, - double* E, - double* tau, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsytrd(...) LAPACK_dsytrd_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsytrd(...) LAPACK_dsytrd_base(__VA_ARGS__) -#endif - -#define LAPACK_ssytrd_base LAPACK_GLOBAL(ssytrd,SSYTRD) -void LAPACK_ssytrd_base( - char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - float* D, - float* E, - float* tau, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssytrd(...) LAPACK_ssytrd_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssytrd(...) LAPACK_ssytrd_base(__VA_ARGS__) -#endif - -#define LAPACK_dsytrd_2stage_base LAPACK_GLOBAL(dsytrd_2stage,DSYTRD_2STAGE) -void LAPACK_dsytrd_2stage_base( - char const* vect, char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - double* D, - double* E, - double* tau, - double* HOUS2, lapack_int const* lhous2, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsytrd_2stage(...) LAPACK_dsytrd_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dsytrd_2stage(...) LAPACK_dsytrd_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_ssytrd_2stage_base LAPACK_GLOBAL(ssytrd_2stage,SSYTRD_2STAGE) -void LAPACK_ssytrd_2stage_base( - char const* vect, char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - float* D, - float* E, - float* tau, - float* HOUS2, lapack_int const* lhous2, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssytrd_2stage(...) LAPACK_ssytrd_2stage_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ssytrd_2stage(...) LAPACK_ssytrd_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_csytrf_base LAPACK_GLOBAL(csytrf,CSYTRF) -void LAPACK_csytrf_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csytrf(...) LAPACK_csytrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_csytrf(...) LAPACK_csytrf_base(__VA_ARGS__) -#endif - -#define LAPACK_dsytrf_base LAPACK_GLOBAL(dsytrf,DSYTRF) -void LAPACK_dsytrf_base( - char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, lapack_int* ipiv, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsytrf(...) LAPACK_dsytrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsytrf(...) LAPACK_dsytrf_base(__VA_ARGS__) -#endif - -#define LAPACK_ssytrf_base LAPACK_GLOBAL(ssytrf,SSYTRF) -void LAPACK_ssytrf_base( - char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, lapack_int* ipiv, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssytrf(...) LAPACK_ssytrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssytrf(...) LAPACK_ssytrf_base(__VA_ARGS__) -#endif - -#define LAPACK_zsytrf_base LAPACK_GLOBAL(zsytrf,ZSYTRF) -void LAPACK_zsytrf_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsytrf(...) LAPACK_zsytrf_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsytrf(...) LAPACK_zsytrf_base(__VA_ARGS__) -#endif - -#define LAPACK_csytrf_aa_base LAPACK_GLOBAL(csytrf_aa,CSYTRF_AA) -void LAPACK_csytrf_aa_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csytrf_aa(...) LAPACK_csytrf_aa_base(__VA_ARGS__, 1) -#else - #define LAPACK_csytrf_aa(...) LAPACK_csytrf_aa_base(__VA_ARGS__) -#endif - -#define LAPACK_dsytrf_aa_base LAPACK_GLOBAL(dsytrf_aa,DSYTRF_AA) -void LAPACK_dsytrf_aa_base( - char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, lapack_int* ipiv, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsytrf_aa(...) LAPACK_dsytrf_aa_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsytrf_aa(...) LAPACK_dsytrf_aa_base(__VA_ARGS__) -#endif - -#define LAPACK_ssytrf_aa_base LAPACK_GLOBAL(ssytrf_aa,SSYTRF_AA) -void LAPACK_ssytrf_aa_base( - char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, lapack_int* ipiv, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssytrf_aa(...) LAPACK_ssytrf_aa_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssytrf_aa(...) LAPACK_ssytrf_aa_base(__VA_ARGS__) -#endif - -#define LAPACK_zsytrf_aa_base LAPACK_GLOBAL(zsytrf_aa,ZSYTRF_AA) -void LAPACK_zsytrf_aa_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsytrf_aa(...) LAPACK_zsytrf_aa_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsytrf_aa(...) LAPACK_zsytrf_aa_base(__VA_ARGS__) -#endif - -#define LAPACK_csytrf_aa_2stage_base LAPACK_GLOBAL(csytrf_aa_2stage,CSYTRF_AA_2STAGE) -void LAPACK_csytrf_aa_2stage_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csytrf_aa_2stage(...) LAPACK_csytrf_aa_2stage_base(__VA_ARGS__, 1) -#else - #define LAPACK_csytrf_aa_2stage(...) LAPACK_csytrf_aa_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_dsytrf_aa_2stage_base LAPACK_GLOBAL(dsytrf_aa_2stage,DSYTRF_AA_2STAGE) -void LAPACK_dsytrf_aa_2stage_base( - char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsytrf_aa_2stage(...) LAPACK_dsytrf_aa_2stage_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsytrf_aa_2stage(...) LAPACK_dsytrf_aa_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_ssytrf_aa_2stage_base LAPACK_GLOBAL(ssytrf_aa_2stage,SSYTRF_AA_2STAGE) -void LAPACK_ssytrf_aa_2stage_base( - char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssytrf_aa_2stage(...) LAPACK_ssytrf_aa_2stage_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssytrf_aa_2stage(...) LAPACK_ssytrf_aa_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_zsytrf_aa_2stage_base LAPACK_GLOBAL(zsytrf_aa_2stage,ZSYTRF_AA_2STAGE) -void LAPACK_zsytrf_aa_2stage_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsytrf_aa_2stage(...) LAPACK_zsytrf_aa_2stage_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsytrf_aa_2stage(...) LAPACK_zsytrf_aa_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_csytrf_rk_base LAPACK_GLOBAL(csytrf_rk,CSYTRF_RK) -void LAPACK_csytrf_rk_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* E, lapack_int* ipiv, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csytrf_rk(...) LAPACK_csytrf_rk_base(__VA_ARGS__, 1) -#else - #define LAPACK_csytrf_rk(...) LAPACK_csytrf_rk_base(__VA_ARGS__) -#endif - -#define LAPACK_dsytrf_rk_base LAPACK_GLOBAL(dsytrf_rk,DSYTRF_RK) -void LAPACK_dsytrf_rk_base( - char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - double* E, lapack_int* ipiv, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsytrf_rk(...) LAPACK_dsytrf_rk_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsytrf_rk(...) LAPACK_dsytrf_rk_base(__VA_ARGS__) -#endif - -#define LAPACK_ssytrf_rk_base LAPACK_GLOBAL(ssytrf_rk,SSYTRF_RK) -void LAPACK_ssytrf_rk_base( - char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - float* E, lapack_int* ipiv, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssytrf_rk(...) LAPACK_ssytrf_rk_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssytrf_rk(...) LAPACK_ssytrf_rk_base(__VA_ARGS__) -#endif - -#define LAPACK_zsytrf_rk_base LAPACK_GLOBAL(zsytrf_rk,ZSYTRF_RK) -void LAPACK_zsytrf_rk_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* E, lapack_int* ipiv, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsytrf_rk(...) LAPACK_zsytrf_rk_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsytrf_rk(...) LAPACK_zsytrf_rk_base(__VA_ARGS__) -#endif - -#define LAPACK_csytrf_rook_base LAPACK_GLOBAL(csytrf_rook,CSYTRF_ROOK) -void LAPACK_csytrf_rook_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csytrf_rook(...) LAPACK_csytrf_rook_base(__VA_ARGS__, 1) -#else - #define LAPACK_csytrf_rook(...) LAPACK_csytrf_rook_base(__VA_ARGS__) -#endif - -#define LAPACK_dsytrf_rook_base LAPACK_GLOBAL(dsytrf_rook,DSYTRF_ROOK) -void LAPACK_dsytrf_rook_base( - char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, lapack_int* ipiv, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsytrf_rook(...) LAPACK_dsytrf_rook_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsytrf_rook(...) LAPACK_dsytrf_rook_base(__VA_ARGS__) -#endif - -#define LAPACK_ssytrf_rook_base LAPACK_GLOBAL(ssytrf_rook,SSYTRF_ROOK) -void LAPACK_ssytrf_rook_base( - char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, lapack_int* ipiv, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssytrf_rook(...) LAPACK_ssytrf_rook_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssytrf_rook(...) LAPACK_ssytrf_rook_base(__VA_ARGS__) -#endif - -#define LAPACK_zsytrf_rook_base LAPACK_GLOBAL(zsytrf_rook,ZSYTRF_ROOK) -void LAPACK_zsytrf_rook_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsytrf_rook(...) LAPACK_zsytrf_rook_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsytrf_rook(...) LAPACK_zsytrf_rook_base(__VA_ARGS__) -#endif - -#define LAPACK_csytri_base LAPACK_GLOBAL(csytri,CSYTRI) -void LAPACK_csytri_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csytri(...) LAPACK_csytri_base(__VA_ARGS__, 1) -#else - #define LAPACK_csytri(...) LAPACK_csytri_base(__VA_ARGS__) -#endif - -#define LAPACK_dsytri_base LAPACK_GLOBAL(dsytri,DSYTRI) -void LAPACK_dsytri_base( - char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, lapack_int const* ipiv, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsytri(...) LAPACK_dsytri_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsytri(...) LAPACK_dsytri_base(__VA_ARGS__) -#endif - -#define LAPACK_ssytri_base LAPACK_GLOBAL(ssytri,SSYTRI) -void LAPACK_ssytri_base( - char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, lapack_int const* ipiv, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssytri(...) LAPACK_ssytri_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssytri(...) LAPACK_ssytri_base(__VA_ARGS__) -#endif - -#define LAPACK_zsytri_base LAPACK_GLOBAL(zsytri,ZSYTRI) -void LAPACK_zsytri_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsytri(...) LAPACK_zsytri_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsytri(...) LAPACK_zsytri_base(__VA_ARGS__) -#endif - -#define LAPACK_csytri2_base LAPACK_GLOBAL(csytri2,CSYTRI2) -void LAPACK_csytri2_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csytri2(...) LAPACK_csytri2_base(__VA_ARGS__, 1) -#else - #define LAPACK_csytri2(...) LAPACK_csytri2_base(__VA_ARGS__) -#endif - -#define LAPACK_dsytri2_base LAPACK_GLOBAL(dsytri2,DSYTRI2) -void LAPACK_dsytri2_base( - char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, lapack_int const* ipiv, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsytri2(...) LAPACK_dsytri2_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsytri2(...) LAPACK_dsytri2_base(__VA_ARGS__) -#endif - -#define LAPACK_ssytri2_base LAPACK_GLOBAL(ssytri2,SSYTRI2) -void LAPACK_ssytri2_base( - char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, lapack_int const* ipiv, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssytri2(...) LAPACK_ssytri2_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssytri2(...) LAPACK_ssytri2_base(__VA_ARGS__) -#endif - -#define LAPACK_zsytri2_base LAPACK_GLOBAL(zsytri2,ZSYTRI2) -void LAPACK_zsytri2_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsytri2(...) LAPACK_zsytri2_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsytri2(...) LAPACK_zsytri2_base(__VA_ARGS__) -#endif - -#define LAPACK_csytri2x_base LAPACK_GLOBAL(csytri2x,CSYTRI2X) -void LAPACK_csytri2x_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_float* work, lapack_int const* nb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csytri2x(...) LAPACK_csytri2x_base(__VA_ARGS__, 1) -#else - #define LAPACK_csytri2x(...) LAPACK_csytri2x_base(__VA_ARGS__) -#endif - -#define LAPACK_dsytri2x_base LAPACK_GLOBAL(dsytri2x,DSYTRI2X) -void LAPACK_dsytri2x_base( - char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, lapack_int const* ipiv, - double* work, lapack_int const* nb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsytri2x(...) LAPACK_dsytri2x_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsytri2x(...) LAPACK_dsytri2x_base(__VA_ARGS__) -#endif - -#define LAPACK_ssytri2x_base LAPACK_GLOBAL(ssytri2x,SSYTRI2X) -void LAPACK_ssytri2x_base( - char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, lapack_int const* ipiv, - float* work, lapack_int const* nb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssytri2x(...) LAPACK_ssytri2x_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssytri2x(...) LAPACK_ssytri2x_base(__VA_ARGS__) -#endif - -#define LAPACK_zsytri2x_base LAPACK_GLOBAL(zsytri2x,ZSYTRI2X) -void LAPACK_zsytri2x_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_double* work, lapack_int const* nb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsytri2x(...) LAPACK_zsytri2x_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsytri2x(...) LAPACK_zsytri2x_base(__VA_ARGS__) -#endif - -#define LAPACK_csytri_3_base LAPACK_GLOBAL(csytri_3,CSYTRI_3) -void LAPACK_csytri_3_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float const* E, lapack_int const* ipiv, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csytri_3(...) LAPACK_csytri_3_base(__VA_ARGS__, 1) -#else - #define LAPACK_csytri_3(...) LAPACK_csytri_3_base(__VA_ARGS__) -#endif - -#define LAPACK_dsytri_3_base LAPACK_GLOBAL(dsytri_3,DSYTRI_3) -void LAPACK_dsytri_3_base( - char const* uplo, - lapack_int const* n, - double* A, lapack_int const* lda, - double const* E, lapack_int const* ipiv, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsytri_3(...) LAPACK_dsytri_3_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsytri_3(...) LAPACK_dsytri_3_base(__VA_ARGS__) -#endif - -#define LAPACK_ssytri_3_base LAPACK_GLOBAL(ssytri_3,SSYTRI_3) -void LAPACK_ssytri_3_base( - char const* uplo, - lapack_int const* n, - float* A, lapack_int const* lda, - float const* E, lapack_int const* ipiv, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssytri_3(...) LAPACK_ssytri_3_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssytri_3(...) LAPACK_ssytri_3_base(__VA_ARGS__) -#endif - -#define LAPACK_zsytri_3_base LAPACK_GLOBAL(zsytri_3,ZSYTRI_3) -void LAPACK_zsytri_3_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double const* E, lapack_int const* ipiv, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsytri_3(...) LAPACK_zsytri_3_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsytri_3(...) LAPACK_zsytri_3_base(__VA_ARGS__) -#endif - -#define LAPACK_csytrs_base LAPACK_GLOBAL(csytrs,CSYTRS) -void LAPACK_csytrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csytrs(...) LAPACK_csytrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_csytrs(...) LAPACK_csytrs_base(__VA_ARGS__) -#endif - -#define LAPACK_dsytrs_base LAPACK_GLOBAL(dsytrs,DSYTRS) -void LAPACK_dsytrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double const* A, lapack_int const* lda, lapack_int const* ipiv, - double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsytrs(...) LAPACK_dsytrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsytrs(...) LAPACK_dsytrs_base(__VA_ARGS__) -#endif - -#define LAPACK_ssytrs_base LAPACK_GLOBAL(ssytrs,SSYTRS) -void LAPACK_ssytrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float const* A, lapack_int const* lda, lapack_int const* ipiv, - float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssytrs(...) LAPACK_ssytrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssytrs(...) LAPACK_ssytrs_base(__VA_ARGS__) -#endif - -#define LAPACK_zsytrs_base LAPACK_GLOBAL(zsytrs,ZSYTRS) -void LAPACK_zsytrs_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsytrs(...) LAPACK_zsytrs_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsytrs(...) LAPACK_zsytrs_base(__VA_ARGS__) -#endif - -#define LAPACK_csytrs2_base LAPACK_GLOBAL(csytrs2,CSYTRS2) -void LAPACK_csytrs2_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - const lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csytrs2(...) LAPACK_csytrs2_base(__VA_ARGS__, 1) -#else - #define LAPACK_csytrs2(...) LAPACK_csytrs2_base(__VA_ARGS__) -#endif - -#define LAPACK_dsytrs2_base LAPACK_GLOBAL(dsytrs2,DSYTRS2) -void LAPACK_dsytrs2_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - const double* A, lapack_int const* lda, lapack_int const* ipiv, - double* B, lapack_int const* ldb, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsytrs2(...) LAPACK_dsytrs2_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsytrs2(...) LAPACK_dsytrs2_base(__VA_ARGS__) -#endif - -#define LAPACK_ssytrs2_base LAPACK_GLOBAL(ssytrs2,SSYTRS2) -void LAPACK_ssytrs2_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - const float* A, lapack_int const* lda, lapack_int const* ipiv, - float* B, lapack_int const* ldb, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssytrs2(...) LAPACK_ssytrs2_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssytrs2(...) LAPACK_ssytrs2_base(__VA_ARGS__) -#endif - -#define LAPACK_zsytrs2_base LAPACK_GLOBAL(zsytrs2,ZSYTRS2) -void LAPACK_zsytrs2_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - const lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsytrs2(...) LAPACK_zsytrs2_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsytrs2(...) LAPACK_zsytrs2_base(__VA_ARGS__) -#endif - -#define LAPACK_csytrs_3_base LAPACK_GLOBAL(csytrs_3,CSYTRS_3) -void LAPACK_csytrs_3_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* E, lapack_int const* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csytrs_3(...) LAPACK_csytrs_3_base(__VA_ARGS__, 1) -#else - #define LAPACK_csytrs_3(...) LAPACK_csytrs_3_base(__VA_ARGS__) -#endif - -#define LAPACK_dsytrs_3_base LAPACK_GLOBAL(dsytrs_3,DSYTRS_3) -void LAPACK_dsytrs_3_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double const* A, lapack_int const* lda, - double const* E, lapack_int const* ipiv, - double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsytrs_3(...) LAPACK_dsytrs_3_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsytrs_3(...) LAPACK_dsytrs_3_base(__VA_ARGS__) -#endif - -#define LAPACK_ssytrs_3_base LAPACK_GLOBAL(ssytrs_3,SSYTRS_3) -void LAPACK_ssytrs_3_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float const* A, lapack_int const* lda, - float const* E, lapack_int const* ipiv, - float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssytrs_3(...) LAPACK_ssytrs_3_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssytrs_3(...) LAPACK_ssytrs_3_base(__VA_ARGS__) -#endif - -#define LAPACK_zsytrs_3_base LAPACK_GLOBAL(zsytrs_3,ZSYTRS_3) -void LAPACK_zsytrs_3_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* E, lapack_int const* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsytrs_3(...) LAPACK_zsytrs_3_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsytrs_3(...) LAPACK_zsytrs_3_base(__VA_ARGS__) -#endif - -#define LAPACK_csytrs_aa_base LAPACK_GLOBAL(csytrs_aa,CSYTRS_AA) -void LAPACK_csytrs_aa_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csytrs_aa(...) LAPACK_csytrs_aa_base(__VA_ARGS__, 1) -#else - #define LAPACK_csytrs_aa(...) LAPACK_csytrs_aa_base(__VA_ARGS__) -#endif - -#define LAPACK_dsytrs_aa_base LAPACK_GLOBAL(dsytrs_aa,DSYTRS_AA) -void LAPACK_dsytrs_aa_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double const* A, lapack_int const* lda, lapack_int const* ipiv, - double* B, lapack_int const* ldb, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsytrs_aa(...) LAPACK_dsytrs_aa_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsytrs_aa(...) LAPACK_dsytrs_aa_base(__VA_ARGS__) -#endif - -#define LAPACK_ssytrs_aa_base LAPACK_GLOBAL(ssytrs_aa,SSYTRS_AA) -void LAPACK_ssytrs_aa_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float const* A, lapack_int const* lda, lapack_int const* ipiv, - float* B, lapack_int const* ldb, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssytrs_aa(...) LAPACK_ssytrs_aa_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssytrs_aa(...) LAPACK_ssytrs_aa_base(__VA_ARGS__) -#endif - -#define LAPACK_zsytrs_aa_base LAPACK_GLOBAL(zsytrs_aa,ZSYTRS_AA) -void LAPACK_zsytrs_aa_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsytrs_aa(...) LAPACK_zsytrs_aa_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsytrs_aa(...) LAPACK_zsytrs_aa_base(__VA_ARGS__) -#endif - -#define LAPACK_csytrs_aa_2stage_base LAPACK_GLOBAL(csytrs_aa_2stage,CSYTRS_AA_2STAGE) -void LAPACK_csytrs_aa_2stage_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csytrs_aa_2stage(...) LAPACK_csytrs_aa_2stage_base(__VA_ARGS__, 1) -#else - #define LAPACK_csytrs_aa_2stage(...) LAPACK_csytrs_aa_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_dsytrs_aa_2stage_base LAPACK_GLOBAL(dsytrs_aa_2stage,DSYTRS_AA_2STAGE) -void LAPACK_dsytrs_aa_2stage_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double const* A, lapack_int const* lda, - double* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2, - double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsytrs_aa_2stage(...) LAPACK_dsytrs_aa_2stage_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsytrs_aa_2stage(...) LAPACK_dsytrs_aa_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_ssytrs_aa_2stage_base LAPACK_GLOBAL(ssytrs_aa_2stage,SSYTRS_AA_2STAGE) -void LAPACK_ssytrs_aa_2stage_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float const* A, lapack_int const* lda, - float* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2, - float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssytrs_aa_2stage(...) LAPACK_ssytrs_aa_2stage_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssytrs_aa_2stage(...) LAPACK_ssytrs_aa_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_zsytrs_aa_2stage_base LAPACK_GLOBAL(zsytrs_aa_2stage,ZSYTRS_AA_2STAGE) -void LAPACK_zsytrs_aa_2stage_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsytrs_aa_2stage(...) LAPACK_zsytrs_aa_2stage_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsytrs_aa_2stage(...) LAPACK_zsytrs_aa_2stage_base(__VA_ARGS__) -#endif - -#define LAPACK_csytrs_rook_base LAPACK_GLOBAL(csytrs_rook,CSYTRS_ROOK) -void LAPACK_csytrs_rook_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_csytrs_rook(...) LAPACK_csytrs_rook_base(__VA_ARGS__, 1) -#else - #define LAPACK_csytrs_rook(...) LAPACK_csytrs_rook_base(__VA_ARGS__) -#endif - -#define LAPACK_dsytrs_rook_base LAPACK_GLOBAL(dsytrs_rook,DSYTRS_ROOK) -void LAPACK_dsytrs_rook_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - double const* A, lapack_int const* lda, lapack_int const* ipiv, - double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dsytrs_rook(...) LAPACK_dsytrs_rook_base(__VA_ARGS__, 1) -#else - #define LAPACK_dsytrs_rook(...) LAPACK_dsytrs_rook_base(__VA_ARGS__) -#endif - -#define LAPACK_ssytrs_rook_base LAPACK_GLOBAL(ssytrs_rook,SSYTRS_ROOK) -void LAPACK_ssytrs_rook_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - float const* A, lapack_int const* lda, lapack_int const* ipiv, - float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ssytrs_rook(...) LAPACK_ssytrs_rook_base(__VA_ARGS__, 1) -#else - #define LAPACK_ssytrs_rook(...) LAPACK_ssytrs_rook_base(__VA_ARGS__) -#endif - -#define LAPACK_zsytrs_rook_base LAPACK_GLOBAL(zsytrs_rook,ZSYTRS_ROOK) -void LAPACK_zsytrs_rook_base( - char const* uplo, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zsytrs_rook(...) LAPACK_zsytrs_rook_base(__VA_ARGS__, 1) -#else - #define LAPACK_zsytrs_rook(...) LAPACK_zsytrs_rook_base(__VA_ARGS__) -#endif - -#define LAPACK_ctbcon_base LAPACK_GLOBAL(ctbcon,CTBCON) -void LAPACK_ctbcon_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* n, lapack_int const* kd, - lapack_complex_float const* AB, lapack_int const* ldab, - float* rcond, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctbcon(...) LAPACK_ctbcon_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ctbcon(...) LAPACK_ctbcon_base(__VA_ARGS__) -#endif - -#define LAPACK_dtbcon_base LAPACK_GLOBAL(dtbcon,DTBCON) -void LAPACK_dtbcon_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* n, lapack_int const* kd, - double const* AB, lapack_int const* ldab, - double* rcond, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtbcon(...) LAPACK_dtbcon_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dtbcon(...) LAPACK_dtbcon_base(__VA_ARGS__) -#endif - -#define LAPACK_stbcon_base LAPACK_GLOBAL(stbcon,STBCON) -void LAPACK_stbcon_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* n, lapack_int const* kd, - float const* AB, lapack_int const* ldab, - float* rcond, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_stbcon(...) LAPACK_stbcon_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_stbcon(...) LAPACK_stbcon_base(__VA_ARGS__) -#endif - -#define LAPACK_ztbcon_base LAPACK_GLOBAL(ztbcon,ZTBCON) -void LAPACK_ztbcon_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* n, lapack_int const* kd, - lapack_complex_double const* AB, lapack_int const* ldab, - double* rcond, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztbcon(...) LAPACK_ztbcon_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ztbcon(...) LAPACK_ztbcon_base(__VA_ARGS__) -#endif - -#define LAPACK_ctbrfs_base LAPACK_GLOBAL(ctbrfs,CTBRFS) -void LAPACK_ctbrfs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - lapack_complex_float const* AB, lapack_int const* ldab, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float const* X, lapack_int const* ldx, - float* ferr, - float* berr, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctbrfs(...) LAPACK_ctbrfs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ctbrfs(...) LAPACK_ctbrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_dtbrfs_base LAPACK_GLOBAL(dtbrfs,DTBRFS) -void LAPACK_dtbrfs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - double const* AB, lapack_int const* ldab, - double const* B, lapack_int const* ldb, - double const* X, lapack_int const* ldx, - double* ferr, - double* berr, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtbrfs(...) LAPACK_dtbrfs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dtbrfs(...) LAPACK_dtbrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_stbrfs_base LAPACK_GLOBAL(stbrfs,STBRFS) -void LAPACK_stbrfs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - float const* AB, lapack_int const* ldab, - float const* B, lapack_int const* ldb, - float const* X, lapack_int const* ldx, - float* ferr, - float* berr, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_stbrfs(...) LAPACK_stbrfs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_stbrfs(...) LAPACK_stbrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_ztbrfs_base LAPACK_GLOBAL(ztbrfs,ZTBRFS) -void LAPACK_ztbrfs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - lapack_complex_double const* AB, lapack_int const* ldab, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double const* X, lapack_int const* ldx, - double* ferr, - double* berr, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztbrfs(...) LAPACK_ztbrfs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ztbrfs(...) LAPACK_ztbrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_ctbtrs_base LAPACK_GLOBAL(ctbtrs,CTBTRS) -void LAPACK_ctbtrs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - lapack_complex_float const* AB, lapack_int const* ldab, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctbtrs(...) LAPACK_ctbtrs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ctbtrs(...) LAPACK_ctbtrs_base(__VA_ARGS__) -#endif - -#define LAPACK_dtbtrs_base LAPACK_GLOBAL(dtbtrs,DTBTRS) -void LAPACK_dtbtrs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - double const* AB, lapack_int const* ldab, - double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtbtrs(...) LAPACK_dtbtrs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dtbtrs(...) LAPACK_dtbtrs_base(__VA_ARGS__) -#endif - -#define LAPACK_stbtrs_base LAPACK_GLOBAL(stbtrs,STBTRS) -void LAPACK_stbtrs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - float const* AB, lapack_int const* ldab, - float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_stbtrs(...) LAPACK_stbtrs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_stbtrs(...) LAPACK_stbtrs_base(__VA_ARGS__) -#endif - -#define LAPACK_ztbtrs_base LAPACK_GLOBAL(ztbtrs,ZTBTRS) -void LAPACK_ztbtrs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs, - lapack_complex_double const* AB, lapack_int const* ldab, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztbtrs(...) LAPACK_ztbtrs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ztbtrs(...) LAPACK_ztbtrs_base(__VA_ARGS__) -#endif - -#define LAPACK_ctfsm_base LAPACK_GLOBAL(ctfsm,CTFSM) -void LAPACK_ctfsm_base( - char const* transr, char const* side, char const* uplo, char const* trans, char const* diag, - lapack_int const* m, lapack_int const* n, - lapack_complex_float const* alpha, - lapack_complex_float const* A, - lapack_complex_float* B, lapack_int const* ldb -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctfsm(...) LAPACK_ctfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1) -#else - #define LAPACK_ctfsm(...) LAPACK_ctfsm_base(__VA_ARGS__) -#endif - -#define LAPACK_dtfsm_base LAPACK_GLOBAL(dtfsm,DTFSM) -void LAPACK_dtfsm_base( - char const* transr, char const* side, char const* uplo, char const* trans, char const* diag, - lapack_int const* m, lapack_int const* n, - double const* alpha, - double const* A, - double* B, lapack_int const* ldb -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtfsm(...) LAPACK_dtfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1) -#else - #define LAPACK_dtfsm(...) LAPACK_dtfsm_base(__VA_ARGS__) -#endif - -#define LAPACK_stfsm_base LAPACK_GLOBAL(stfsm,STFSM) -void LAPACK_stfsm_base( - char const* transr, char const* side, char const* uplo, char const* trans, char const* diag, - lapack_int const* m, lapack_int const* n, - float const* alpha, - float const* A, - float* B, lapack_int const* ldb -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_stfsm(...) LAPACK_stfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1) -#else - #define LAPACK_stfsm(...) LAPACK_stfsm_base(__VA_ARGS__) -#endif - -#define LAPACK_ztfsm_base LAPACK_GLOBAL(ztfsm,ZTFSM) -void LAPACK_ztfsm_base( - char const* transr, char const* side, char const* uplo, char const* trans, char const* diag, - lapack_int const* m, lapack_int const* n, - lapack_complex_double const* alpha, - lapack_complex_double const* A, - lapack_complex_double* B, lapack_int const* ldb -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztfsm(...) LAPACK_ztfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1) -#else - #define LAPACK_ztfsm(...) LAPACK_ztfsm_base(__VA_ARGS__) -#endif - -#define LAPACK_ctftri_base LAPACK_GLOBAL(ctftri,CTFTRI) -void LAPACK_ctftri_base( - char const* transr, char const* uplo, char const* diag, - lapack_int const* n, - lapack_complex_float* A, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctftri(...) LAPACK_ctftri_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ctftri(...) LAPACK_ctftri_base(__VA_ARGS__) -#endif - -#define LAPACK_dtftri_base LAPACK_GLOBAL(dtftri,DTFTRI) -void LAPACK_dtftri_base( - char const* transr, char const* uplo, char const* diag, - lapack_int const* n, - double* A, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtftri(...) LAPACK_dtftri_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dtftri(...) LAPACK_dtftri_base(__VA_ARGS__) -#endif - -#define LAPACK_stftri_base LAPACK_GLOBAL(stftri,STFTRI) -void LAPACK_stftri_base( - char const* transr, char const* uplo, char const* diag, - lapack_int const* n, - float* A, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_stftri(...) LAPACK_stftri_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_stftri(...) LAPACK_stftri_base(__VA_ARGS__) -#endif - -#define LAPACK_ztftri_base LAPACK_GLOBAL(ztftri,ZTFTRI) -void LAPACK_ztftri_base( - char const* transr, char const* uplo, char const* diag, - lapack_int const* n, - lapack_complex_double* A, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztftri(...) LAPACK_ztftri_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ztftri(...) LAPACK_ztftri_base(__VA_ARGS__) -#endif - -#define LAPACK_ctfttp_base LAPACK_GLOBAL(ctfttp,CTFTTP) -void LAPACK_ctfttp_base( - char const* transr, char const* uplo, - lapack_int const* n, - lapack_complex_float const* ARF, - lapack_complex_float* AP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctfttp(...) LAPACK_ctfttp_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ctfttp(...) LAPACK_ctfttp_base(__VA_ARGS__) -#endif - -#define LAPACK_dtfttp_base LAPACK_GLOBAL(dtfttp,DTFTTP) -void LAPACK_dtfttp_base( - char const* transr, char const* uplo, - lapack_int const* n, - double const* ARF, - double* AP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtfttp(...) LAPACK_dtfttp_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dtfttp(...) LAPACK_dtfttp_base(__VA_ARGS__) -#endif - -#define LAPACK_stfttp_base LAPACK_GLOBAL(stfttp,STFTTP) -void LAPACK_stfttp_base( - char const* transr, char const* uplo, - lapack_int const* n, - float const* ARF, - float* AP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_stfttp(...) LAPACK_stfttp_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_stfttp(...) LAPACK_stfttp_base(__VA_ARGS__) -#endif - -#define LAPACK_ztfttp_base LAPACK_GLOBAL(ztfttp,ZTFTTP) -void LAPACK_ztfttp_base( - char const* transr, char const* uplo, - lapack_int const* n, - lapack_complex_double const* ARF, - lapack_complex_double* AP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztfttp(...) LAPACK_ztfttp_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ztfttp(...) LAPACK_ztfttp_base(__VA_ARGS__) -#endif - -#define LAPACK_ctfttr_base LAPACK_GLOBAL(ctfttr,CTFTTR) -void LAPACK_ctfttr_base( - char const* transr, char const* uplo, - lapack_int const* n, - lapack_complex_float const* ARF, - lapack_complex_float* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctfttr(...) LAPACK_ctfttr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ctfttr(...) LAPACK_ctfttr_base(__VA_ARGS__) -#endif - -#define LAPACK_dtfttr_base LAPACK_GLOBAL(dtfttr,DTFTTR) -void LAPACK_dtfttr_base( - char const* transr, char const* uplo, - lapack_int const* n, - double const* ARF, - double* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtfttr(...) LAPACK_dtfttr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dtfttr(...) LAPACK_dtfttr_base(__VA_ARGS__) -#endif - -#define LAPACK_stfttr_base LAPACK_GLOBAL(stfttr,STFTTR) -void LAPACK_stfttr_base( - char const* transr, char const* uplo, - lapack_int const* n, - float const* ARF, - float* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_stfttr(...) LAPACK_stfttr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_stfttr(...) LAPACK_stfttr_base(__VA_ARGS__) -#endif - -#define LAPACK_ztfttr_base LAPACK_GLOBAL(ztfttr,ZTFTTR) -void LAPACK_ztfttr_base( - char const* transr, char const* uplo, - lapack_int const* n, - lapack_complex_double const* ARF, - lapack_complex_double* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztfttr(...) LAPACK_ztfttr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ztfttr(...) LAPACK_ztfttr_base(__VA_ARGS__) -#endif - -#define LAPACK_ctgevc_base LAPACK_GLOBAL(ctgevc,CTGEVC) -void LAPACK_ctgevc_base( - char const* side, char const* howmny, - lapack_logical const* select, - lapack_int const* n, - lapack_complex_float const* S, lapack_int const* lds, - lapack_complex_float const* P, lapack_int const* ldp, - lapack_complex_float* VL, lapack_int const* ldvl, - lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctgevc(...) LAPACK_ctgevc_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ctgevc(...) LAPACK_ctgevc_base(__VA_ARGS__) -#endif - -#define LAPACK_dtgevc_base LAPACK_GLOBAL(dtgevc,DTGEVC) -void LAPACK_dtgevc_base( - char const* side, char const* howmny, - lapack_logical const* select, - lapack_int const* n, - double const* S, lapack_int const* lds, - double const* P, lapack_int const* ldp, - double* VL, lapack_int const* ldvl, - double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtgevc(...) LAPACK_dtgevc_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dtgevc(...) LAPACK_dtgevc_base(__VA_ARGS__) -#endif - -#define LAPACK_stgevc_base LAPACK_GLOBAL(stgevc,STGEVC) -void LAPACK_stgevc_base( - char const* side, char const* howmny, - lapack_logical const* select, - lapack_int const* n, - float const* S, lapack_int const* lds, - float const* P, lapack_int const* ldp, - float* VL, lapack_int const* ldvl, - float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_stgevc(...) LAPACK_stgevc_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_stgevc(...) LAPACK_stgevc_base(__VA_ARGS__) -#endif - -#define LAPACK_ztgevc_base LAPACK_GLOBAL(ztgevc,ZTGEVC) -void LAPACK_ztgevc_base( - char const* side, char const* howmny, - lapack_logical const* select, - lapack_int const* n, - lapack_complex_double const* S, lapack_int const* lds, - lapack_complex_double const* P, lapack_int const* ldp, - lapack_complex_double* VL, lapack_int const* ldvl, - lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztgevc(...) LAPACK_ztgevc_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ztgevc(...) LAPACK_ztgevc_base(__VA_ARGS__) -#endif - -#define LAPACK_ctgexc LAPACK_GLOBAL(ctgexc,CTGEXC) -void LAPACK_ctgexc( - lapack_logical const* wantq, lapack_logical const* wantz, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* Q, lapack_int const* ldq, - lapack_complex_float* Z, lapack_int const* ldz, lapack_int const* ifst, lapack_int* ilst, - lapack_int* info ); - -#define LAPACK_dtgexc LAPACK_GLOBAL(dtgexc,DTGEXC) -void LAPACK_dtgexc( - lapack_logical const* wantq, lapack_logical const* wantz, lapack_int const* n, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* Q, lapack_int const* ldq, - double* Z, lapack_int const* ldz, lapack_int* ifst, lapack_int* ilst, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_stgexc LAPACK_GLOBAL(stgexc,STGEXC) -void LAPACK_stgexc( - lapack_logical const* wantq, lapack_logical const* wantz, lapack_int const* n, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* Q, lapack_int const* ldq, - float* Z, lapack_int const* ldz, lapack_int* ifst, lapack_int* ilst, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_ztgexc LAPACK_GLOBAL(ztgexc,ZTGEXC) -void LAPACK_ztgexc( - lapack_logical const* wantq, lapack_logical const* wantz, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* Q, lapack_int const* ldq, - lapack_complex_double* Z, lapack_int const* ldz, lapack_int const* ifst, lapack_int* ilst, - lapack_int* info ); - -#define LAPACK_ctgsen LAPACK_GLOBAL(ctgsen,CTGSEN) -void LAPACK_ctgsen( - lapack_int const* ijob, lapack_logical const* wantq, lapack_logical const* wantz, lapack_logical const* select, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* alpha, - lapack_complex_float* beta, - lapack_complex_float* Q, lapack_int const* ldq, - lapack_complex_float* Z, lapack_int const* ldz, lapack_int* m, - float* pl, - float* pr, - float* DIF, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); - -#define LAPACK_dtgsen LAPACK_GLOBAL(dtgsen,DTGSEN) -void LAPACK_dtgsen( - lapack_int const* ijob, lapack_logical const* wantq, lapack_logical const* wantz, lapack_logical const* select, lapack_int const* n, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* alphar, - double* alphai, - double* beta, - double* Q, lapack_int const* ldq, - double* Z, lapack_int const* ldz, lapack_int* m, - double* pl, - double* pr, - double* DIF, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); - -#define LAPACK_stgsen LAPACK_GLOBAL(stgsen,STGSEN) -void LAPACK_stgsen( - lapack_int const* ijob, lapack_logical const* wantq, lapack_logical const* wantz, lapack_logical const* select, lapack_int const* n, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* alphar, - float* alphai, - float* beta, - float* Q, lapack_int const* ldq, - float* Z, lapack_int const* ldz, lapack_int* m, - float* pl, - float* pr, - float* DIF, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); - -#define LAPACK_ztgsen LAPACK_GLOBAL(ztgsen,ZTGSEN) -void LAPACK_ztgsen( - lapack_int const* ijob, lapack_logical const* wantq, lapack_logical const* wantz, lapack_logical const* select, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* Q, lapack_int const* ldq, - lapack_complex_double* Z, lapack_int const* ldz, lapack_int* m, - double* pl, - double* pr, - double* DIF, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info ); - -#define LAPACK_ctgsja_base LAPACK_GLOBAL(ctgsja,CTGSJA) -void LAPACK_ctgsja_base( - char const* jobu, char const* jobv, char const* jobq, - lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - float const* tola, - float const* tolb, - float* alpha, - float* beta, - lapack_complex_float* U, lapack_int const* ldu, - lapack_complex_float* V, lapack_int const* ldv, - lapack_complex_float* Q, lapack_int const* ldq, - lapack_complex_float* work, lapack_int* ncycle, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctgsja(...) LAPACK_ctgsja_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ctgsja(...) LAPACK_ctgsja_base(__VA_ARGS__) -#endif - -#define LAPACK_dtgsja_base LAPACK_GLOBAL(dtgsja,DTGSJA) -void LAPACK_dtgsja_base( - char const* jobu, char const* jobv, char const* jobq, - lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double const* tola, - double const* tolb, - double* alpha, - double* beta, - double* U, lapack_int const* ldu, - double* V, lapack_int const* ldv, - double* Q, lapack_int const* ldq, - double* work, lapack_int* ncycle, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtgsja(...) LAPACK_dtgsja_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dtgsja(...) LAPACK_dtgsja_base(__VA_ARGS__) -#endif - -#define LAPACK_stgsja_base LAPACK_GLOBAL(stgsja,STGSJA) -void LAPACK_stgsja_base( - char const* jobu, char const* jobv, char const* jobq, - lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float const* tola, - float const* tolb, - float* alpha, - float* beta, - float* U, lapack_int const* ldu, - float* V, lapack_int const* ldv, - float* Q, lapack_int const* ldq, - float* work, lapack_int* ncycle, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_stgsja(...) LAPACK_stgsja_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_stgsja(...) LAPACK_stgsja_base(__VA_ARGS__) -#endif - -#define LAPACK_ztgsja_base LAPACK_GLOBAL(ztgsja,ZTGSJA) -void LAPACK_ztgsja_base( - char const* jobu, char const* jobv, char const* jobq, - lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - double const* tola, - double const* tolb, - double* alpha, - double* beta, - lapack_complex_double* U, lapack_int const* ldu, - lapack_complex_double* V, lapack_int const* ldv, - lapack_complex_double* Q, lapack_int const* ldq, - lapack_complex_double* work, lapack_int* ncycle, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztgsja(...) LAPACK_ztgsja_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ztgsja(...) LAPACK_ztgsja_base(__VA_ARGS__) -#endif - -#define LAPACK_ctgsna_base LAPACK_GLOBAL(ctgsna,CTGSNA) -void LAPACK_ctgsna_base( - char const* job, char const* howmny, - lapack_logical const* select, - lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float const* VL, lapack_int const* ldvl, - lapack_complex_float const* VR, lapack_int const* ldvr, - float* S, - float* DIF, lapack_int const* mm, lapack_int* m, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctgsna(...) LAPACK_ctgsna_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ctgsna(...) LAPACK_ctgsna_base(__VA_ARGS__) -#endif - -#define LAPACK_dtgsna_base LAPACK_GLOBAL(dtgsna,DTGSNA) -void LAPACK_dtgsna_base( - char const* job, char const* howmny, - lapack_logical const* select, - lapack_int const* n, - double const* A, lapack_int const* lda, - double const* B, lapack_int const* ldb, - double const* VL, lapack_int const* ldvl, - double const* VR, lapack_int const* ldvr, - double* S, - double* DIF, lapack_int const* mm, lapack_int* m, - double* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtgsna(...) LAPACK_dtgsna_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dtgsna(...) LAPACK_dtgsna_base(__VA_ARGS__) -#endif - -#define LAPACK_stgsna_base LAPACK_GLOBAL(stgsna,STGSNA) -void LAPACK_stgsna_base( - char const* job, char const* howmny, - lapack_logical const* select, - lapack_int const* n, - float const* A, lapack_int const* lda, - float const* B, lapack_int const* ldb, - float const* VL, lapack_int const* ldvl, - float const* VR, lapack_int const* ldvr, - float* S, - float* DIF, lapack_int const* mm, lapack_int* m, - float* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_stgsna(...) LAPACK_stgsna_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_stgsna(...) LAPACK_stgsna_base(__VA_ARGS__) -#endif - -#define LAPACK_ztgsna_base LAPACK_GLOBAL(ztgsna,ZTGSNA) -void LAPACK_ztgsna_base( - char const* job, char const* howmny, - lapack_logical const* select, - lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double const* VL, lapack_int const* ldvl, - lapack_complex_double const* VR, lapack_int const* ldvr, - double* S, - double* DIF, lapack_int const* mm, lapack_int* m, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztgsna(...) LAPACK_ztgsna_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ztgsna(...) LAPACK_ztgsna_base(__VA_ARGS__) -#endif - -#define LAPACK_ctgsyl_base LAPACK_GLOBAL(ctgsyl,CTGSYL) -void LAPACK_ctgsyl_base( - char const* trans, - lapack_int const* ijob, lapack_int const* m, lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* C, lapack_int const* ldc, - lapack_complex_float const* D, lapack_int const* ldd, - lapack_complex_float const* E, lapack_int const* lde, - lapack_complex_float* F, lapack_int const* ldf, - float* dif, - float* scale, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctgsyl(...) LAPACK_ctgsyl_base(__VA_ARGS__, 1) -#else - #define LAPACK_ctgsyl(...) LAPACK_ctgsyl_base(__VA_ARGS__) -#endif - -#define LAPACK_dtgsyl_base LAPACK_GLOBAL(dtgsyl,DTGSYL) -void LAPACK_dtgsyl_base( - char const* trans, - lapack_int const* ijob, lapack_int const* m, lapack_int const* n, - double const* A, lapack_int const* lda, - double const* B, lapack_int const* ldb, - double* C, lapack_int const* ldc, - double const* D, lapack_int const* ldd, - double const* E, lapack_int const* lde, - double* F, lapack_int const* ldf, - double* dif, - double* scale, - double* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtgsyl(...) LAPACK_dtgsyl_base(__VA_ARGS__, 1) -#else - #define LAPACK_dtgsyl(...) LAPACK_dtgsyl_base(__VA_ARGS__) -#endif - -#define LAPACK_stgsyl_base LAPACK_GLOBAL(stgsyl,STGSYL) -void LAPACK_stgsyl_base( - char const* trans, - lapack_int const* ijob, lapack_int const* m, lapack_int const* n, - float const* A, lapack_int const* lda, - float const* B, lapack_int const* ldb, - float* C, lapack_int const* ldc, - float const* D, lapack_int const* ldd, - float const* E, lapack_int const* lde, - float* F, lapack_int const* ldf, - float* dif, - float* scale, - float* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_stgsyl(...) LAPACK_stgsyl_base(__VA_ARGS__, 1) -#else - #define LAPACK_stgsyl(...) LAPACK_stgsyl_base(__VA_ARGS__) -#endif - -#define LAPACK_ztgsyl_base LAPACK_GLOBAL(ztgsyl,ZTGSYL) -void LAPACK_ztgsyl_base( - char const* trans, - lapack_int const* ijob, lapack_int const* m, lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* C, lapack_int const* ldc, - lapack_complex_double const* D, lapack_int const* ldd, - lapack_complex_double const* E, lapack_int const* lde, - lapack_complex_double* F, lapack_int const* ldf, - double* dif, - double* scale, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztgsyl(...) LAPACK_ztgsyl_base(__VA_ARGS__, 1) -#else - #define LAPACK_ztgsyl(...) LAPACK_ztgsyl_base(__VA_ARGS__) -#endif - -#define LAPACK_ctpcon_base LAPACK_GLOBAL(ctpcon,CTPCON) -void LAPACK_ctpcon_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* n, - lapack_complex_float const* AP, - float* rcond, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctpcon(...) LAPACK_ctpcon_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ctpcon(...) LAPACK_ctpcon_base(__VA_ARGS__) -#endif - -#define LAPACK_dtpcon_base LAPACK_GLOBAL(dtpcon,DTPCON) -void LAPACK_dtpcon_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* n, - double const* AP, - double* rcond, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtpcon(...) LAPACK_dtpcon_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dtpcon(...) LAPACK_dtpcon_base(__VA_ARGS__) -#endif - -#define LAPACK_stpcon_base LAPACK_GLOBAL(stpcon,STPCON) -void LAPACK_stpcon_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* n, - float const* AP, - float* rcond, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_stpcon(...) LAPACK_stpcon_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_stpcon(...) LAPACK_stpcon_base(__VA_ARGS__) -#endif - -#define LAPACK_ztpcon_base LAPACK_GLOBAL(ztpcon,ZTPCON) -void LAPACK_ztpcon_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* n, - lapack_complex_double const* AP, - double* rcond, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztpcon(...) LAPACK_ztpcon_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ztpcon(...) LAPACK_ztpcon_base(__VA_ARGS__) -#endif - -#define LAPACK_ctplqt LAPACK_GLOBAL(ctplqt,CTPLQT) -void LAPACK_ctplqt( - lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* mb, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* T, lapack_int const* ldt, - lapack_complex_float* work, - lapack_int* info ); - -#define LAPACK_dtplqt LAPACK_GLOBAL(dtplqt,DTPLQT) -void LAPACK_dtplqt( - lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* mb, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* T, lapack_int const* ldt, - double* work, - lapack_int* info ); - -#define LAPACK_stplqt LAPACK_GLOBAL(stplqt,STPLQT) -void LAPACK_stplqt( - lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* mb, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* T, lapack_int const* ldt, - float* work, - lapack_int* info ); - -#define LAPACK_ztplqt LAPACK_GLOBAL(ztplqt,ZTPLQT) -void LAPACK_ztplqt( - lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* mb, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* T, lapack_int const* ldt, - lapack_complex_double* work, - lapack_int* info ); - -#define LAPACK_ctplqt2 LAPACK_GLOBAL(ctplqt2,CTPLQT2) -void LAPACK_ctplqt2( - lapack_int const* m, lapack_int const* n, lapack_int const* l, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* T, lapack_int const* ldt, - lapack_int* info ); - -#define LAPACK_dtplqt2 LAPACK_GLOBAL(dtplqt2,DTPLQT2) -void LAPACK_dtplqt2( - lapack_int const* m, lapack_int const* n, lapack_int const* l, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* T, lapack_int const* ldt, - lapack_int* info ); - -#define LAPACK_stplqt2 LAPACK_GLOBAL(stplqt2,STPLQT2) -void LAPACK_stplqt2( - lapack_int const* m, lapack_int const* n, lapack_int const* l, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* T, lapack_int const* ldt, - lapack_int* info ); - -#define LAPACK_ztplqt2 LAPACK_GLOBAL(ztplqt2,ZTPLQT2) -void LAPACK_ztplqt2( - lapack_int const* m, lapack_int const* n, lapack_int const* l, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* T, lapack_int const* ldt, - lapack_int* info ); - -#define LAPACK_ctpmlqt_base LAPACK_GLOBAL(ctpmlqt,CTPMLQT) -void LAPACK_ctpmlqt_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb, - lapack_complex_float const* V, lapack_int const* ldv, - lapack_complex_float const* T, lapack_int const* ldt, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctpmlqt(...) LAPACK_ctpmlqt_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ctpmlqt(...) LAPACK_ctpmlqt_base(__VA_ARGS__) -#endif - -#define LAPACK_dtpmlqt_base LAPACK_GLOBAL(dtpmlqt,DTPMLQT) -void LAPACK_dtpmlqt_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb, - double const* V, lapack_int const* ldv, - double const* T, lapack_int const* ldt, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtpmlqt(...) LAPACK_dtpmlqt_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dtpmlqt(...) LAPACK_dtpmlqt_base(__VA_ARGS__) -#endif - -#define LAPACK_stpmlqt_base LAPACK_GLOBAL(stpmlqt,STPMLQT) -void LAPACK_stpmlqt_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb, - float const* V, lapack_int const* ldv, - float const* T, lapack_int const* ldt, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_stpmlqt(...) LAPACK_stpmlqt_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_stpmlqt(...) LAPACK_stpmlqt_base(__VA_ARGS__) -#endif - -#define LAPACK_ztpmlqt_base LAPACK_GLOBAL(ztpmlqt,ZTPMLQT) -void LAPACK_ztpmlqt_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb, - lapack_complex_double const* V, lapack_int const* ldv, - lapack_complex_double const* T, lapack_int const* ldt, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztpmlqt(...) LAPACK_ztpmlqt_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ztpmlqt(...) LAPACK_ztpmlqt_base(__VA_ARGS__) -#endif - -#define LAPACK_ctpmqrt_base LAPACK_GLOBAL(ctpmqrt,CTPMQRT) -void LAPACK_ctpmqrt_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb, - lapack_complex_float const* V, lapack_int const* ldv, - lapack_complex_float const* T, lapack_int const* ldt, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctpmqrt(...) LAPACK_ctpmqrt_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ctpmqrt(...) LAPACK_ctpmqrt_base(__VA_ARGS__) -#endif - -#define LAPACK_dtpmqrt_base LAPACK_GLOBAL(dtpmqrt,DTPMQRT) -void LAPACK_dtpmqrt_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb, - double const* V, lapack_int const* ldv, - double const* T, lapack_int const* ldt, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtpmqrt(...) LAPACK_dtpmqrt_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dtpmqrt(...) LAPACK_dtpmqrt_base(__VA_ARGS__) -#endif - -#define LAPACK_stpmqrt_base LAPACK_GLOBAL(stpmqrt,STPMQRT) -void LAPACK_stpmqrt_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb, - float const* V, lapack_int const* ldv, - float const* T, lapack_int const* ldt, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_stpmqrt(...) LAPACK_stpmqrt_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_stpmqrt(...) LAPACK_stpmqrt_base(__VA_ARGS__) -#endif - -#define LAPACK_ztpmqrt_base LAPACK_GLOBAL(ztpmqrt,ZTPMQRT) -void LAPACK_ztpmqrt_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb, - lapack_complex_double const* V, lapack_int const* ldv, - lapack_complex_double const* T, lapack_int const* ldt, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztpmqrt(...) LAPACK_ztpmqrt_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ztpmqrt(...) LAPACK_ztpmqrt_base(__VA_ARGS__) -#endif - -#define LAPACK_ctpqrt LAPACK_GLOBAL(ctpqrt,CTPQRT) -void LAPACK_ctpqrt( - lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* nb, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* T, lapack_int const* ldt, - lapack_complex_float* work, - lapack_int* info ); - -#define LAPACK_dtpqrt LAPACK_GLOBAL(dtpqrt,DTPQRT) -void LAPACK_dtpqrt( - lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* nb, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* T, lapack_int const* ldt, - double* work, - lapack_int* info ); - -#define LAPACK_stpqrt LAPACK_GLOBAL(stpqrt,STPQRT) -void LAPACK_stpqrt( - lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* nb, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* T, lapack_int const* ldt, - float* work, - lapack_int* info ); - -#define LAPACK_ztpqrt LAPACK_GLOBAL(ztpqrt,ZTPQRT) -void LAPACK_ztpqrt( - lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* nb, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* T, lapack_int const* ldt, - lapack_complex_double* work, - lapack_int* info ); - -#define LAPACK_ctpqrt2 LAPACK_GLOBAL(ctpqrt2,CTPQRT2) -void LAPACK_ctpqrt2( - lapack_int const* m, lapack_int const* n, lapack_int const* l, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* T, lapack_int const* ldt, - lapack_int* info ); - -#define LAPACK_dtpqrt2 LAPACK_GLOBAL(dtpqrt2,DTPQRT2) -void LAPACK_dtpqrt2( - lapack_int const* m, lapack_int const* n, lapack_int const* l, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* T, lapack_int const* ldt, - lapack_int* info ); - -#define LAPACK_stpqrt2 LAPACK_GLOBAL(stpqrt2,STPQRT2) -void LAPACK_stpqrt2( - lapack_int const* m, lapack_int const* n, lapack_int const* l, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* T, lapack_int const* ldt, - lapack_int* info ); - -#define LAPACK_ztpqrt2 LAPACK_GLOBAL(ztpqrt2,ZTPQRT2) -void LAPACK_ztpqrt2( - lapack_int const* m, lapack_int const* n, lapack_int const* l, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* T, lapack_int const* ldt, - lapack_int* info ); - -#define LAPACK_ctprfb_base LAPACK_GLOBAL(ctprfb,CTPRFB) -void LAPACK_ctprfb_base( - char const* side, char const* trans, char const* direct, char const* storev, - lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, - lapack_complex_float const* V, lapack_int const* ldv, - lapack_complex_float const* T, lapack_int const* ldt, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - lapack_complex_float* work, lapack_int const* ldwork -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctprfb(...) LAPACK_ctprfb_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_ctprfb(...) LAPACK_ctprfb_base(__VA_ARGS__) -#endif - -#define LAPACK_dtprfb_base LAPACK_GLOBAL(dtprfb,DTPRFB) -void LAPACK_dtprfb_base( - char const* side, char const* trans, char const* direct, char const* storev, - lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, - double const* V, lapack_int const* ldv, - double const* T, lapack_int const* ldt, - double* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - double* work, lapack_int const* ldwork -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtprfb(...) LAPACK_dtprfb_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_dtprfb(...) LAPACK_dtprfb_base(__VA_ARGS__) -#endif - -#define LAPACK_stprfb_base LAPACK_GLOBAL(stprfb,STPRFB) -void LAPACK_stprfb_base( - char const* side, char const* trans, char const* direct, char const* storev, - lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, - float const* V, lapack_int const* ldv, - float const* T, lapack_int const* ldt, - float* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - float* work, lapack_int const* ldwork -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_stprfb(...) LAPACK_stprfb_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_stprfb(...) LAPACK_stprfb_base(__VA_ARGS__) -#endif - -#define LAPACK_ztprfb_base LAPACK_GLOBAL(ztprfb,ZTPRFB) -void LAPACK_ztprfb_base( - char const* side, char const* trans, char const* direct, char const* storev, - lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, - lapack_complex_double const* V, lapack_int const* ldv, - lapack_complex_double const* T, lapack_int const* ldt, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - lapack_complex_double* work, lapack_int const* ldwork -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztprfb(...) LAPACK_ztprfb_base(__VA_ARGS__, 1, 1, 1, 1) -#else - #define LAPACK_ztprfb(...) LAPACK_ztprfb_base(__VA_ARGS__) -#endif - -#define LAPACK_ctprfs_base LAPACK_GLOBAL(ctprfs,CTPRFS) -void LAPACK_ctprfs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* AP, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float const* X, lapack_int const* ldx, - float* ferr, - float* berr, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctprfs(...) LAPACK_ctprfs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ctprfs(...) LAPACK_ctprfs_base(__VA_ARGS__) -#endif - -#define LAPACK_dtprfs_base LAPACK_GLOBAL(dtprfs,DTPRFS) -void LAPACK_dtprfs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* nrhs, - double const* AP, - double const* B, lapack_int const* ldb, - double const* X, lapack_int const* ldx, - double* ferr, - double* berr, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtprfs(...) LAPACK_dtprfs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dtprfs(...) LAPACK_dtprfs_base(__VA_ARGS__) -#endif - -#define LAPACK_stprfs_base LAPACK_GLOBAL(stprfs,STPRFS) -void LAPACK_stprfs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* nrhs, - float const* AP, - float const* B, lapack_int const* ldb, - float const* X, lapack_int const* ldx, - float* ferr, - float* berr, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_stprfs(...) LAPACK_stprfs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_stprfs(...) LAPACK_stprfs_base(__VA_ARGS__) -#endif - -#define LAPACK_ztprfs_base LAPACK_GLOBAL(ztprfs,ZTPRFS) -void LAPACK_ztprfs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* AP, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double const* X, lapack_int const* ldx, - double* ferr, - double* berr, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztprfs(...) LAPACK_ztprfs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ztprfs(...) LAPACK_ztprfs_base(__VA_ARGS__) -#endif - -#define LAPACK_ctptri_base LAPACK_GLOBAL(ctptri,CTPTRI) -void LAPACK_ctptri_base( - char const* uplo, char const* diag, - lapack_int const* n, - lapack_complex_float* AP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctptri(...) LAPACK_ctptri_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ctptri(...) LAPACK_ctptri_base(__VA_ARGS__) -#endif - -#define LAPACK_dtptri_base LAPACK_GLOBAL(dtptri,DTPTRI) -void LAPACK_dtptri_base( - char const* uplo, char const* diag, - lapack_int const* n, - double* AP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtptri(...) LAPACK_dtptri_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dtptri(...) LAPACK_dtptri_base(__VA_ARGS__) -#endif - -#define LAPACK_stptri_base LAPACK_GLOBAL(stptri,STPTRI) -void LAPACK_stptri_base( - char const* uplo, char const* diag, - lapack_int const* n, - float* AP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_stptri(...) LAPACK_stptri_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_stptri(...) LAPACK_stptri_base(__VA_ARGS__) -#endif - -#define LAPACK_ztptri_base LAPACK_GLOBAL(ztptri,ZTPTRI) -void LAPACK_ztptri_base( - char const* uplo, char const* diag, - lapack_int const* n, - lapack_complex_double* AP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztptri(...) LAPACK_ztptri_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ztptri(...) LAPACK_ztptri_base(__VA_ARGS__) -#endif - -#define LAPACK_ctptrs_base LAPACK_GLOBAL(ctptrs,CTPTRS) -void LAPACK_ctptrs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* AP, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctptrs(...) LAPACK_ctptrs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ctptrs(...) LAPACK_ctptrs_base(__VA_ARGS__) -#endif - -#define LAPACK_dtptrs_base LAPACK_GLOBAL(dtptrs,DTPTRS) -void LAPACK_dtptrs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* nrhs, - double const* AP, - double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtptrs(...) LAPACK_dtptrs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dtptrs(...) LAPACK_dtptrs_base(__VA_ARGS__) -#endif - -#define LAPACK_stptrs_base LAPACK_GLOBAL(stptrs,STPTRS) -void LAPACK_stptrs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* nrhs, - float const* AP, - float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_stptrs(...) LAPACK_stptrs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_stptrs(...) LAPACK_stptrs_base(__VA_ARGS__) -#endif - -#define LAPACK_ztptrs_base LAPACK_GLOBAL(ztptrs,ZTPTRS) -void LAPACK_ztptrs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* AP, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztptrs(...) LAPACK_ztptrs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ztptrs(...) LAPACK_ztptrs_base(__VA_ARGS__) -#endif - -#define LAPACK_ctpttf_base LAPACK_GLOBAL(ctpttf,CTPTTF) -void LAPACK_ctpttf_base( - char const* transr, char const* uplo, - lapack_int const* n, - lapack_complex_float const* AP, - lapack_complex_float* ARF, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctpttf(...) LAPACK_ctpttf_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ctpttf(...) LAPACK_ctpttf_base(__VA_ARGS__) -#endif - -#define LAPACK_dtpttf_base LAPACK_GLOBAL(dtpttf,DTPTTF) -void LAPACK_dtpttf_base( - char const* transr, char const* uplo, - lapack_int const* n, - double const* AP, - double* ARF, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtpttf(...) LAPACK_dtpttf_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dtpttf(...) LAPACK_dtpttf_base(__VA_ARGS__) -#endif - -#define LAPACK_stpttf_base LAPACK_GLOBAL(stpttf,STPTTF) -void LAPACK_stpttf_base( - char const* transr, char const* uplo, - lapack_int const* n, - float const* AP, - float* ARF, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_stpttf(...) LAPACK_stpttf_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_stpttf(...) LAPACK_stpttf_base(__VA_ARGS__) -#endif - -#define LAPACK_ztpttf_base LAPACK_GLOBAL(ztpttf,ZTPTTF) -void LAPACK_ztpttf_base( - char const* transr, char const* uplo, - lapack_int const* n, - lapack_complex_double const* AP, - lapack_complex_double* ARF, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztpttf(...) LAPACK_ztpttf_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ztpttf(...) LAPACK_ztpttf_base(__VA_ARGS__) -#endif - -#define LAPACK_ctpttr_base LAPACK_GLOBAL(ctpttr,CTPTTR) -void LAPACK_ctpttr_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float const* AP, - lapack_complex_float* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctpttr(...) LAPACK_ctpttr_base(__VA_ARGS__, 1) -#else - #define LAPACK_ctpttr(...) LAPACK_ctpttr_base(__VA_ARGS__) -#endif - -#define LAPACK_dtpttr_base LAPACK_GLOBAL(dtpttr,DTPTTR) -void LAPACK_dtpttr_base( - char const* uplo, - lapack_int const* n, - double const* AP, - double* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtpttr(...) LAPACK_dtpttr_base(__VA_ARGS__, 1) -#else - #define LAPACK_dtpttr(...) LAPACK_dtpttr_base(__VA_ARGS__) -#endif - -#define LAPACK_stpttr_base LAPACK_GLOBAL(stpttr,STPTTR) -void LAPACK_stpttr_base( - char const* uplo, - lapack_int const* n, - float const* AP, - float* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_stpttr(...) LAPACK_stpttr_base(__VA_ARGS__, 1) -#else - #define LAPACK_stpttr(...) LAPACK_stpttr_base(__VA_ARGS__) -#endif - -#define LAPACK_ztpttr_base LAPACK_GLOBAL(ztpttr,ZTPTTR) -void LAPACK_ztpttr_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double const* AP, - lapack_complex_double* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztpttr(...) LAPACK_ztpttr_base(__VA_ARGS__, 1) -#else - #define LAPACK_ztpttr(...) LAPACK_ztpttr_base(__VA_ARGS__) -#endif - -#define LAPACK_ctrcon_base LAPACK_GLOBAL(ctrcon,CTRCON) -void LAPACK_ctrcon_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - float* rcond, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctrcon(...) LAPACK_ctrcon_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ctrcon(...) LAPACK_ctrcon_base(__VA_ARGS__) -#endif - -#define LAPACK_dtrcon_base LAPACK_GLOBAL(dtrcon,DTRCON) -void LAPACK_dtrcon_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* n, - double const* A, lapack_int const* lda, - double* rcond, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtrcon(...) LAPACK_dtrcon_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dtrcon(...) LAPACK_dtrcon_base(__VA_ARGS__) -#endif - -#define LAPACK_strcon_base LAPACK_GLOBAL(strcon,STRCON) -void LAPACK_strcon_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* n, - float const* A, lapack_int const* lda, - float* rcond, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_strcon(...) LAPACK_strcon_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_strcon(...) LAPACK_strcon_base(__VA_ARGS__) -#endif - -#define LAPACK_ztrcon_base LAPACK_GLOBAL(ztrcon,ZTRCON) -void LAPACK_ztrcon_base( - char const* norm, char const* uplo, char const* diag, - lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - double* rcond, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztrcon(...) LAPACK_ztrcon_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ztrcon(...) LAPACK_ztrcon_base(__VA_ARGS__) -#endif - -#define LAPACK_ctrevc_base LAPACK_GLOBAL(ctrevc,CTREVC) -void LAPACK_ctrevc_base( - char const* side, char const* howmny, - lapack_logical const* select, - lapack_int const* n, - lapack_complex_float* T, lapack_int const* ldt, - lapack_complex_float* VL, lapack_int const* ldvl, - lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctrevc(...) LAPACK_ctrevc_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ctrevc(...) LAPACK_ctrevc_base(__VA_ARGS__) -#endif - -#define LAPACK_dtrevc_base LAPACK_GLOBAL(dtrevc,DTREVC) -void LAPACK_dtrevc_base( - char const* side, char const* howmny, - lapack_logical* select, - lapack_int const* n, - double const* T, lapack_int const* ldt, - double* VL, lapack_int const* ldvl, - double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtrevc(...) LAPACK_dtrevc_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dtrevc(...) LAPACK_dtrevc_base(__VA_ARGS__) -#endif - -#define LAPACK_strevc_base LAPACK_GLOBAL(strevc,STREVC) -void LAPACK_strevc_base( - char const* side, char const* howmny, - lapack_logical* select, - lapack_int const* n, - float const* T, lapack_int const* ldt, - float* VL, lapack_int const* ldvl, - float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_strevc(...) LAPACK_strevc_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_strevc(...) LAPACK_strevc_base(__VA_ARGS__) -#endif - -#define LAPACK_ztrevc_base LAPACK_GLOBAL(ztrevc,ZTREVC) -void LAPACK_ztrevc_base( - char const* side, char const* howmny, - lapack_logical const* select, - lapack_int const* n, - lapack_complex_double* T, lapack_int const* ldt, - lapack_complex_double* VL, lapack_int const* ldvl, - lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztrevc(...) LAPACK_ztrevc_base(__VA_ARGS__, (size_t)1, 1) -#else - #define LAPACK_ztrevc(...) LAPACK_ztrevc_base(__VA_ARGS__) -#endif - -#define LAPACK_ctrevc3_base LAPACK_GLOBAL(ctrevc3,CTREVC3) -void LAPACK_ctrevc3_base( - char const* side, char const* howmny, - lapack_logical const* select, - lapack_int const* n, - lapack_complex_float* T, lapack_int const* ldt, - lapack_complex_float* VL, lapack_int const* ldvl, - lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, lapack_int const* lrwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctrevc3(...) LAPACK_ctrevc3_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ctrevc3(...) LAPACK_ctrevc3_base(__VA_ARGS__) -#endif - -#define LAPACK_dtrevc3_base LAPACK_GLOBAL(dtrevc3,DTREVC3) -void LAPACK_dtrevc3_base( - char const* side, char const* howmny, - lapack_logical* select, - lapack_int const* n, - double const* T, lapack_int const* ldt, - double* VL, lapack_int const* ldvl, - double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, - double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtrevc3(...) LAPACK_dtrevc3_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dtrevc3(...) LAPACK_dtrevc3_base(__VA_ARGS__) -#endif - -#define LAPACK_strevc3_base LAPACK_GLOBAL(strevc3,STREVC3) -void LAPACK_strevc3_base( - char const* side, char const* howmny, - lapack_logical* select, - lapack_int const* n, - float const* T, lapack_int const* ldt, - float* VL, lapack_int const* ldvl, - float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, - float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_strevc3(...) LAPACK_strevc3_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_strevc3(...) LAPACK_strevc3_base(__VA_ARGS__) -#endif - -#define LAPACK_ztrevc3_base LAPACK_GLOBAL(ztrevc3,ZTREVC3) -void LAPACK_ztrevc3_base( - char const* side, char const* howmny, - lapack_logical const* select, - lapack_int const* n, - lapack_complex_double* T, lapack_int const* ldt, - lapack_complex_double* VL, lapack_int const* ldvl, - lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, lapack_int const* lrwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztrevc3(...) LAPACK_ztrevc3_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ztrevc3(...) LAPACK_ztrevc3_base(__VA_ARGS__) -#endif - -#define LAPACK_ctrexc_base LAPACK_GLOBAL(ctrexc,CTREXC) -void LAPACK_ctrexc_base( - char const* compq, - lapack_int const* n, - lapack_complex_float* T, lapack_int const* ldt, - lapack_complex_float* Q, lapack_int const* ldq, lapack_int const* ifst, lapack_int const* ilst, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctrexc(...) LAPACK_ctrexc_base(__VA_ARGS__, 1) -#else - #define LAPACK_ctrexc(...) LAPACK_ctrexc_base(__VA_ARGS__) -#endif - -#define LAPACK_dtrexc_base LAPACK_GLOBAL(dtrexc,DTREXC) -void LAPACK_dtrexc_base( - char const* compq, - lapack_int const* n, - double* T, lapack_int const* ldt, - double* Q, lapack_int const* ldq, lapack_int* ifst, lapack_int* ilst, - double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtrexc(...) LAPACK_dtrexc_base(__VA_ARGS__, 1) -#else - #define LAPACK_dtrexc(...) LAPACK_dtrexc_base(__VA_ARGS__) -#endif - -#define LAPACK_strexc_base LAPACK_GLOBAL(strexc,STREXC) -void LAPACK_strexc_base( - char const* compq, - lapack_int const* n, - float* T, lapack_int const* ldt, - float* Q, lapack_int const* ldq, lapack_int* ifst, lapack_int* ilst, - float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_strexc(...) LAPACK_strexc_base(__VA_ARGS__, 1) -#else - #define LAPACK_strexc(...) LAPACK_strexc_base(__VA_ARGS__) -#endif - -#define LAPACK_ztrexc_base LAPACK_GLOBAL(ztrexc,ZTREXC) -void LAPACK_ztrexc_base( - char const* compq, - lapack_int const* n, - lapack_complex_double* T, lapack_int const* ldt, - lapack_complex_double* Q, lapack_int const* ldq, lapack_int const* ifst, lapack_int const* ilst, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztrexc(...) LAPACK_ztrexc_base(__VA_ARGS__, 1) -#else - #define LAPACK_ztrexc(...) LAPACK_ztrexc_base(__VA_ARGS__) -#endif - -#define LAPACK_ctrrfs_base LAPACK_GLOBAL(ctrrfs,CTRRFS) -void LAPACK_ctrrfs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float const* X, lapack_int const* ldx, - float* ferr, - float* berr, - lapack_complex_float* work, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctrrfs(...) LAPACK_ctrrfs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ctrrfs(...) LAPACK_ctrrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_dtrrfs_base LAPACK_GLOBAL(dtrrfs,DTRRFS) -void LAPACK_dtrrfs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* nrhs, - double const* A, lapack_int const* lda, - double const* B, lapack_int const* ldb, - double const* X, lapack_int const* ldx, - double* ferr, - double* berr, - double* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtrrfs(...) LAPACK_dtrrfs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dtrrfs(...) LAPACK_dtrrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_strrfs_base LAPACK_GLOBAL(strrfs,STRRFS) -void LAPACK_strrfs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* nrhs, - float const* A, lapack_int const* lda, - float const* B, lapack_int const* ldb, - float const* X, lapack_int const* ldx, - float* ferr, - float* berr, - float* work, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_strrfs(...) LAPACK_strrfs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_strrfs(...) LAPACK_strrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_ztrrfs_base LAPACK_GLOBAL(ztrrfs,ZTRRFS) -void LAPACK_ztrrfs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double const* X, lapack_int const* ldx, - double* ferr, - double* berr, - lapack_complex_double* work, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztrrfs(...) LAPACK_ztrrfs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ztrrfs(...) LAPACK_ztrrfs_base(__VA_ARGS__) -#endif - -#define LAPACK_ctrsen_base LAPACK_GLOBAL(ctrsen,CTRSEN) -void LAPACK_ctrsen_base( - char const* job, char const* compq, - lapack_logical const* select, - lapack_int const* n, - lapack_complex_float* T, lapack_int const* ldt, - lapack_complex_float* Q, lapack_int const* ldq, - lapack_complex_float* W, lapack_int* m, - float* s, - float* sep, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctrsen(...) LAPACK_ctrsen_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ctrsen(...) LAPACK_ctrsen_base(__VA_ARGS__) -#endif - -#define LAPACK_dtrsen_base LAPACK_GLOBAL(dtrsen,DTRSEN) -void LAPACK_dtrsen_base( - char const* job, char const* compq, - lapack_logical const* select, - lapack_int const* n, - double* T, lapack_int const* ldt, - double* Q, lapack_int const* ldq, - double* WR, - double* WI, lapack_int* m, - double* s, - double* sep, - double* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtrsen(...) LAPACK_dtrsen_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dtrsen(...) LAPACK_dtrsen_base(__VA_ARGS__) -#endif - -#define LAPACK_strsen_base LAPACK_GLOBAL(strsen,STRSEN) -void LAPACK_strsen_base( - char const* job, char const* compq, - lapack_logical const* select, - lapack_int const* n, - float* T, lapack_int const* ldt, - float* Q, lapack_int const* ldq, - float* WR, - float* WI, lapack_int* m, - float* s, - float* sep, - float* work, lapack_int const* lwork, - lapack_int* iwork, lapack_int const* liwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_strsen(...) LAPACK_strsen_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_strsen(...) LAPACK_strsen_base(__VA_ARGS__) -#endif - -#define LAPACK_ztrsen_base LAPACK_GLOBAL(ztrsen,ZTRSEN) -void LAPACK_ztrsen_base( - char const* job, char const* compq, - lapack_logical const* select, - lapack_int const* n, - lapack_complex_double* T, lapack_int const* ldt, - lapack_complex_double* Q, lapack_int const* ldq, - lapack_complex_double* W, lapack_int* m, - double* s, - double* sep, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztrsen(...) LAPACK_ztrsen_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ztrsen(...) LAPACK_ztrsen_base(__VA_ARGS__) -#endif - -#define LAPACK_ctrsna_base LAPACK_GLOBAL(ctrsna,CTRSNA) -void LAPACK_ctrsna_base( - char const* job, char const* howmny, - lapack_logical const* select, - lapack_int const* n, - lapack_complex_float const* T, lapack_int const* ldt, - lapack_complex_float const* VL, lapack_int const* ldvl, - lapack_complex_float const* VR, lapack_int const* ldvr, - float* S, - float* SEP, lapack_int const* mm, lapack_int* m, - lapack_complex_float* work, lapack_int const* ldwork, - float* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctrsna(...) LAPACK_ctrsna_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ctrsna(...) LAPACK_ctrsna_base(__VA_ARGS__) -#endif - -#define LAPACK_dtrsna_base LAPACK_GLOBAL(dtrsna,DTRSNA) -void LAPACK_dtrsna_base( - char const* job, char const* howmny, - lapack_logical const* select, - lapack_int const* n, - double const* T, lapack_int const* ldt, - double const* VL, lapack_int const* ldvl, - double const* VR, lapack_int const* ldvr, - double* S, - double* SEP, lapack_int const* mm, lapack_int* m, - double* work, lapack_int const* ldwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtrsna(...) LAPACK_dtrsna_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dtrsna(...) LAPACK_dtrsna_base(__VA_ARGS__) -#endif - -#define LAPACK_strsna_base LAPACK_GLOBAL(strsna,STRSNA) -void LAPACK_strsna_base( - char const* job, char const* howmny, - lapack_logical const* select, - lapack_int const* n, - float const* T, lapack_int const* ldt, - float const* VL, lapack_int const* ldvl, - float const* VR, lapack_int const* ldvr, - float* S, - float* SEP, lapack_int const* mm, lapack_int* m, - float* work, lapack_int const* ldwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_strsna(...) LAPACK_strsna_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_strsna(...) LAPACK_strsna_base(__VA_ARGS__) -#endif - -#define LAPACK_ztrsna_base LAPACK_GLOBAL(ztrsna,ZTRSNA) -void LAPACK_ztrsna_base( - char const* job, char const* howmny, - lapack_logical const* select, - lapack_int const* n, - lapack_complex_double const* T, lapack_int const* ldt, - lapack_complex_double const* VL, lapack_int const* ldvl, - lapack_complex_double const* VR, lapack_int const* ldvr, - double* S, - double* SEP, lapack_int const* mm, lapack_int* m, - lapack_complex_double* work, lapack_int const* ldwork, - double* rwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztrsna(...) LAPACK_ztrsna_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ztrsna(...) LAPACK_ztrsna_base(__VA_ARGS__) -#endif - -#define LAPACK_ctrsyl_base LAPACK_GLOBAL(ctrsyl,CTRSYL) -void LAPACK_ctrsyl_base( - char const* trana, char const* tranb, - lapack_int const* isgn, lapack_int const* m, lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* C, lapack_int const* ldc, - float* scale, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctrsyl(...) LAPACK_ctrsyl_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ctrsyl(...) LAPACK_ctrsyl_base(__VA_ARGS__) -#endif - -#define LAPACK_dtrsyl_base LAPACK_GLOBAL(dtrsyl,DTRSYL) -void LAPACK_dtrsyl_base( - char const* trana, char const* tranb, - lapack_int const* isgn, lapack_int const* m, lapack_int const* n, - double const* A, lapack_int const* lda, - double const* B, lapack_int const* ldb, - double* C, lapack_int const* ldc, - double* scale, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtrsyl(...) LAPACK_dtrsyl_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dtrsyl(...) LAPACK_dtrsyl_base(__VA_ARGS__) -#endif - -#define LAPACK_strsyl_base LAPACK_GLOBAL(strsyl,STRSYL) -void LAPACK_strsyl_base( - char const* trana, char const* tranb, - lapack_int const* isgn, lapack_int const* m, lapack_int const* n, - float const* A, lapack_int const* lda, - float const* B, lapack_int const* ldb, - float* C, lapack_int const* ldc, - float* scale, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_strsyl(...) LAPACK_strsyl_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_strsyl(...) LAPACK_strsyl_base(__VA_ARGS__) -#endif - -#define LAPACK_ztrsyl_base LAPACK_GLOBAL(ztrsyl,ZTRSYL) -void LAPACK_ztrsyl_base( - char const* trana, char const* tranb, - lapack_int const* isgn, lapack_int const* m, lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* C, lapack_int const* ldc, - double* scale, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztrsyl(...) LAPACK_ztrsyl_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ztrsyl(...) LAPACK_ztrsyl_base(__VA_ARGS__) -#endif - -#define LAPACK_ctrsyl3_base LAPACK_GLOBAL(ctrsyl3,CTRSYL3) -void LAPACK_ctrsyl3_base( - char const* trana, char const* tranb, - lapack_int const* isgn, lapack_int const* m, lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* B, lapack_int const* ldb, - lapack_complex_float* C, lapack_int const* ldc, float* scale, - float* swork, lapack_int const *ldswork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctrsyl3(...) LAPACK_ctrsyl3_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ctrsyl3(...) LAPACK_ctrsyl3_base(__VA_ARGS__) -#endif - -#define LAPACK_dtrsyl3_base LAPACK_GLOBAL(dtrsyl3,DTRSYL3) -void LAPACK_dtrsyl3_base( - char const* trana, char const* tranb, - lapack_int const* isgn, lapack_int const* m, lapack_int const* n, - double const* A, lapack_int const* lda, - double const* B, lapack_int const* ldb, - double* C, lapack_int const* ldc, double* scale, - lapack_int* iwork, lapack_int const* liwork, - double* swork, lapack_int const *ldswork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtrsyl3(...) LAPACK_dtrsyl3_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dtrsyl3(...) LAPACK_dtrsyl3_base(__VA_ARGS__) -#endif - -#define LAPACK_strsyl3_base LAPACK_GLOBAL(strsyl3,STRSYL3) -void LAPACK_strsyl3_base( - char const* trana, char const* tranb, - lapack_int const* isgn, lapack_int const* m, lapack_int const* n, - float const* A, lapack_int const* lda, - float const* B, lapack_int const* ldb, - float* C, lapack_int const* ldc, float* scale, - lapack_int* iwork, lapack_int const* liwork, - float* swork, lapack_int const *ldswork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_strsyl3(...) LAPACK_strsyl3_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_strsyl3(...) LAPACK_strsyl3_base(__VA_ARGS__) -#endif - -#define LAPACK_ztrsyl3_base LAPACK_GLOBAL(ztrsyl3,ZTRSYL3) -void LAPACK_ztrsyl3_base( - char const* trana, char const* tranb, - lapack_int const* isgn, lapack_int const* m, lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* B, lapack_int const* ldb, - lapack_complex_double* C, lapack_int const* ldc, double* scale, - double* swork, lapack_int const *ldswork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztrsyl3(...) LAPACK_ztrsyl3_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ztrsyl3(...) LAPACK_ztrsyl3_base(__VA_ARGS__) -#endif - -#define LAPACK_ctrtri_base LAPACK_GLOBAL(ctrtri,CTRTRI) -lapack_int LAPACK_ctrtri_base( - char const* uplo, char const* diag, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctrtri(...) LAPACK_ctrtri_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ctrtri(...) LAPACK_ctrtri_base(__VA_ARGS__) -#endif - -#define LAPACK_dtrtri_base LAPACK_GLOBAL(dtrtri,DTRTRI) -lapack_int LAPACK_dtrtri_base( - char const* uplo, char const* diag, - lapack_int const* n, - double* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtrtri(...) LAPACK_dtrtri_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dtrtri(...) LAPACK_dtrtri_base(__VA_ARGS__) -#endif - -#define LAPACK_strtri_base LAPACK_GLOBAL(strtri,STRTRI) -lapack_int LAPACK_strtri_base( - char const* uplo, char const* diag, - lapack_int const* n, - float* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_strtri(...) LAPACK_strtri_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_strtri(...) LAPACK_strtri_base(__VA_ARGS__) -#endif - -#define LAPACK_ztrtri_base LAPACK_GLOBAL(ztrtri,ZTRTRI) -lapack_int LAPACK_ztrtri_base( - char const* uplo, char const* diag, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztrtri(...) LAPACK_ztrtri_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ztrtri(...) LAPACK_ztrtri_base(__VA_ARGS__) -#endif - -#define LAPACK_ctrtrs_base LAPACK_GLOBAL(ctrtrs,CTRTRS) -lapack_int LAPACK_ctrtrs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctrtrs(...) LAPACK_ctrtrs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ctrtrs(...) LAPACK_ctrtrs_base(__VA_ARGS__) -#endif - -#define LAPACK_dtrtrs_base LAPACK_GLOBAL(dtrtrs,DTRTRS) -lapack_int LAPACK_dtrtrs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* nrhs, - double const* A, lapack_int const* lda, - double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtrtrs(...) LAPACK_dtrtrs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_dtrtrs(...) LAPACK_dtrtrs_base(__VA_ARGS__) -#endif - -#define LAPACK_strtrs_base LAPACK_GLOBAL(strtrs,STRTRS) -lapack_int LAPACK_strtrs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* nrhs, - float const* A, lapack_int const* lda, - float* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_strtrs(...) LAPACK_strtrs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_strtrs(...) LAPACK_strtrs_base(__VA_ARGS__) -#endif - -#define LAPACK_ztrtrs_base LAPACK_GLOBAL(ztrtrs,ZTRTRS) -lapack_int LAPACK_ztrtrs_base( - char const* uplo, char const* trans, char const* diag, - lapack_int const* n, lapack_int const* nrhs, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double* B, lapack_int const* ldb, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztrtrs(...) LAPACK_ztrtrs_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_ztrtrs(...) LAPACK_ztrtrs_base(__VA_ARGS__) -#endif - -#define LAPACK_ctrttf_base LAPACK_GLOBAL(ctrttf,CTRTTF) -void LAPACK_ctrttf_base( - char const* transr, char const* uplo, - lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float* ARF, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctrttf(...) LAPACK_ctrttf_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ctrttf(...) LAPACK_ctrttf_base(__VA_ARGS__) -#endif - -#define LAPACK_dtrttf_base LAPACK_GLOBAL(dtrttf,DTRTTF) -void LAPACK_dtrttf_base( - char const* transr, char const* uplo, - lapack_int const* n, - double const* A, lapack_int const* lda, - double* ARF, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtrttf(...) LAPACK_dtrttf_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_dtrttf(...) LAPACK_dtrttf_base(__VA_ARGS__) -#endif - -#define LAPACK_strttf_base LAPACK_GLOBAL(strttf,STRTTF) -void LAPACK_strttf_base( - char const* transr, char const* uplo, - lapack_int const* n, - float const* A, lapack_int const* lda, - float* ARF, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_strttf(...) LAPACK_strttf_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_strttf(...) LAPACK_strttf_base(__VA_ARGS__) -#endif - -#define LAPACK_ztrttf_base LAPACK_GLOBAL(ztrttf,ZTRTTF) -void LAPACK_ztrttf_base( - char const* transr, char const* uplo, - lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double* ARF, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztrttf(...) LAPACK_ztrttf_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_ztrttf(...) LAPACK_ztrttf_base(__VA_ARGS__) -#endif - -#define LAPACK_ctrttp_base LAPACK_GLOBAL(ctrttp,CTRTTP) -void LAPACK_ctrttp_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float* AP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ctrttp(...) LAPACK_ctrttp_base(__VA_ARGS__, 1) -#else - #define LAPACK_ctrttp(...) LAPACK_ctrttp_base(__VA_ARGS__) -#endif - -#define LAPACK_dtrttp_base LAPACK_GLOBAL(dtrttp,DTRTTP) -void LAPACK_dtrttp_base( - char const* uplo, - lapack_int const* n, - double const* A, lapack_int const* lda, - double* AP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_dtrttp(...) LAPACK_dtrttp_base(__VA_ARGS__, 1) -#else - #define LAPACK_dtrttp(...) LAPACK_dtrttp_base(__VA_ARGS__) -#endif - -#define LAPACK_strttp_base LAPACK_GLOBAL(strttp,STRTTP) -void LAPACK_strttp_base( - char const* uplo, - lapack_int const* n, - float const* A, lapack_int const* lda, - float* AP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_strttp(...) LAPACK_strttp_base(__VA_ARGS__, 1) -#else - #define LAPACK_strttp(...) LAPACK_strttp_base(__VA_ARGS__) -#endif - -#define LAPACK_ztrttp_base LAPACK_GLOBAL(ztrttp,ZTRTTP) -void LAPACK_ztrttp_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double* AP, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_ztrttp(...) LAPACK_ztrttp_base(__VA_ARGS__, 1) -#else - #define LAPACK_ztrttp(...) LAPACK_ztrttp_base(__VA_ARGS__) -#endif - -#define LAPACK_ctzrzf LAPACK_GLOBAL(ctzrzf,CTZRZF) -void LAPACK_ctzrzf( - lapack_int const* m, lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float* tau, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_dtzrzf LAPACK_GLOBAL(dtzrzf,DTZRZF) -void LAPACK_dtzrzf( - lapack_int const* m, lapack_int const* n, - double* A, lapack_int const* lda, - double* tau, - double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_stzrzf LAPACK_GLOBAL(stzrzf,STZRZF) -void LAPACK_stzrzf( - lapack_int const* m, lapack_int const* n, - float* A, lapack_int const* lda, - float* tau, - float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_ztzrzf LAPACK_GLOBAL(ztzrzf,ZTZRZF) -void LAPACK_ztzrzf( - lapack_int const* m, lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double* tau, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_cunbdb_base LAPACK_GLOBAL(cunbdb,CUNBDB) -void LAPACK_cunbdb_base( - char const* trans, char const* signs, - lapack_int const* m, lapack_int const* p, lapack_int const* q, - lapack_complex_float* X11, lapack_int const* ldx11, - lapack_complex_float* X12, lapack_int const* ldx12, - lapack_complex_float* X21, lapack_int const* ldx21, - lapack_complex_float* X22, lapack_int const* ldx22, - float* theta, - float* phi, - lapack_complex_float* TAUP1, - lapack_complex_float* TAUP2, - lapack_complex_float* TAUQ1, - lapack_complex_float* TAUQ2, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cunbdb(...) LAPACK_cunbdb_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cunbdb(...) LAPACK_cunbdb_base(__VA_ARGS__) -#endif - -#define LAPACK_zunbdb_base LAPACK_GLOBAL(zunbdb,ZUNBDB) -void LAPACK_zunbdb_base( - char const* trans, char const* signs, - lapack_int const* m, lapack_int const* p, lapack_int const* q, - lapack_complex_double* X11, lapack_int const* ldx11, - lapack_complex_double* X12, lapack_int const* ldx12, - lapack_complex_double* X21, lapack_int const* ldx21, - lapack_complex_double* X22, lapack_int const* ldx22, - double* theta, - double* phi, - lapack_complex_double* TAUP1, - lapack_complex_double* TAUP2, - lapack_complex_double* TAUQ1, - lapack_complex_double* TAUQ2, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zunbdb(...) LAPACK_zunbdb_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zunbdb(...) LAPACK_zunbdb_base(__VA_ARGS__) -#endif - -#define LAPACK_cuncsd_base LAPACK_GLOBAL(cuncsd,CUNCSD) -void LAPACK_cuncsd_base( - char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs, - lapack_int const* m, lapack_int const* p, lapack_int const* q, - lapack_complex_float* X11, lapack_int const* ldx11, - lapack_complex_float* X12, lapack_int const* ldx12, - lapack_complex_float* X21, lapack_int const* ldx21, - lapack_complex_float* X22, lapack_int const* ldx22, - float* theta, - lapack_complex_float* U1, lapack_int const* ldu1, - lapack_complex_float* U2, lapack_int const* ldu2, - lapack_complex_float* V1T, lapack_int const* ldv1t, - lapack_complex_float* V2T, lapack_int const* ldv2t, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, lapack_int const* lrwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cuncsd(...) LAPACK_cuncsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) -#else - #define LAPACK_cuncsd(...) LAPACK_cuncsd_base(__VA_ARGS__) -#endif - -#define LAPACK_zuncsd_base LAPACK_GLOBAL(zuncsd,ZUNCSD) -void LAPACK_zuncsd_base( - char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs, - lapack_int const* m, lapack_int const* p, lapack_int const* q, - lapack_complex_double* X11, lapack_int const* ldx11, - lapack_complex_double* X12, lapack_int const* ldx12, - lapack_complex_double* X21, lapack_int const* ldx21, - lapack_complex_double* X22, lapack_int const* ldx22, - double* theta, - lapack_complex_double* U1, lapack_int const* ldu1, - lapack_complex_double* U2, lapack_int const* ldu2, - lapack_complex_double* V1T, lapack_int const* ldv1t, - lapack_complex_double* V2T, lapack_int const* ldv2t, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, lapack_int const* lrwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t, size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zuncsd(...) LAPACK_zuncsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1) -#else - #define LAPACK_zuncsd(...) LAPACK_zuncsd_base(__VA_ARGS__) -#endif - -#define LAPACK_cuncsd2by1_base LAPACK_GLOBAL(cuncsd2by1,CUNCSD2BY1) -void LAPACK_cuncsd2by1_base( - char const* jobu1, char const* jobu2, char const* jobv1t, - lapack_int const* m, lapack_int const* p, lapack_int const* q, - lapack_complex_float* X11, lapack_int const* ldx11, - lapack_complex_float* X21, lapack_int const* ldx21, - float* theta, - lapack_complex_float* U1, lapack_int const* ldu1, - lapack_complex_float* U2, lapack_int const* ldu2, - lapack_complex_float* V1T, lapack_int const* ldv1t, - lapack_complex_float* work, lapack_int const* lwork, - float* rwork, lapack_int const* lrwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cuncsd2by1(...) LAPACK_cuncsd2by1_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cuncsd2by1(...) LAPACK_cuncsd2by1_base(__VA_ARGS__) -#endif - -#define LAPACK_zuncsd2by1_base LAPACK_GLOBAL(zuncsd2by1,ZUNCSD2BY1) -void LAPACK_zuncsd2by1_base( - char const* jobu1, char const* jobu2, char const* jobv1t, - lapack_int const* m, lapack_int const* p, lapack_int const* q, - lapack_complex_double* X11, lapack_int const* ldx11, - lapack_complex_double* X21, lapack_int const* ldx21, - double* theta, - lapack_complex_double* U1, lapack_int const* ldu1, - lapack_complex_double* U2, lapack_int const* ldu2, - lapack_complex_double* V1T, lapack_int const* ldv1t, - lapack_complex_double* work, lapack_int const* lwork, - double* rwork, lapack_int const* lrwork, - lapack_int* iwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zuncsd2by1(...) LAPACK_zuncsd2by1_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zuncsd2by1(...) LAPACK_zuncsd2by1_base(__VA_ARGS__) -#endif - -#define LAPACK_cungbr_base LAPACK_GLOBAL(cungbr,CUNGBR) -void LAPACK_cungbr_base( - char const* vect, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float const* tau, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cungbr(...) LAPACK_cungbr_base(__VA_ARGS__, 1) -#else - #define LAPACK_cungbr(...) LAPACK_cungbr_base(__VA_ARGS__) -#endif - -#define LAPACK_zungbr_base LAPACK_GLOBAL(zungbr,ZUNGBR) -void LAPACK_zungbr_base( - char const* vect, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double const* tau, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zungbr(...) LAPACK_zungbr_base(__VA_ARGS__, 1) -#else - #define LAPACK_zungbr(...) LAPACK_zungbr_base(__VA_ARGS__) -#endif - -#define LAPACK_cunghr LAPACK_GLOBAL(cunghr,CUNGHR) -void LAPACK_cunghr( - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float const* tau, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zunghr LAPACK_GLOBAL(zunghr,ZUNGHR) -void LAPACK_zunghr( - lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double const* tau, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_cunglq LAPACK_GLOBAL(cunglq,CUNGLQ) -void LAPACK_cunglq( - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float const* tau, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zunglq LAPACK_GLOBAL(zunglq,ZUNGLQ) -void LAPACK_zunglq( - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double const* tau, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_cungql LAPACK_GLOBAL(cungql,CUNGQL) -void LAPACK_cungql( - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float const* tau, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zungql LAPACK_GLOBAL(zungql,ZUNGQL) -void LAPACK_zungql( - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double const* tau, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_cungqr LAPACK_GLOBAL(cungqr,CUNGQR) -void LAPACK_cungqr( - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float const* tau, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zungqr LAPACK_GLOBAL(zungqr,ZUNGQR) -void LAPACK_zungqr( - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double const* tau, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_cungrq LAPACK_GLOBAL(cungrq,CUNGRQ) -void LAPACK_cungrq( - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float const* tau, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zungrq LAPACK_GLOBAL(zungrq,ZUNGRQ) -void LAPACK_zungrq( - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double const* tau, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_cungtr_base LAPACK_GLOBAL(cungtr,CUNGTR) -void LAPACK_cungtr_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float const* tau, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cungtr(...) LAPACK_cungtr_base(__VA_ARGS__, 1) -#else - #define LAPACK_cungtr(...) LAPACK_cungtr_base(__VA_ARGS__) -#endif - -#define LAPACK_zungtr_base LAPACK_GLOBAL(zungtr,ZUNGTR) -void LAPACK_zungtr_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double const* tau, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zungtr(...) LAPACK_zungtr_base(__VA_ARGS__, 1) -#else - #define LAPACK_zungtr(...) LAPACK_zungtr_base(__VA_ARGS__) -#endif - -#define LAPACK_cungtsqr_row LAPACK_GLOBAL(cungtsqr_row,CUNGTSQR_ROW) -void LAPACK_cungtsqr_row( - lapack_int const* m, lapack_int const* n, - lapack_int const* mb, lapack_int const* nb, - lapack_complex_float* A, lapack_int const* lda, - lapack_complex_float const* T, lapack_int const* ldt, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_zungtsqr_row LAPACK_GLOBAL(zungtsqr_row,ZUNGTSQR_ROW) -void LAPACK_zungtsqr_row( - lapack_int const* m, lapack_int const* n, - lapack_int const* mb, lapack_int const* nb, - lapack_complex_double* A, lapack_int const* lda, - lapack_complex_double const* T, lapack_int const* ldt, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info ); - -#define LAPACK_cunhr_col LAPACK_GLOBAL(cunhr_col,CUNHR_COL) -void LAPACK_cunhr_col( - lapack_int const* m, lapack_int const* n, - lapack_int const* nb, lapack_complex_float* A, - lapack_int const* lda, lapack_complex_float* T, - lapack_int const* ldt, lapack_complex_float* D, - lapack_int* info ); - -#define LAPACK_zunhr_col LAPACK_GLOBAL(zunhr_col,ZUNHR_COL) -void LAPACK_zunhr_col( - lapack_int const* m, lapack_int const* n, - lapack_int const* nb, lapack_complex_double* A, - lapack_int const* lda, lapack_complex_double* T, - lapack_int const* ldt, lapack_complex_double* D, - lapack_int* info ); - -#define LAPACK_cunmbr_base LAPACK_GLOBAL(cunmbr,CUNMBR) -void LAPACK_cunmbr_base( - char const* vect, char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* tau, - lapack_complex_float* C, lapack_int const* ldc, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cunmbr(...) LAPACK_cunmbr_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cunmbr(...) LAPACK_cunmbr_base(__VA_ARGS__) -#endif - -#define LAPACK_zunmbr_base LAPACK_GLOBAL(zunmbr,ZUNMBR) -void LAPACK_zunmbr_base( - char const* vect, char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* tau, - lapack_complex_double* C, lapack_int const* ldc, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zunmbr(...) LAPACK_zunmbr_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zunmbr(...) LAPACK_zunmbr_base(__VA_ARGS__) -#endif - -#define LAPACK_cunmhr_base LAPACK_GLOBAL(cunmhr,CUNMHR) -void LAPACK_cunmhr_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* tau, - lapack_complex_float* C, lapack_int const* ldc, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cunmhr(...) LAPACK_cunmhr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cunmhr(...) LAPACK_cunmhr_base(__VA_ARGS__) -#endif - -#define LAPACK_zunmhr_base LAPACK_GLOBAL(zunmhr,ZUNMHR) -void LAPACK_zunmhr_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* tau, - lapack_complex_double* C, lapack_int const* ldc, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zunmhr(...) LAPACK_zunmhr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zunmhr(...) LAPACK_zunmhr_base(__VA_ARGS__) -#endif - -#define LAPACK_cunmlq_base LAPACK_GLOBAL(cunmlq,CUNMLQ) -void LAPACK_cunmlq_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* tau, - lapack_complex_float* C, lapack_int const* ldc, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cunmlq(...) LAPACK_cunmlq_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cunmlq(...) LAPACK_cunmlq_base(__VA_ARGS__) -#endif - -#define LAPACK_zunmlq_base LAPACK_GLOBAL(zunmlq,ZUNMLQ) -void LAPACK_zunmlq_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* tau, - lapack_complex_double* C, lapack_int const* ldc, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zunmlq(...) LAPACK_zunmlq_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zunmlq(...) LAPACK_zunmlq_base(__VA_ARGS__) -#endif - -#define LAPACK_cunmql_base LAPACK_GLOBAL(cunmql,CUNMQL) -void LAPACK_cunmql_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* tau, - lapack_complex_float* C, lapack_int const* ldc, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cunmql(...) LAPACK_cunmql_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cunmql(...) LAPACK_cunmql_base(__VA_ARGS__) -#endif - -#define LAPACK_zunmql_base LAPACK_GLOBAL(zunmql,ZUNMQL) -void LAPACK_zunmql_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* tau, - lapack_complex_double* C, lapack_int const* ldc, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zunmql(...) LAPACK_zunmql_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zunmql(...) LAPACK_zunmql_base(__VA_ARGS__) -#endif - -#define LAPACK_cunmqr_base LAPACK_GLOBAL(cunmqr,CUNMQR) -void LAPACK_cunmqr_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* tau, - lapack_complex_float* C, lapack_int const* ldc, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cunmqr(...) LAPACK_cunmqr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cunmqr(...) LAPACK_cunmqr_base(__VA_ARGS__) -#endif - -#define LAPACK_zunmqr_base LAPACK_GLOBAL(zunmqr,ZUNMQR) -void LAPACK_zunmqr_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* tau, - lapack_complex_double* C, lapack_int const* ldc, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zunmqr(...) LAPACK_zunmqr_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zunmqr(...) LAPACK_zunmqr_base(__VA_ARGS__) -#endif - -#define LAPACK_cunmrq_base LAPACK_GLOBAL(cunmrq,CUNMRQ) -void LAPACK_cunmrq_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* tau, - lapack_complex_float* C, lapack_int const* ldc, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cunmrq(...) LAPACK_cunmrq_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cunmrq(...) LAPACK_cunmrq_base(__VA_ARGS__) -#endif - -#define LAPACK_zunmrq_base LAPACK_GLOBAL(zunmrq,ZUNMRQ) -void LAPACK_zunmrq_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* tau, - lapack_complex_double* C, lapack_int const* ldc, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zunmrq(...) LAPACK_zunmrq_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zunmrq(...) LAPACK_zunmrq_base(__VA_ARGS__) -#endif - -#define LAPACK_cunmrz_base LAPACK_GLOBAL(cunmrz,CUNMRZ) -void LAPACK_cunmrz_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* tau, - lapack_complex_float* C, lapack_int const* ldc, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cunmrz(...) LAPACK_cunmrz_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_cunmrz(...) LAPACK_cunmrz_base(__VA_ARGS__) -#endif - -#define LAPACK_zunmrz_base LAPACK_GLOBAL(zunmrz,ZUNMRZ) -void LAPACK_zunmrz_base( - char const* side, char const* trans, - lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* tau, - lapack_complex_double* C, lapack_int const* ldc, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zunmrz(...) LAPACK_zunmrz_base(__VA_ARGS__, 1, 1) -#else - #define LAPACK_zunmrz(...) LAPACK_zunmrz_base(__VA_ARGS__) -#endif - -#define LAPACK_cunmtr_base LAPACK_GLOBAL(cunmtr,CUNMTR) -void LAPACK_cunmtr_base( - char const* side, char const* uplo, char const* trans, - lapack_int const* m, lapack_int const* n, - lapack_complex_float const* A, lapack_int const* lda, - lapack_complex_float const* tau, - lapack_complex_float* C, lapack_int const* ldc, - lapack_complex_float* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cunmtr(...) LAPACK_cunmtr_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cunmtr(...) LAPACK_cunmtr_base(__VA_ARGS__) -#endif - -#define LAPACK_zunmtr_base LAPACK_GLOBAL(zunmtr,ZUNMTR) -void LAPACK_zunmtr_base( - char const* side, char const* uplo, char const* trans, - lapack_int const* m, lapack_int const* n, - lapack_complex_double const* A, lapack_int const* lda, - lapack_complex_double const* tau, - lapack_complex_double* C, lapack_int const* ldc, - lapack_complex_double* work, lapack_int const* lwork, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zunmtr(...) LAPACK_zunmtr_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zunmtr(...) LAPACK_zunmtr_base(__VA_ARGS__) -#endif - -#define LAPACK_cupgtr_base LAPACK_GLOBAL(cupgtr,CUPGTR) -void LAPACK_cupgtr_base( - char const* uplo, - lapack_int const* n, - lapack_complex_float const* AP, - lapack_complex_float const* tau, - lapack_complex_float* Q, lapack_int const* ldq, - lapack_complex_float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cupgtr(...) LAPACK_cupgtr_base(__VA_ARGS__, 1) -#else - #define LAPACK_cupgtr(...) LAPACK_cupgtr_base(__VA_ARGS__) -#endif - -#define LAPACK_zupgtr_base LAPACK_GLOBAL(zupgtr,ZUPGTR) -void LAPACK_zupgtr_base( - char const* uplo, - lapack_int const* n, - lapack_complex_double const* AP, - lapack_complex_double const* tau, - lapack_complex_double* Q, lapack_int const* ldq, - lapack_complex_double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zupgtr(...) LAPACK_zupgtr_base(__VA_ARGS__, 1) -#else - #define LAPACK_zupgtr(...) LAPACK_zupgtr_base(__VA_ARGS__) -#endif - -#define LAPACK_cupmtr_base LAPACK_GLOBAL(cupmtr,CUPMTR) -void LAPACK_cupmtr_base( - char const* side, char const* uplo, char const* trans, - lapack_int const* m, lapack_int const* n, - lapack_complex_float const* AP, - lapack_complex_float const* tau, - lapack_complex_float* C, lapack_int const* ldc, - lapack_complex_float* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_cupmtr(...) LAPACK_cupmtr_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_cupmtr(...) LAPACK_cupmtr_base(__VA_ARGS__) -#endif - -#define LAPACK_zupmtr_base LAPACK_GLOBAL(zupmtr,ZUPMTR) -void LAPACK_zupmtr_base( - char const* side, char const* uplo, char const* trans, - lapack_int const* m, lapack_int const* n, - lapack_complex_double const* AP, - lapack_complex_double const* tau, - lapack_complex_double* C, lapack_int const* ldc, - lapack_complex_double* work, - lapack_int* info -#ifdef LAPACK_FORTRAN_STRLEN_END - , size_t, size_t, size_t -#endif -); -#ifdef LAPACK_FORTRAN_STRLEN_END - #define LAPACK_zupmtr(...) LAPACK_zupmtr_base(__VA_ARGS__, 1, 1, 1) -#else - #define LAPACK_zupmtr(...) LAPACK_zupmtr_base(__VA_ARGS__) -#endif - -#ifdef __cplusplus -} /* extern "C" */ -#endif - -#endif /* LAPACK_H */ diff --git a/test/openblas/lapacke.h b/test/openblas/lapacke.h deleted file mode 100644 index 377e2a6..0000000 --- a/test/openblas/lapacke.h +++ /dev/null @@ -1,12888 +0,0 @@ -/***************************************************************************** - Copyright (c) 2014, Intel Corp. - All rights reserved. - - Redistribution and use in source and binary forms, with or without - modification, are permitted provided that the following conditions are met: - - * Redistributions of source code must retain the above copyright notice, - this list of conditions and the following disclaimer. - * 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. - * Neither the name of Intel Corporation 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. -****************************************************************************** -* Contents: Native C interface to LAPACK -* Author: Intel Corporation -*****************************************************************************/ - -#ifndef _LAPACKE_H_ -#define _LAPACKE_H_ - -#include "lapack.h" - -#ifdef __cplusplus -extern "C" { -#endif /* __cplusplus */ - -#ifndef LAPACKE_malloc -#define LAPACKE_malloc( size ) malloc( size ) -#endif -#ifndef LAPACKE_free -#define LAPACKE_free( p ) free( p ) -#endif - -#define LAPACK_C2INT( x ) (lapack_int)(*((float*)&x )) -#define LAPACK_Z2INT( x ) (lapack_int)(*((double*)&x )) - -#define LAPACK_ROW_MAJOR 101 -#define LAPACK_COL_MAJOR 102 - -#define LAPACK_WORK_MEMORY_ERROR -1010 -#define LAPACK_TRANSPOSE_MEMORY_ERROR -1011 - -lapack_complex_float lapack_make_complex_float( float re, float im ); -lapack_complex_double lapack_make_complex_double( double re, double im ); - -/* C-LAPACK function prototypes */ - -lapack_int LAPACKE_sbdsdc( int matrix_layout, char uplo, char compq, - lapack_int n, float* d, float* e, float* u, - lapack_int ldu, float* vt, lapack_int ldvt, float* q, - lapack_int* iq ); -lapack_int LAPACKE_dbdsdc( int matrix_layout, char uplo, char compq, - lapack_int n, double* d, double* e, double* u, - lapack_int ldu, double* vt, lapack_int ldvt, - double* q, lapack_int* iq ); - -lapack_int LAPACKE_sbdsqr( int matrix_layout, char uplo, lapack_int n, - lapack_int ncvt, lapack_int nru, lapack_int ncc, - float* d, float* e, float* vt, lapack_int ldvt, - float* u, lapack_int ldu, float* c, lapack_int ldc ); -lapack_int LAPACKE_dbdsqr( int matrix_layout, char uplo, lapack_int n, - lapack_int ncvt, lapack_int nru, lapack_int ncc, - double* d, double* e, double* vt, lapack_int ldvt, - double* u, lapack_int ldu, double* c, - lapack_int ldc ); -lapack_int LAPACKE_cbdsqr( int matrix_layout, char uplo, lapack_int n, - lapack_int ncvt, lapack_int nru, lapack_int ncc, - float* d, float* e, lapack_complex_float* vt, - lapack_int ldvt, lapack_complex_float* u, - lapack_int ldu, lapack_complex_float* c, - lapack_int ldc ); -lapack_int LAPACKE_zbdsqr( int matrix_layout, char uplo, lapack_int n, - lapack_int ncvt, lapack_int nru, lapack_int ncc, - double* d, double* e, lapack_complex_double* vt, - lapack_int ldvt, lapack_complex_double* u, - lapack_int ldu, lapack_complex_double* c, - lapack_int ldc ); -lapack_int LAPACKE_sbdsvdx( int matrix_layout, char uplo, char jobz, char range, - lapack_int n, float* d, float* e, - float vl, float vu, - lapack_int il, lapack_int iu, lapack_int* ns, - float* s, float* z, lapack_int ldz, - lapack_int* superb ); -lapack_int LAPACKE_dbdsvdx( int matrix_layout, char uplo, char jobz, char range, - lapack_int n, double* d, double* e, - double vl, double vu, - lapack_int il, lapack_int iu, lapack_int* ns, - double* s, double* z, lapack_int ldz, - lapack_int* superb ); -lapack_int LAPACKE_sdisna( char job, lapack_int m, lapack_int n, const float* d, - float* sep ); -lapack_int LAPACKE_ddisna( char job, lapack_int m, lapack_int n, - const double* d, double* sep ); - -lapack_int LAPACKE_sgbbrd( int matrix_layout, char vect, lapack_int m, - lapack_int n, lapack_int ncc, lapack_int kl, - lapack_int ku, float* ab, lapack_int ldab, float* d, - float* e, float* q, lapack_int ldq, float* pt, - lapack_int ldpt, float* c, lapack_int ldc ); -lapack_int LAPACKE_dgbbrd( int matrix_layout, char vect, lapack_int m, - lapack_int n, lapack_int ncc, lapack_int kl, - lapack_int ku, double* ab, lapack_int ldab, - double* d, double* e, double* q, lapack_int ldq, - double* pt, lapack_int ldpt, double* c, - lapack_int ldc ); -lapack_int LAPACKE_cgbbrd( int matrix_layout, char vect, lapack_int m, - lapack_int n, lapack_int ncc, lapack_int kl, - lapack_int ku, lapack_complex_float* ab, - lapack_int ldab, float* d, float* e, - lapack_complex_float* q, lapack_int ldq, - lapack_complex_float* pt, lapack_int ldpt, - lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zgbbrd( int matrix_layout, char vect, lapack_int m, - lapack_int n, lapack_int ncc, lapack_int kl, - lapack_int ku, lapack_complex_double* ab, - lapack_int ldab, double* d, double* e, - lapack_complex_double* q, lapack_int ldq, - lapack_complex_double* pt, lapack_int ldpt, - lapack_complex_double* c, lapack_int ldc ); - -lapack_int LAPACKE_sgbcon( int matrix_layout, char norm, lapack_int n, - lapack_int kl, lapack_int ku, const float* ab, - lapack_int ldab, const lapack_int* ipiv, float anorm, - float* rcond ); -lapack_int LAPACKE_dgbcon( int matrix_layout, char norm, lapack_int n, - lapack_int kl, lapack_int ku, const double* ab, - lapack_int ldab, const lapack_int* ipiv, - double anorm, double* rcond ); -lapack_int LAPACKE_cgbcon( int matrix_layout, char norm, lapack_int n, - lapack_int kl, lapack_int ku, - const lapack_complex_float* ab, lapack_int ldab, - const lapack_int* ipiv, float anorm, float* rcond ); -lapack_int LAPACKE_zgbcon( int matrix_layout, char norm, lapack_int n, - lapack_int kl, lapack_int ku, - const lapack_complex_double* ab, lapack_int ldab, - const lapack_int* ipiv, double anorm, - double* rcond ); - -lapack_int LAPACKE_sgbequ( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, const float* ab, - lapack_int ldab, float* r, float* c, float* rowcnd, - float* colcnd, float* amax ); -lapack_int LAPACKE_dgbequ( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, const double* ab, - lapack_int ldab, double* r, double* c, - double* rowcnd, double* colcnd, double* amax ); -lapack_int LAPACKE_cgbequ( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, - const lapack_complex_float* ab, lapack_int ldab, - float* r, float* c, float* rowcnd, float* colcnd, - float* amax ); -lapack_int LAPACKE_zgbequ( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, - const lapack_complex_double* ab, lapack_int ldab, - double* r, double* c, double* rowcnd, double* colcnd, - double* amax ); - -lapack_int LAPACKE_sgbequb( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, const float* ab, - lapack_int ldab, float* r, float* c, float* rowcnd, - float* colcnd, float* amax ); -lapack_int LAPACKE_dgbequb( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, const double* ab, - lapack_int ldab, double* r, double* c, - double* rowcnd, double* colcnd, double* amax ); -lapack_int LAPACKE_cgbequb( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, - const lapack_complex_float* ab, lapack_int ldab, - float* r, float* c, float* rowcnd, float* colcnd, - float* amax ); -lapack_int LAPACKE_zgbequb( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, - const lapack_complex_double* ab, lapack_int ldab, - double* r, double* c, double* rowcnd, - double* colcnd, double* amax ); - -lapack_int LAPACKE_sgbrfs( int matrix_layout, char trans, lapack_int n, - lapack_int kl, lapack_int ku, lapack_int nrhs, - const float* ab, lapack_int ldab, const float* afb, - lapack_int ldafb, const lapack_int* ipiv, - const float* b, lapack_int ldb, float* x, - lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_dgbrfs( int matrix_layout, char trans, lapack_int n, - lapack_int kl, lapack_int ku, lapack_int nrhs, - const double* ab, lapack_int ldab, const double* afb, - lapack_int ldafb, const lapack_int* ipiv, - const double* b, lapack_int ldb, double* x, - lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_cgbrfs( int matrix_layout, char trans, lapack_int n, - lapack_int kl, lapack_int ku, lapack_int nrhs, - const lapack_complex_float* ab, lapack_int ldab, - const lapack_complex_float* afb, lapack_int ldafb, - const lapack_int* ipiv, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, float* ferr, - float* berr ); -lapack_int LAPACKE_zgbrfs( int matrix_layout, char trans, lapack_int n, - lapack_int kl, lapack_int ku, lapack_int nrhs, - const lapack_complex_double* ab, lapack_int ldab, - const lapack_complex_double* afb, lapack_int ldafb, - const lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr ); - -lapack_int LAPACKE_sgbrfsx( int matrix_layout, char trans, char equed, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, const float* ab, lapack_int ldab, - const float* afb, lapack_int ldafb, - const lapack_int* ipiv, const float* r, - const float* c, const float* b, lapack_int ldb, - float* x, lapack_int ldx, float* rcond, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params ); -lapack_int LAPACKE_dgbrfsx( int matrix_layout, char trans, char equed, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, const double* ab, lapack_int ldab, - const double* afb, lapack_int ldafb, - const lapack_int* ipiv, const double* r, - const double* c, const double* b, lapack_int ldb, - double* x, lapack_int ldx, double* rcond, - double* berr, lapack_int n_err_bnds, - double* err_bnds_norm, double* err_bnds_comp, - lapack_int nparams, double* params ); -lapack_int LAPACKE_cgbrfsx( int matrix_layout, char trans, char equed, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, const lapack_complex_float* ab, - lapack_int ldab, const lapack_complex_float* afb, - lapack_int ldafb, const lapack_int* ipiv, - const float* r, const float* c, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* berr, lapack_int n_err_bnds, - float* err_bnds_norm, float* err_bnds_comp, - lapack_int nparams, float* params ); -lapack_int LAPACKE_zgbrfsx( int matrix_layout, char trans, char equed, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, const lapack_complex_double* ab, - lapack_int ldab, const lapack_complex_double* afb, - lapack_int ldafb, const lapack_int* ipiv, - const double* r, const double* c, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* berr, lapack_int n_err_bnds, - double* err_bnds_norm, double* err_bnds_comp, - lapack_int nparams, double* params ); - -lapack_int LAPACKE_sgbsv( int matrix_layout, lapack_int n, lapack_int kl, - lapack_int ku, lapack_int nrhs, float* ab, - lapack_int ldab, lapack_int* ipiv, float* b, - lapack_int ldb ); -lapack_int LAPACKE_dgbsv( int matrix_layout, lapack_int n, lapack_int kl, - lapack_int ku, lapack_int nrhs, double* ab, - lapack_int ldab, lapack_int* ipiv, double* b, - lapack_int ldb ); -lapack_int LAPACKE_cgbsv( int matrix_layout, lapack_int n, lapack_int kl, - lapack_int ku, lapack_int nrhs, - lapack_complex_float* ab, lapack_int ldab, - lapack_int* ipiv, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zgbsv( int matrix_layout, lapack_int n, lapack_int kl, - lapack_int ku, lapack_int nrhs, - lapack_complex_double* ab, lapack_int ldab, - lapack_int* ipiv, lapack_complex_double* b, - lapack_int ldb ); - -lapack_int LAPACKE_sgbsvx( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, float* ab, lapack_int ldab, - float* afb, lapack_int ldafb, lapack_int* ipiv, - char* equed, float* r, float* c, float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* rcond, float* ferr, float* berr, - float* rpivot ); -lapack_int LAPACKE_dgbsvx( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, double* ab, lapack_int ldab, - double* afb, lapack_int ldafb, lapack_int* ipiv, - char* equed, double* r, double* c, double* b, - lapack_int ldb, double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr, - double* rpivot ); -lapack_int LAPACKE_cgbsvx( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, lapack_complex_float* ab, - lapack_int ldab, lapack_complex_float* afb, - lapack_int ldafb, lapack_int* ipiv, char* equed, - float* r, float* c, lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* x, - lapack_int ldx, float* rcond, float* ferr, - float* berr, float* rpivot ); -lapack_int LAPACKE_zgbsvx( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, lapack_complex_double* ab, - lapack_int ldab, lapack_complex_double* afb, - lapack_int ldafb, lapack_int* ipiv, char* equed, - double* r, double* c, lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* x, - lapack_int ldx, double* rcond, double* ferr, - double* berr, double* rpivot ); - -lapack_int LAPACKE_sgbsvxx( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, float* ab, lapack_int ldab, - float* afb, lapack_int ldafb, lapack_int* ipiv, - char* equed, float* r, float* c, float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* rcond, float* rpvgrw, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params ); -lapack_int LAPACKE_dgbsvxx( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, double* ab, lapack_int ldab, - double* afb, lapack_int ldafb, lapack_int* ipiv, - char* equed, double* r, double* c, double* b, - lapack_int ldb, double* x, lapack_int ldx, - double* rcond, double* rpvgrw, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params ); -lapack_int LAPACKE_cgbsvxx( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, lapack_complex_float* ab, - lapack_int ldab, lapack_complex_float* afb, - lapack_int ldafb, lapack_int* ipiv, char* equed, - float* r, float* c, lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* x, - lapack_int ldx, float* rcond, float* rpvgrw, - float* berr, lapack_int n_err_bnds, - float* err_bnds_norm, float* err_bnds_comp, - lapack_int nparams, float* params ); -lapack_int LAPACKE_zgbsvxx( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, lapack_complex_double* ab, - lapack_int ldab, lapack_complex_double* afb, - lapack_int ldafb, lapack_int* ipiv, char* equed, - double* r, double* c, lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* x, - lapack_int ldx, double* rcond, double* rpvgrw, - double* berr, lapack_int n_err_bnds, - double* err_bnds_norm, double* err_bnds_comp, - lapack_int nparams, double* params ); - -lapack_int LAPACKE_sgbtrf( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, float* ab, - lapack_int ldab, lapack_int* ipiv ); -lapack_int LAPACKE_dgbtrf( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, double* ab, - lapack_int ldab, lapack_int* ipiv ); -lapack_int LAPACKE_cgbtrf( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, - lapack_complex_float* ab, lapack_int ldab, - lapack_int* ipiv ); -lapack_int LAPACKE_zgbtrf( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, - lapack_complex_double* ab, lapack_int ldab, - lapack_int* ipiv ); - -lapack_int LAPACKE_sgbtrs( int matrix_layout, char trans, lapack_int n, - lapack_int kl, lapack_int ku, lapack_int nrhs, - const float* ab, lapack_int ldab, - const lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dgbtrs( int matrix_layout, char trans, lapack_int n, - lapack_int kl, lapack_int ku, lapack_int nrhs, - const double* ab, lapack_int ldab, - const lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_cgbtrs( int matrix_layout, char trans, lapack_int n, - lapack_int kl, lapack_int ku, lapack_int nrhs, - const lapack_complex_float* ab, lapack_int ldab, - const lapack_int* ipiv, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zgbtrs( int matrix_layout, char trans, lapack_int n, - lapack_int kl, lapack_int ku, lapack_int nrhs, - const lapack_complex_double* ab, lapack_int ldab, - const lapack_int* ipiv, lapack_complex_double* b, - lapack_int ldb ); - -lapack_int LAPACKE_sgebak( int matrix_layout, char job, char side, lapack_int n, - lapack_int ilo, lapack_int ihi, const float* scale, - lapack_int m, float* v, lapack_int ldv ); -lapack_int LAPACKE_dgebak( int matrix_layout, char job, char side, lapack_int n, - lapack_int ilo, lapack_int ihi, const double* scale, - lapack_int m, double* v, lapack_int ldv ); -lapack_int LAPACKE_cgebak( int matrix_layout, char job, char side, lapack_int n, - lapack_int ilo, lapack_int ihi, const float* scale, - lapack_int m, lapack_complex_float* v, - lapack_int ldv ); -lapack_int LAPACKE_zgebak( int matrix_layout, char job, char side, lapack_int n, - lapack_int ilo, lapack_int ihi, const double* scale, - lapack_int m, lapack_complex_double* v, - lapack_int ldv ); - -lapack_int LAPACKE_sgebal( int matrix_layout, char job, lapack_int n, float* a, - lapack_int lda, lapack_int* ilo, lapack_int* ihi, - float* scale ); -lapack_int LAPACKE_dgebal( int matrix_layout, char job, lapack_int n, double* a, - lapack_int lda, lapack_int* ilo, lapack_int* ihi, - double* scale ); -lapack_int LAPACKE_cgebal( int matrix_layout, char job, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* ilo, lapack_int* ihi, float* scale ); -lapack_int LAPACKE_zgebal( int matrix_layout, char job, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* ilo, lapack_int* ihi, double* scale ); - -lapack_int LAPACKE_sgebrd( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, float* d, float* e, - float* tauq, float* taup ); -lapack_int LAPACKE_dgebrd( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, double* d, double* e, - double* tauq, double* taup ); -lapack_int LAPACKE_cgebrd( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, float* d, - float* e, lapack_complex_float* tauq, - lapack_complex_float* taup ); -lapack_int LAPACKE_zgebrd( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, double* d, - double* e, lapack_complex_double* tauq, - lapack_complex_double* taup ); - -lapack_int LAPACKE_sgecon( int matrix_layout, char norm, lapack_int n, - const float* a, lapack_int lda, float anorm, - float* rcond ); -lapack_int LAPACKE_dgecon( int matrix_layout, char norm, lapack_int n, - const double* a, lapack_int lda, double anorm, - double* rcond ); -lapack_int LAPACKE_cgecon( int matrix_layout, char norm, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - float anorm, float* rcond ); -lapack_int LAPACKE_zgecon( int matrix_layout, char norm, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - double anorm, double* rcond ); - -lapack_int LAPACKE_sgeequ( int matrix_layout, lapack_int m, lapack_int n, - const float* a, lapack_int lda, float* r, float* c, - float* rowcnd, float* colcnd, float* amax ); -lapack_int LAPACKE_dgeequ( int matrix_layout, lapack_int m, lapack_int n, - const double* a, lapack_int lda, double* r, - double* c, double* rowcnd, double* colcnd, - double* amax ); -lapack_int LAPACKE_cgeequ( int matrix_layout, lapack_int m, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - float* r, float* c, float* rowcnd, float* colcnd, - float* amax ); -lapack_int LAPACKE_zgeequ( int matrix_layout, lapack_int m, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - double* r, double* c, double* rowcnd, double* colcnd, - double* amax ); - -lapack_int LAPACKE_sgeequb( int matrix_layout, lapack_int m, lapack_int n, - const float* a, lapack_int lda, float* r, float* c, - float* rowcnd, float* colcnd, float* amax ); -lapack_int LAPACKE_dgeequb( int matrix_layout, lapack_int m, lapack_int n, - const double* a, lapack_int lda, double* r, - double* c, double* rowcnd, double* colcnd, - double* amax ); -lapack_int LAPACKE_cgeequb( int matrix_layout, lapack_int m, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - float* r, float* c, float* rowcnd, float* colcnd, - float* amax ); -lapack_int LAPACKE_zgeequb( int matrix_layout, lapack_int m, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - double* r, double* c, double* rowcnd, - double* colcnd, double* amax ); - -lapack_int LAPACKE_sgees( int matrix_layout, char jobvs, char sort, - LAPACK_S_SELECT2 select, lapack_int n, float* a, - lapack_int lda, lapack_int* sdim, float* wr, - float* wi, float* vs, lapack_int ldvs ); -lapack_int LAPACKE_dgees( int matrix_layout, char jobvs, char sort, - LAPACK_D_SELECT2 select, lapack_int n, double* a, - lapack_int lda, lapack_int* sdim, double* wr, - double* wi, double* vs, lapack_int ldvs ); -lapack_int LAPACKE_cgees( int matrix_layout, char jobvs, char sort, - LAPACK_C_SELECT1 select, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* sdim, lapack_complex_float* w, - lapack_complex_float* vs, lapack_int ldvs ); -lapack_int LAPACKE_zgees( int matrix_layout, char jobvs, char sort, - LAPACK_Z_SELECT1 select, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* sdim, lapack_complex_double* w, - lapack_complex_double* vs, lapack_int ldvs ); - -lapack_int LAPACKE_sgeesx( int matrix_layout, char jobvs, char sort, - LAPACK_S_SELECT2 select, char sense, lapack_int n, - float* a, lapack_int lda, lapack_int* sdim, - float* wr, float* wi, float* vs, lapack_int ldvs, - float* rconde, float* rcondv ); -lapack_int LAPACKE_dgeesx( int matrix_layout, char jobvs, char sort, - LAPACK_D_SELECT2 select, char sense, lapack_int n, - double* a, lapack_int lda, lapack_int* sdim, - double* wr, double* wi, double* vs, lapack_int ldvs, - double* rconde, double* rcondv ); -lapack_int LAPACKE_cgeesx( int matrix_layout, char jobvs, char sort, - LAPACK_C_SELECT1 select, char sense, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* sdim, lapack_complex_float* w, - lapack_complex_float* vs, lapack_int ldvs, - float* rconde, float* rcondv ); -lapack_int LAPACKE_zgeesx( int matrix_layout, char jobvs, char sort, - LAPACK_Z_SELECT1 select, char sense, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* sdim, lapack_complex_double* w, - lapack_complex_double* vs, lapack_int ldvs, - double* rconde, double* rcondv ); - -lapack_int LAPACKE_sgeev( int matrix_layout, char jobvl, char jobvr, - lapack_int n, float* a, lapack_int lda, float* wr, - float* wi, float* vl, lapack_int ldvl, float* vr, - lapack_int ldvr ); -lapack_int LAPACKE_dgeev( int matrix_layout, char jobvl, char jobvr, - lapack_int n, double* a, lapack_int lda, double* wr, - double* wi, double* vl, lapack_int ldvl, double* vr, - lapack_int ldvr ); -lapack_int LAPACKE_cgeev( int matrix_layout, char jobvl, char jobvr, - lapack_int n, lapack_complex_float* a, lapack_int lda, - lapack_complex_float* w, lapack_complex_float* vl, - lapack_int ldvl, lapack_complex_float* vr, - lapack_int ldvr ); -lapack_int LAPACKE_zgeev( int matrix_layout, char jobvl, char jobvr, - lapack_int n, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* w, - lapack_complex_double* vl, lapack_int ldvl, - lapack_complex_double* vr, lapack_int ldvr ); - -lapack_int LAPACKE_sgeevx( int matrix_layout, char balanc, char jobvl, - char jobvr, char sense, lapack_int n, float* a, - lapack_int lda, float* wr, float* wi, float* vl, - lapack_int ldvl, float* vr, lapack_int ldvr, - lapack_int* ilo, lapack_int* ihi, float* scale, - float* abnrm, float* rconde, float* rcondv ); -lapack_int LAPACKE_dgeevx( int matrix_layout, char balanc, char jobvl, - char jobvr, char sense, lapack_int n, double* a, - lapack_int lda, double* wr, double* wi, double* vl, - lapack_int ldvl, double* vr, lapack_int ldvr, - lapack_int* ilo, lapack_int* ihi, double* scale, - double* abnrm, double* rconde, double* rcondv ); -lapack_int LAPACKE_cgeevx( int matrix_layout, char balanc, char jobvl, - char jobvr, char sense, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* w, lapack_complex_float* vl, - lapack_int ldvl, lapack_complex_float* vr, - lapack_int ldvr, lapack_int* ilo, lapack_int* ihi, - float* scale, float* abnrm, float* rconde, - float* rcondv ); -lapack_int LAPACKE_zgeevx( int matrix_layout, char balanc, char jobvl, - char jobvr, char sense, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* w, lapack_complex_double* vl, - lapack_int ldvl, lapack_complex_double* vr, - lapack_int ldvr, lapack_int* ilo, lapack_int* ihi, - double* scale, double* abnrm, double* rconde, - double* rcondv ); - -lapack_int LAPACKE_sgehrd( int matrix_layout, lapack_int n, lapack_int ilo, - lapack_int ihi, float* a, lapack_int lda, - float* tau ); -lapack_int LAPACKE_dgehrd( int matrix_layout, lapack_int n, lapack_int ilo, - lapack_int ihi, double* a, lapack_int lda, - double* tau ); -lapack_int LAPACKE_cgehrd( int matrix_layout, lapack_int n, lapack_int ilo, - lapack_int ihi, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* tau ); -lapack_int LAPACKE_zgehrd( int matrix_layout, lapack_int n, lapack_int ilo, - lapack_int ihi, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* tau ); - -lapack_int LAPACKE_sgejsv( int matrix_layout, char joba, char jobu, char jobv, - char jobr, char jobt, char jobp, lapack_int m, - lapack_int n, float* a, lapack_int lda, float* sva, - float* u, lapack_int ldu, float* v, lapack_int ldv, - float* stat, lapack_int* istat ); -lapack_int LAPACKE_dgejsv( int matrix_layout, char joba, char jobu, char jobv, - char jobr, char jobt, char jobp, lapack_int m, - lapack_int n, double* a, lapack_int lda, double* sva, - double* u, lapack_int ldu, double* v, lapack_int ldv, - double* stat, lapack_int* istat ); -lapack_int LAPACKE_cgejsv( int matrix_layout, char joba, char jobu, char jobv, - char jobr, char jobt, char jobp, lapack_int m, - lapack_int n, lapack_complex_float* a, lapack_int lda, float* sva, - lapack_complex_float* u, lapack_int ldu, lapack_complex_float* v, lapack_int ldv, - float* stat, lapack_int* istat ); -lapack_int LAPACKE_zgejsv( int matrix_layout, char joba, char jobu, char jobv, - char jobr, char jobt, char jobp, lapack_int m, - lapack_int n, lapack_complex_double* a, lapack_int lda, double* sva, - lapack_complex_double* u, lapack_int ldu, lapack_complex_double* v, lapack_int ldv, - double* stat, lapack_int* istat ); - -lapack_int LAPACKE_sgelq2( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, float* tau ); -lapack_int LAPACKE_dgelq2( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, double* tau ); -lapack_int LAPACKE_cgelq2( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* tau ); -lapack_int LAPACKE_zgelq2( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* tau ); - -lapack_int LAPACKE_sgelqf( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, float* tau ); -lapack_int LAPACKE_dgelqf( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, double* tau ); -lapack_int LAPACKE_cgelqf( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* tau ); -lapack_int LAPACKE_zgelqf( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* tau ); - -lapack_int LAPACKE_sgels( int matrix_layout, char trans, lapack_int m, - lapack_int n, lapack_int nrhs, float* a, - lapack_int lda, float* b, lapack_int ldb ); -lapack_int LAPACKE_dgels( int matrix_layout, char trans, lapack_int m, - lapack_int n, lapack_int nrhs, double* a, - lapack_int lda, double* b, lapack_int ldb ); -lapack_int LAPACKE_cgels( int matrix_layout, char trans, lapack_int m, - lapack_int n, lapack_int nrhs, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zgels( int matrix_layout, char trans, lapack_int m, - lapack_int n, lapack_int nrhs, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_sgelsd( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, float* b, - lapack_int ldb, float* s, float rcond, - lapack_int* rank ); -lapack_int LAPACKE_dgelsd( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - double* b, lapack_int ldb, double* s, double rcond, - lapack_int* rank ); -lapack_int LAPACKE_cgelsd( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb, float* s, float rcond, - lapack_int* rank ); -lapack_int LAPACKE_zgelsd( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb, double* s, double rcond, - lapack_int* rank ); - -lapack_int LAPACKE_sgelss( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, float* b, - lapack_int ldb, float* s, float rcond, - lapack_int* rank ); -lapack_int LAPACKE_dgelss( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - double* b, lapack_int ldb, double* s, double rcond, - lapack_int* rank ); -lapack_int LAPACKE_cgelss( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb, float* s, float rcond, - lapack_int* rank ); -lapack_int LAPACKE_zgelss( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb, double* s, double rcond, - lapack_int* rank ); - -lapack_int LAPACKE_sgelsy( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, float* b, - lapack_int ldb, lapack_int* jpvt, float rcond, - lapack_int* rank ); -lapack_int LAPACKE_dgelsy( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - double* b, lapack_int ldb, lapack_int* jpvt, - double rcond, lapack_int* rank ); -lapack_int LAPACKE_cgelsy( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb, lapack_int* jpvt, float rcond, - lapack_int* rank ); -lapack_int LAPACKE_zgelsy( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb, lapack_int* jpvt, double rcond, - lapack_int* rank ); - -lapack_int LAPACKE_sgeqlf( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, float* tau ); -lapack_int LAPACKE_dgeqlf( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, double* tau ); -lapack_int LAPACKE_cgeqlf( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* tau ); -lapack_int LAPACKE_zgeqlf( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* tau ); - -lapack_int LAPACKE_sgeqp3( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, lapack_int* jpvt, - float* tau ); -lapack_int LAPACKE_dgeqp3( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, lapack_int* jpvt, - double* tau ); -lapack_int LAPACKE_cgeqp3( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* jpvt, lapack_complex_float* tau ); -lapack_int LAPACKE_zgeqp3( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* jpvt, lapack_complex_double* tau ); - -lapack_int LAPACKE_sgeqpf( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, lapack_int* jpvt, - float* tau ); -lapack_int LAPACKE_dgeqpf( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, lapack_int* jpvt, - double* tau ); -lapack_int LAPACKE_cgeqpf( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* jpvt, lapack_complex_float* tau ); -lapack_int LAPACKE_zgeqpf( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* jpvt, lapack_complex_double* tau ); - -lapack_int LAPACKE_sgeqr2( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, float* tau ); -lapack_int LAPACKE_dgeqr2( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, double* tau ); -lapack_int LAPACKE_cgeqr2( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* tau ); -lapack_int LAPACKE_zgeqr2( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* tau ); - -lapack_int LAPACKE_sgeqrf( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, float* tau ); -lapack_int LAPACKE_dgeqrf( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, double* tau ); -lapack_int LAPACKE_cgeqrf( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* tau ); -lapack_int LAPACKE_zgeqrf( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* tau ); - -lapack_int LAPACKE_sgeqrfp( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, float* tau ); -lapack_int LAPACKE_dgeqrfp( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, double* tau ); -lapack_int LAPACKE_cgeqrfp( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* tau ); -lapack_int LAPACKE_zgeqrfp( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* tau ); - -lapack_int LAPACKE_sgerfs( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const float* a, lapack_int lda, - const float* af, lapack_int ldaf, - const lapack_int* ipiv, const float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* ferr, float* berr ); -lapack_int LAPACKE_dgerfs( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const double* a, lapack_int lda, - const double* af, lapack_int ldaf, - const lapack_int* ipiv, const double* b, - lapack_int ldb, double* x, lapack_int ldx, - double* ferr, double* berr ); -lapack_int LAPACKE_cgerfs( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* af, - lapack_int ldaf, const lapack_int* ipiv, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, float* ferr, - float* berr ); -lapack_int LAPACKE_zgerfs( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_complex_double* af, - lapack_int ldaf, const lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr ); - -lapack_int LAPACKE_sgerfsx( int matrix_layout, char trans, char equed, - lapack_int n, lapack_int nrhs, const float* a, - lapack_int lda, const float* af, lapack_int ldaf, - const lapack_int* ipiv, const float* r, - const float* c, const float* b, lapack_int ldb, - float* x, lapack_int ldx, float* rcond, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params ); -lapack_int LAPACKE_dgerfsx( int matrix_layout, char trans, char equed, - lapack_int n, lapack_int nrhs, const double* a, - lapack_int lda, const double* af, lapack_int ldaf, - const lapack_int* ipiv, const double* r, - const double* c, const double* b, lapack_int ldb, - double* x, lapack_int ldx, double* rcond, - double* berr, lapack_int n_err_bnds, - double* err_bnds_norm, double* err_bnds_comp, - lapack_int nparams, double* params ); -lapack_int LAPACKE_cgerfsx( int matrix_layout, char trans, char equed, - lapack_int n, lapack_int nrhs, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* af, lapack_int ldaf, - const lapack_int* ipiv, const float* r, - const float* c, const lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* x, - lapack_int ldx, float* rcond, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params ); -lapack_int LAPACKE_zgerfsx( int matrix_layout, char trans, char equed, - lapack_int n, lapack_int nrhs, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* af, lapack_int ldaf, - const lapack_int* ipiv, const double* r, - const double* c, const lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* x, - lapack_int ldx, double* rcond, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params ); - -lapack_int LAPACKE_sgerqf( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, float* tau ); -lapack_int LAPACKE_dgerqf( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, double* tau ); -lapack_int LAPACKE_cgerqf( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* tau ); -lapack_int LAPACKE_zgerqf( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* tau ); - -lapack_int LAPACKE_sgesdd( int matrix_layout, char jobz, lapack_int m, - lapack_int n, float* a, lapack_int lda, float* s, - float* u, lapack_int ldu, float* vt, - lapack_int ldvt ); -lapack_int LAPACKE_dgesdd( int matrix_layout, char jobz, lapack_int m, - lapack_int n, double* a, lapack_int lda, double* s, - double* u, lapack_int ldu, double* vt, - lapack_int ldvt ); -lapack_int LAPACKE_cgesdd( int matrix_layout, char jobz, lapack_int m, - lapack_int n, lapack_complex_float* a, - lapack_int lda, float* s, lapack_complex_float* u, - lapack_int ldu, lapack_complex_float* vt, - lapack_int ldvt ); -lapack_int LAPACKE_zgesdd( int matrix_layout, char jobz, lapack_int m, - lapack_int n, lapack_complex_double* a, - lapack_int lda, double* s, lapack_complex_double* u, - lapack_int ldu, lapack_complex_double* vt, - lapack_int ldvt ); - -lapack_int LAPACKE_sgesv( int matrix_layout, lapack_int n, lapack_int nrhs, - float* a, lapack_int lda, lapack_int* ipiv, float* b, - lapack_int ldb ); -lapack_int LAPACKE_dgesv( int matrix_layout, lapack_int n, lapack_int nrhs, - double* a, lapack_int lda, lapack_int* ipiv, - double* b, lapack_int ldb ); -lapack_int LAPACKE_cgesv( int matrix_layout, lapack_int n, lapack_int nrhs, - lapack_complex_float* a, lapack_int lda, - lapack_int* ipiv, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zgesv( int matrix_layout, lapack_int n, lapack_int nrhs, - lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv, lapack_complex_double* b, - lapack_int ldb ); -lapack_int LAPACKE_dsgesv( int matrix_layout, lapack_int n, lapack_int nrhs, - double* a, lapack_int lda, lapack_int* ipiv, - double* b, lapack_int ldb, double* x, lapack_int ldx, - lapack_int* iter ); -lapack_int LAPACKE_zcgesv( int matrix_layout, lapack_int n, lapack_int nrhs, - lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv, lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* x, - lapack_int ldx, lapack_int* iter ); - -lapack_int LAPACKE_sgesvd( int matrix_layout, char jobu, char jobvt, - lapack_int m, lapack_int n, float* a, lapack_int lda, - float* s, float* u, lapack_int ldu, float* vt, - lapack_int ldvt, float* superb ); -lapack_int LAPACKE_dgesvd( int matrix_layout, char jobu, char jobvt, - lapack_int m, lapack_int n, double* a, - lapack_int lda, double* s, double* u, lapack_int ldu, - double* vt, lapack_int ldvt, double* superb ); -lapack_int LAPACKE_cgesvd( int matrix_layout, char jobu, char jobvt, - lapack_int m, lapack_int n, lapack_complex_float* a, - lapack_int lda, float* s, lapack_complex_float* u, - lapack_int ldu, lapack_complex_float* vt, - lapack_int ldvt, float* superb ); -lapack_int LAPACKE_zgesvd( int matrix_layout, char jobu, char jobvt, - lapack_int m, lapack_int n, lapack_complex_double* a, - lapack_int lda, double* s, lapack_complex_double* u, - lapack_int ldu, lapack_complex_double* vt, - lapack_int ldvt, double* superb ); - -lapack_int LAPACKE_sgesvdx( int matrix_layout, char jobu, char jobvt, char range, - lapack_int m, lapack_int n, float* a, - lapack_int lda, float vl, float vu, - lapack_int il, lapack_int iu, lapack_int* ns, - float* s, float* u, lapack_int ldu, - float* vt, lapack_int ldvt, - lapack_int* superb ); -lapack_int LAPACKE_dgesvdx( int matrix_layout, char jobu, char jobvt, char range, - lapack_int m, lapack_int n, double* a, - lapack_int lda, double vl, double vu, - lapack_int il, lapack_int iu, lapack_int* ns, - double* s, double* u, lapack_int ldu, - double* vt, lapack_int ldvt, - lapack_int* superb ); -lapack_int LAPACKE_cgesvdx( int matrix_layout, char jobu, char jobvt, char range, - lapack_int m, lapack_int n, lapack_complex_float* a, - lapack_int lda, float vl, float vu, - lapack_int il, lapack_int iu, lapack_int* ns, - float* s, lapack_complex_float* u, lapack_int ldu, - lapack_complex_float* vt, lapack_int ldvt, - lapack_int* superb ); -lapack_int LAPACKE_zgesvdx( int matrix_layout, char jobu, char jobvt, char range, - lapack_int m, lapack_int n, lapack_complex_double* a, - lapack_int lda, double vl, double vu, - lapack_int il, lapack_int iu, lapack_int* ns, - double* s, lapack_complex_double* u, lapack_int ldu, - lapack_complex_double* vt, lapack_int ldvt, - lapack_int* superb ); - -lapack_int LAPACKE_sgesvdq( int matrix_layout, char joba, char jobp, char jobr, char jobu, char jobv, - lapack_int m, lapack_int n, float* a, lapack_int lda, - float* s, float* u, lapack_int ldu, float* v, - lapack_int ldv, lapack_int* numrank ); -lapack_int LAPACKE_dgesvdq( int matrix_layout, char joba, char jobp, char jobr, char jobu, char jobv, - lapack_int m, lapack_int n, double* a, - lapack_int lda, double* s, double* u, lapack_int ldu, - double* v, lapack_int ldv, lapack_int* numrank); -lapack_int LAPACKE_cgesvdq( int matrix_layout, char joba, char jobp, char jobr, char jobu, char jobv, - lapack_int m, lapack_int n, lapack_complex_float* a, - lapack_int lda, float* s, lapack_complex_float* u, - lapack_int ldu, lapack_complex_float* v, - lapack_int ldv, lapack_int* numrank ); -lapack_int LAPACKE_zgesvdq( int matrix_layout, char joba, char jobp, char jobr, char jobu, char jobv, - lapack_int m, lapack_int n, lapack_complex_double* a, - lapack_int lda, double* s, lapack_complex_double* u, - lapack_int ldu, lapack_complex_double* v, - lapack_int ldv, lapack_int* numrank ); - -lapack_int LAPACKE_sgesvj( int matrix_layout, char joba, char jobu, char jobv, - lapack_int m, lapack_int n, float* a, lapack_int lda, - float* sva, lapack_int mv, float* v, lapack_int ldv, - float* stat ); -lapack_int LAPACKE_dgesvj( int matrix_layout, char joba, char jobu, char jobv, - lapack_int m, lapack_int n, double* a, - lapack_int lda, double* sva, lapack_int mv, - double* v, lapack_int ldv, double* stat ); -lapack_int LAPACKE_cgesvj( int matrix_layout, char joba, char jobu, char jobv, - lapack_int m, lapack_int n, lapack_complex_float* a, - lapack_int lda, float* sva, lapack_int mv, - lapack_complex_float* v, lapack_int ldv, float* stat ); -lapack_int LAPACKE_zgesvj( int matrix_layout, char joba, char jobu, char jobv, - lapack_int m, lapack_int n, lapack_complex_double* a, - lapack_int lda, double* sva, lapack_int mv, - lapack_complex_double* v, lapack_int ldv, double* stat ); - -lapack_int LAPACKE_sgesvx( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, float* a, - lapack_int lda, float* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, float* r, float* c, - float* b, lapack_int ldb, float* x, lapack_int ldx, - float* rcond, float* ferr, float* berr, - float* rpivot ); -lapack_int LAPACKE_dgesvx( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, double* a, - lapack_int lda, double* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, double* r, double* c, - double* b, lapack_int ldb, double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr, - double* rpivot ); -lapack_int LAPACKE_cgesvx( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, float* r, float* c, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* ferr, float* berr, - float* rpivot ); -lapack_int LAPACKE_zgesvx( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, double* r, double* c, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr, - double* rpivot ); - -lapack_int LAPACKE_sgesvxx( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, float* a, - lapack_int lda, float* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, float* r, float* c, - float* b, lapack_int ldb, float* x, lapack_int ldx, - float* rcond, float* rpvgrw, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params ); -lapack_int LAPACKE_dgesvxx( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, double* a, - lapack_int lda, double* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, double* r, double* c, - double* b, lapack_int ldb, double* x, - lapack_int ldx, double* rcond, double* rpvgrw, - double* berr, lapack_int n_err_bnds, - double* err_bnds_norm, double* err_bnds_comp, - lapack_int nparams, double* params ); -lapack_int LAPACKE_cgesvxx( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, float* r, float* c, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* rpvgrw, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params ); -lapack_int LAPACKE_zgesvxx( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, double* r, double* c, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* rpvgrw, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params ); - -lapack_int LAPACKE_sgetf2( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_dgetf2( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_cgetf2( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* ipiv ); -lapack_int LAPACKE_zgetf2( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv ); - -lapack_int LAPACKE_sgetrf( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_dgetrf( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_cgetrf( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* ipiv ); -lapack_int LAPACKE_zgetrf( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv ); - -lapack_int LAPACKE_sgetrf2( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_dgetrf2( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_cgetrf2( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* ipiv ); -lapack_int LAPACKE_zgetrf2( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv ); - -lapack_int LAPACKE_sgetri( int matrix_layout, lapack_int n, float* a, - lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_dgetri( int matrix_layout, lapack_int n, double* a, - lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_cgetri( int matrix_layout, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_int* ipiv ); -lapack_int LAPACKE_zgetri( int matrix_layout, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_int* ipiv ); - -lapack_int LAPACKE_sgetrs( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const float* a, lapack_int lda, - const lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dgetrs( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const double* a, lapack_int lda, - const lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_cgetrs( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zgetrs( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_sggbak( int matrix_layout, char job, char side, lapack_int n, - lapack_int ilo, lapack_int ihi, const float* lscale, - const float* rscale, lapack_int m, float* v, - lapack_int ldv ); -lapack_int LAPACKE_dggbak( int matrix_layout, char job, char side, lapack_int n, - lapack_int ilo, lapack_int ihi, const double* lscale, - const double* rscale, lapack_int m, double* v, - lapack_int ldv ); -lapack_int LAPACKE_cggbak( int matrix_layout, char job, char side, lapack_int n, - lapack_int ilo, lapack_int ihi, const float* lscale, - const float* rscale, lapack_int m, - lapack_complex_float* v, lapack_int ldv ); -lapack_int LAPACKE_zggbak( int matrix_layout, char job, char side, lapack_int n, - lapack_int ilo, lapack_int ihi, const double* lscale, - const double* rscale, lapack_int m, - lapack_complex_double* v, lapack_int ldv ); - -lapack_int LAPACKE_sggbal( int matrix_layout, char job, lapack_int n, float* a, - lapack_int lda, float* b, lapack_int ldb, - lapack_int* ilo, lapack_int* ihi, float* lscale, - float* rscale ); -lapack_int LAPACKE_dggbal( int matrix_layout, char job, lapack_int n, double* a, - lapack_int lda, double* b, lapack_int ldb, - lapack_int* ilo, lapack_int* ihi, double* lscale, - double* rscale ); -lapack_int LAPACKE_cggbal( int matrix_layout, char job, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_int* ilo, lapack_int* ihi, float* lscale, - float* rscale ); -lapack_int LAPACKE_zggbal( int matrix_layout, char job, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_int* ilo, lapack_int* ihi, double* lscale, - double* rscale ); - -lapack_int LAPACKE_sgges( int matrix_layout, char jobvsl, char jobvsr, char sort, - LAPACK_S_SELECT3 selctg, lapack_int n, float* a, - lapack_int lda, float* b, lapack_int ldb, - lapack_int* sdim, float* alphar, float* alphai, - float* beta, float* vsl, lapack_int ldvsl, float* vsr, - lapack_int ldvsr ); -lapack_int LAPACKE_dgges( int matrix_layout, char jobvsl, char jobvsr, char sort, - LAPACK_D_SELECT3 selctg, lapack_int n, double* a, - lapack_int lda, double* b, lapack_int ldb, - lapack_int* sdim, double* alphar, double* alphai, - double* beta, double* vsl, lapack_int ldvsl, - double* vsr, lapack_int ldvsr ); -lapack_int LAPACKE_cgges( int matrix_layout, char jobvsl, char jobvsr, char sort, - LAPACK_C_SELECT2 selctg, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_int* sdim, lapack_complex_float* alpha, - lapack_complex_float* beta, lapack_complex_float* vsl, - lapack_int ldvsl, lapack_complex_float* vsr, - lapack_int ldvsr ); -lapack_int LAPACKE_zgges( int matrix_layout, char jobvsl, char jobvsr, char sort, - LAPACK_Z_SELECT2 selctg, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_int* sdim, lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* vsl, lapack_int ldvsl, - lapack_complex_double* vsr, lapack_int ldvsr ); - -lapack_int LAPACKE_sgges3( int matrix_layout, char jobvsl, char jobvsr, - char sort, LAPACK_S_SELECT3 selctg, lapack_int n, - float* a, lapack_int lda, float* b, lapack_int ldb, - lapack_int* sdim, float* alphar, float* alphai, - float* beta, float* vsl, lapack_int ldvsl, - float* vsr, lapack_int ldvsr ); -lapack_int LAPACKE_dgges3( int matrix_layout, char jobvsl, char jobvsr, - char sort, LAPACK_D_SELECT3 selctg, lapack_int n, - double* a, lapack_int lda, double* b, lapack_int ldb, - lapack_int* sdim, double* alphar, double* alphai, - double* beta, double* vsl, lapack_int ldvsl, - double* vsr, lapack_int ldvsr ); -lapack_int LAPACKE_cgges3( int matrix_layout, char jobvsl, char jobvsr, - char sort, LAPACK_C_SELECT2 selctg, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_int* sdim, lapack_complex_float* alpha, - lapack_complex_float* beta, - lapack_complex_float* vsl, lapack_int ldvsl, - lapack_complex_float* vsr, lapack_int ldvsr ); -lapack_int LAPACKE_zgges3( int matrix_layout, char jobvsl, char jobvsr, - char sort, LAPACK_Z_SELECT2 selctg, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_int* sdim, lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* vsl, lapack_int ldvsl, - lapack_complex_double* vsr, lapack_int ldvsr ); - -lapack_int LAPACKE_sggesx( int matrix_layout, char jobvsl, char jobvsr, - char sort, LAPACK_S_SELECT3 selctg, char sense, - lapack_int n, float* a, lapack_int lda, float* b, - lapack_int ldb, lapack_int* sdim, float* alphar, - float* alphai, float* beta, float* vsl, - lapack_int ldvsl, float* vsr, lapack_int ldvsr, - float* rconde, float* rcondv ); -lapack_int LAPACKE_dggesx( int matrix_layout, char jobvsl, char jobvsr, - char sort, LAPACK_D_SELECT3 selctg, char sense, - lapack_int n, double* a, lapack_int lda, double* b, - lapack_int ldb, lapack_int* sdim, double* alphar, - double* alphai, double* beta, double* vsl, - lapack_int ldvsl, double* vsr, lapack_int ldvsr, - double* rconde, double* rcondv ); -lapack_int LAPACKE_cggesx( int matrix_layout, char jobvsl, char jobvsr, - char sort, LAPACK_C_SELECT2 selctg, char sense, - lapack_int n, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb, lapack_int* sdim, - lapack_complex_float* alpha, - lapack_complex_float* beta, - lapack_complex_float* vsl, lapack_int ldvsl, - lapack_complex_float* vsr, lapack_int ldvsr, - float* rconde, float* rcondv ); -lapack_int LAPACKE_zggesx( int matrix_layout, char jobvsl, char jobvsr, - char sort, LAPACK_Z_SELECT2 selctg, char sense, - lapack_int n, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb, lapack_int* sdim, - lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* vsl, lapack_int ldvsl, - lapack_complex_double* vsr, lapack_int ldvsr, - double* rconde, double* rcondv ); - -lapack_int LAPACKE_sggev( int matrix_layout, char jobvl, char jobvr, - lapack_int n, float* a, lapack_int lda, float* b, - lapack_int ldb, float* alphar, float* alphai, - float* beta, float* vl, lapack_int ldvl, float* vr, - lapack_int ldvr ); -lapack_int LAPACKE_dggev( int matrix_layout, char jobvl, char jobvr, - lapack_int n, double* a, lapack_int lda, double* b, - lapack_int ldb, double* alphar, double* alphai, - double* beta, double* vl, lapack_int ldvl, double* vr, - lapack_int ldvr ); -lapack_int LAPACKE_cggev( int matrix_layout, char jobvl, char jobvr, - lapack_int n, lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* alpha, - lapack_complex_float* beta, lapack_complex_float* vl, - lapack_int ldvl, lapack_complex_float* vr, - lapack_int ldvr ); -lapack_int LAPACKE_zggev( int matrix_layout, char jobvl, char jobvr, - lapack_int n, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* vl, lapack_int ldvl, - lapack_complex_double* vr, lapack_int ldvr ); - -lapack_int LAPACKE_sggev3( int matrix_layout, char jobvl, char jobvr, - lapack_int n, float* a, lapack_int lda, - float* b, lapack_int ldb, - float* alphar, float* alphai, float* beta, - float* vl, lapack_int ldvl, - float* vr, lapack_int ldvr ); -lapack_int LAPACKE_dggev3( int matrix_layout, char jobvl, char jobvr, - lapack_int n, double* a, lapack_int lda, - double* b, lapack_int ldb, - double* alphar, double* alphai, double* beta, - double* vl, lapack_int ldvl, - double* vr, lapack_int ldvr ); -lapack_int LAPACKE_cggev3( int matrix_layout, char jobvl, char jobvr, - lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* alpha, - lapack_complex_float* beta, - lapack_complex_float* vl, lapack_int ldvl, - lapack_complex_float* vr, lapack_int ldvr ); -lapack_int LAPACKE_zggev3( int matrix_layout, char jobvl, char jobvr, - lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* vl, lapack_int ldvl, - lapack_complex_double* vr, lapack_int ldvr ); - -lapack_int LAPACKE_sggevx( int matrix_layout, char balanc, char jobvl, - char jobvr, char sense, lapack_int n, float* a, - lapack_int lda, float* b, lapack_int ldb, - float* alphar, float* alphai, float* beta, float* vl, - lapack_int ldvl, float* vr, lapack_int ldvr, - lapack_int* ilo, lapack_int* ihi, float* lscale, - float* rscale, float* abnrm, float* bbnrm, - float* rconde, float* rcondv ); -lapack_int LAPACKE_dggevx( int matrix_layout, char balanc, char jobvl, - char jobvr, char sense, lapack_int n, double* a, - lapack_int lda, double* b, lapack_int ldb, - double* alphar, double* alphai, double* beta, - double* vl, lapack_int ldvl, double* vr, - lapack_int ldvr, lapack_int* ilo, lapack_int* ihi, - double* lscale, double* rscale, double* abnrm, - double* bbnrm, double* rconde, double* rcondv ); -lapack_int LAPACKE_cggevx( int matrix_layout, char balanc, char jobvl, - char jobvr, char sense, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* alpha, - lapack_complex_float* beta, lapack_complex_float* vl, - lapack_int ldvl, lapack_complex_float* vr, - lapack_int ldvr, lapack_int* ilo, lapack_int* ihi, - float* lscale, float* rscale, float* abnrm, - float* bbnrm, float* rconde, float* rcondv ); -lapack_int LAPACKE_zggevx( int matrix_layout, char balanc, char jobvl, - char jobvr, char sense, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* vl, lapack_int ldvl, - lapack_complex_double* vr, lapack_int ldvr, - lapack_int* ilo, lapack_int* ihi, double* lscale, - double* rscale, double* abnrm, double* bbnrm, - double* rconde, double* rcondv ); - -lapack_int LAPACKE_sggglm( int matrix_layout, lapack_int n, lapack_int m, - lapack_int p, float* a, lapack_int lda, float* b, - lapack_int ldb, float* d, float* x, float* y ); -lapack_int LAPACKE_dggglm( int matrix_layout, lapack_int n, lapack_int m, - lapack_int p, double* a, lapack_int lda, double* b, - lapack_int ldb, double* d, double* x, double* y ); -lapack_int LAPACKE_cggglm( int matrix_layout, lapack_int n, lapack_int m, - lapack_int p, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* d, - lapack_complex_float* x, lapack_complex_float* y ); -lapack_int LAPACKE_zggglm( int matrix_layout, lapack_int n, lapack_int m, - lapack_int p, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* d, - lapack_complex_double* x, lapack_complex_double* y ); - -lapack_int LAPACKE_sgghrd( int matrix_layout, char compq, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - float* a, lapack_int lda, float* b, lapack_int ldb, - float* q, lapack_int ldq, float* z, lapack_int ldz ); -lapack_int LAPACKE_dgghrd( int matrix_layout, char compq, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - double* a, lapack_int lda, double* b, lapack_int ldb, - double* q, lapack_int ldq, double* z, - lapack_int ldz ); -lapack_int LAPACKE_cgghrd( int matrix_layout, char compq, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* q, lapack_int ldq, - lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zgghrd( int matrix_layout, char compq, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* q, lapack_int ldq, - lapack_complex_double* z, lapack_int ldz ); - -lapack_int LAPACKE_sgghd3( int matrix_layout, char compq, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - float* a, lapack_int lda, float* b, lapack_int ldb, - float* q, lapack_int ldq, float* z, lapack_int ldz ); -lapack_int LAPACKE_dgghd3( int matrix_layout, char compq, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - double* a, lapack_int lda, double* b, lapack_int ldb, - double* q, lapack_int ldq, double* z, - lapack_int ldz ); -lapack_int LAPACKE_cgghd3( int matrix_layout, char compq, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* q, lapack_int ldq, - lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zgghd3( int matrix_layout, char compq, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* q, lapack_int ldq, - lapack_complex_double* z, lapack_int ldz ); - -lapack_int LAPACKE_sgglse( int matrix_layout, lapack_int m, lapack_int n, - lapack_int p, float* a, lapack_int lda, float* b, - lapack_int ldb, float* c, float* d, float* x ); -lapack_int LAPACKE_dgglse( int matrix_layout, lapack_int m, lapack_int n, - lapack_int p, double* a, lapack_int lda, double* b, - lapack_int ldb, double* c, double* d, double* x ); -lapack_int LAPACKE_cgglse( int matrix_layout, lapack_int m, lapack_int n, - lapack_int p, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* c, - lapack_complex_float* d, lapack_complex_float* x ); -lapack_int LAPACKE_zgglse( int matrix_layout, lapack_int m, lapack_int n, - lapack_int p, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* c, - lapack_complex_double* d, lapack_complex_double* x ); - -lapack_int LAPACKE_sggqrf( int matrix_layout, lapack_int n, lapack_int m, - lapack_int p, float* a, lapack_int lda, float* taua, - float* b, lapack_int ldb, float* taub ); -lapack_int LAPACKE_dggqrf( int matrix_layout, lapack_int n, lapack_int m, - lapack_int p, double* a, lapack_int lda, - double* taua, double* b, lapack_int ldb, - double* taub ); -lapack_int LAPACKE_cggqrf( int matrix_layout, lapack_int n, lapack_int m, - lapack_int p, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* taua, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* taub ); -lapack_int LAPACKE_zggqrf( int matrix_layout, lapack_int n, lapack_int m, - lapack_int p, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* taua, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* taub ); - -lapack_int LAPACKE_sggrqf( int matrix_layout, lapack_int m, lapack_int p, - lapack_int n, float* a, lapack_int lda, float* taua, - float* b, lapack_int ldb, float* taub ); -lapack_int LAPACKE_dggrqf( int matrix_layout, lapack_int m, lapack_int p, - lapack_int n, double* a, lapack_int lda, - double* taua, double* b, lapack_int ldb, - double* taub ); -lapack_int LAPACKE_cggrqf( int matrix_layout, lapack_int m, lapack_int p, - lapack_int n, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* taua, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* taub ); -lapack_int LAPACKE_zggrqf( int matrix_layout, lapack_int m, lapack_int p, - lapack_int n, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* taua, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* taub ); - -lapack_int LAPACKE_sggsvd( int matrix_layout, char jobu, char jobv, char jobq, - lapack_int m, lapack_int n, lapack_int p, - lapack_int* k, lapack_int* l, float* a, - lapack_int lda, float* b, lapack_int ldb, - float* alpha, float* beta, float* u, lapack_int ldu, - float* v, lapack_int ldv, float* q, lapack_int ldq, - lapack_int* iwork ); -lapack_int LAPACKE_dggsvd( int matrix_layout, char jobu, char jobv, char jobq, - lapack_int m, lapack_int n, lapack_int p, - lapack_int* k, lapack_int* l, double* a, - lapack_int lda, double* b, lapack_int ldb, - double* alpha, double* beta, double* u, - lapack_int ldu, double* v, lapack_int ldv, double* q, - lapack_int ldq, lapack_int* iwork ); -lapack_int LAPACKE_cggsvd( int matrix_layout, char jobu, char jobv, char jobq, - lapack_int m, lapack_int n, lapack_int p, - lapack_int* k, lapack_int* l, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - float* alpha, float* beta, lapack_complex_float* u, - lapack_int ldu, lapack_complex_float* v, - lapack_int ldv, lapack_complex_float* q, - lapack_int ldq, lapack_int* iwork ); -lapack_int LAPACKE_zggsvd( int matrix_layout, char jobu, char jobv, char jobq, - lapack_int m, lapack_int n, lapack_int p, - lapack_int* k, lapack_int* l, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - double* alpha, double* beta, - lapack_complex_double* u, lapack_int ldu, - lapack_complex_double* v, lapack_int ldv, - lapack_complex_double* q, lapack_int ldq, - lapack_int* iwork ); - -lapack_int LAPACKE_sggsvd3( int matrix_layout, char jobu, char jobv, char jobq, - lapack_int m, lapack_int n, lapack_int p, - lapack_int* k, lapack_int* l, float* a, - lapack_int lda, float* b, lapack_int ldb, - float* alpha, float* beta, float* u, lapack_int ldu, - float* v, lapack_int ldv, float* q, lapack_int ldq, - lapack_int* iwork ); -lapack_int LAPACKE_dggsvd3( int matrix_layout, char jobu, char jobv, char jobq, - lapack_int m, lapack_int n, lapack_int p, - lapack_int* k, lapack_int* l, double* a, - lapack_int lda, double* b, lapack_int ldb, - double* alpha, double* beta, double* u, - lapack_int ldu, double* v, lapack_int ldv, double* q, - lapack_int ldq, lapack_int* iwork ); -lapack_int LAPACKE_cggsvd3( int matrix_layout, char jobu, char jobv, char jobq, - lapack_int m, lapack_int n, lapack_int p, - lapack_int* k, lapack_int* l, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - float* alpha, float* beta, lapack_complex_float* u, - lapack_int ldu, lapack_complex_float* v, - lapack_int ldv, lapack_complex_float* q, - lapack_int ldq, lapack_int* iwork ); -lapack_int LAPACKE_zggsvd3( int matrix_layout, char jobu, char jobv, char jobq, - lapack_int m, lapack_int n, lapack_int p, - lapack_int* k, lapack_int* l, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - double* alpha, double* beta, - lapack_complex_double* u, lapack_int ldu, - lapack_complex_double* v, lapack_int ldv, - lapack_complex_double* q, lapack_int ldq, - lapack_int* iwork ); - -lapack_int LAPACKE_sggsvp( int matrix_layout, char jobu, char jobv, char jobq, - lapack_int m, lapack_int p, lapack_int n, float* a, - lapack_int lda, float* b, lapack_int ldb, float tola, - float tolb, lapack_int* k, lapack_int* l, float* u, - lapack_int ldu, float* v, lapack_int ldv, float* q, - lapack_int ldq ); -lapack_int LAPACKE_dggsvp( int matrix_layout, char jobu, char jobv, char jobq, - lapack_int m, lapack_int p, lapack_int n, double* a, - lapack_int lda, double* b, lapack_int ldb, - double tola, double tolb, lapack_int* k, - lapack_int* l, double* u, lapack_int ldu, double* v, - lapack_int ldv, double* q, lapack_int ldq ); -lapack_int LAPACKE_cggsvp( int matrix_layout, char jobu, char jobv, char jobq, - lapack_int m, lapack_int p, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, float tola, - float tolb, lapack_int* k, lapack_int* l, - lapack_complex_float* u, lapack_int ldu, - lapack_complex_float* v, lapack_int ldv, - lapack_complex_float* q, lapack_int ldq ); -lapack_int LAPACKE_zggsvp( int matrix_layout, char jobu, char jobv, char jobq, - lapack_int m, lapack_int p, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - double tola, double tolb, lapack_int* k, - lapack_int* l, lapack_complex_double* u, - lapack_int ldu, lapack_complex_double* v, - lapack_int ldv, lapack_complex_double* q, - lapack_int ldq ); - -lapack_int LAPACKE_sggsvp3( int matrix_layout, char jobu, char jobv, char jobq, - lapack_int m, lapack_int p, lapack_int n, float* a, - lapack_int lda, float* b, lapack_int ldb, float tola, - float tolb, lapack_int* k, lapack_int* l, float* u, - lapack_int ldu, float* v, lapack_int ldv, float* q, - lapack_int ldq ); -lapack_int LAPACKE_dggsvp3( int matrix_layout, char jobu, char jobv, char jobq, - lapack_int m, lapack_int p, lapack_int n, double* a, - lapack_int lda, double* b, lapack_int ldb, - double tola, double tolb, lapack_int* k, - lapack_int* l, double* u, lapack_int ldu, double* v, - lapack_int ldv, double* q, lapack_int ldq ); -lapack_int LAPACKE_cggsvp3( int matrix_layout, char jobu, char jobv, char jobq, - lapack_int m, lapack_int p, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, float tola, - float tolb, lapack_int* k, lapack_int* l, - lapack_complex_float* u, lapack_int ldu, - lapack_complex_float* v, lapack_int ldv, - lapack_complex_float* q, lapack_int ldq ); -lapack_int LAPACKE_zggsvp3( int matrix_layout, char jobu, char jobv, char jobq, - lapack_int m, lapack_int p, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - double tola, double tolb, lapack_int* k, - lapack_int* l, lapack_complex_double* u, - lapack_int ldu, lapack_complex_double* v, - lapack_int ldv, lapack_complex_double* q, - lapack_int ldq ); - -lapack_int LAPACKE_sgtcon( char norm, lapack_int n, const float* dl, - const float* d, const float* du, const float* du2, - const lapack_int* ipiv, float anorm, float* rcond ); -lapack_int LAPACKE_dgtcon( char norm, lapack_int n, const double* dl, - const double* d, const double* du, const double* du2, - const lapack_int* ipiv, double anorm, - double* rcond ); -lapack_int LAPACKE_cgtcon( char norm, lapack_int n, - const lapack_complex_float* dl, - const lapack_complex_float* d, - const lapack_complex_float* du, - const lapack_complex_float* du2, - const lapack_int* ipiv, float anorm, float* rcond ); -lapack_int LAPACKE_zgtcon( char norm, lapack_int n, - const lapack_complex_double* dl, - const lapack_complex_double* d, - const lapack_complex_double* du, - const lapack_complex_double* du2, - const lapack_int* ipiv, double anorm, - double* rcond ); - -lapack_int LAPACKE_sgtrfs( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const float* dl, const float* d, - const float* du, const float* dlf, const float* df, - const float* duf, const float* du2, - const lapack_int* ipiv, const float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* ferr, float* berr ); -lapack_int LAPACKE_dgtrfs( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const double* dl, const double* d, - const double* du, const double* dlf, - const double* df, const double* duf, - const double* du2, const lapack_int* ipiv, - const double* b, lapack_int ldb, double* x, - lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_cgtrfs( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const lapack_complex_float* dl, - const lapack_complex_float* d, - const lapack_complex_float* du, - const lapack_complex_float* dlf, - const lapack_complex_float* df, - const lapack_complex_float* duf, - const lapack_complex_float* du2, - const lapack_int* ipiv, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, float* ferr, - float* berr ); -lapack_int LAPACKE_zgtrfs( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const lapack_complex_double* dl, - const lapack_complex_double* d, - const lapack_complex_double* du, - const lapack_complex_double* dlf, - const lapack_complex_double* df, - const lapack_complex_double* duf, - const lapack_complex_double* du2, - const lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr ); - -lapack_int LAPACKE_sgtsv( int matrix_layout, lapack_int n, lapack_int nrhs, - float* dl, float* d, float* du, float* b, - lapack_int ldb ); -lapack_int LAPACKE_dgtsv( int matrix_layout, lapack_int n, lapack_int nrhs, - double* dl, double* d, double* du, double* b, - lapack_int ldb ); -lapack_int LAPACKE_cgtsv( int matrix_layout, lapack_int n, lapack_int nrhs, - lapack_complex_float* dl, lapack_complex_float* d, - lapack_complex_float* du, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zgtsv( int matrix_layout, lapack_int n, lapack_int nrhs, - lapack_complex_double* dl, lapack_complex_double* d, - lapack_complex_double* du, lapack_complex_double* b, - lapack_int ldb ); - -lapack_int LAPACKE_sgtsvx( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, const float* dl, - const float* d, const float* du, float* dlf, - float* df, float* duf, float* du2, lapack_int* ipiv, - const float* b, lapack_int ldb, float* x, - lapack_int ldx, float* rcond, float* ferr, - float* berr ); -lapack_int LAPACKE_dgtsvx( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, const double* dl, - const double* d, const double* du, double* dlf, - double* df, double* duf, double* du2, - lapack_int* ipiv, const double* b, lapack_int ldb, - double* x, lapack_int ldx, double* rcond, - double* ferr, double* berr ); -lapack_int LAPACKE_cgtsvx( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, - const lapack_complex_float* dl, - const lapack_complex_float* d, - const lapack_complex_float* du, - lapack_complex_float* dlf, lapack_complex_float* df, - lapack_complex_float* duf, lapack_complex_float* du2, - lapack_int* ipiv, const lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* x, - lapack_int ldx, float* rcond, float* ferr, - float* berr ); -lapack_int LAPACKE_zgtsvx( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, - const lapack_complex_double* dl, - const lapack_complex_double* d, - const lapack_complex_double* du, - lapack_complex_double* dlf, - lapack_complex_double* df, - lapack_complex_double* duf, - lapack_complex_double* du2, lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr ); - -lapack_int LAPACKE_sgttrf( lapack_int n, float* dl, float* d, float* du, - float* du2, lapack_int* ipiv ); -lapack_int LAPACKE_dgttrf( lapack_int n, double* dl, double* d, double* du, - double* du2, lapack_int* ipiv ); -lapack_int LAPACKE_cgttrf( lapack_int n, lapack_complex_float* dl, - lapack_complex_float* d, lapack_complex_float* du, - lapack_complex_float* du2, lapack_int* ipiv ); -lapack_int LAPACKE_zgttrf( lapack_int n, lapack_complex_double* dl, - lapack_complex_double* d, lapack_complex_double* du, - lapack_complex_double* du2, lapack_int* ipiv ); - -lapack_int LAPACKE_sgttrs( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const float* dl, const float* d, - const float* du, const float* du2, - const lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dgttrs( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const double* dl, const double* d, - const double* du, const double* du2, - const lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_cgttrs( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const lapack_complex_float* dl, - const lapack_complex_float* d, - const lapack_complex_float* du, - const lapack_complex_float* du2, - const lapack_int* ipiv, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zgttrs( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const lapack_complex_double* dl, - const lapack_complex_double* d, - const lapack_complex_double* du, - const lapack_complex_double* du2, - const lapack_int* ipiv, lapack_complex_double* b, - lapack_int ldb ); - -lapack_int LAPACKE_chbev( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int kd, lapack_complex_float* ab, - lapack_int ldab, float* w, lapack_complex_float* z, - lapack_int ldz ); -lapack_int LAPACKE_zhbev( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int kd, lapack_complex_double* ab, - lapack_int ldab, double* w, lapack_complex_double* z, - lapack_int ldz ); - -lapack_int LAPACKE_chbevd( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int kd, lapack_complex_float* ab, - lapack_int ldab, float* w, lapack_complex_float* z, - lapack_int ldz ); -lapack_int LAPACKE_zhbevd( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int kd, lapack_complex_double* ab, - lapack_int ldab, double* w, lapack_complex_double* z, - lapack_int ldz ); - -lapack_int LAPACKE_chbevx( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, lapack_int kd, - lapack_complex_float* ab, lapack_int ldab, - lapack_complex_float* q, lapack_int ldq, float vl, - float vu, lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, lapack_complex_float* z, - lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_zhbevx( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, lapack_int kd, - lapack_complex_double* ab, lapack_int ldab, - lapack_complex_double* q, lapack_int ldq, double vl, - double vu, lapack_int il, lapack_int iu, - double abstol, lapack_int* m, double* w, - lapack_complex_double* z, lapack_int ldz, - lapack_int* ifail ); - -lapack_int LAPACKE_chbgst( int matrix_layout, char vect, char uplo, lapack_int n, - lapack_int ka, lapack_int kb, - lapack_complex_float* ab, lapack_int ldab, - const lapack_complex_float* bb, lapack_int ldbb, - lapack_complex_float* x, lapack_int ldx ); -lapack_int LAPACKE_zhbgst( int matrix_layout, char vect, char uplo, lapack_int n, - lapack_int ka, lapack_int kb, - lapack_complex_double* ab, lapack_int ldab, - const lapack_complex_double* bb, lapack_int ldbb, - lapack_complex_double* x, lapack_int ldx ); - -lapack_int LAPACKE_chbgv( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int ka, lapack_int kb, - lapack_complex_float* ab, lapack_int ldab, - lapack_complex_float* bb, lapack_int ldbb, float* w, - lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zhbgv( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int ka, lapack_int kb, - lapack_complex_double* ab, lapack_int ldab, - lapack_complex_double* bb, lapack_int ldbb, double* w, - lapack_complex_double* z, lapack_int ldz ); - -lapack_int LAPACKE_chbgvd( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int ka, lapack_int kb, - lapack_complex_float* ab, lapack_int ldab, - lapack_complex_float* bb, lapack_int ldbb, float* w, - lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zhbgvd( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int ka, lapack_int kb, - lapack_complex_double* ab, lapack_int ldab, - lapack_complex_double* bb, lapack_int ldbb, - double* w, lapack_complex_double* z, - lapack_int ldz ); - -lapack_int LAPACKE_chbgvx( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, lapack_int ka, lapack_int kb, - lapack_complex_float* ab, lapack_int ldab, - lapack_complex_float* bb, lapack_int ldbb, - lapack_complex_float* q, lapack_int ldq, float vl, - float vu, lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, lapack_complex_float* z, - lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_zhbgvx( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, lapack_int ka, lapack_int kb, - lapack_complex_double* ab, lapack_int ldab, - lapack_complex_double* bb, lapack_int ldbb, - lapack_complex_double* q, lapack_int ldq, double vl, - double vu, lapack_int il, lapack_int iu, - double abstol, lapack_int* m, double* w, - lapack_complex_double* z, lapack_int ldz, - lapack_int* ifail ); - -lapack_int LAPACKE_chbtrd( int matrix_layout, char vect, char uplo, lapack_int n, - lapack_int kd, lapack_complex_float* ab, - lapack_int ldab, float* d, float* e, - lapack_complex_float* q, lapack_int ldq ); -lapack_int LAPACKE_zhbtrd( int matrix_layout, char vect, char uplo, lapack_int n, - lapack_int kd, lapack_complex_double* ab, - lapack_int ldab, double* d, double* e, - lapack_complex_double* q, lapack_int ldq ); - -lapack_int LAPACKE_checon( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - const lapack_int* ipiv, float anorm, float* rcond ); -lapack_int LAPACKE_zhecon( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - const lapack_int* ipiv, double anorm, - double* rcond ); - -lapack_int LAPACKE_cheequb( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - float* s, float* scond, float* amax ); -lapack_int LAPACKE_zheequb( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - double* s, double* scond, double* amax ); - -lapack_int LAPACKE_cheev( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, float* w ); -lapack_int LAPACKE_zheev( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, double* w ); - -lapack_int LAPACKE_cheevd( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, float* w ); -lapack_int LAPACKE_zheevd( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - double* w ); - -lapack_int LAPACKE_cheevr( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, lapack_complex_float* a, - lapack_int lda, float vl, float vu, lapack_int il, - lapack_int iu, float abstol, lapack_int* m, float* w, - lapack_complex_float* z, lapack_int ldz, - lapack_int* isuppz ); -lapack_int LAPACKE_zheevr( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, lapack_complex_double* a, - lapack_int lda, double vl, double vu, lapack_int il, - lapack_int iu, double abstol, lapack_int* m, - double* w, lapack_complex_double* z, lapack_int ldz, - lapack_int* isuppz ); - -lapack_int LAPACKE_cheevx( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, lapack_complex_float* a, - lapack_int lda, float vl, float vu, lapack_int il, - lapack_int iu, float abstol, lapack_int* m, float* w, - lapack_complex_float* z, lapack_int ldz, - lapack_int* ifail ); -lapack_int LAPACKE_zheevx( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, lapack_complex_double* a, - lapack_int lda, double vl, double vu, lapack_int il, - lapack_int iu, double abstol, lapack_int* m, - double* w, lapack_complex_double* z, lapack_int ldz, - lapack_int* ifail ); - -lapack_int LAPACKE_chegst( int matrix_layout, lapack_int itype, char uplo, - lapack_int n, lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zhegst( int matrix_layout, lapack_int itype, char uplo, - lapack_int n, lapack_complex_double* a, - lapack_int lda, const lapack_complex_double* b, - lapack_int ldb ); - -lapack_int LAPACKE_chegv( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb, float* w ); -lapack_int LAPACKE_zhegv( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb, double* w ); - -lapack_int LAPACKE_chegvd( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb, float* w ); -lapack_int LAPACKE_zhegvd( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb, double* w ); - -lapack_int LAPACKE_chegvx( int matrix_layout, lapack_int itype, char jobz, - char range, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, float vl, - float vu, lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, lapack_complex_float* z, - lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_zhegvx( int matrix_layout, lapack_int itype, char jobz, - char range, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, double vl, - double vu, lapack_int il, lapack_int iu, - double abstol, lapack_int* m, double* w, - lapack_complex_double* z, lapack_int ldz, - lapack_int* ifail ); - -lapack_int LAPACKE_cherfs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* af, - lapack_int ldaf, const lapack_int* ipiv, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, float* ferr, - float* berr ); -lapack_int LAPACKE_zherfs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_complex_double* af, - lapack_int ldaf, const lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr ); - -lapack_int LAPACKE_cherfsx( int matrix_layout, char uplo, char equed, - lapack_int n, lapack_int nrhs, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* af, lapack_int ldaf, - const lapack_int* ipiv, const float* s, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* berr, lapack_int n_err_bnds, - float* err_bnds_norm, float* err_bnds_comp, - lapack_int nparams, float* params ); -lapack_int LAPACKE_zherfsx( int matrix_layout, char uplo, char equed, - lapack_int n, lapack_int nrhs, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* af, lapack_int ldaf, - const lapack_int* ipiv, const double* s, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* berr, lapack_int n_err_bnds, - double* err_bnds_norm, double* err_bnds_comp, - lapack_int nparams, double* params ); - -lapack_int LAPACKE_chesv( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zhesv( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_chesvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, lapack_complex_float* af, - lapack_int ldaf, lapack_int* ipiv, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_zhesvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, lapack_complex_double* af, - lapack_int ldaf, lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr ); - -lapack_int LAPACKE_chesvxx( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, float* s, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* rpvgrw, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params ); -lapack_int LAPACKE_zhesvxx( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, double* s, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* rpvgrw, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params ); - -lapack_int LAPACKE_chetrd( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, float* d, - float* e, lapack_complex_float* tau ); -lapack_int LAPACKE_zhetrd( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, double* d, - double* e, lapack_complex_double* tau ); - -lapack_int LAPACKE_chetrf( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* ipiv ); -lapack_int LAPACKE_zhetrf( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv ); - -lapack_int LAPACKE_chetri( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_int* ipiv ); -lapack_int LAPACKE_zhetri( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_int* ipiv ); - -lapack_int LAPACKE_chetrs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zhetrs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_chfrk( int matrix_layout, char transr, char uplo, char trans, - lapack_int n, lapack_int k, float alpha, - const lapack_complex_float* a, lapack_int lda, - float beta, lapack_complex_float* c ); -lapack_int LAPACKE_zhfrk( int matrix_layout, char transr, char uplo, char trans, - lapack_int n, lapack_int k, double alpha, - const lapack_complex_double* a, lapack_int lda, - double beta, lapack_complex_double* c ); - -lapack_int LAPACKE_shgeqz( int matrix_layout, char job, char compq, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - float* h, lapack_int ldh, float* t, lapack_int ldt, - float* alphar, float* alphai, float* beta, float* q, - lapack_int ldq, float* z, lapack_int ldz ); -lapack_int LAPACKE_dhgeqz( int matrix_layout, char job, char compq, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - double* h, lapack_int ldh, double* t, lapack_int ldt, - double* alphar, double* alphai, double* beta, - double* q, lapack_int ldq, double* z, - lapack_int ldz ); -lapack_int LAPACKE_chgeqz( int matrix_layout, char job, char compq, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - lapack_complex_float* h, lapack_int ldh, - lapack_complex_float* t, lapack_int ldt, - lapack_complex_float* alpha, - lapack_complex_float* beta, lapack_complex_float* q, - lapack_int ldq, lapack_complex_float* z, - lapack_int ldz ); -lapack_int LAPACKE_zhgeqz( int matrix_layout, char job, char compq, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - lapack_complex_double* h, lapack_int ldh, - lapack_complex_double* t, lapack_int ldt, - lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* q, lapack_int ldq, - lapack_complex_double* z, lapack_int ldz ); - -lapack_int LAPACKE_chpcon( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* ap, - const lapack_int* ipiv, float anorm, float* rcond ); -lapack_int LAPACKE_zhpcon( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* ap, - const lapack_int* ipiv, double anorm, - double* rcond ); - -lapack_int LAPACKE_chpev( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_complex_float* ap, float* w, - lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zhpev( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_complex_double* ap, double* w, - lapack_complex_double* z, lapack_int ldz ); - -lapack_int LAPACKE_chpevd( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_complex_float* ap, float* w, - lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zhpevd( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_complex_double* ap, double* w, - lapack_complex_double* z, lapack_int ldz ); - -lapack_int LAPACKE_chpevx( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, lapack_complex_float* ap, float vl, - float vu, lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, lapack_complex_float* z, - lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_zhpevx( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, lapack_complex_double* ap, double vl, - double vu, lapack_int il, lapack_int iu, - double abstol, lapack_int* m, double* w, - lapack_complex_double* z, lapack_int ldz, - lapack_int* ifail ); - -lapack_int LAPACKE_chpgst( int matrix_layout, lapack_int itype, char uplo, - lapack_int n, lapack_complex_float* ap, - const lapack_complex_float* bp ); -lapack_int LAPACKE_zhpgst( int matrix_layout, lapack_int itype, char uplo, - lapack_int n, lapack_complex_double* ap, - const lapack_complex_double* bp ); - -lapack_int LAPACKE_chpgv( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, lapack_complex_float* ap, - lapack_complex_float* bp, float* w, - lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zhpgv( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, lapack_complex_double* ap, - lapack_complex_double* bp, double* w, - lapack_complex_double* z, lapack_int ldz ); - -lapack_int LAPACKE_chpgvd( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, lapack_complex_float* ap, - lapack_complex_float* bp, float* w, - lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zhpgvd( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, lapack_complex_double* ap, - lapack_complex_double* bp, double* w, - lapack_complex_double* z, lapack_int ldz ); - -lapack_int LAPACKE_chpgvx( int matrix_layout, lapack_int itype, char jobz, - char range, char uplo, lapack_int n, - lapack_complex_float* ap, lapack_complex_float* bp, - float vl, float vu, lapack_int il, lapack_int iu, - float abstol, lapack_int* m, float* w, - lapack_complex_float* z, lapack_int ldz, - lapack_int* ifail ); -lapack_int LAPACKE_zhpgvx( int matrix_layout, lapack_int itype, char jobz, - char range, char uplo, lapack_int n, - lapack_complex_double* ap, lapack_complex_double* bp, - double vl, double vu, lapack_int il, lapack_int iu, - double abstol, lapack_int* m, double* w, - lapack_complex_double* z, lapack_int ldz, - lapack_int* ifail ); - -lapack_int LAPACKE_chprfs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* ap, - const lapack_complex_float* afp, - const lapack_int* ipiv, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, float* ferr, - float* berr ); -lapack_int LAPACKE_zhprfs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* ap, - const lapack_complex_double* afp, - const lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr ); - -lapack_int LAPACKE_chpsv( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* ap, - lapack_int* ipiv, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zhpsv( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* ap, - lapack_int* ipiv, lapack_complex_double* b, - lapack_int ldb ); - -lapack_int LAPACKE_chpsvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* ap, - lapack_complex_float* afp, lapack_int* ipiv, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_zhpsvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* ap, - lapack_complex_double* afp, lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr ); - -lapack_int LAPACKE_chptrd( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* ap, float* d, float* e, - lapack_complex_float* tau ); -lapack_int LAPACKE_zhptrd( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* ap, double* d, double* e, - lapack_complex_double* tau ); - -lapack_int LAPACKE_chptrf( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* ap, lapack_int* ipiv ); -lapack_int LAPACKE_zhptrf( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* ap, lapack_int* ipiv ); - -lapack_int LAPACKE_chptri( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* ap, const lapack_int* ipiv ); -lapack_int LAPACKE_zhptri( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* ap, const lapack_int* ipiv ); - -lapack_int LAPACKE_chptrs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* ap, - const lapack_int* ipiv, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zhptrs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* ap, - const lapack_int* ipiv, lapack_complex_double* b, - lapack_int ldb ); - -lapack_int LAPACKE_shsein( int matrix_layout, char job, char eigsrc, char initv, - lapack_logical* select, lapack_int n, const float* h, - lapack_int ldh, float* wr, const float* wi, - float* vl, lapack_int ldvl, float* vr, - lapack_int ldvr, lapack_int mm, lapack_int* m, - lapack_int* ifaill, lapack_int* ifailr ); -lapack_int LAPACKE_dhsein( int matrix_layout, char job, char eigsrc, char initv, - lapack_logical* select, lapack_int n, - const double* h, lapack_int ldh, double* wr, - const double* wi, double* vl, lapack_int ldvl, - double* vr, lapack_int ldvr, lapack_int mm, - lapack_int* m, lapack_int* ifaill, - lapack_int* ifailr ); -lapack_int LAPACKE_chsein( int matrix_layout, char job, char eigsrc, char initv, - const lapack_logical* select, lapack_int n, - const lapack_complex_float* h, lapack_int ldh, - lapack_complex_float* w, lapack_complex_float* vl, - lapack_int ldvl, lapack_complex_float* vr, - lapack_int ldvr, lapack_int mm, lapack_int* m, - lapack_int* ifaill, lapack_int* ifailr ); -lapack_int LAPACKE_zhsein( int matrix_layout, char job, char eigsrc, char initv, - const lapack_logical* select, lapack_int n, - const lapack_complex_double* h, lapack_int ldh, - lapack_complex_double* w, lapack_complex_double* vl, - lapack_int ldvl, lapack_complex_double* vr, - lapack_int ldvr, lapack_int mm, lapack_int* m, - lapack_int* ifaill, lapack_int* ifailr ); - -lapack_int LAPACKE_shseqr( int matrix_layout, char job, char compz, lapack_int n, - lapack_int ilo, lapack_int ihi, float* h, - lapack_int ldh, float* wr, float* wi, float* z, - lapack_int ldz ); -lapack_int LAPACKE_dhseqr( int matrix_layout, char job, char compz, lapack_int n, - lapack_int ilo, lapack_int ihi, double* h, - lapack_int ldh, double* wr, double* wi, double* z, - lapack_int ldz ); -lapack_int LAPACKE_chseqr( int matrix_layout, char job, char compz, lapack_int n, - lapack_int ilo, lapack_int ihi, - lapack_complex_float* h, lapack_int ldh, - lapack_complex_float* w, lapack_complex_float* z, - lapack_int ldz ); -lapack_int LAPACKE_zhseqr( int matrix_layout, char job, char compz, lapack_int n, - lapack_int ilo, lapack_int ihi, - lapack_complex_double* h, lapack_int ldh, - lapack_complex_double* w, lapack_complex_double* z, - lapack_int ldz ); - -lapack_int LAPACKE_clacgv( lapack_int n, lapack_complex_float* x, - lapack_int incx ); -lapack_int LAPACKE_zlacgv( lapack_int n, lapack_complex_double* x, - lapack_int incx ); - -lapack_int LAPACKE_slacn2( lapack_int n, float* v, float* x, lapack_int* isgn, - float* est, lapack_int* kase, lapack_int* isave ); -lapack_int LAPACKE_dlacn2( lapack_int n, double* v, double* x, lapack_int* isgn, - double* est, lapack_int* kase, lapack_int* isave ); -lapack_int LAPACKE_clacn2( lapack_int n, lapack_complex_float* v, - lapack_complex_float* x, - float* est, lapack_int* kase, lapack_int* isave ); -lapack_int LAPACKE_zlacn2( lapack_int n, lapack_complex_double* v, - lapack_complex_double* x, - double* est, lapack_int* kase, lapack_int* isave ); - -lapack_int LAPACKE_slacpy( int matrix_layout, char uplo, lapack_int m, - lapack_int n, const float* a, lapack_int lda, float* b, - lapack_int ldb ); -lapack_int LAPACKE_dlacpy( int matrix_layout, char uplo, lapack_int m, - lapack_int n, const double* a, lapack_int lda, double* b, - lapack_int ldb ); -lapack_int LAPACKE_clacpy( int matrix_layout, char uplo, lapack_int m, - lapack_int n, const lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zlacpy( int matrix_layout, char uplo, lapack_int m, - lapack_int n, const lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb ); - -lapack_int LAPACKE_clacp2( int matrix_layout, char uplo, lapack_int m, - lapack_int n, const float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zlacp2( int matrix_layout, char uplo, lapack_int m, - lapack_int n, const double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_zlag2c( int matrix_layout, lapack_int m, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - lapack_complex_float* sa, lapack_int ldsa ); - -lapack_int LAPACKE_slag2d( int matrix_layout, lapack_int m, lapack_int n, - const float* sa, lapack_int ldsa, double* a, - lapack_int lda ); - -lapack_int LAPACKE_dlag2s( int matrix_layout, lapack_int m, lapack_int n, - const double* a, lapack_int lda, float* sa, - lapack_int ldsa ); - -lapack_int LAPACKE_clag2z( int matrix_layout, lapack_int m, lapack_int n, - const lapack_complex_float* sa, lapack_int ldsa, - lapack_complex_double* a, lapack_int lda ); - -lapack_int LAPACKE_slagge( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, const float* d, - float* a, lapack_int lda, lapack_int* iseed ); -lapack_int LAPACKE_dlagge( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, const double* d, - double* a, lapack_int lda, lapack_int* iseed ); -lapack_int LAPACKE_clagge( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, const float* d, - lapack_complex_float* a, lapack_int lda, - lapack_int* iseed ); -lapack_int LAPACKE_zlagge( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, const double* d, - lapack_complex_double* a, lapack_int lda, - lapack_int* iseed ); - -float LAPACKE_slamch( char cmach ); -double LAPACKE_dlamch( char cmach ); - -float LAPACKE_slangb( int matrix_layout, char norm, lapack_int n, - lapack_int kl, lapack_int ku, const float* ab, - lapack_int ldab ); -double LAPACKE_dlangb( int matrix_layout, char norm, lapack_int n, - lapack_int kl, lapack_int ku, const double* ab, - lapack_int ldab ); -float LAPACKE_clangb( int matrix_layout, char norm, lapack_int n, - lapack_int kl, lapack_int ku, - const lapack_complex_float* ab, lapack_int ldab ); -double LAPACKE_zlangb( int matrix_layout, char norm, lapack_int n, - lapack_int kl, lapack_int ku, - const lapack_complex_double* ab, lapack_int ldab ); - -float LAPACKE_slange( int matrix_layout, char norm, lapack_int m, - lapack_int n, const float* a, lapack_int lda ); -double LAPACKE_dlange( int matrix_layout, char norm, lapack_int m, - lapack_int n, const double* a, lapack_int lda ); -float LAPACKE_clange( int matrix_layout, char norm, lapack_int m, - lapack_int n, const lapack_complex_float* a, - lapack_int lda ); -double LAPACKE_zlange( int matrix_layout, char norm, lapack_int m, - lapack_int n, const lapack_complex_double* a, - lapack_int lda ); - -float LAPACKE_clanhe( int matrix_layout, char norm, char uplo, lapack_int n, - const lapack_complex_float* a, lapack_int lda ); -double LAPACKE_zlanhe( int matrix_layout, char norm, char uplo, lapack_int n, - const lapack_complex_double* a, lapack_int lda ); - -lapack_int LAPACKE_clacrm( int matrix_layout, lapack_int m, lapack_int n, - const lapack_complex_float* a, - lapack_int lda, const float* b, - lapack_int ldb, lapack_complex_float* c, - lapack_int ldc ); -lapack_int LAPACKE_zlacrm( int matrix_layout, lapack_int m, lapack_int n, - const lapack_complex_double* a, - lapack_int lda, const double* b, - lapack_int ldb, lapack_complex_double* c, - lapack_int ldc ); - -lapack_int LAPACKE_clarcm( int matrix_layout, lapack_int m, lapack_int n, - const float* a, lapack_int lda, - const lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* c, - lapack_int ldc ); -lapack_int LAPACKE_zlarcm( int matrix_layout, lapack_int m, lapack_int n, - const double* a, lapack_int lda, - const lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* c, - lapack_int ldc ); - -float LAPACKE_slansy( int matrix_layout, char norm, char uplo, lapack_int n, - const float* a, lapack_int lda ); -double LAPACKE_dlansy( int matrix_layout, char norm, char uplo, lapack_int n, - const double* a, lapack_int lda ); -float LAPACKE_clansy( int matrix_layout, char norm, char uplo, lapack_int n, - const lapack_complex_float* a, lapack_int lda ); -double LAPACKE_zlansy( int matrix_layout, char norm, char uplo, lapack_int n, - const lapack_complex_double* a, lapack_int lda ); - -float LAPACKE_slantr( int matrix_layout, char norm, char uplo, char diag, - lapack_int m, lapack_int n, const float* a, - lapack_int lda ); -double LAPACKE_dlantr( int matrix_layout, char norm, char uplo, char diag, - lapack_int m, lapack_int n, const double* a, - lapack_int lda ); -float LAPACKE_clantr( int matrix_layout, char norm, char uplo, char diag, - lapack_int m, lapack_int n, const lapack_complex_float* a, - lapack_int lda ); -double LAPACKE_zlantr( int matrix_layout, char norm, char uplo, char diag, - lapack_int m, lapack_int n, const lapack_complex_double* a, - lapack_int lda ); - - -lapack_int LAPACKE_slarfb( int matrix_layout, char side, char trans, char direct, - char storev, lapack_int m, lapack_int n, - lapack_int k, const float* v, lapack_int ldv, - const float* t, lapack_int ldt, float* c, - lapack_int ldc ); -lapack_int LAPACKE_dlarfb( int matrix_layout, char side, char trans, char direct, - char storev, lapack_int m, lapack_int n, - lapack_int k, const double* v, lapack_int ldv, - const double* t, lapack_int ldt, double* c, - lapack_int ldc ); -lapack_int LAPACKE_clarfb( int matrix_layout, char side, char trans, char direct, - char storev, lapack_int m, lapack_int n, - lapack_int k, const lapack_complex_float* v, - lapack_int ldv, const lapack_complex_float* t, - lapack_int ldt, lapack_complex_float* c, - lapack_int ldc ); -lapack_int LAPACKE_zlarfb( int matrix_layout, char side, char trans, char direct, - char storev, lapack_int m, lapack_int n, - lapack_int k, const lapack_complex_double* v, - lapack_int ldv, const lapack_complex_double* t, - lapack_int ldt, lapack_complex_double* c, - lapack_int ldc ); - -lapack_int LAPACKE_slarfg( lapack_int n, float* alpha, float* x, - lapack_int incx, float* tau ); -lapack_int LAPACKE_dlarfg( lapack_int n, double* alpha, double* x, - lapack_int incx, double* tau ); -lapack_int LAPACKE_clarfg( lapack_int n, lapack_complex_float* alpha, - lapack_complex_float* x, lapack_int incx, - lapack_complex_float* tau ); -lapack_int LAPACKE_zlarfg( lapack_int n, lapack_complex_double* alpha, - lapack_complex_double* x, lapack_int incx, - lapack_complex_double* tau ); - -lapack_int LAPACKE_slarft( int matrix_layout, char direct, char storev, - lapack_int n, lapack_int k, const float* v, - lapack_int ldv, const float* tau, float* t, - lapack_int ldt ); -lapack_int LAPACKE_dlarft( int matrix_layout, char direct, char storev, - lapack_int n, lapack_int k, const double* v, - lapack_int ldv, const double* tau, double* t, - lapack_int ldt ); -lapack_int LAPACKE_clarft( int matrix_layout, char direct, char storev, - lapack_int n, lapack_int k, - const lapack_complex_float* v, lapack_int ldv, - const lapack_complex_float* tau, - lapack_complex_float* t, lapack_int ldt ); -lapack_int LAPACKE_zlarft( int matrix_layout, char direct, char storev, - lapack_int n, lapack_int k, - const lapack_complex_double* v, lapack_int ldv, - const lapack_complex_double* tau, - lapack_complex_double* t, lapack_int ldt ); - -lapack_int LAPACKE_slarfx( int matrix_layout, char side, lapack_int m, - lapack_int n, const float* v, float tau, float* c, - lapack_int ldc, float* work ); -lapack_int LAPACKE_dlarfx( int matrix_layout, char side, lapack_int m, - lapack_int n, const double* v, double tau, double* c, - lapack_int ldc, double* work ); -lapack_int LAPACKE_clarfx( int matrix_layout, char side, lapack_int m, - lapack_int n, const lapack_complex_float* v, - lapack_complex_float tau, lapack_complex_float* c, - lapack_int ldc, lapack_complex_float* work ); -lapack_int LAPACKE_zlarfx( int matrix_layout, char side, lapack_int m, - lapack_int n, const lapack_complex_double* v, - lapack_complex_double tau, lapack_complex_double* c, - lapack_int ldc, lapack_complex_double* work ); - -lapack_int LAPACKE_slarnv( lapack_int idist, lapack_int* iseed, lapack_int n, - float* x ); -lapack_int LAPACKE_dlarnv( lapack_int idist, lapack_int* iseed, lapack_int n, - double* x ); -lapack_int LAPACKE_clarnv( lapack_int idist, lapack_int* iseed, lapack_int n, - lapack_complex_float* x ); -lapack_int LAPACKE_zlarnv( lapack_int idist, lapack_int* iseed, lapack_int n, - lapack_complex_double* x ); - -lapack_int LAPACKE_slascl( int matrix_layout, char type, lapack_int kl, - lapack_int ku, float cfrom, float cto, - lapack_int m, lapack_int n, float* a, - lapack_int lda ); -lapack_int LAPACKE_dlascl( int matrix_layout, char type, lapack_int kl, - lapack_int ku, double cfrom, double cto, - lapack_int m, lapack_int n, double* a, - lapack_int lda ); -lapack_int LAPACKE_clascl( int matrix_layout, char type, lapack_int kl, - lapack_int ku, float cfrom, float cto, - lapack_int m, lapack_int n, lapack_complex_float* a, - lapack_int lda ); -lapack_int LAPACKE_zlascl( int matrix_layout, char type, lapack_int kl, - lapack_int ku, double cfrom, double cto, - lapack_int m, lapack_int n, lapack_complex_double* a, - lapack_int lda ); - -lapack_int LAPACKE_slaset( int matrix_layout, char uplo, lapack_int m, - lapack_int n, float alpha, float beta, float* a, - lapack_int lda ); -lapack_int LAPACKE_dlaset( int matrix_layout, char uplo, lapack_int m, - lapack_int n, double alpha, double beta, double* a, - lapack_int lda ); -lapack_int LAPACKE_claset( int matrix_layout, char uplo, lapack_int m, - lapack_int n, lapack_complex_float alpha, - lapack_complex_float beta, lapack_complex_float* a, - lapack_int lda ); -lapack_int LAPACKE_zlaset( int matrix_layout, char uplo, lapack_int m, - lapack_int n, lapack_complex_double alpha, - lapack_complex_double beta, lapack_complex_double* a, - lapack_int lda ); - -lapack_int LAPACKE_slasrt( char id, lapack_int n, float* d ); -lapack_int LAPACKE_dlasrt( char id, lapack_int n, double* d ); - -lapack_int LAPACKE_slassq( lapack_int n, float* x, lapack_int incx, float* scale, float* sumsq ); -lapack_int LAPACKE_dlassq( lapack_int n, double* x, lapack_int incx, double* scale, double* sumsq ); -lapack_int LAPACKE_classq( lapack_int n, lapack_complex_float* x, lapack_int incx, float* scale, float* sumsq ); -lapack_int LAPACKE_zlassq( lapack_int n, lapack_complex_double* x, lapack_int incx, double* scale, double* sumsq ); - -lapack_int LAPACKE_slaswp( int matrix_layout, lapack_int n, float* a, - lapack_int lda, lapack_int k1, lapack_int k2, - const lapack_int* ipiv, lapack_int incx ); -lapack_int LAPACKE_dlaswp( int matrix_layout, lapack_int n, double* a, - lapack_int lda, lapack_int k1, lapack_int k2, - const lapack_int* ipiv, lapack_int incx ); -lapack_int LAPACKE_claswp( int matrix_layout, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int k1, lapack_int k2, const lapack_int* ipiv, - lapack_int incx ); -lapack_int LAPACKE_zlaswp( int matrix_layout, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int k1, lapack_int k2, const lapack_int* ipiv, - lapack_int incx ); - -lapack_int LAPACKE_slatms( int matrix_layout, lapack_int m, lapack_int n, - char dist, lapack_int* iseed, char sym, float* d, - lapack_int mode, float cond, float dmax, - lapack_int kl, lapack_int ku, char pack, float* a, - lapack_int lda ); -lapack_int LAPACKE_dlatms( int matrix_layout, lapack_int m, lapack_int n, - char dist, lapack_int* iseed, char sym, double* d, - lapack_int mode, double cond, double dmax, - lapack_int kl, lapack_int ku, char pack, double* a, - lapack_int lda ); -lapack_int LAPACKE_clatms( int matrix_layout, lapack_int m, lapack_int n, - char dist, lapack_int* iseed, char sym, float* d, - lapack_int mode, float cond, float dmax, - lapack_int kl, lapack_int ku, char pack, - lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_zlatms( int matrix_layout, lapack_int m, lapack_int n, - char dist, lapack_int* iseed, char sym, double* d, - lapack_int mode, double cond, double dmax, - lapack_int kl, lapack_int ku, char pack, - lapack_complex_double* a, lapack_int lda ); - -lapack_int LAPACKE_slauum( int matrix_layout, char uplo, lapack_int n, float* a, - lapack_int lda ); -lapack_int LAPACKE_dlauum( int matrix_layout, char uplo, lapack_int n, double* a, - lapack_int lda ); -lapack_int LAPACKE_clauum( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_zlauum( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda ); - -lapack_int LAPACKE_sopgtr( int matrix_layout, char uplo, lapack_int n, - const float* ap, const float* tau, float* q, - lapack_int ldq ); -lapack_int LAPACKE_dopgtr( int matrix_layout, char uplo, lapack_int n, - const double* ap, const double* tau, double* q, - lapack_int ldq ); - -lapack_int LAPACKE_sopmtr( int matrix_layout, char side, char uplo, char trans, - lapack_int m, lapack_int n, const float* ap, - const float* tau, float* c, lapack_int ldc ); -lapack_int LAPACKE_dopmtr( int matrix_layout, char side, char uplo, char trans, - lapack_int m, lapack_int n, const double* ap, - const double* tau, double* c, lapack_int ldc ); - -lapack_int LAPACKE_sorgbr( int matrix_layout, char vect, lapack_int m, - lapack_int n, lapack_int k, float* a, lapack_int lda, - const float* tau ); -lapack_int LAPACKE_dorgbr( int matrix_layout, char vect, lapack_int m, - lapack_int n, lapack_int k, double* a, - lapack_int lda, const double* tau ); - -lapack_int LAPACKE_sorghr( int matrix_layout, lapack_int n, lapack_int ilo, - lapack_int ihi, float* a, lapack_int lda, - const float* tau ); -lapack_int LAPACKE_dorghr( int matrix_layout, lapack_int n, lapack_int ilo, - lapack_int ihi, double* a, lapack_int lda, - const double* tau ); - -lapack_int LAPACKE_sorglq( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, float* a, lapack_int lda, - const float* tau ); -lapack_int LAPACKE_dorglq( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, double* a, lapack_int lda, - const double* tau ); - -lapack_int LAPACKE_sorgql( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, float* a, lapack_int lda, - const float* tau ); -lapack_int LAPACKE_dorgql( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, double* a, lapack_int lda, - const double* tau ); - -lapack_int LAPACKE_sorgqr( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, float* a, lapack_int lda, - const float* tau ); -lapack_int LAPACKE_dorgqr( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, double* a, lapack_int lda, - const double* tau ); - -lapack_int LAPACKE_sorgrq( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, float* a, lapack_int lda, - const float* tau ); -lapack_int LAPACKE_dorgrq( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, double* a, lapack_int lda, - const double* tau ); - -lapack_int LAPACKE_sorgtr( int matrix_layout, char uplo, lapack_int n, float* a, - lapack_int lda, const float* tau ); -lapack_int LAPACKE_dorgtr( int matrix_layout, char uplo, lapack_int n, double* a, - lapack_int lda, const double* tau ); - -lapack_int LAPACKE_sorgtsqr_row( int matrix_layout, lapack_int m, lapack_int n, - lapack_int mb, lapack_int nb, - float* a, lapack_int lda, - const float* t, lapack_int ldt ); -lapack_int LAPACKE_dorgtsqr_row( int matrix_layout, lapack_int m, lapack_int n, - lapack_int mb, lapack_int nb, - double* a, lapack_int lda, - const double* t, lapack_int ldt ); - -lapack_int LAPACKE_sormbr( int matrix_layout, char vect, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const float* a, lapack_int lda, const float* tau, - float* c, lapack_int ldc ); -lapack_int LAPACKE_dormbr( int matrix_layout, char vect, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const double* a, lapack_int lda, const double* tau, - double* c, lapack_int ldc ); - -lapack_int LAPACKE_sormhr( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int ilo, - lapack_int ihi, const float* a, lapack_int lda, - const float* tau, float* c, lapack_int ldc ); -lapack_int LAPACKE_dormhr( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int ilo, - lapack_int ihi, const double* a, lapack_int lda, - const double* tau, double* c, lapack_int ldc ); - -lapack_int LAPACKE_sormlq( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const float* a, lapack_int lda, const float* tau, - float* c, lapack_int ldc ); -lapack_int LAPACKE_dormlq( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const double* a, lapack_int lda, const double* tau, - double* c, lapack_int ldc ); - -lapack_int LAPACKE_sormql( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const float* a, lapack_int lda, const float* tau, - float* c, lapack_int ldc ); -lapack_int LAPACKE_dormql( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const double* a, lapack_int lda, const double* tau, - double* c, lapack_int ldc ); - -lapack_int LAPACKE_sormqr( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const float* a, lapack_int lda, const float* tau, - float* c, lapack_int ldc ); -lapack_int LAPACKE_dormqr( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const double* a, lapack_int lda, const double* tau, - double* c, lapack_int ldc ); - -lapack_int LAPACKE_sormrq( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const float* a, lapack_int lda, const float* tau, - float* c, lapack_int ldc ); -lapack_int LAPACKE_dormrq( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const double* a, lapack_int lda, const double* tau, - double* c, lapack_int ldc ); - -lapack_int LAPACKE_sormrz( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int l, const float* a, lapack_int lda, - const float* tau, float* c, lapack_int ldc ); -lapack_int LAPACKE_dormrz( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int l, const double* a, lapack_int lda, - const double* tau, double* c, lapack_int ldc ); - -lapack_int LAPACKE_sormtr( int matrix_layout, char side, char uplo, char trans, - lapack_int m, lapack_int n, const float* a, - lapack_int lda, const float* tau, float* c, - lapack_int ldc ); -lapack_int LAPACKE_dormtr( int matrix_layout, char side, char uplo, char trans, - lapack_int m, lapack_int n, const double* a, - lapack_int lda, const double* tau, double* c, - lapack_int ldc ); - -lapack_int LAPACKE_spbcon( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, const float* ab, lapack_int ldab, - float anorm, float* rcond ); -lapack_int LAPACKE_dpbcon( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, const double* ab, lapack_int ldab, - double anorm, double* rcond ); -lapack_int LAPACKE_cpbcon( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, const lapack_complex_float* ab, - lapack_int ldab, float anorm, float* rcond ); -lapack_int LAPACKE_zpbcon( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, const lapack_complex_double* ab, - lapack_int ldab, double anorm, double* rcond ); - -lapack_int LAPACKE_spbequ( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, const float* ab, lapack_int ldab, - float* s, float* scond, float* amax ); -lapack_int LAPACKE_dpbequ( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, const double* ab, lapack_int ldab, - double* s, double* scond, double* amax ); -lapack_int LAPACKE_cpbequ( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, const lapack_complex_float* ab, - lapack_int ldab, float* s, float* scond, - float* amax ); -lapack_int LAPACKE_zpbequ( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, const lapack_complex_double* ab, - lapack_int ldab, double* s, double* scond, - double* amax ); - -lapack_int LAPACKE_spbrfs( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, const float* ab, - lapack_int ldab, const float* afb, lapack_int ldafb, - const float* b, lapack_int ldb, float* x, - lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_dpbrfs( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, const double* ab, - lapack_int ldab, const double* afb, lapack_int ldafb, - const double* b, lapack_int ldb, double* x, - lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_cpbrfs( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, - const lapack_complex_float* ab, lapack_int ldab, - const lapack_complex_float* afb, lapack_int ldafb, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, float* ferr, - float* berr ); -lapack_int LAPACKE_zpbrfs( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, - const lapack_complex_double* ab, lapack_int ldab, - const lapack_complex_double* afb, lapack_int ldafb, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr ); - -lapack_int LAPACKE_spbstf( int matrix_layout, char uplo, lapack_int n, - lapack_int kb, float* bb, lapack_int ldbb ); -lapack_int LAPACKE_dpbstf( int matrix_layout, char uplo, lapack_int n, - lapack_int kb, double* bb, lapack_int ldbb ); -lapack_int LAPACKE_cpbstf( int matrix_layout, char uplo, lapack_int n, - lapack_int kb, lapack_complex_float* bb, - lapack_int ldbb ); -lapack_int LAPACKE_zpbstf( int matrix_layout, char uplo, lapack_int n, - lapack_int kb, lapack_complex_double* bb, - lapack_int ldbb ); - -lapack_int LAPACKE_spbsv( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, float* ab, - lapack_int ldab, float* b, lapack_int ldb ); -lapack_int LAPACKE_dpbsv( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, double* ab, - lapack_int ldab, double* b, lapack_int ldb ); -lapack_int LAPACKE_cpbsv( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, - lapack_complex_float* ab, lapack_int ldab, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zpbsv( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, - lapack_complex_double* ab, lapack_int ldab, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_spbsvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, float* ab, - lapack_int ldab, float* afb, lapack_int ldafb, - char* equed, float* s, float* b, lapack_int ldb, - float* x, lapack_int ldx, float* rcond, float* ferr, - float* berr ); -lapack_int LAPACKE_dpbsvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, double* ab, - lapack_int ldab, double* afb, lapack_int ldafb, - char* equed, double* s, double* b, lapack_int ldb, - double* x, lapack_int ldx, double* rcond, - double* ferr, double* berr ); -lapack_int LAPACKE_cpbsvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, - lapack_complex_float* ab, lapack_int ldab, - lapack_complex_float* afb, lapack_int ldafb, - char* equed, float* s, lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* x, - lapack_int ldx, float* rcond, float* ferr, - float* berr ); -lapack_int LAPACKE_zpbsvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, - lapack_complex_double* ab, lapack_int ldab, - lapack_complex_double* afb, lapack_int ldafb, - char* equed, double* s, lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* x, - lapack_int ldx, double* rcond, double* ferr, - double* berr ); - -lapack_int LAPACKE_spbtrf( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, float* ab, lapack_int ldab ); -lapack_int LAPACKE_dpbtrf( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, double* ab, lapack_int ldab ); -lapack_int LAPACKE_cpbtrf( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_complex_float* ab, - lapack_int ldab ); -lapack_int LAPACKE_zpbtrf( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_complex_double* ab, - lapack_int ldab ); - -lapack_int LAPACKE_spbtrs( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, const float* ab, - lapack_int ldab, float* b, lapack_int ldb ); -lapack_int LAPACKE_dpbtrs( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, const double* ab, - lapack_int ldab, double* b, lapack_int ldb ); -lapack_int LAPACKE_cpbtrs( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, - const lapack_complex_float* ab, lapack_int ldab, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zpbtrs( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, - const lapack_complex_double* ab, lapack_int ldab, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_spftrf( int matrix_layout, char transr, char uplo, - lapack_int n, float* a ); -lapack_int LAPACKE_dpftrf( int matrix_layout, char transr, char uplo, - lapack_int n, double* a ); -lapack_int LAPACKE_cpftrf( int matrix_layout, char transr, char uplo, - lapack_int n, lapack_complex_float* a ); -lapack_int LAPACKE_zpftrf( int matrix_layout, char transr, char uplo, - lapack_int n, lapack_complex_double* a ); - -lapack_int LAPACKE_spftri( int matrix_layout, char transr, char uplo, - lapack_int n, float* a ); -lapack_int LAPACKE_dpftri( int matrix_layout, char transr, char uplo, - lapack_int n, double* a ); -lapack_int LAPACKE_cpftri( int matrix_layout, char transr, char uplo, - lapack_int n, lapack_complex_float* a ); -lapack_int LAPACKE_zpftri( int matrix_layout, char transr, char uplo, - lapack_int n, lapack_complex_double* a ); - -lapack_int LAPACKE_spftrs( int matrix_layout, char transr, char uplo, - lapack_int n, lapack_int nrhs, const float* a, - float* b, lapack_int ldb ); -lapack_int LAPACKE_dpftrs( int matrix_layout, char transr, char uplo, - lapack_int n, lapack_int nrhs, const double* a, - double* b, lapack_int ldb ); -lapack_int LAPACKE_cpftrs( int matrix_layout, char transr, char uplo, - lapack_int n, lapack_int nrhs, - const lapack_complex_float* a, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zpftrs( int matrix_layout, char transr, char uplo, - lapack_int n, lapack_int nrhs, - const lapack_complex_double* a, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_spocon( int matrix_layout, char uplo, lapack_int n, - const float* a, lapack_int lda, float anorm, - float* rcond ); -lapack_int LAPACKE_dpocon( int matrix_layout, char uplo, lapack_int n, - const double* a, lapack_int lda, double anorm, - double* rcond ); -lapack_int LAPACKE_cpocon( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - float anorm, float* rcond ); -lapack_int LAPACKE_zpocon( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - double anorm, double* rcond ); - -lapack_int LAPACKE_spoequ( int matrix_layout, lapack_int n, const float* a, - lapack_int lda, float* s, float* scond, - float* amax ); -lapack_int LAPACKE_dpoequ( int matrix_layout, lapack_int n, const double* a, - lapack_int lda, double* s, double* scond, - double* amax ); -lapack_int LAPACKE_cpoequ( int matrix_layout, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - float* s, float* scond, float* amax ); -lapack_int LAPACKE_zpoequ( int matrix_layout, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - double* s, double* scond, double* amax ); - -lapack_int LAPACKE_spoequb( int matrix_layout, lapack_int n, const float* a, - lapack_int lda, float* s, float* scond, - float* amax ); -lapack_int LAPACKE_dpoequb( int matrix_layout, lapack_int n, const double* a, - lapack_int lda, double* s, double* scond, - double* amax ); -lapack_int LAPACKE_cpoequb( int matrix_layout, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - float* s, float* scond, float* amax ); -lapack_int LAPACKE_zpoequb( int matrix_layout, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - double* s, double* scond, double* amax ); - -lapack_int LAPACKE_sporfs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* a, lapack_int lda, - const float* af, lapack_int ldaf, const float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* ferr, float* berr ); -lapack_int LAPACKE_dporfs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* a, lapack_int lda, - const double* af, lapack_int ldaf, const double* b, - lapack_int ldb, double* x, lapack_int ldx, - double* ferr, double* berr ); -lapack_int LAPACKE_cporfs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* af, - lapack_int ldaf, const lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* x, - lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_zporfs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_complex_double* af, - lapack_int ldaf, const lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* x, - lapack_int ldx, double* ferr, double* berr ); - -lapack_int LAPACKE_sporfsx( int matrix_layout, char uplo, char equed, - lapack_int n, lapack_int nrhs, const float* a, - lapack_int lda, const float* af, lapack_int ldaf, - const float* s, const float* b, lapack_int ldb, - float* x, lapack_int ldx, float* rcond, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params ); -lapack_int LAPACKE_dporfsx( int matrix_layout, char uplo, char equed, - lapack_int n, lapack_int nrhs, const double* a, - lapack_int lda, const double* af, lapack_int ldaf, - const double* s, const double* b, lapack_int ldb, - double* x, lapack_int ldx, double* rcond, - double* berr, lapack_int n_err_bnds, - double* err_bnds_norm, double* err_bnds_comp, - lapack_int nparams, double* params ); -lapack_int LAPACKE_cporfsx( int matrix_layout, char uplo, char equed, - lapack_int n, lapack_int nrhs, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* af, lapack_int ldaf, - const float* s, const lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* x, - lapack_int ldx, float* rcond, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params ); -lapack_int LAPACKE_zporfsx( int matrix_layout, char uplo, char equed, - lapack_int n, lapack_int nrhs, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* af, lapack_int ldaf, - const double* s, const lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* x, - lapack_int ldx, double* rcond, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params ); - -lapack_int LAPACKE_sposv( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, float* b, - lapack_int ldb ); -lapack_int LAPACKE_dposv( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, double* b, - lapack_int ldb ); -lapack_int LAPACKE_cposv( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zposv( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb ); -lapack_int LAPACKE_dsposv( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - double* b, lapack_int ldb, double* x, lapack_int ldx, - lapack_int* iter ); -lapack_int LAPACKE_zcposv( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* x, - lapack_int ldx, lapack_int* iter ); - -lapack_int LAPACKE_sposvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, float* af, - lapack_int ldaf, char* equed, float* s, float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_dposvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - double* af, lapack_int ldaf, char* equed, double* s, - double* b, lapack_int ldb, double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr ); -lapack_int LAPACKE_cposvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* af, - lapack_int ldaf, char* equed, float* s, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_zposvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* af, - lapack_int ldaf, char* equed, double* s, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr ); - -lapack_int LAPACKE_sposvxx( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, float* a, - lapack_int lda, float* af, lapack_int ldaf, - char* equed, float* s, float* b, lapack_int ldb, - float* x, lapack_int ldx, float* rcond, - float* rpvgrw, float* berr, lapack_int n_err_bnds, - float* err_bnds_norm, float* err_bnds_comp, - lapack_int nparams, float* params ); -lapack_int LAPACKE_dposvxx( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, double* a, - lapack_int lda, double* af, lapack_int ldaf, - char* equed, double* s, double* b, lapack_int ldb, - double* x, lapack_int ldx, double* rcond, - double* rpvgrw, double* berr, lapack_int n_err_bnds, - double* err_bnds_norm, double* err_bnds_comp, - lapack_int nparams, double* params ); -lapack_int LAPACKE_cposvxx( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* af, lapack_int ldaf, - char* equed, float* s, lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* x, - lapack_int ldx, float* rcond, float* rpvgrw, - float* berr, lapack_int n_err_bnds, - float* err_bnds_norm, float* err_bnds_comp, - lapack_int nparams, float* params ); -lapack_int LAPACKE_zposvxx( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* af, lapack_int ldaf, - char* equed, double* s, lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* x, - lapack_int ldx, double* rcond, double* rpvgrw, - double* berr, lapack_int n_err_bnds, - double* err_bnds_norm, double* err_bnds_comp, - lapack_int nparams, double* params ); - -lapack_int LAPACKE_spotrf2( int matrix_layout, char uplo, lapack_int n, float* a, - lapack_int lda ); -lapack_int LAPACKE_dpotrf2( int matrix_layout, char uplo, lapack_int n, double* a, - lapack_int lda ); -lapack_int LAPACKE_cpotrf2( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_zpotrf2( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda ); - -lapack_int LAPACKE_spotrf( int matrix_layout, char uplo, lapack_int n, float* a, - lapack_int lda ); -lapack_int LAPACKE_dpotrf( int matrix_layout, char uplo, lapack_int n, double* a, - lapack_int lda ); -lapack_int LAPACKE_cpotrf( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_zpotrf( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda ); - -lapack_int LAPACKE_spotri( int matrix_layout, char uplo, lapack_int n, float* a, - lapack_int lda ); -lapack_int LAPACKE_dpotri( int matrix_layout, char uplo, lapack_int n, double* a, - lapack_int lda ); -lapack_int LAPACKE_cpotri( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_zpotri( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda ); - -lapack_int LAPACKE_spotrs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* a, lapack_int lda, - float* b, lapack_int ldb ); -lapack_int LAPACKE_dpotrs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* a, lapack_int lda, - double* b, lapack_int ldb ); -lapack_int LAPACKE_cpotrs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zpotrs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb ); - -lapack_int LAPACKE_sppcon( int matrix_layout, char uplo, lapack_int n, - const float* ap, float anorm, float* rcond ); -lapack_int LAPACKE_dppcon( int matrix_layout, char uplo, lapack_int n, - const double* ap, double anorm, double* rcond ); -lapack_int LAPACKE_cppcon( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* ap, float anorm, - float* rcond ); -lapack_int LAPACKE_zppcon( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* ap, double anorm, - double* rcond ); - -lapack_int LAPACKE_sppequ( int matrix_layout, char uplo, lapack_int n, - const float* ap, float* s, float* scond, - float* amax ); -lapack_int LAPACKE_dppequ( int matrix_layout, char uplo, lapack_int n, - const double* ap, double* s, double* scond, - double* amax ); -lapack_int LAPACKE_cppequ( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* ap, float* s, - float* scond, float* amax ); -lapack_int LAPACKE_zppequ( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* ap, double* s, - double* scond, double* amax ); - -lapack_int LAPACKE_spprfs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* ap, const float* afp, - const float* b, lapack_int ldb, float* x, - lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_dpprfs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* ap, const double* afp, - const double* b, lapack_int ldb, double* x, - lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_cpprfs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* ap, - const lapack_complex_float* afp, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, float* ferr, - float* berr ); -lapack_int LAPACKE_zpprfs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* ap, - const lapack_complex_double* afp, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr ); - -lapack_int LAPACKE_sppsv( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* ap, float* b, - lapack_int ldb ); -lapack_int LAPACKE_dppsv( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* ap, double* b, - lapack_int ldb ); -lapack_int LAPACKE_cppsv( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* ap, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zppsv( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* ap, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_sppsvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int nrhs, float* ap, float* afp, char* equed, - float* s, float* b, lapack_int ldb, float* x, - lapack_int ldx, float* rcond, float* ferr, - float* berr ); -lapack_int LAPACKE_dppsvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int nrhs, double* ap, double* afp, - char* equed, double* s, double* b, lapack_int ldb, - double* x, lapack_int ldx, double* rcond, - double* ferr, double* berr ); -lapack_int LAPACKE_cppsvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* ap, - lapack_complex_float* afp, char* equed, float* s, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_zppsvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* ap, - lapack_complex_double* afp, char* equed, double* s, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr ); - -lapack_int LAPACKE_spptrf( int matrix_layout, char uplo, lapack_int n, - float* ap ); -lapack_int LAPACKE_dpptrf( int matrix_layout, char uplo, lapack_int n, - double* ap ); -lapack_int LAPACKE_cpptrf( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* ap ); -lapack_int LAPACKE_zpptrf( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* ap ); - -lapack_int LAPACKE_spptri( int matrix_layout, char uplo, lapack_int n, - float* ap ); -lapack_int LAPACKE_dpptri( int matrix_layout, char uplo, lapack_int n, - double* ap ); -lapack_int LAPACKE_cpptri( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* ap ); -lapack_int LAPACKE_zpptri( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* ap ); - -lapack_int LAPACKE_spptrs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* ap, float* b, - lapack_int ldb ); -lapack_int LAPACKE_dpptrs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* ap, double* b, - lapack_int ldb ); -lapack_int LAPACKE_cpptrs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* ap, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zpptrs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* ap, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_spstrf( int matrix_layout, char uplo, lapack_int n, float* a, - lapack_int lda, lapack_int* piv, lapack_int* rank, - float tol ); -lapack_int LAPACKE_dpstrf( int matrix_layout, char uplo, lapack_int n, double* a, - lapack_int lda, lapack_int* piv, lapack_int* rank, - double tol ); -lapack_int LAPACKE_cpstrf( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* piv, lapack_int* rank, float tol ); -lapack_int LAPACKE_zpstrf( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* piv, lapack_int* rank, double tol ); - -lapack_int LAPACKE_sptcon( lapack_int n, const float* d, const float* e, - float anorm, float* rcond ); -lapack_int LAPACKE_dptcon( lapack_int n, const double* d, const double* e, - double anorm, double* rcond ); -lapack_int LAPACKE_cptcon( lapack_int n, const float* d, - const lapack_complex_float* e, float anorm, - float* rcond ); -lapack_int LAPACKE_zptcon( lapack_int n, const double* d, - const lapack_complex_double* e, double anorm, - double* rcond ); - -lapack_int LAPACKE_spteqr( int matrix_layout, char compz, lapack_int n, float* d, - float* e, float* z, lapack_int ldz ); -lapack_int LAPACKE_dpteqr( int matrix_layout, char compz, lapack_int n, - double* d, double* e, double* z, lapack_int ldz ); -lapack_int LAPACKE_cpteqr( int matrix_layout, char compz, lapack_int n, float* d, - float* e, lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zpteqr( int matrix_layout, char compz, lapack_int n, - double* d, double* e, lapack_complex_double* z, - lapack_int ldz ); - -lapack_int LAPACKE_sptrfs( int matrix_layout, lapack_int n, lapack_int nrhs, - const float* d, const float* e, const float* df, - const float* ef, const float* b, lapack_int ldb, - float* x, lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_dptrfs( int matrix_layout, lapack_int n, lapack_int nrhs, - const double* d, const double* e, const double* df, - const double* ef, const double* b, lapack_int ldb, - double* x, lapack_int ldx, double* ferr, - double* berr ); -lapack_int LAPACKE_cptrfs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* d, - const lapack_complex_float* e, const float* df, - const lapack_complex_float* ef, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, float* ferr, - float* berr ); -lapack_int LAPACKE_zptrfs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* d, - const lapack_complex_double* e, const double* df, - const lapack_complex_double* ef, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr ); - -lapack_int LAPACKE_sptsv( int matrix_layout, lapack_int n, lapack_int nrhs, - float* d, float* e, float* b, lapack_int ldb ); -lapack_int LAPACKE_dptsv( int matrix_layout, lapack_int n, lapack_int nrhs, - double* d, double* e, double* b, lapack_int ldb ); -lapack_int LAPACKE_cptsv( int matrix_layout, lapack_int n, lapack_int nrhs, - float* d, lapack_complex_float* e, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zptsv( int matrix_layout, lapack_int n, lapack_int nrhs, - double* d, lapack_complex_double* e, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_sptsvx( int matrix_layout, char fact, lapack_int n, - lapack_int nrhs, const float* d, const float* e, - float* df, float* ef, const float* b, lapack_int ldb, - float* x, lapack_int ldx, float* rcond, float* ferr, - float* berr ); -lapack_int LAPACKE_dptsvx( int matrix_layout, char fact, lapack_int n, - lapack_int nrhs, const double* d, const double* e, - double* df, double* ef, const double* b, - lapack_int ldb, double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr ); -lapack_int LAPACKE_cptsvx( int matrix_layout, char fact, lapack_int n, - lapack_int nrhs, const float* d, - const lapack_complex_float* e, float* df, - lapack_complex_float* ef, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_zptsvx( int matrix_layout, char fact, lapack_int n, - lapack_int nrhs, const double* d, - const lapack_complex_double* e, double* df, - lapack_complex_double* ef, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr ); - -lapack_int LAPACKE_spttrf( lapack_int n, float* d, float* e ); -lapack_int LAPACKE_dpttrf( lapack_int n, double* d, double* e ); -lapack_int LAPACKE_cpttrf( lapack_int n, float* d, lapack_complex_float* e ); -lapack_int LAPACKE_zpttrf( lapack_int n, double* d, lapack_complex_double* e ); - -lapack_int LAPACKE_spttrs( int matrix_layout, lapack_int n, lapack_int nrhs, - const float* d, const float* e, float* b, - lapack_int ldb ); -lapack_int LAPACKE_dpttrs( int matrix_layout, lapack_int n, lapack_int nrhs, - const double* d, const double* e, double* b, - lapack_int ldb ); -lapack_int LAPACKE_cpttrs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* d, - const lapack_complex_float* e, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zpttrs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* d, - const lapack_complex_double* e, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_ssbev( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int kd, float* ab, lapack_int ldab, float* w, - float* z, lapack_int ldz ); -lapack_int LAPACKE_dsbev( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int kd, double* ab, lapack_int ldab, double* w, - double* z, lapack_int ldz ); - -lapack_int LAPACKE_ssbevd( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int kd, float* ab, lapack_int ldab, float* w, - float* z, lapack_int ldz ); -lapack_int LAPACKE_dsbevd( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int kd, double* ab, lapack_int ldab, - double* w, double* z, lapack_int ldz ); - -lapack_int LAPACKE_ssbevx( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, lapack_int kd, float* ab, - lapack_int ldab, float* q, lapack_int ldq, float vl, - float vu, lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, float* z, lapack_int ldz, - lapack_int* ifail ); -lapack_int LAPACKE_dsbevx( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, lapack_int kd, double* ab, - lapack_int ldab, double* q, lapack_int ldq, - double vl, double vu, lapack_int il, lapack_int iu, - double abstol, lapack_int* m, double* w, double* z, - lapack_int ldz, lapack_int* ifail ); - -lapack_int LAPACKE_ssbgst( int matrix_layout, char vect, char uplo, lapack_int n, - lapack_int ka, lapack_int kb, float* ab, - lapack_int ldab, const float* bb, lapack_int ldbb, - float* x, lapack_int ldx ); -lapack_int LAPACKE_dsbgst( int matrix_layout, char vect, char uplo, lapack_int n, - lapack_int ka, lapack_int kb, double* ab, - lapack_int ldab, const double* bb, lapack_int ldbb, - double* x, lapack_int ldx ); - -lapack_int LAPACKE_ssbgv( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int ka, lapack_int kb, float* ab, - lapack_int ldab, float* bb, lapack_int ldbb, float* w, - float* z, lapack_int ldz ); -lapack_int LAPACKE_dsbgv( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int ka, lapack_int kb, double* ab, - lapack_int ldab, double* bb, lapack_int ldbb, - double* w, double* z, lapack_int ldz ); - -lapack_int LAPACKE_ssbgvd( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int ka, lapack_int kb, float* ab, - lapack_int ldab, float* bb, lapack_int ldbb, - float* w, float* z, lapack_int ldz ); -lapack_int LAPACKE_dsbgvd( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int ka, lapack_int kb, double* ab, - lapack_int ldab, double* bb, lapack_int ldbb, - double* w, double* z, lapack_int ldz ); - -lapack_int LAPACKE_ssbgvx( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, lapack_int ka, lapack_int kb, - float* ab, lapack_int ldab, float* bb, - lapack_int ldbb, float* q, lapack_int ldq, float vl, - float vu, lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, float* z, lapack_int ldz, - lapack_int* ifail ); -lapack_int LAPACKE_dsbgvx( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, lapack_int ka, lapack_int kb, - double* ab, lapack_int ldab, double* bb, - lapack_int ldbb, double* q, lapack_int ldq, - double vl, double vu, lapack_int il, lapack_int iu, - double abstol, lapack_int* m, double* w, double* z, - lapack_int ldz, lapack_int* ifail ); - -lapack_int LAPACKE_ssbtrd( int matrix_layout, char vect, char uplo, lapack_int n, - lapack_int kd, float* ab, lapack_int ldab, float* d, - float* e, float* q, lapack_int ldq ); -lapack_int LAPACKE_dsbtrd( int matrix_layout, char vect, char uplo, lapack_int n, - lapack_int kd, double* ab, lapack_int ldab, - double* d, double* e, double* q, lapack_int ldq ); - -lapack_int LAPACKE_ssfrk( int matrix_layout, char transr, char uplo, char trans, - lapack_int n, lapack_int k, float alpha, - const float* a, lapack_int lda, float beta, - float* c ); -lapack_int LAPACKE_dsfrk( int matrix_layout, char transr, char uplo, char trans, - lapack_int n, lapack_int k, double alpha, - const double* a, lapack_int lda, double beta, - double* c ); - -lapack_int LAPACKE_sspcon( int matrix_layout, char uplo, lapack_int n, - const float* ap, const lapack_int* ipiv, float anorm, - float* rcond ); -lapack_int LAPACKE_dspcon( int matrix_layout, char uplo, lapack_int n, - const double* ap, const lapack_int* ipiv, - double anorm, double* rcond ); -lapack_int LAPACKE_cspcon( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* ap, - const lapack_int* ipiv, float anorm, float* rcond ); -lapack_int LAPACKE_zspcon( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* ap, - const lapack_int* ipiv, double anorm, - double* rcond ); - -lapack_int LAPACKE_sspev( int matrix_layout, char jobz, char uplo, lapack_int n, - float* ap, float* w, float* z, lapack_int ldz ); -lapack_int LAPACKE_dspev( int matrix_layout, char jobz, char uplo, lapack_int n, - double* ap, double* w, double* z, lapack_int ldz ); - -lapack_int LAPACKE_sspevd( int matrix_layout, char jobz, char uplo, lapack_int n, - float* ap, float* w, float* z, lapack_int ldz ); -lapack_int LAPACKE_dspevd( int matrix_layout, char jobz, char uplo, lapack_int n, - double* ap, double* w, double* z, lapack_int ldz ); - -lapack_int LAPACKE_sspevx( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, float* ap, float vl, float vu, - lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, float* z, lapack_int ldz, - lapack_int* ifail ); -lapack_int LAPACKE_dspevx( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, double* ap, double vl, double vu, - lapack_int il, lapack_int iu, double abstol, - lapack_int* m, double* w, double* z, lapack_int ldz, - lapack_int* ifail ); - -lapack_int LAPACKE_sspgst( int matrix_layout, lapack_int itype, char uplo, - lapack_int n, float* ap, const float* bp ); -lapack_int LAPACKE_dspgst( int matrix_layout, lapack_int itype, char uplo, - lapack_int n, double* ap, const double* bp ); - -lapack_int LAPACKE_sspgv( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, float* ap, float* bp, - float* w, float* z, lapack_int ldz ); -lapack_int LAPACKE_dspgv( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, double* ap, double* bp, - double* w, double* z, lapack_int ldz ); - -lapack_int LAPACKE_sspgvd( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, float* ap, float* bp, - float* w, float* z, lapack_int ldz ); -lapack_int LAPACKE_dspgvd( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, double* ap, double* bp, - double* w, double* z, lapack_int ldz ); - -lapack_int LAPACKE_sspgvx( int matrix_layout, lapack_int itype, char jobz, - char range, char uplo, lapack_int n, float* ap, - float* bp, float vl, float vu, lapack_int il, - lapack_int iu, float abstol, lapack_int* m, float* w, - float* z, lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_dspgvx( int matrix_layout, lapack_int itype, char jobz, - char range, char uplo, lapack_int n, double* ap, - double* bp, double vl, double vu, lapack_int il, - lapack_int iu, double abstol, lapack_int* m, - double* w, double* z, lapack_int ldz, - lapack_int* ifail ); - -lapack_int LAPACKE_ssprfs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* ap, const float* afp, - const lapack_int* ipiv, const float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* ferr, float* berr ); -lapack_int LAPACKE_dsprfs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* ap, const double* afp, - const lapack_int* ipiv, const double* b, - lapack_int ldb, double* x, lapack_int ldx, - double* ferr, double* berr ); -lapack_int LAPACKE_csprfs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* ap, - const lapack_complex_float* afp, - const lapack_int* ipiv, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, float* ferr, - float* berr ); -lapack_int LAPACKE_zsprfs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* ap, - const lapack_complex_double* afp, - const lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr ); - -lapack_int LAPACKE_sspsv( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* ap, lapack_int* ipiv, - float* b, lapack_int ldb ); -lapack_int LAPACKE_dspsv( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* ap, lapack_int* ipiv, - double* b, lapack_int ldb ); -lapack_int LAPACKE_cspsv( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* ap, - lapack_int* ipiv, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zspsv( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* ap, - lapack_int* ipiv, lapack_complex_double* b, - lapack_int ldb ); - -lapack_int LAPACKE_sspsvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int nrhs, const float* ap, float* afp, - lapack_int* ipiv, const float* b, lapack_int ldb, - float* x, lapack_int ldx, float* rcond, float* ferr, - float* berr ); -lapack_int LAPACKE_dspsvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int nrhs, const double* ap, double* afp, - lapack_int* ipiv, const double* b, lapack_int ldb, - double* x, lapack_int ldx, double* rcond, - double* ferr, double* berr ); -lapack_int LAPACKE_cspsvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* ap, - lapack_complex_float* afp, lapack_int* ipiv, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_zspsvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* ap, - lapack_complex_double* afp, lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr ); - -lapack_int LAPACKE_ssptrd( int matrix_layout, char uplo, lapack_int n, float* ap, - float* d, float* e, float* tau ); -lapack_int LAPACKE_dsptrd( int matrix_layout, char uplo, lapack_int n, - double* ap, double* d, double* e, double* tau ); - -lapack_int LAPACKE_ssptrf( int matrix_layout, char uplo, lapack_int n, float* ap, - lapack_int* ipiv ); -lapack_int LAPACKE_dsptrf( int matrix_layout, char uplo, lapack_int n, - double* ap, lapack_int* ipiv ); -lapack_int LAPACKE_csptrf( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* ap, lapack_int* ipiv ); -lapack_int LAPACKE_zsptrf( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* ap, lapack_int* ipiv ); - -lapack_int LAPACKE_ssptri( int matrix_layout, char uplo, lapack_int n, float* ap, - const lapack_int* ipiv ); -lapack_int LAPACKE_dsptri( int matrix_layout, char uplo, lapack_int n, - double* ap, const lapack_int* ipiv ); -lapack_int LAPACKE_csptri( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* ap, const lapack_int* ipiv ); -lapack_int LAPACKE_zsptri( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* ap, const lapack_int* ipiv ); - -lapack_int LAPACKE_ssptrs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* ap, - const lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dsptrs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* ap, - const lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_csptrs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* ap, - const lapack_int* ipiv, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zsptrs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* ap, - const lapack_int* ipiv, lapack_complex_double* b, - lapack_int ldb ); - -lapack_int LAPACKE_sstebz( char range, char order, lapack_int n, float vl, - float vu, lapack_int il, lapack_int iu, float abstol, - const float* d, const float* e, lapack_int* m, - lapack_int* nsplit, float* w, lapack_int* iblock, - lapack_int* isplit ); -lapack_int LAPACKE_dstebz( char range, char order, lapack_int n, double vl, - double vu, lapack_int il, lapack_int iu, - double abstol, const double* d, const double* e, - lapack_int* m, lapack_int* nsplit, double* w, - lapack_int* iblock, lapack_int* isplit ); - -lapack_int LAPACKE_sstedc( int matrix_layout, char compz, lapack_int n, float* d, - float* e, float* z, lapack_int ldz ); -lapack_int LAPACKE_dstedc( int matrix_layout, char compz, lapack_int n, - double* d, double* e, double* z, lapack_int ldz ); -lapack_int LAPACKE_cstedc( int matrix_layout, char compz, lapack_int n, float* d, - float* e, lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zstedc( int matrix_layout, char compz, lapack_int n, - double* d, double* e, lapack_complex_double* z, - lapack_int ldz ); - -lapack_int LAPACKE_sstegr( int matrix_layout, char jobz, char range, - lapack_int n, float* d, float* e, float vl, float vu, - lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, float* z, lapack_int ldz, - lapack_int* isuppz ); -lapack_int LAPACKE_dstegr( int matrix_layout, char jobz, char range, - lapack_int n, double* d, double* e, double vl, - double vu, lapack_int il, lapack_int iu, - double abstol, lapack_int* m, double* w, double* z, - lapack_int ldz, lapack_int* isuppz ); -lapack_int LAPACKE_cstegr( int matrix_layout, char jobz, char range, - lapack_int n, float* d, float* e, float vl, float vu, - lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, lapack_complex_float* z, - lapack_int ldz, lapack_int* isuppz ); -lapack_int LAPACKE_zstegr( int matrix_layout, char jobz, char range, - lapack_int n, double* d, double* e, double vl, - double vu, lapack_int il, lapack_int iu, - double abstol, lapack_int* m, double* w, - lapack_complex_double* z, lapack_int ldz, - lapack_int* isuppz ); - -lapack_int LAPACKE_sstein( int matrix_layout, lapack_int n, const float* d, - const float* e, lapack_int m, const float* w, - const lapack_int* iblock, const lapack_int* isplit, - float* z, lapack_int ldz, lapack_int* ifailv ); -lapack_int LAPACKE_dstein( int matrix_layout, lapack_int n, const double* d, - const double* e, lapack_int m, const double* w, - const lapack_int* iblock, const lapack_int* isplit, - double* z, lapack_int ldz, lapack_int* ifailv ); -lapack_int LAPACKE_cstein( int matrix_layout, lapack_int n, const float* d, - const float* e, lapack_int m, const float* w, - const lapack_int* iblock, const lapack_int* isplit, - lapack_complex_float* z, lapack_int ldz, - lapack_int* ifailv ); -lapack_int LAPACKE_zstein( int matrix_layout, lapack_int n, const double* d, - const double* e, lapack_int m, const double* w, - const lapack_int* iblock, const lapack_int* isplit, - lapack_complex_double* z, lapack_int ldz, - lapack_int* ifailv ); - -lapack_int LAPACKE_sstemr( int matrix_layout, char jobz, char range, - lapack_int n, float* d, float* e, float vl, float vu, - lapack_int il, lapack_int iu, lapack_int* m, - float* w, float* z, lapack_int ldz, lapack_int nzc, - lapack_int* isuppz, lapack_logical* tryrac ); -lapack_int LAPACKE_dstemr( int matrix_layout, char jobz, char range, - lapack_int n, double* d, double* e, double vl, - double vu, lapack_int il, lapack_int iu, - lapack_int* m, double* w, double* z, lapack_int ldz, - lapack_int nzc, lapack_int* isuppz, - lapack_logical* tryrac ); -lapack_int LAPACKE_cstemr( int matrix_layout, char jobz, char range, - lapack_int n, float* d, float* e, float vl, float vu, - lapack_int il, lapack_int iu, lapack_int* m, - float* w, lapack_complex_float* z, lapack_int ldz, - lapack_int nzc, lapack_int* isuppz, - lapack_logical* tryrac ); -lapack_int LAPACKE_zstemr( int matrix_layout, char jobz, char range, - lapack_int n, double* d, double* e, double vl, - double vu, lapack_int il, lapack_int iu, - lapack_int* m, double* w, lapack_complex_double* z, - lapack_int ldz, lapack_int nzc, lapack_int* isuppz, - lapack_logical* tryrac ); - -lapack_int LAPACKE_ssteqr( int matrix_layout, char compz, lapack_int n, float* d, - float* e, float* z, lapack_int ldz ); -lapack_int LAPACKE_dsteqr( int matrix_layout, char compz, lapack_int n, - double* d, double* e, double* z, lapack_int ldz ); -lapack_int LAPACKE_csteqr( int matrix_layout, char compz, lapack_int n, float* d, - float* e, lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zsteqr( int matrix_layout, char compz, lapack_int n, - double* d, double* e, lapack_complex_double* z, - lapack_int ldz ); - -lapack_int LAPACKE_ssterf( lapack_int n, float* d, float* e ); -lapack_int LAPACKE_dsterf( lapack_int n, double* d, double* e ); - -lapack_int LAPACKE_sstev( int matrix_layout, char jobz, lapack_int n, float* d, - float* e, float* z, lapack_int ldz ); -lapack_int LAPACKE_dstev( int matrix_layout, char jobz, lapack_int n, double* d, - double* e, double* z, lapack_int ldz ); - -lapack_int LAPACKE_sstevd( int matrix_layout, char jobz, lapack_int n, float* d, - float* e, float* z, lapack_int ldz ); -lapack_int LAPACKE_dstevd( int matrix_layout, char jobz, lapack_int n, double* d, - double* e, double* z, lapack_int ldz ); - -lapack_int LAPACKE_sstevr( int matrix_layout, char jobz, char range, - lapack_int n, float* d, float* e, float vl, float vu, - lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, float* z, lapack_int ldz, - lapack_int* isuppz ); -lapack_int LAPACKE_dstevr( int matrix_layout, char jobz, char range, - lapack_int n, double* d, double* e, double vl, - double vu, lapack_int il, lapack_int iu, - double abstol, lapack_int* m, double* w, double* z, - lapack_int ldz, lapack_int* isuppz ); - -lapack_int LAPACKE_sstevx( int matrix_layout, char jobz, char range, - lapack_int n, float* d, float* e, float vl, float vu, - lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, float* z, lapack_int ldz, - lapack_int* ifail ); -lapack_int LAPACKE_dstevx( int matrix_layout, char jobz, char range, - lapack_int n, double* d, double* e, double vl, - double vu, lapack_int il, lapack_int iu, - double abstol, lapack_int* m, double* w, double* z, - lapack_int ldz, lapack_int* ifail ); - -lapack_int LAPACKE_ssycon( int matrix_layout, char uplo, lapack_int n, - const float* a, lapack_int lda, - const lapack_int* ipiv, float anorm, float* rcond ); -lapack_int LAPACKE_dsycon( int matrix_layout, char uplo, lapack_int n, - const double* a, lapack_int lda, - const lapack_int* ipiv, double anorm, - double* rcond ); -lapack_int LAPACKE_csycon( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - const lapack_int* ipiv, float anorm, float* rcond ); -lapack_int LAPACKE_zsycon( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - const lapack_int* ipiv, double anorm, - double* rcond ); - -lapack_int LAPACKE_ssyequb( int matrix_layout, char uplo, lapack_int n, - const float* a, lapack_int lda, float* s, - float* scond, float* amax ); -lapack_int LAPACKE_dsyequb( int matrix_layout, char uplo, lapack_int n, - const double* a, lapack_int lda, double* s, - double* scond, double* amax ); -lapack_int LAPACKE_csyequb( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - float* s, float* scond, float* amax ); -lapack_int LAPACKE_zsyequb( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - double* s, double* scond, double* amax ); - -lapack_int LAPACKE_ssyev( int matrix_layout, char jobz, char uplo, lapack_int n, - float* a, lapack_int lda, float* w ); -lapack_int LAPACKE_dsyev( int matrix_layout, char jobz, char uplo, lapack_int n, - double* a, lapack_int lda, double* w ); - -lapack_int LAPACKE_ssyevd( int matrix_layout, char jobz, char uplo, lapack_int n, - float* a, lapack_int lda, float* w ); -lapack_int LAPACKE_dsyevd( int matrix_layout, char jobz, char uplo, lapack_int n, - double* a, lapack_int lda, double* w ); - -lapack_int LAPACKE_ssyevr( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, float* a, lapack_int lda, float vl, - float vu, lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, float* z, lapack_int ldz, - lapack_int* isuppz ); -lapack_int LAPACKE_dsyevr( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, double* a, lapack_int lda, double vl, - double vu, lapack_int il, lapack_int iu, - double abstol, lapack_int* m, double* w, double* z, - lapack_int ldz, lapack_int* isuppz ); - -lapack_int LAPACKE_ssyevx( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, float* a, lapack_int lda, float vl, - float vu, lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, float* z, lapack_int ldz, - lapack_int* ifail ); -lapack_int LAPACKE_dsyevx( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, double* a, lapack_int lda, double vl, - double vu, lapack_int il, lapack_int iu, - double abstol, lapack_int* m, double* w, double* z, - lapack_int ldz, lapack_int* ifail ); - -lapack_int LAPACKE_ssygst( int matrix_layout, lapack_int itype, char uplo, - lapack_int n, float* a, lapack_int lda, - const float* b, lapack_int ldb ); -lapack_int LAPACKE_dsygst( int matrix_layout, lapack_int itype, char uplo, - lapack_int n, double* a, lapack_int lda, - const double* b, lapack_int ldb ); - -lapack_int LAPACKE_ssygv( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, float* a, lapack_int lda, - float* b, lapack_int ldb, float* w ); -lapack_int LAPACKE_dsygv( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, double* a, lapack_int lda, - double* b, lapack_int ldb, double* w ); - -lapack_int LAPACKE_ssygvd( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, float* a, lapack_int lda, - float* b, lapack_int ldb, float* w ); -lapack_int LAPACKE_dsygvd( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, double* a, lapack_int lda, - double* b, lapack_int ldb, double* w ); - -lapack_int LAPACKE_ssygvx( int matrix_layout, lapack_int itype, char jobz, - char range, char uplo, lapack_int n, float* a, - lapack_int lda, float* b, lapack_int ldb, float vl, - float vu, lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, float* z, lapack_int ldz, - lapack_int* ifail ); -lapack_int LAPACKE_dsygvx( int matrix_layout, lapack_int itype, char jobz, - char range, char uplo, lapack_int n, double* a, - lapack_int lda, double* b, lapack_int ldb, double vl, - double vu, lapack_int il, lapack_int iu, - double abstol, lapack_int* m, double* w, double* z, - lapack_int ldz, lapack_int* ifail ); - -lapack_int LAPACKE_ssyrfs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* a, lapack_int lda, - const float* af, lapack_int ldaf, - const lapack_int* ipiv, const float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* ferr, float* berr ); -lapack_int LAPACKE_dsyrfs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* a, lapack_int lda, - const double* af, lapack_int ldaf, - const lapack_int* ipiv, const double* b, - lapack_int ldb, double* x, lapack_int ldx, - double* ferr, double* berr ); -lapack_int LAPACKE_csyrfs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* af, - lapack_int ldaf, const lapack_int* ipiv, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, float* ferr, - float* berr ); -lapack_int LAPACKE_zsyrfs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_complex_double* af, - lapack_int ldaf, const lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr ); - -lapack_int LAPACKE_ssyrfsx( int matrix_layout, char uplo, char equed, - lapack_int n, lapack_int nrhs, const float* a, - lapack_int lda, const float* af, lapack_int ldaf, - const lapack_int* ipiv, const float* s, - const float* b, lapack_int ldb, float* x, - lapack_int ldx, float* rcond, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params ); -lapack_int LAPACKE_dsyrfsx( int matrix_layout, char uplo, char equed, - lapack_int n, lapack_int nrhs, const double* a, - lapack_int lda, const double* af, lapack_int ldaf, - const lapack_int* ipiv, const double* s, - const double* b, lapack_int ldb, double* x, - lapack_int ldx, double* rcond, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params ); -lapack_int LAPACKE_csyrfsx( int matrix_layout, char uplo, char equed, - lapack_int n, lapack_int nrhs, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* af, lapack_int ldaf, - const lapack_int* ipiv, const float* s, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* berr, lapack_int n_err_bnds, - float* err_bnds_norm, float* err_bnds_comp, - lapack_int nparams, float* params ); -lapack_int LAPACKE_zsyrfsx( int matrix_layout, char uplo, char equed, - lapack_int n, lapack_int nrhs, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* af, lapack_int ldaf, - const lapack_int* ipiv, const double* s, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* berr, lapack_int n_err_bnds, - double* err_bnds_norm, double* err_bnds_comp, - lapack_int nparams, double* params ); - -lapack_int LAPACKE_ssysv( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, - lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dsysv( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_csysv( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zsysv( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_ssysvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int nrhs, const float* a, lapack_int lda, - float* af, lapack_int ldaf, lapack_int* ipiv, - const float* b, lapack_int ldb, float* x, - lapack_int ldx, float* rcond, float* ferr, - float* berr ); -lapack_int LAPACKE_dsysvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int nrhs, const double* a, lapack_int lda, - double* af, lapack_int ldaf, lapack_int* ipiv, - const double* b, lapack_int ldb, double* x, - lapack_int ldx, double* rcond, double* ferr, - double* berr ); -lapack_int LAPACKE_csysvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, lapack_complex_float* af, - lapack_int ldaf, lapack_int* ipiv, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* ferr, float* berr ); -lapack_int LAPACKE_zsysvx( int matrix_layout, char fact, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, lapack_complex_double* af, - lapack_int ldaf, lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr ); - -lapack_int LAPACKE_ssysvxx( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, float* a, - lapack_int lda, float* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, float* s, float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* rcond, float* rpvgrw, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params ); -lapack_int LAPACKE_dsysvxx( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, double* a, - lapack_int lda, double* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, double* s, double* b, - lapack_int ldb, double* x, lapack_int ldx, - double* rcond, double* rpvgrw, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params ); -lapack_int LAPACKE_csysvxx( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, float* s, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* rpvgrw, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params ); -lapack_int LAPACKE_zsysvxx( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, double* s, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* rpvgrw, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params ); - -lapack_int LAPACKE_ssytrd( int matrix_layout, char uplo, lapack_int n, float* a, - lapack_int lda, float* d, float* e, float* tau ); -lapack_int LAPACKE_dsytrd( int matrix_layout, char uplo, lapack_int n, double* a, - lapack_int lda, double* d, double* e, double* tau ); - -lapack_int LAPACKE_ssytrf( int matrix_layout, char uplo, lapack_int n, float* a, - lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_dsytrf( int matrix_layout, char uplo, lapack_int n, double* a, - lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_csytrf( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* ipiv ); -lapack_int LAPACKE_zsytrf( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv ); - -lapack_int LAPACKE_ssytri( int matrix_layout, char uplo, lapack_int n, float* a, - lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_dsytri( int matrix_layout, char uplo, lapack_int n, double* a, - lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_csytri( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_int* ipiv ); -lapack_int LAPACKE_zsytri( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_int* ipiv ); - -lapack_int LAPACKE_ssytrs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* a, lapack_int lda, - const lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dsytrs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* a, lapack_int lda, - const lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_csytrs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zsytrs( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_stbcon( int matrix_layout, char norm, char uplo, char diag, - lapack_int n, lapack_int kd, const float* ab, - lapack_int ldab, float* rcond ); -lapack_int LAPACKE_dtbcon( int matrix_layout, char norm, char uplo, char diag, - lapack_int n, lapack_int kd, const double* ab, - lapack_int ldab, double* rcond ); -lapack_int LAPACKE_ctbcon( int matrix_layout, char norm, char uplo, char diag, - lapack_int n, lapack_int kd, - const lapack_complex_float* ab, lapack_int ldab, - float* rcond ); -lapack_int LAPACKE_ztbcon( int matrix_layout, char norm, char uplo, char diag, - lapack_int n, lapack_int kd, - const lapack_complex_double* ab, lapack_int ldab, - double* rcond ); - -lapack_int LAPACKE_stbrfs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int kd, lapack_int nrhs, - const float* ab, lapack_int ldab, const float* b, - lapack_int ldb, const float* x, lapack_int ldx, - float* ferr, float* berr ); -lapack_int LAPACKE_dtbrfs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int kd, lapack_int nrhs, - const double* ab, lapack_int ldab, const double* b, - lapack_int ldb, const double* x, lapack_int ldx, - double* ferr, double* berr ); -lapack_int LAPACKE_ctbrfs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int kd, lapack_int nrhs, - const lapack_complex_float* ab, lapack_int ldab, - const lapack_complex_float* b, lapack_int ldb, - const lapack_complex_float* x, lapack_int ldx, - float* ferr, float* berr ); -lapack_int LAPACKE_ztbrfs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int kd, lapack_int nrhs, - const lapack_complex_double* ab, lapack_int ldab, - const lapack_complex_double* b, lapack_int ldb, - const lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr ); - -lapack_int LAPACKE_stbtrs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int kd, lapack_int nrhs, - const float* ab, lapack_int ldab, float* b, - lapack_int ldb ); -lapack_int LAPACKE_dtbtrs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int kd, lapack_int nrhs, - const double* ab, lapack_int ldab, double* b, - lapack_int ldb ); -lapack_int LAPACKE_ctbtrs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int kd, lapack_int nrhs, - const lapack_complex_float* ab, lapack_int ldab, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_ztbtrs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int kd, lapack_int nrhs, - const lapack_complex_double* ab, lapack_int ldab, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_stfsm( int matrix_layout, char transr, char side, char uplo, - char trans, char diag, lapack_int m, lapack_int n, - float alpha, const float* a, float* b, - lapack_int ldb ); -lapack_int LAPACKE_dtfsm( int matrix_layout, char transr, char side, char uplo, - char trans, char diag, lapack_int m, lapack_int n, - double alpha, const double* a, double* b, - lapack_int ldb ); -lapack_int LAPACKE_ctfsm( int matrix_layout, char transr, char side, char uplo, - char trans, char diag, lapack_int m, lapack_int n, - lapack_complex_float alpha, - const lapack_complex_float* a, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_ztfsm( int matrix_layout, char transr, char side, char uplo, - char trans, char diag, lapack_int m, lapack_int n, - lapack_complex_double alpha, - const lapack_complex_double* a, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_stftri( int matrix_layout, char transr, char uplo, char diag, - lapack_int n, float* a ); -lapack_int LAPACKE_dtftri( int matrix_layout, char transr, char uplo, char diag, - lapack_int n, double* a ); -lapack_int LAPACKE_ctftri( int matrix_layout, char transr, char uplo, char diag, - lapack_int n, lapack_complex_float* a ); -lapack_int LAPACKE_ztftri( int matrix_layout, char transr, char uplo, char diag, - lapack_int n, lapack_complex_double* a ); - -lapack_int LAPACKE_stfttp( int matrix_layout, char transr, char uplo, - lapack_int n, const float* arf, float* ap ); -lapack_int LAPACKE_dtfttp( int matrix_layout, char transr, char uplo, - lapack_int n, const double* arf, double* ap ); -lapack_int LAPACKE_ctfttp( int matrix_layout, char transr, char uplo, - lapack_int n, const lapack_complex_float* arf, - lapack_complex_float* ap ); -lapack_int LAPACKE_ztfttp( int matrix_layout, char transr, char uplo, - lapack_int n, const lapack_complex_double* arf, - lapack_complex_double* ap ); - -lapack_int LAPACKE_stfttr( int matrix_layout, char transr, char uplo, - lapack_int n, const float* arf, float* a, - lapack_int lda ); -lapack_int LAPACKE_dtfttr( int matrix_layout, char transr, char uplo, - lapack_int n, const double* arf, double* a, - lapack_int lda ); -lapack_int LAPACKE_ctfttr( int matrix_layout, char transr, char uplo, - lapack_int n, const lapack_complex_float* arf, - lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_ztfttr( int matrix_layout, char transr, char uplo, - lapack_int n, const lapack_complex_double* arf, - lapack_complex_double* a, lapack_int lda ); - -lapack_int LAPACKE_stgevc( int matrix_layout, char side, char howmny, - const lapack_logical* select, lapack_int n, - const float* s, lapack_int lds, const float* p, - lapack_int ldp, float* vl, lapack_int ldvl, - float* vr, lapack_int ldvr, lapack_int mm, - lapack_int* m ); -lapack_int LAPACKE_dtgevc( int matrix_layout, char side, char howmny, - const lapack_logical* select, lapack_int n, - const double* s, lapack_int lds, const double* p, - lapack_int ldp, double* vl, lapack_int ldvl, - double* vr, lapack_int ldvr, lapack_int mm, - lapack_int* m ); -lapack_int LAPACKE_ctgevc( int matrix_layout, char side, char howmny, - const lapack_logical* select, lapack_int n, - const lapack_complex_float* s, lapack_int lds, - const lapack_complex_float* p, lapack_int ldp, - lapack_complex_float* vl, lapack_int ldvl, - lapack_complex_float* vr, lapack_int ldvr, - lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_ztgevc( int matrix_layout, char side, char howmny, - const lapack_logical* select, lapack_int n, - const lapack_complex_double* s, lapack_int lds, - const lapack_complex_double* p, lapack_int ldp, - lapack_complex_double* vl, lapack_int ldvl, - lapack_complex_double* vr, lapack_int ldvr, - lapack_int mm, lapack_int* m ); - -lapack_int LAPACKE_stgexc( int matrix_layout, lapack_logical wantq, - lapack_logical wantz, lapack_int n, float* a, - lapack_int lda, float* b, lapack_int ldb, float* q, - lapack_int ldq, float* z, lapack_int ldz, - lapack_int* ifst, lapack_int* ilst ); -lapack_int LAPACKE_dtgexc( int matrix_layout, lapack_logical wantq, - lapack_logical wantz, lapack_int n, double* a, - lapack_int lda, double* b, lapack_int ldb, double* q, - lapack_int ldq, double* z, lapack_int ldz, - lapack_int* ifst, lapack_int* ilst ); -lapack_int LAPACKE_ctgexc( int matrix_layout, lapack_logical wantq, - lapack_logical wantz, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* q, lapack_int ldq, - lapack_complex_float* z, lapack_int ldz, - lapack_int ifst, lapack_int ilst ); -lapack_int LAPACKE_ztgexc( int matrix_layout, lapack_logical wantq, - lapack_logical wantz, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* q, lapack_int ldq, - lapack_complex_double* z, lapack_int ldz, - lapack_int ifst, lapack_int ilst ); - -lapack_int LAPACKE_stgsen( int matrix_layout, lapack_int ijob, - lapack_logical wantq, lapack_logical wantz, - const lapack_logical* select, lapack_int n, float* a, - lapack_int lda, float* b, lapack_int ldb, - float* alphar, float* alphai, float* beta, float* q, - lapack_int ldq, float* z, lapack_int ldz, - lapack_int* m, float* pl, float* pr, float* dif ); -lapack_int LAPACKE_dtgsen( int matrix_layout, lapack_int ijob, - lapack_logical wantq, lapack_logical wantz, - const lapack_logical* select, lapack_int n, - double* a, lapack_int lda, double* b, lapack_int ldb, - double* alphar, double* alphai, double* beta, - double* q, lapack_int ldq, double* z, lapack_int ldz, - lapack_int* m, double* pl, double* pr, double* dif ); -lapack_int LAPACKE_ctgsen( int matrix_layout, lapack_int ijob, - lapack_logical wantq, lapack_logical wantz, - const lapack_logical* select, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* alpha, - lapack_complex_float* beta, lapack_complex_float* q, - lapack_int ldq, lapack_complex_float* z, - lapack_int ldz, lapack_int* m, float* pl, float* pr, - float* dif ); -lapack_int LAPACKE_ztgsen( int matrix_layout, lapack_int ijob, - lapack_logical wantq, lapack_logical wantz, - const lapack_logical* select, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* q, lapack_int ldq, - lapack_complex_double* z, lapack_int ldz, - lapack_int* m, double* pl, double* pr, double* dif ); - -lapack_int LAPACKE_stgsja( int matrix_layout, char jobu, char jobv, char jobq, - lapack_int m, lapack_int p, lapack_int n, - lapack_int k, lapack_int l, float* a, lapack_int lda, - float* b, lapack_int ldb, float tola, float tolb, - float* alpha, float* beta, float* u, lapack_int ldu, - float* v, lapack_int ldv, float* q, lapack_int ldq, - lapack_int* ncycle ); -lapack_int LAPACKE_dtgsja( int matrix_layout, char jobu, char jobv, char jobq, - lapack_int m, lapack_int p, lapack_int n, - lapack_int k, lapack_int l, double* a, - lapack_int lda, double* b, lapack_int ldb, - double tola, double tolb, double* alpha, - double* beta, double* u, lapack_int ldu, double* v, - lapack_int ldv, double* q, lapack_int ldq, - lapack_int* ncycle ); -lapack_int LAPACKE_ctgsja( int matrix_layout, char jobu, char jobv, char jobq, - lapack_int m, lapack_int p, lapack_int n, - lapack_int k, lapack_int l, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb, float tola, float tolb, float* alpha, - float* beta, lapack_complex_float* u, lapack_int ldu, - lapack_complex_float* v, lapack_int ldv, - lapack_complex_float* q, lapack_int ldq, - lapack_int* ncycle ); -lapack_int LAPACKE_ztgsja( int matrix_layout, char jobu, char jobv, char jobq, - lapack_int m, lapack_int p, lapack_int n, - lapack_int k, lapack_int l, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb, double tola, double tolb, - double* alpha, double* beta, - lapack_complex_double* u, lapack_int ldu, - lapack_complex_double* v, lapack_int ldv, - lapack_complex_double* q, lapack_int ldq, - lapack_int* ncycle ); - -lapack_int LAPACKE_stgsna( int matrix_layout, char job, char howmny, - const lapack_logical* select, lapack_int n, - const float* a, lapack_int lda, const float* b, - lapack_int ldb, const float* vl, lapack_int ldvl, - const float* vr, lapack_int ldvr, float* s, - float* dif, lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_dtgsna( int matrix_layout, char job, char howmny, - const lapack_logical* select, lapack_int n, - const double* a, lapack_int lda, const double* b, - lapack_int ldb, const double* vl, lapack_int ldvl, - const double* vr, lapack_int ldvr, double* s, - double* dif, lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_ctgsna( int matrix_layout, char job, char howmny, - const lapack_logical* select, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* b, lapack_int ldb, - const lapack_complex_float* vl, lapack_int ldvl, - const lapack_complex_float* vr, lapack_int ldvr, - float* s, float* dif, lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_ztgsna( int matrix_layout, char job, char howmny, - const lapack_logical* select, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* b, lapack_int ldb, - const lapack_complex_double* vl, lapack_int ldvl, - const lapack_complex_double* vr, lapack_int ldvr, - double* s, double* dif, lapack_int mm, - lapack_int* m ); - -lapack_int LAPACKE_stgsyl( int matrix_layout, char trans, lapack_int ijob, - lapack_int m, lapack_int n, const float* a, - lapack_int lda, const float* b, lapack_int ldb, - float* c, lapack_int ldc, const float* d, - lapack_int ldd, const float* e, lapack_int lde, - float* f, lapack_int ldf, float* scale, float* dif ); -lapack_int LAPACKE_dtgsyl( int matrix_layout, char trans, lapack_int ijob, - lapack_int m, lapack_int n, const double* a, - lapack_int lda, const double* b, lapack_int ldb, - double* c, lapack_int ldc, const double* d, - lapack_int ldd, const double* e, lapack_int lde, - double* f, lapack_int ldf, double* scale, - double* dif ); -lapack_int LAPACKE_ctgsyl( int matrix_layout, char trans, lapack_int ijob, - lapack_int m, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* c, lapack_int ldc, - const lapack_complex_float* d, lapack_int ldd, - const lapack_complex_float* e, lapack_int lde, - lapack_complex_float* f, lapack_int ldf, - float* scale, float* dif ); -lapack_int LAPACKE_ztgsyl( int matrix_layout, char trans, lapack_int ijob, - lapack_int m, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* c, lapack_int ldc, - const lapack_complex_double* d, lapack_int ldd, - const lapack_complex_double* e, lapack_int lde, - lapack_complex_double* f, lapack_int ldf, - double* scale, double* dif ); - -lapack_int LAPACKE_stpcon( int matrix_layout, char norm, char uplo, char diag, - lapack_int n, const float* ap, float* rcond ); -lapack_int LAPACKE_dtpcon( int matrix_layout, char norm, char uplo, char diag, - lapack_int n, const double* ap, double* rcond ); -lapack_int LAPACKE_ctpcon( int matrix_layout, char norm, char uplo, char diag, - lapack_int n, const lapack_complex_float* ap, - float* rcond ); -lapack_int LAPACKE_ztpcon( int matrix_layout, char norm, char uplo, char diag, - lapack_int n, const lapack_complex_double* ap, - double* rcond ); - -lapack_int LAPACKE_stprfs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int nrhs, const float* ap, - const float* b, lapack_int ldb, const float* x, - lapack_int ldx, float* ferr, float* berr ); -lapack_int LAPACKE_dtprfs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int nrhs, const double* ap, - const double* b, lapack_int ldb, const double* x, - lapack_int ldx, double* ferr, double* berr ); -lapack_int LAPACKE_ctprfs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int nrhs, - const lapack_complex_float* ap, - const lapack_complex_float* b, lapack_int ldb, - const lapack_complex_float* x, lapack_int ldx, - float* ferr, float* berr ); -lapack_int LAPACKE_ztprfs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int nrhs, - const lapack_complex_double* ap, - const lapack_complex_double* b, lapack_int ldb, - const lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr ); - -lapack_int LAPACKE_stptri( int matrix_layout, char uplo, char diag, lapack_int n, - float* ap ); -lapack_int LAPACKE_dtptri( int matrix_layout, char uplo, char diag, lapack_int n, - double* ap ); -lapack_int LAPACKE_ctptri( int matrix_layout, char uplo, char diag, lapack_int n, - lapack_complex_float* ap ); -lapack_int LAPACKE_ztptri( int matrix_layout, char uplo, char diag, lapack_int n, - lapack_complex_double* ap ); - -lapack_int LAPACKE_stptrs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int nrhs, const float* ap, - float* b, lapack_int ldb ); -lapack_int LAPACKE_dtptrs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int nrhs, const double* ap, - double* b, lapack_int ldb ); -lapack_int LAPACKE_ctptrs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int nrhs, - const lapack_complex_float* ap, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_ztptrs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int nrhs, - const lapack_complex_double* ap, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_stpttf( int matrix_layout, char transr, char uplo, - lapack_int n, const float* ap, float* arf ); -lapack_int LAPACKE_dtpttf( int matrix_layout, char transr, char uplo, - lapack_int n, const double* ap, double* arf ); -lapack_int LAPACKE_ctpttf( int matrix_layout, char transr, char uplo, - lapack_int n, const lapack_complex_float* ap, - lapack_complex_float* arf ); -lapack_int LAPACKE_ztpttf( int matrix_layout, char transr, char uplo, - lapack_int n, const lapack_complex_double* ap, - lapack_complex_double* arf ); - -lapack_int LAPACKE_stpttr( int matrix_layout, char uplo, lapack_int n, - const float* ap, float* a, lapack_int lda ); -lapack_int LAPACKE_dtpttr( int matrix_layout, char uplo, lapack_int n, - const double* ap, double* a, lapack_int lda ); -lapack_int LAPACKE_ctpttr( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* ap, - lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_ztpttr( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* ap, - lapack_complex_double* a, lapack_int lda ); - -lapack_int LAPACKE_strcon( int matrix_layout, char norm, char uplo, char diag, - lapack_int n, const float* a, lapack_int lda, - float* rcond ); -lapack_int LAPACKE_dtrcon( int matrix_layout, char norm, char uplo, char diag, - lapack_int n, const double* a, lapack_int lda, - double* rcond ); -lapack_int LAPACKE_ctrcon( int matrix_layout, char norm, char uplo, char diag, - lapack_int n, const lapack_complex_float* a, - lapack_int lda, float* rcond ); -lapack_int LAPACKE_ztrcon( int matrix_layout, char norm, char uplo, char diag, - lapack_int n, const lapack_complex_double* a, - lapack_int lda, double* rcond ); - -lapack_int LAPACKE_strevc( int matrix_layout, char side, char howmny, - lapack_logical* select, lapack_int n, const float* t, - lapack_int ldt, float* vl, lapack_int ldvl, - float* vr, lapack_int ldvr, lapack_int mm, - lapack_int* m ); -lapack_int LAPACKE_dtrevc( int matrix_layout, char side, char howmny, - lapack_logical* select, lapack_int n, - const double* t, lapack_int ldt, double* vl, - lapack_int ldvl, double* vr, lapack_int ldvr, - lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_ctrevc( int matrix_layout, char side, char howmny, - const lapack_logical* select, lapack_int n, - lapack_complex_float* t, lapack_int ldt, - lapack_complex_float* vl, lapack_int ldvl, - lapack_complex_float* vr, lapack_int ldvr, - lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_ztrevc( int matrix_layout, char side, char howmny, - const lapack_logical* select, lapack_int n, - lapack_complex_double* t, lapack_int ldt, - lapack_complex_double* vl, lapack_int ldvl, - lapack_complex_double* vr, lapack_int ldvr, - lapack_int mm, lapack_int* m ); - -lapack_int LAPACKE_strexc( int matrix_layout, char compq, lapack_int n, float* t, - lapack_int ldt, float* q, lapack_int ldq, - lapack_int* ifst, lapack_int* ilst ); -lapack_int LAPACKE_dtrexc( int matrix_layout, char compq, lapack_int n, - double* t, lapack_int ldt, double* q, lapack_int ldq, - lapack_int* ifst, lapack_int* ilst ); -lapack_int LAPACKE_ctrexc( int matrix_layout, char compq, lapack_int n, - lapack_complex_float* t, lapack_int ldt, - lapack_complex_float* q, lapack_int ldq, - lapack_int ifst, lapack_int ilst ); -lapack_int LAPACKE_ztrexc( int matrix_layout, char compq, lapack_int n, - lapack_complex_double* t, lapack_int ldt, - lapack_complex_double* q, lapack_int ldq, - lapack_int ifst, lapack_int ilst ); - -lapack_int LAPACKE_strrfs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int nrhs, const float* a, - lapack_int lda, const float* b, lapack_int ldb, - const float* x, lapack_int ldx, float* ferr, - float* berr ); -lapack_int LAPACKE_dtrrfs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int nrhs, const double* a, - lapack_int lda, const double* b, lapack_int ldb, - const double* x, lapack_int ldx, double* ferr, - double* berr ); -lapack_int LAPACKE_ctrrfs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int nrhs, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* b, lapack_int ldb, - const lapack_complex_float* x, lapack_int ldx, - float* ferr, float* berr ); -lapack_int LAPACKE_ztrrfs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int nrhs, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* b, lapack_int ldb, - const lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr ); - -lapack_int LAPACKE_strsen( int matrix_layout, char job, char compq, - const lapack_logical* select, lapack_int n, float* t, - lapack_int ldt, float* q, lapack_int ldq, float* wr, - float* wi, lapack_int* m, float* s, float* sep ); -lapack_int LAPACKE_dtrsen( int matrix_layout, char job, char compq, - const lapack_logical* select, lapack_int n, - double* t, lapack_int ldt, double* q, lapack_int ldq, - double* wr, double* wi, lapack_int* m, double* s, - double* sep ); -lapack_int LAPACKE_ctrsen( int matrix_layout, char job, char compq, - const lapack_logical* select, lapack_int n, - lapack_complex_float* t, lapack_int ldt, - lapack_complex_float* q, lapack_int ldq, - lapack_complex_float* w, lapack_int* m, float* s, - float* sep ); -lapack_int LAPACKE_ztrsen( int matrix_layout, char job, char compq, - const lapack_logical* select, lapack_int n, - lapack_complex_double* t, lapack_int ldt, - lapack_complex_double* q, lapack_int ldq, - lapack_complex_double* w, lapack_int* m, double* s, - double* sep ); - -lapack_int LAPACKE_strsna( int matrix_layout, char job, char howmny, - const lapack_logical* select, lapack_int n, - const float* t, lapack_int ldt, const float* vl, - lapack_int ldvl, const float* vr, lapack_int ldvr, - float* s, float* sep, lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_dtrsna( int matrix_layout, char job, char howmny, - const lapack_logical* select, lapack_int n, - const double* t, lapack_int ldt, const double* vl, - lapack_int ldvl, const double* vr, lapack_int ldvr, - double* s, double* sep, lapack_int mm, - lapack_int* m ); -lapack_int LAPACKE_ctrsna( int matrix_layout, char job, char howmny, - const lapack_logical* select, lapack_int n, - const lapack_complex_float* t, lapack_int ldt, - const lapack_complex_float* vl, lapack_int ldvl, - const lapack_complex_float* vr, lapack_int ldvr, - float* s, float* sep, lapack_int mm, lapack_int* m ); -lapack_int LAPACKE_ztrsna( int matrix_layout, char job, char howmny, - const lapack_logical* select, lapack_int n, - const lapack_complex_double* t, lapack_int ldt, - const lapack_complex_double* vl, lapack_int ldvl, - const lapack_complex_double* vr, lapack_int ldvr, - double* s, double* sep, lapack_int mm, - lapack_int* m ); - -lapack_int LAPACKE_strsyl( int matrix_layout, char trana, char tranb, - lapack_int isgn, lapack_int m, lapack_int n, - const float* a, lapack_int lda, const float* b, - lapack_int ldb, float* c, lapack_int ldc, - float* scale ); -lapack_int LAPACKE_dtrsyl( int matrix_layout, char trana, char tranb, - lapack_int isgn, lapack_int m, lapack_int n, - const double* a, lapack_int lda, const double* b, - lapack_int ldb, double* c, lapack_int ldc, - double* scale ); -lapack_int LAPACKE_ctrsyl( int matrix_layout, char trana, char tranb, - lapack_int isgn, lapack_int m, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* c, lapack_int ldc, - float* scale ); -lapack_int LAPACKE_ztrsyl( int matrix_layout, char trana, char tranb, - lapack_int isgn, lapack_int m, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* c, lapack_int ldc, - double* scale ); - -lapack_int LAPACKE_strsyl3( int matrix_layout, char trana, char tranb, - lapack_int isgn, lapack_int m, lapack_int n, - const float* a, lapack_int lda, const float* b, - lapack_int ldb, float* c, lapack_int ldc, - float* scale ); -lapack_int LAPACKE_dtrsyl3( int matrix_layout, char trana, char tranb, - lapack_int isgn, lapack_int m, lapack_int n, - const double* a, lapack_int lda, const double* b, - lapack_int ldb, double* c, lapack_int ldc, - double* scale ); -lapack_int LAPACKE_ztrsyl3( int matrix_layout, char trana, char tranb, - lapack_int isgn, lapack_int m, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* c, lapack_int ldc, - double* scale ); - -lapack_int LAPACKE_strtri( int matrix_layout, char uplo, char diag, lapack_int n, - float* a, lapack_int lda ); -lapack_int LAPACKE_dtrtri( int matrix_layout, char uplo, char diag, lapack_int n, - double* a, lapack_int lda ); -lapack_int LAPACKE_ctrtri( int matrix_layout, char uplo, char diag, lapack_int n, - lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_ztrtri( int matrix_layout, char uplo, char diag, lapack_int n, - lapack_complex_double* a, lapack_int lda ); - -lapack_int LAPACKE_strtrs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int nrhs, const float* a, - lapack_int lda, float* b, lapack_int ldb ); -lapack_int LAPACKE_dtrtrs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int nrhs, const double* a, - lapack_int lda, double* b, lapack_int ldb ); -lapack_int LAPACKE_ctrtrs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int nrhs, - const lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_ztrtrs( int matrix_layout, char uplo, char trans, char diag, - lapack_int n, lapack_int nrhs, - const lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_strttf( int matrix_layout, char transr, char uplo, - lapack_int n, const float* a, lapack_int lda, - float* arf ); -lapack_int LAPACKE_dtrttf( int matrix_layout, char transr, char uplo, - lapack_int n, const double* a, lapack_int lda, - double* arf ); -lapack_int LAPACKE_ctrttf( int matrix_layout, char transr, char uplo, - lapack_int n, const lapack_complex_float* a, - lapack_int lda, lapack_complex_float* arf ); -lapack_int LAPACKE_ztrttf( int matrix_layout, char transr, char uplo, - lapack_int n, const lapack_complex_double* a, - lapack_int lda, lapack_complex_double* arf ); - -lapack_int LAPACKE_strttp( int matrix_layout, char uplo, lapack_int n, - const float* a, lapack_int lda, float* ap ); -lapack_int LAPACKE_dtrttp( int matrix_layout, char uplo, lapack_int n, - const double* a, lapack_int lda, double* ap ); -lapack_int LAPACKE_ctrttp( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - lapack_complex_float* ap ); -lapack_int LAPACKE_ztrttp( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - lapack_complex_double* ap ); - -lapack_int LAPACKE_stzrzf( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, float* tau ); -lapack_int LAPACKE_dtzrzf( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, double* tau ); -lapack_int LAPACKE_ctzrzf( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* tau ); -lapack_int LAPACKE_ztzrzf( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* tau ); - -lapack_int LAPACKE_cungbr( int matrix_layout, char vect, lapack_int m, - lapack_int n, lapack_int k, lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* tau ); -lapack_int LAPACKE_zungbr( int matrix_layout, char vect, lapack_int m, - lapack_int n, lapack_int k, lapack_complex_double* a, - lapack_int lda, const lapack_complex_double* tau ); - -lapack_int LAPACKE_cunghr( int matrix_layout, lapack_int n, lapack_int ilo, - lapack_int ihi, lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* tau ); -lapack_int LAPACKE_zunghr( int matrix_layout, lapack_int n, lapack_int ilo, - lapack_int ihi, lapack_complex_double* a, - lapack_int lda, const lapack_complex_double* tau ); - -lapack_int LAPACKE_cunglq( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* tau ); -lapack_int LAPACKE_zunglq( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, lapack_complex_double* a, - lapack_int lda, const lapack_complex_double* tau ); - -lapack_int LAPACKE_cungql( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* tau ); -lapack_int LAPACKE_zungql( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, lapack_complex_double* a, - lapack_int lda, const lapack_complex_double* tau ); - -lapack_int LAPACKE_cungqr( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* tau ); -lapack_int LAPACKE_zungqr( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, lapack_complex_double* a, - lapack_int lda, const lapack_complex_double* tau ); - -lapack_int LAPACKE_cungrq( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* tau ); -lapack_int LAPACKE_zungrq( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, lapack_complex_double* a, - lapack_int lda, const lapack_complex_double* tau ); - -lapack_int LAPACKE_cungtr( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* tau ); -lapack_int LAPACKE_zungtr( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* tau ); - -lapack_int LAPACKE_cungtsqr_row( int matrix_layout, lapack_int m, lapack_int n, - lapack_int mb, lapack_int nb, - lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* t, lapack_int ldt ); -lapack_int LAPACKE_zungtsqr_row( int matrix_layout, lapack_int m, lapack_int n, - lapack_int mb, lapack_int nb, - lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* t, lapack_int ldt ); - -lapack_int LAPACKE_cunmbr( int matrix_layout, char vect, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* tau, - lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zunmbr( int matrix_layout, char vect, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* tau, - lapack_complex_double* c, lapack_int ldc ); - -lapack_int LAPACKE_cunmhr( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int ilo, - lapack_int ihi, const lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* tau, - lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zunmhr( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int ilo, - lapack_int ihi, const lapack_complex_double* a, - lapack_int lda, const lapack_complex_double* tau, - lapack_complex_double* c, lapack_int ldc ); - -lapack_int LAPACKE_cunmlq( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* tau, - lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zunmlq( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* tau, - lapack_complex_double* c, lapack_int ldc ); - -lapack_int LAPACKE_cunmql( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* tau, - lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zunmql( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* tau, - lapack_complex_double* c, lapack_int ldc ); - -lapack_int LAPACKE_cunmqr( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* tau, - lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zunmqr( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* tau, - lapack_complex_double* c, lapack_int ldc ); - -lapack_int LAPACKE_cunmrq( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* tau, - lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zunmrq( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* tau, - lapack_complex_double* c, lapack_int ldc ); - -lapack_int LAPACKE_cunmrz( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int l, const lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* tau, - lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zunmrz( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int l, const lapack_complex_double* a, - lapack_int lda, const lapack_complex_double* tau, - lapack_complex_double* c, lapack_int ldc ); - -lapack_int LAPACKE_cunmtr( int matrix_layout, char side, char uplo, char trans, - lapack_int m, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* tau, - lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zunmtr( int matrix_layout, char side, char uplo, char trans, - lapack_int m, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* tau, - lapack_complex_double* c, lapack_int ldc ); - -lapack_int LAPACKE_cupgtr( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* ap, - const lapack_complex_float* tau, - lapack_complex_float* q, lapack_int ldq ); -lapack_int LAPACKE_zupgtr( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* ap, - const lapack_complex_double* tau, - lapack_complex_double* q, lapack_int ldq ); - -lapack_int LAPACKE_cupmtr( int matrix_layout, char side, char uplo, char trans, - lapack_int m, lapack_int n, - const lapack_complex_float* ap, - const lapack_complex_float* tau, - lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zupmtr( int matrix_layout, char side, char uplo, char trans, - lapack_int m, lapack_int n, - const lapack_complex_double* ap, - const lapack_complex_double* tau, - lapack_complex_double* c, lapack_int ldc ); - -lapack_int LAPACKE_sbdsdc_work( int matrix_layout, char uplo, char compq, - lapack_int n, float* d, float* e, float* u, - lapack_int ldu, float* vt, lapack_int ldvt, - float* q, lapack_int* iq, float* work, - lapack_int* iwork ); -lapack_int LAPACKE_dbdsdc_work( int matrix_layout, char uplo, char compq, - lapack_int n, double* d, double* e, double* u, - lapack_int ldu, double* vt, lapack_int ldvt, - double* q, lapack_int* iq, double* work, - lapack_int* iwork ); - -lapack_int LAPACKE_sbdsvdx_work( int matrix_layout, char uplo, char jobz, char range, - lapack_int n, float* d, float* e, - float vl, float vu, - lapack_int il, lapack_int iu, lapack_int* ns, - float* s, float* z, lapack_int ldz, - float* work, lapack_int* iwork ); -lapack_int LAPACKE_dbdsvdx_work( int matrix_layout, char uplo, char jobz, char range, - lapack_int n, double* d, double* e, - double vl, double vu, - lapack_int il, lapack_int iu, lapack_int* ns, - double* s, double* z, lapack_int ldz, - double* work, lapack_int* iwork ); - -lapack_int LAPACKE_sbdsqr_work( int matrix_layout, char uplo, lapack_int n, - lapack_int ncvt, lapack_int nru, lapack_int ncc, - float* d, float* e, float* vt, lapack_int ldvt, - float* u, lapack_int ldu, float* c, - lapack_int ldc, float* work ); -lapack_int LAPACKE_dbdsqr_work( int matrix_layout, char uplo, lapack_int n, - lapack_int ncvt, lapack_int nru, lapack_int ncc, - double* d, double* e, double* vt, - lapack_int ldvt, double* u, lapack_int ldu, - double* c, lapack_int ldc, double* work ); -lapack_int LAPACKE_cbdsqr_work( int matrix_layout, char uplo, lapack_int n, - lapack_int ncvt, lapack_int nru, lapack_int ncc, - float* d, float* e, lapack_complex_float* vt, - lapack_int ldvt, lapack_complex_float* u, - lapack_int ldu, lapack_complex_float* c, - lapack_int ldc, float* work ); -lapack_int LAPACKE_zbdsqr_work( int matrix_layout, char uplo, lapack_int n, - lapack_int ncvt, lapack_int nru, lapack_int ncc, - double* d, double* e, lapack_complex_double* vt, - lapack_int ldvt, lapack_complex_double* u, - lapack_int ldu, lapack_complex_double* c, - lapack_int ldc, double* work ); - -lapack_int LAPACKE_sdisna_work( char job, lapack_int m, lapack_int n, - const float* d, float* sep ); -lapack_int LAPACKE_ddisna_work( char job, lapack_int m, lapack_int n, - const double* d, double* sep ); - -lapack_int LAPACKE_sgbbrd_work( int matrix_layout, char vect, lapack_int m, - lapack_int n, lapack_int ncc, lapack_int kl, - lapack_int ku, float* ab, lapack_int ldab, - float* d, float* e, float* q, lapack_int ldq, - float* pt, lapack_int ldpt, float* c, - lapack_int ldc, float* work ); -lapack_int LAPACKE_dgbbrd_work( int matrix_layout, char vect, lapack_int m, - lapack_int n, lapack_int ncc, lapack_int kl, - lapack_int ku, double* ab, lapack_int ldab, - double* d, double* e, double* q, lapack_int ldq, - double* pt, lapack_int ldpt, double* c, - lapack_int ldc, double* work ); -lapack_int LAPACKE_cgbbrd_work( int matrix_layout, char vect, lapack_int m, - lapack_int n, lapack_int ncc, lapack_int kl, - lapack_int ku, lapack_complex_float* ab, - lapack_int ldab, float* d, float* e, - lapack_complex_float* q, lapack_int ldq, - lapack_complex_float* pt, lapack_int ldpt, - lapack_complex_float* c, lapack_int ldc, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zgbbrd_work( int matrix_layout, char vect, lapack_int m, - lapack_int n, lapack_int ncc, lapack_int kl, - lapack_int ku, lapack_complex_double* ab, - lapack_int ldab, double* d, double* e, - lapack_complex_double* q, lapack_int ldq, - lapack_complex_double* pt, lapack_int ldpt, - lapack_complex_double* c, lapack_int ldc, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_sgbcon_work( int matrix_layout, char norm, lapack_int n, - lapack_int kl, lapack_int ku, const float* ab, - lapack_int ldab, const lapack_int* ipiv, - float anorm, float* rcond, float* work, - lapack_int* iwork ); -lapack_int LAPACKE_dgbcon_work( int matrix_layout, char norm, lapack_int n, - lapack_int kl, lapack_int ku, const double* ab, - lapack_int ldab, const lapack_int* ipiv, - double anorm, double* rcond, double* work, - lapack_int* iwork ); -lapack_int LAPACKE_cgbcon_work( int matrix_layout, char norm, lapack_int n, - lapack_int kl, lapack_int ku, - const lapack_complex_float* ab, lapack_int ldab, - const lapack_int* ipiv, float anorm, - float* rcond, lapack_complex_float* work, - float* rwork ); -lapack_int LAPACKE_zgbcon_work( int matrix_layout, char norm, lapack_int n, - lapack_int kl, lapack_int ku, - const lapack_complex_double* ab, - lapack_int ldab, const lapack_int* ipiv, - double anorm, double* rcond, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_sgbequ_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, const float* ab, - lapack_int ldab, float* r, float* c, - float* rowcnd, float* colcnd, float* amax ); -lapack_int LAPACKE_dgbequ_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, const double* ab, - lapack_int ldab, double* r, double* c, - double* rowcnd, double* colcnd, double* amax ); -lapack_int LAPACKE_cgbequ_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, - const lapack_complex_float* ab, lapack_int ldab, - float* r, float* c, float* rowcnd, - float* colcnd, float* amax ); -lapack_int LAPACKE_zgbequ_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, - const lapack_complex_double* ab, - lapack_int ldab, double* r, double* c, - double* rowcnd, double* colcnd, double* amax ); - -lapack_int LAPACKE_sgbequb_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, const float* ab, - lapack_int ldab, float* r, float* c, - float* rowcnd, float* colcnd, float* amax ); -lapack_int LAPACKE_dgbequb_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, const double* ab, - lapack_int ldab, double* r, double* c, - double* rowcnd, double* colcnd, double* amax ); -lapack_int LAPACKE_cgbequb_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, - const lapack_complex_float* ab, - lapack_int ldab, float* r, float* c, - float* rowcnd, float* colcnd, float* amax ); -lapack_int LAPACKE_zgbequb_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, - const lapack_complex_double* ab, - lapack_int ldab, double* r, double* c, - double* rowcnd, double* colcnd, double* amax ); - -lapack_int LAPACKE_sgbrfs_work( int matrix_layout, char trans, lapack_int n, - lapack_int kl, lapack_int ku, lapack_int nrhs, - const float* ab, lapack_int ldab, - const float* afb, lapack_int ldafb, - const lapack_int* ipiv, const float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* ferr, float* berr, float* work, - lapack_int* iwork ); -lapack_int LAPACKE_dgbrfs_work( int matrix_layout, char trans, lapack_int n, - lapack_int kl, lapack_int ku, lapack_int nrhs, - const double* ab, lapack_int ldab, - const double* afb, lapack_int ldafb, - const lapack_int* ipiv, const double* b, - lapack_int ldb, double* x, lapack_int ldx, - double* ferr, double* berr, double* work, - lapack_int* iwork ); -lapack_int LAPACKE_cgbrfs_work( int matrix_layout, char trans, lapack_int n, - lapack_int kl, lapack_int ku, lapack_int nrhs, - const lapack_complex_float* ab, lapack_int ldab, - const lapack_complex_float* afb, - lapack_int ldafb, const lapack_int* ipiv, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* ferr, float* berr, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zgbrfs_work( int matrix_layout, char trans, lapack_int n, - lapack_int kl, lapack_int ku, lapack_int nrhs, - const lapack_complex_double* ab, - lapack_int ldab, - const lapack_complex_double* afb, - lapack_int ldafb, const lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_sgbrfsx_work( int matrix_layout, char trans, char equed, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, const float* ab, - lapack_int ldab, const float* afb, - lapack_int ldafb, const lapack_int* ipiv, - const float* r, const float* c, const float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* rcond, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params, float* work, - lapack_int* iwork ); -lapack_int LAPACKE_dgbrfsx_work( int matrix_layout, char trans, char equed, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, const double* ab, - lapack_int ldab, const double* afb, - lapack_int ldafb, const lapack_int* ipiv, - const double* r, const double* c, - const double* b, lapack_int ldb, double* x, - lapack_int ldx, double* rcond, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params, double* work, - lapack_int* iwork ); -lapack_int LAPACKE_cgbrfsx_work( int matrix_layout, char trans, char equed, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, - const lapack_complex_float* ab, - lapack_int ldab, - const lapack_complex_float* afb, - lapack_int ldafb, const lapack_int* ipiv, - const float* r, const float* c, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params, lapack_complex_float* work, - float* rwork ); -lapack_int LAPACKE_zgbrfsx_work( int matrix_layout, char trans, char equed, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, - const lapack_complex_double* ab, - lapack_int ldab, - const lapack_complex_double* afb, - lapack_int ldafb, const lapack_int* ipiv, - const double* r, const double* c, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params, lapack_complex_double* work, - double* rwork ); - -lapack_int LAPACKE_sgbsv_work( int matrix_layout, lapack_int n, lapack_int kl, - lapack_int ku, lapack_int nrhs, float* ab, - lapack_int ldab, lapack_int* ipiv, float* b, - lapack_int ldb ); -lapack_int LAPACKE_dgbsv_work( int matrix_layout, lapack_int n, lapack_int kl, - lapack_int ku, lapack_int nrhs, double* ab, - lapack_int ldab, lapack_int* ipiv, double* b, - lapack_int ldb ); -lapack_int LAPACKE_cgbsv_work( int matrix_layout, lapack_int n, lapack_int kl, - lapack_int ku, lapack_int nrhs, - lapack_complex_float* ab, lapack_int ldab, - lapack_int* ipiv, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zgbsv_work( int matrix_layout, lapack_int n, lapack_int kl, - lapack_int ku, lapack_int nrhs, - lapack_complex_double* ab, lapack_int ldab, - lapack_int* ipiv, lapack_complex_double* b, - lapack_int ldb ); - -lapack_int LAPACKE_sgbsvx_work( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, float* ab, lapack_int ldab, - float* afb, lapack_int ldafb, lapack_int* ipiv, - char* equed, float* r, float* c, float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* rcond, float* ferr, float* berr, - float* work, lapack_int* iwork ); -lapack_int LAPACKE_dgbsvx_work( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, double* ab, lapack_int ldab, - double* afb, lapack_int ldafb, lapack_int* ipiv, - char* equed, double* r, double* c, double* b, - lapack_int ldb, double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr, - double* work, lapack_int* iwork ); -lapack_int LAPACKE_cgbsvx_work( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, lapack_complex_float* ab, - lapack_int ldab, lapack_complex_float* afb, - lapack_int ldafb, lapack_int* ipiv, char* equed, - float* r, float* c, lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* x, - lapack_int ldx, float* rcond, float* ferr, - float* berr, lapack_complex_float* work, - float* rwork ); -lapack_int LAPACKE_zgbsvx_work( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, lapack_complex_double* ab, - lapack_int ldab, lapack_complex_double* afb, - lapack_int ldafb, lapack_int* ipiv, char* equed, - double* r, double* c, lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* x, - lapack_int ldx, double* rcond, double* ferr, - double* berr, lapack_complex_double* work, - double* rwork ); - -lapack_int LAPACKE_sgbsvxx_work( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, float* ab, lapack_int ldab, - float* afb, lapack_int ldafb, lapack_int* ipiv, - char* equed, float* r, float* c, float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* rcond, float* rpvgrw, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params, float* work, - lapack_int* iwork ); -lapack_int LAPACKE_dgbsvxx_work( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, double* ab, lapack_int ldab, - double* afb, lapack_int ldafb, - lapack_int* ipiv, char* equed, double* r, - double* c, double* b, lapack_int ldb, - double* x, lapack_int ldx, double* rcond, - double* rpvgrw, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params, double* work, - lapack_int* iwork ); -lapack_int LAPACKE_cgbsvxx_work( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, lapack_complex_float* ab, - lapack_int ldab, lapack_complex_float* afb, - lapack_int ldafb, lapack_int* ipiv, - char* equed, float* r, float* c, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* rpvgrw, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params, lapack_complex_float* work, - float* rwork ); -lapack_int LAPACKE_zgbsvxx_work( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int kl, lapack_int ku, - lapack_int nrhs, lapack_complex_double* ab, - lapack_int ldab, lapack_complex_double* afb, - lapack_int ldafb, lapack_int* ipiv, - char* equed, double* r, double* c, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* rpvgrw, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params, lapack_complex_double* work, - double* rwork ); - -lapack_int LAPACKE_sgbtrf_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, float* ab, - lapack_int ldab, lapack_int* ipiv ); -lapack_int LAPACKE_dgbtrf_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, double* ab, - lapack_int ldab, lapack_int* ipiv ); -lapack_int LAPACKE_cgbtrf_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, - lapack_complex_float* ab, lapack_int ldab, - lapack_int* ipiv ); -lapack_int LAPACKE_zgbtrf_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, - lapack_complex_double* ab, lapack_int ldab, - lapack_int* ipiv ); - -lapack_int LAPACKE_sgbtrs_work( int matrix_layout, char trans, lapack_int n, - lapack_int kl, lapack_int ku, lapack_int nrhs, - const float* ab, lapack_int ldab, - const lapack_int* ipiv, float* b, - lapack_int ldb ); -lapack_int LAPACKE_dgbtrs_work( int matrix_layout, char trans, lapack_int n, - lapack_int kl, lapack_int ku, lapack_int nrhs, - const double* ab, lapack_int ldab, - const lapack_int* ipiv, double* b, - lapack_int ldb ); -lapack_int LAPACKE_cgbtrs_work( int matrix_layout, char trans, lapack_int n, - lapack_int kl, lapack_int ku, lapack_int nrhs, - const lapack_complex_float* ab, lapack_int ldab, - const lapack_int* ipiv, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zgbtrs_work( int matrix_layout, char trans, lapack_int n, - lapack_int kl, lapack_int ku, lapack_int nrhs, - const lapack_complex_double* ab, - lapack_int ldab, const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_sgebak_work( int matrix_layout, char job, char side, - lapack_int n, lapack_int ilo, lapack_int ihi, - const float* scale, lapack_int m, float* v, - lapack_int ldv ); -lapack_int LAPACKE_dgebak_work( int matrix_layout, char job, char side, - lapack_int n, lapack_int ilo, lapack_int ihi, - const double* scale, lapack_int m, double* v, - lapack_int ldv ); -lapack_int LAPACKE_cgebak_work( int matrix_layout, char job, char side, - lapack_int n, lapack_int ilo, lapack_int ihi, - const float* scale, lapack_int m, - lapack_complex_float* v, lapack_int ldv ); -lapack_int LAPACKE_zgebak_work( int matrix_layout, char job, char side, - lapack_int n, lapack_int ilo, lapack_int ihi, - const double* scale, lapack_int m, - lapack_complex_double* v, lapack_int ldv ); - -lapack_int LAPACKE_sgebal_work( int matrix_layout, char job, lapack_int n, - float* a, lapack_int lda, lapack_int* ilo, - lapack_int* ihi, float* scale ); -lapack_int LAPACKE_dgebal_work( int matrix_layout, char job, lapack_int n, - double* a, lapack_int lda, lapack_int* ilo, - lapack_int* ihi, double* scale ); -lapack_int LAPACKE_cgebal_work( int matrix_layout, char job, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* ilo, lapack_int* ihi, - float* scale ); -lapack_int LAPACKE_zgebal_work( int matrix_layout, char job, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* ilo, lapack_int* ihi, - double* scale ); - -lapack_int LAPACKE_sgebrd_work( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, float* d, float* e, - float* tauq, float* taup, float* work, - lapack_int lwork ); -lapack_int LAPACKE_dgebrd_work( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, double* d, double* e, - double* tauq, double* taup, double* work, - lapack_int lwork ); -lapack_int LAPACKE_cgebrd_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - float* d, float* e, lapack_complex_float* tauq, - lapack_complex_float* taup, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgebrd_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - double* d, double* e, - lapack_complex_double* tauq, - lapack_complex_double* taup, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_sgecon_work( int matrix_layout, char norm, lapack_int n, - const float* a, lapack_int lda, float anorm, - float* rcond, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dgecon_work( int matrix_layout, char norm, lapack_int n, - const double* a, lapack_int lda, double anorm, - double* rcond, double* work, - lapack_int* iwork ); -lapack_int LAPACKE_cgecon_work( int matrix_layout, char norm, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - float anorm, float* rcond, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zgecon_work( int matrix_layout, char norm, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - double anorm, double* rcond, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_sgeequ_work( int matrix_layout, lapack_int m, lapack_int n, - const float* a, lapack_int lda, float* r, - float* c, float* rowcnd, float* colcnd, - float* amax ); -lapack_int LAPACKE_dgeequ_work( int matrix_layout, lapack_int m, lapack_int n, - const double* a, lapack_int lda, double* r, - double* c, double* rowcnd, double* colcnd, - double* amax ); -lapack_int LAPACKE_cgeequ_work( int matrix_layout, lapack_int m, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - float* r, float* c, float* rowcnd, - float* colcnd, float* amax ); -lapack_int LAPACKE_zgeequ_work( int matrix_layout, lapack_int m, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - double* r, double* c, double* rowcnd, - double* colcnd, double* amax ); - -lapack_int LAPACKE_sgeequb_work( int matrix_layout, lapack_int m, lapack_int n, - const float* a, lapack_int lda, float* r, - float* c, float* rowcnd, float* colcnd, - float* amax ); -lapack_int LAPACKE_dgeequb_work( int matrix_layout, lapack_int m, lapack_int n, - const double* a, lapack_int lda, double* r, - double* c, double* rowcnd, double* colcnd, - double* amax ); -lapack_int LAPACKE_cgeequb_work( int matrix_layout, lapack_int m, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - float* r, float* c, float* rowcnd, - float* colcnd, float* amax ); -lapack_int LAPACKE_zgeequb_work( int matrix_layout, lapack_int m, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - double* r, double* c, double* rowcnd, - double* colcnd, double* amax ); - -lapack_int LAPACKE_sgees_work( int matrix_layout, char jobvs, char sort, - LAPACK_S_SELECT2 select, lapack_int n, float* a, - lapack_int lda, lapack_int* sdim, float* wr, - float* wi, float* vs, lapack_int ldvs, - float* work, lapack_int lwork, - lapack_logical* bwork ); -lapack_int LAPACKE_dgees_work( int matrix_layout, char jobvs, char sort, - LAPACK_D_SELECT2 select, lapack_int n, double* a, - lapack_int lda, lapack_int* sdim, double* wr, - double* wi, double* vs, lapack_int ldvs, - double* work, lapack_int lwork, - lapack_logical* bwork ); -lapack_int LAPACKE_cgees_work( int matrix_layout, char jobvs, char sort, - LAPACK_C_SELECT1 select, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* sdim, lapack_complex_float* w, - lapack_complex_float* vs, lapack_int ldvs, - lapack_complex_float* work, lapack_int lwork, - float* rwork, lapack_logical* bwork ); -lapack_int LAPACKE_zgees_work( int matrix_layout, char jobvs, char sort, - LAPACK_Z_SELECT1 select, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* sdim, lapack_complex_double* w, - lapack_complex_double* vs, lapack_int ldvs, - lapack_complex_double* work, lapack_int lwork, - double* rwork, lapack_logical* bwork ); - -lapack_int LAPACKE_sgeesx_work( int matrix_layout, char jobvs, char sort, - LAPACK_S_SELECT2 select, char sense, - lapack_int n, float* a, lapack_int lda, - lapack_int* sdim, float* wr, float* wi, - float* vs, lapack_int ldvs, float* rconde, - float* rcondv, float* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork, - lapack_logical* bwork ); -lapack_int LAPACKE_dgeesx_work( int matrix_layout, char jobvs, char sort, - LAPACK_D_SELECT2 select, char sense, - lapack_int n, double* a, lapack_int lda, - lapack_int* sdim, double* wr, double* wi, - double* vs, lapack_int ldvs, double* rconde, - double* rcondv, double* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork, - lapack_logical* bwork ); -lapack_int LAPACKE_cgeesx_work( int matrix_layout, char jobvs, char sort, - LAPACK_C_SELECT1 select, char sense, - lapack_int n, lapack_complex_float* a, - lapack_int lda, lapack_int* sdim, - lapack_complex_float* w, - lapack_complex_float* vs, lapack_int ldvs, - float* rconde, float* rcondv, - lapack_complex_float* work, lapack_int lwork, - float* rwork, lapack_logical* bwork ); -lapack_int LAPACKE_zgeesx_work( int matrix_layout, char jobvs, char sort, - LAPACK_Z_SELECT1 select, char sense, - lapack_int n, lapack_complex_double* a, - lapack_int lda, lapack_int* sdim, - lapack_complex_double* w, - lapack_complex_double* vs, lapack_int ldvs, - double* rconde, double* rcondv, - lapack_complex_double* work, lapack_int lwork, - double* rwork, lapack_logical* bwork ); - -lapack_int LAPACKE_sgeev_work( int matrix_layout, char jobvl, char jobvr, - lapack_int n, float* a, lapack_int lda, - float* wr, float* wi, float* vl, lapack_int ldvl, - float* vr, lapack_int ldvr, float* work, - lapack_int lwork ); -lapack_int LAPACKE_dgeev_work( int matrix_layout, char jobvl, char jobvr, - lapack_int n, double* a, lapack_int lda, - double* wr, double* wi, double* vl, - lapack_int ldvl, double* vr, lapack_int ldvr, - double* work, lapack_int lwork ); -lapack_int LAPACKE_cgeev_work( int matrix_layout, char jobvl, char jobvr, - lapack_int n, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* w, - lapack_complex_float* vl, lapack_int ldvl, - lapack_complex_float* vr, lapack_int ldvr, - lapack_complex_float* work, lapack_int lwork, - float* rwork ); -lapack_int LAPACKE_zgeev_work( int matrix_layout, char jobvl, char jobvr, - lapack_int n, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* w, - lapack_complex_double* vl, lapack_int ldvl, - lapack_complex_double* vr, lapack_int ldvr, - lapack_complex_double* work, lapack_int lwork, - double* rwork ); - -lapack_int LAPACKE_sgeevx_work( int matrix_layout, char balanc, char jobvl, - char jobvr, char sense, lapack_int n, float* a, - lapack_int lda, float* wr, float* wi, float* vl, - lapack_int ldvl, float* vr, lapack_int ldvr, - lapack_int* ilo, lapack_int* ihi, float* scale, - float* abnrm, float* rconde, float* rcondv, - float* work, lapack_int lwork, - lapack_int* iwork ); -lapack_int LAPACKE_dgeevx_work( int matrix_layout, char balanc, char jobvl, - char jobvr, char sense, lapack_int n, double* a, - lapack_int lda, double* wr, double* wi, - double* vl, lapack_int ldvl, double* vr, - lapack_int ldvr, lapack_int* ilo, - lapack_int* ihi, double* scale, double* abnrm, - double* rconde, double* rcondv, double* work, - lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_cgeevx_work( int matrix_layout, char balanc, char jobvl, - char jobvr, char sense, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* w, - lapack_complex_float* vl, lapack_int ldvl, - lapack_complex_float* vr, lapack_int ldvr, - lapack_int* ilo, lapack_int* ihi, float* scale, - float* abnrm, float* rconde, float* rcondv, - lapack_complex_float* work, lapack_int lwork, - float* rwork ); -lapack_int LAPACKE_zgeevx_work( int matrix_layout, char balanc, char jobvl, - char jobvr, char sense, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* w, - lapack_complex_double* vl, lapack_int ldvl, - lapack_complex_double* vr, lapack_int ldvr, - lapack_int* ilo, lapack_int* ihi, double* scale, - double* abnrm, double* rconde, double* rcondv, - lapack_complex_double* work, lapack_int lwork, - double* rwork ); - -lapack_int LAPACKE_sgehrd_work( int matrix_layout, lapack_int n, lapack_int ilo, - lapack_int ihi, float* a, lapack_int lda, - float* tau, float* work, lapack_int lwork ); -lapack_int LAPACKE_dgehrd_work( int matrix_layout, lapack_int n, lapack_int ilo, - lapack_int ihi, double* a, lapack_int lda, - double* tau, double* work, lapack_int lwork ); -lapack_int LAPACKE_cgehrd_work( int matrix_layout, lapack_int n, lapack_int ilo, - lapack_int ihi, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* tau, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgehrd_work( int matrix_layout, lapack_int n, lapack_int ilo, - lapack_int ihi, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* tau, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_sgejsv_work( int matrix_layout, char joba, char jobu, - char jobv, char jobr, char jobt, char jobp, - lapack_int m, lapack_int n, float* a, - lapack_int lda, float* sva, float* u, - lapack_int ldu, float* v, lapack_int ldv, - float* work, lapack_int lwork, - lapack_int* iwork ); -lapack_int LAPACKE_dgejsv_work( int matrix_layout, char joba, char jobu, - char jobv, char jobr, char jobt, char jobp, - lapack_int m, lapack_int n, double* a, - lapack_int lda, double* sva, double* u, - lapack_int ldu, double* v, lapack_int ldv, - double* work, lapack_int lwork, - lapack_int* iwork ); -lapack_int LAPACKE_cgejsv_work( int matrix_layout, char joba, char jobu, - char jobv, char jobr, char jobt, char jobp, - lapack_int m, lapack_int n, lapack_complex_float* a, - lapack_int lda, float* sva, lapack_complex_float* u, - lapack_int ldu, lapack_complex_float* v, lapack_int ldv, - lapack_complex_float* cwork, lapack_int lwork, - float* work, lapack_int lrwork, - lapack_int* iwork ); -lapack_int LAPACKE_zgejsv_work( int matrix_layout, char joba, char jobu, - char jobv, char jobr, char jobt, char jobp, - lapack_int m, lapack_int n, lapack_complex_double* a, - lapack_int lda, double* sva, lapack_complex_double* u, - lapack_int ldu, lapack_complex_double* v, lapack_int ldv, - lapack_complex_double* cwork, lapack_int lwork, - double* work, lapack_int lrwork, - lapack_int* iwork ); - -lapack_int LAPACKE_sgelq2_work( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, float* tau, - float* work ); -lapack_int LAPACKE_dgelq2_work( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, double* tau, - double* work ); -lapack_int LAPACKE_cgelq2_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* tau, - lapack_complex_float* work ); -lapack_int LAPACKE_zgelq2_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* tau, - lapack_complex_double* work ); - -lapack_int LAPACKE_sgelqf_work( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, float* tau, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dgelqf_work( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, double* tau, - double* work, lapack_int lwork ); -lapack_int LAPACKE_cgelqf_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* tau, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgelqf_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* tau, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_sgels_work( int matrix_layout, char trans, lapack_int m, - lapack_int n, lapack_int nrhs, float* a, - lapack_int lda, float* b, lapack_int ldb, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dgels_work( int matrix_layout, char trans, lapack_int m, - lapack_int n, lapack_int nrhs, double* a, - lapack_int lda, double* b, lapack_int ldb, - double* work, lapack_int lwork ); -lapack_int LAPACKE_cgels_work( int matrix_layout, char trans, lapack_int m, - lapack_int n, lapack_int nrhs, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgels_work( int matrix_layout, char trans, lapack_int m, - lapack_int n, lapack_int nrhs, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_sgelsd_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, - float* b, lapack_int ldb, float* s, float rcond, - lapack_int* rank, float* work, lapack_int lwork, - lapack_int* iwork ); -lapack_int LAPACKE_dgelsd_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - double* b, lapack_int ldb, double* s, - double rcond, lapack_int* rank, double* work, - lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_cgelsd_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb, float* s, float rcond, - lapack_int* rank, lapack_complex_float* work, - lapack_int lwork, float* rwork, - lapack_int* iwork ); -lapack_int LAPACKE_zgelsd_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb, double* s, double rcond, - lapack_int* rank, lapack_complex_double* work, - lapack_int lwork, double* rwork, - lapack_int* iwork ); - -lapack_int LAPACKE_sgelss_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, - float* b, lapack_int ldb, float* s, float rcond, - lapack_int* rank, float* work, - lapack_int lwork ); -lapack_int LAPACKE_dgelss_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - double* b, lapack_int ldb, double* s, - double rcond, lapack_int* rank, double* work, - lapack_int lwork ); -lapack_int LAPACKE_cgelss_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb, float* s, float rcond, - lapack_int* rank, lapack_complex_float* work, - lapack_int lwork, float* rwork ); -lapack_int LAPACKE_zgelss_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb, double* s, double rcond, - lapack_int* rank, lapack_complex_double* work, - lapack_int lwork, double* rwork ); - -lapack_int LAPACKE_sgelsy_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, - float* b, lapack_int ldb, lapack_int* jpvt, - float rcond, lapack_int* rank, float* work, - lapack_int lwork ); -lapack_int LAPACKE_dgelsy_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - double* b, lapack_int ldb, lapack_int* jpvt, - double rcond, lapack_int* rank, double* work, - lapack_int lwork ); -lapack_int LAPACKE_cgelsy_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb, lapack_int* jpvt, float rcond, - lapack_int* rank, lapack_complex_float* work, - lapack_int lwork, float* rwork ); -lapack_int LAPACKE_zgelsy_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb, lapack_int* jpvt, double rcond, - lapack_int* rank, lapack_complex_double* work, - lapack_int lwork, double* rwork ); - -lapack_int LAPACKE_sgeqlf_work( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, float* tau, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dgeqlf_work( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, double* tau, - double* work, lapack_int lwork ); -lapack_int LAPACKE_cgeqlf_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* tau, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgeqlf_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* tau, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_sgeqp3_work( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, lapack_int* jpvt, - float* tau, float* work, lapack_int lwork ); -lapack_int LAPACKE_dgeqp3_work( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, lapack_int* jpvt, - double* tau, double* work, lapack_int lwork ); -lapack_int LAPACKE_cgeqp3_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* jpvt, lapack_complex_float* tau, - lapack_complex_float* work, lapack_int lwork, - float* rwork ); -lapack_int LAPACKE_zgeqp3_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* jpvt, lapack_complex_double* tau, - lapack_complex_double* work, lapack_int lwork, - double* rwork ); - -lapack_int LAPACKE_sgeqpf_work( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, lapack_int* jpvt, - float* tau, float* work ); -lapack_int LAPACKE_dgeqpf_work( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, lapack_int* jpvt, - double* tau, double* work ); -lapack_int LAPACKE_cgeqpf_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* jpvt, lapack_complex_float* tau, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zgeqpf_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* jpvt, lapack_complex_double* tau, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_sgeqr2_work( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, float* tau, - float* work ); -lapack_int LAPACKE_dgeqr2_work( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, double* tau, - double* work ); -lapack_int LAPACKE_cgeqr2_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* tau, - lapack_complex_float* work ); -lapack_int LAPACKE_zgeqr2_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* tau, - lapack_complex_double* work ); - -lapack_int LAPACKE_sgeqrf_work( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, float* tau, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dgeqrf_work( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, double* tau, - double* work, lapack_int lwork ); -lapack_int LAPACKE_cgeqrf_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* tau, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgeqrf_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* tau, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_sgeqrfp_work( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, float* tau, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dgeqrfp_work( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, double* tau, - double* work, lapack_int lwork ); -lapack_int LAPACKE_cgeqrfp_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* tau, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgeqrfp_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* tau, - lapack_complex_double* work, - lapack_int lwork ); - -lapack_int LAPACKE_sgerfs_work( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const float* a, lapack_int lda, - const float* af, lapack_int ldaf, - const lapack_int* ipiv, const float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* ferr, float* berr, float* work, - lapack_int* iwork ); -lapack_int LAPACKE_dgerfs_work( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const double* a, - lapack_int lda, const double* af, - lapack_int ldaf, const lapack_int* ipiv, - const double* b, lapack_int ldb, double* x, - lapack_int ldx, double* ferr, double* berr, - double* work, lapack_int* iwork ); -lapack_int LAPACKE_cgerfs_work( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* af, - lapack_int ldaf, const lapack_int* ipiv, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* ferr, float* berr, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zgerfs_work( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_complex_double* af, - lapack_int ldaf, const lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_sgerfsx_work( int matrix_layout, char trans, char equed, - lapack_int n, lapack_int nrhs, const float* a, - lapack_int lda, const float* af, - lapack_int ldaf, const lapack_int* ipiv, - const float* r, const float* c, const float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* rcond, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params, float* work, - lapack_int* iwork ); -lapack_int LAPACKE_dgerfsx_work( int matrix_layout, char trans, char equed, - lapack_int n, lapack_int nrhs, const double* a, - lapack_int lda, const double* af, - lapack_int ldaf, const lapack_int* ipiv, - const double* r, const double* c, - const double* b, lapack_int ldb, double* x, - lapack_int ldx, double* rcond, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params, double* work, - lapack_int* iwork ); -lapack_int LAPACKE_cgerfsx_work( int matrix_layout, char trans, char equed, - lapack_int n, lapack_int nrhs, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* af, - lapack_int ldaf, const lapack_int* ipiv, - const float* r, const float* c, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params, lapack_complex_float* work, - float* rwork ); -lapack_int LAPACKE_zgerfsx_work( int matrix_layout, char trans, char equed, - lapack_int n, lapack_int nrhs, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* af, - lapack_int ldaf, const lapack_int* ipiv, - const double* r, const double* c, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params, lapack_complex_double* work, - double* rwork ); - -lapack_int LAPACKE_sgerqf_work( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, float* tau, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dgerqf_work( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, double* tau, - double* work, lapack_int lwork ); -lapack_int LAPACKE_cgerqf_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* tau, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgerqf_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* tau, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_sgesdd_work( int matrix_layout, char jobz, lapack_int m, - lapack_int n, float* a, lapack_int lda, - float* s, float* u, lapack_int ldu, float* vt, - lapack_int ldvt, float* work, lapack_int lwork, - lapack_int* iwork ); -lapack_int LAPACKE_dgesdd_work( int matrix_layout, char jobz, lapack_int m, - lapack_int n, double* a, lapack_int lda, - double* s, double* u, lapack_int ldu, - double* vt, lapack_int ldvt, double* work, - lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_cgesdd_work( int matrix_layout, char jobz, lapack_int m, - lapack_int n, lapack_complex_float* a, - lapack_int lda, float* s, - lapack_complex_float* u, lapack_int ldu, - lapack_complex_float* vt, lapack_int ldvt, - lapack_complex_float* work, lapack_int lwork, - float* rwork, lapack_int* iwork ); -lapack_int LAPACKE_zgesdd_work( int matrix_layout, char jobz, lapack_int m, - lapack_int n, lapack_complex_double* a, - lapack_int lda, double* s, - lapack_complex_double* u, lapack_int ldu, - lapack_complex_double* vt, lapack_int ldvt, - lapack_complex_double* work, lapack_int lwork, - double* rwork, lapack_int* iwork ); - -lapack_int LAPACKE_sgedmd_work( int matrix_layout, char jobs, char jobz, - char jobr, char jobf, lapack_int whtsvd, - lapack_int m, lapack_int n, float* x, - lapack_int ldx, float* y, lapack_int ldy, - lapack_int nrnk, float* tol, lapack_int k, - float* reig, float* imeig, - float* z, lapack_int ldz, float* res, - float* b, lapack_int ldb, float* w, - lapack_int ldw, float* s, lapack_int lds, - float* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); - -lapack_int LAPACKE_dgedmd_work( int matrix_layout, char jobs, char jobz, - char jobr, char jobf, lapack_int whtsvd, - lapack_int m, lapack_int n, double* x, - lapack_int ldx, double* y, lapack_int ldy, - lapack_int nrnk, double* tol, lapack_int k, - double* reig, double *imeig, - double* z, lapack_int ldz, double* res, - double* b, lapack_int ldb, double* w, - lapack_int ldw, double* s, lapack_int lds, - double* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); - -lapack_int LAPACKE_cgedmd_work( int matrix_layout, char jobs, char jobz, - char jobr, char jobf, lapack_int whtsvd, - lapack_int m, lapack_int n, - lapack_complex_float* x, lapack_int ldx, - lapack_complex_float* y, lapack_int ldy, - lapack_int nrnk, float* tol, lapack_int k, - lapack_complex_float* eigs, - lapack_complex_float* z, lapack_int ldz, - float* res, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* w, lapack_int ldw, - lapack_complex_float* s, lapack_int lds, - lapack_complex_float* zwork, lapack_int lzwork, - float* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); - -lapack_int LAPACKE_zgedmd_work( int matrix_layout, char jobs, char jobz, - char jobr, char jobf, lapack_int whtsvd, - lapack_int m, lapack_int n, - lapack_complex_double* x, lapack_int ldx, - lapack_complex_double* y, lapack_int ldy, - lapack_int nrnk, double* tol, lapack_int k, - lapack_complex_double* eigs, - lapack_complex_double* z, lapack_int ldz, - double* res, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* w, lapack_int ldw, - lapack_complex_double* s, lapack_int lds, - lapack_complex_double* zwork, lapack_int lzwork, - double* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); - -lapack_int LAPACKE_sgedmdq_work( int matrix_layout, char jobs, char jobz, - char jobr, char jobq, char jobt, char jobf, - lapack_int whtsvd, lapack_int m, lapack_int n, - float* f, lapack_int ldf, float* x, - lapack_int ldx, float* y, lapack_int ldy, - lapack_int nrnk, float* tol, lapack_int k, - float* reig, float *imeig, float* z, - lapack_int ldz, float* res, float* b, - lapack_int ldb, float* v, lapack_int ldv, - float* s, lapack_int lds, float* work, - lapack_int lwork, lapack_int* iwork, - lapack_int liwork ); - -lapack_int LAPACKE_dgedmdq_work( int matrix_layout, char jobs, char jobz, - char jobr, char jobq, char jobt, char jobf, - lapack_int whtsvd, lapack_int m, lapack_int n, - double* f, lapack_int ldf, double* x, - lapack_int ldx, double* y, lapack_int ldy, - lapack_int nrnk, double* tol, lapack_int k, - double* reig, double* imeig, double* z, - lapack_int ldz, double* res, double* b, - lapack_int ldb, double* v, lapack_int ldv, - double* s, lapack_int lds, double* work, - lapack_int lwork, lapack_int* iwork, - lapack_int liwork ); - -lapack_int LAPACKE_cgedmdq_work( int matrix_layout, char jobs, char jobz, - char jobr, char jobq, char jobt, char jobf, - lapack_int whtsvd, lapack_int m, lapack_int n, - lapack_complex_float* f, lapack_int ldf, - lapack_complex_float* x, lapack_int ldx, - lapack_complex_float* y, lapack_int ldy, - lapack_int nrnk, float* tol, lapack_int k, - lapack_complex_float* eigs, - lapack_complex_float* z, lapack_int ldz, - float* res, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* v, lapack_int ldv, - lapack_complex_float* s, lapack_int lds, - lapack_complex_float* zwork, lapack_int lzwork, - float* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork); - -lapack_int LAPACKE_zgedmdq_work( int matrix_layout, char jobs, char jobz, - char jobr, char jobq, char jobt, char jobf, - lapack_int whtsvd, lapack_int m, lapack_int n, - lapack_complex_double* f, lapack_int ldf, - lapack_complex_double* x, lapack_int ldx, - lapack_complex_double* y, lapack_int ldy, - lapack_int nrnk, double* tol, lapack_int k, - lapack_complex_double* eigs, - lapack_complex_double* z, lapack_int ldz, - double* res, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* v, lapack_int ldv, - lapack_complex_double* s, lapack_int lds, - lapack_complex_double* zwork, lapack_int lzwork, - double* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork); - -lapack_int LAPACKE_sgesv_work( int matrix_layout, lapack_int n, lapack_int nrhs, - float* a, lapack_int lda, lapack_int* ipiv, - float* b, lapack_int ldb ); -lapack_int LAPACKE_dgesv_work( int matrix_layout, lapack_int n, lapack_int nrhs, - double* a, lapack_int lda, lapack_int* ipiv, - double* b, lapack_int ldb ); -lapack_int LAPACKE_cgesv_work( int matrix_layout, lapack_int n, lapack_int nrhs, - lapack_complex_float* a, lapack_int lda, - lapack_int* ipiv, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zgesv_work( int matrix_layout, lapack_int n, lapack_int nrhs, - lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv, lapack_complex_double* b, - lapack_int ldb ); -lapack_int LAPACKE_dsgesv_work( int matrix_layout, lapack_int n, lapack_int nrhs, - double* a, lapack_int lda, lapack_int* ipiv, - double* b, lapack_int ldb, double* x, - lapack_int ldx, double* work, float* swork, - lapack_int* iter ); -lapack_int LAPACKE_zcgesv_work( int matrix_layout, lapack_int n, lapack_int nrhs, - lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv, lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* x, - lapack_int ldx, lapack_complex_double* work, - lapack_complex_float* swork, double* rwork, - lapack_int* iter ); - -lapack_int LAPACKE_sgesvd_work( int matrix_layout, char jobu, char jobvt, - lapack_int m, lapack_int n, float* a, - lapack_int lda, float* s, float* u, - lapack_int ldu, float* vt, lapack_int ldvt, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dgesvd_work( int matrix_layout, char jobu, char jobvt, - lapack_int m, lapack_int n, double* a, - lapack_int lda, double* s, double* u, - lapack_int ldu, double* vt, lapack_int ldvt, - double* work, lapack_int lwork ); -lapack_int LAPACKE_cgesvd_work( int matrix_layout, char jobu, char jobvt, - lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - float* s, lapack_complex_float* u, - lapack_int ldu, lapack_complex_float* vt, - lapack_int ldvt, lapack_complex_float* work, - lapack_int lwork, float* rwork ); -lapack_int LAPACKE_zgesvd_work( int matrix_layout, char jobu, char jobvt, - lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - double* s, lapack_complex_double* u, - lapack_int ldu, lapack_complex_double* vt, - lapack_int ldvt, lapack_complex_double* work, - lapack_int lwork, double* rwork ); - -lapack_int LAPACKE_sgesvdx_work( int matrix_layout, char jobu, char jobvt, char range, - lapack_int m, lapack_int n, float* a, - lapack_int lda, float vl, float vu, - lapack_int il, lapack_int iu, lapack_int* ns, - float* s, float* u, lapack_int ldu, - float* vt, lapack_int ldvt, - float* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_dgesvdx_work( int matrix_layout, char jobu, char jobvt, char range, - lapack_int m, lapack_int n, double* a, - lapack_int lda, double vl, double vu, - lapack_int il, lapack_int iu, lapack_int* ns, - double* s, double* u, lapack_int ldu, - double* vt, lapack_int ldvt, - double* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_cgesvdx_work( int matrix_layout, char jobu, char jobvt, char range, - lapack_int m, lapack_int n, lapack_complex_float* a, - lapack_int lda, float vl, float vu, - lapack_int il, lapack_int iu, lapack_int* ns, - float* s, lapack_complex_float* u, lapack_int ldu, - lapack_complex_float* vt, lapack_int ldvt, - lapack_complex_float* work, lapack_int lwork, - float* rwork, lapack_int* iwork ); -lapack_int LAPACKE_zgesvdx_work( int matrix_layout, char jobu, char jobvt, char range, - lapack_int m, lapack_int n, lapack_complex_double* a, - lapack_int lda, double vl, double vu, - lapack_int il, lapack_int iu, lapack_int* ns, - double* s, lapack_complex_double* u, lapack_int ldu, - lapack_complex_double* vt, lapack_int ldvt, - lapack_complex_double* work, lapack_int lwork, - double* rwork, lapack_int* iwork ); - -lapack_int LAPACKE_sgesvdq_work( int matrix_layout, char joba, char jobp, - char jobr, char jobu, char jobv, - lapack_int m, lapack_int n, float* a, - lapack_int lda, float* s, float* u, - lapack_int ldu, float* v, lapack_int ldv, - lapack_int* numrank, - lapack_int* iwork, lapack_int liwork, - float* work, lapack_int lwork, - float* rwork, lapack_int lrwork); -lapack_int LAPACKE_dgesvdq_work( int matrix_layout, char joba, char jobp, - char jobr, char jobu, char jobv, - lapack_int m, lapack_int n, double* a, - lapack_int lda, double* s, double* u, - lapack_int ldu, double* v, lapack_int ldv, - lapack_int* numrank, - lapack_int* iwork, lapack_int liwork, - double* work, lapack_int lwork, - double* rwork, lapack_int lrwork); -lapack_int LAPACKE_cgesvdq_work( int matrix_layout, char joba, char jobp, - char jobr, char jobu, char jobv, - lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - float* s, lapack_complex_float* u, - lapack_int ldu, lapack_complex_float* v, - lapack_int ldv, lapack_int* numrank, - lapack_int* iwork, lapack_int liwork, - lapack_complex_float* cwork, lapack_int lcwork, - float* rwork, lapack_int lrwork); -lapack_int LAPACKE_zgesvdq_work( int matrix_layout, char joba, char jobp, - char jobr, char jobu, char jobv, - lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - double* s, lapack_complex_double* u, - lapack_int ldu, lapack_complex_double* v, - lapack_int ldv, lapack_int* numrank, - lapack_int* iwork, lapack_int liwork, - lapack_complex_double* cwork, lapack_int lcwork, - double* rwork, lapack_int lrwork); - -lapack_int LAPACKE_sgesvj_work( int matrix_layout, char joba, char jobu, - char jobv, lapack_int m, lapack_int n, float* a, - lapack_int lda, float* sva, lapack_int mv, - float* v, lapack_int ldv, float* work, - lapack_int lwork ); -lapack_int LAPACKE_dgesvj_work( int matrix_layout, char joba, char jobu, - char jobv, lapack_int m, lapack_int n, - double* a, lapack_int lda, double* sva, - lapack_int mv, double* v, lapack_int ldv, - double* work, lapack_int lwork ); -lapack_int LAPACKE_cgesvj_work( int matrix_layout, char joba, char jobu, - char jobv, lapack_int m, lapack_int n, lapack_complex_float* a, - lapack_int lda, float* sva, lapack_int mv, - lapack_complex_float* v, lapack_int ldv, - lapack_complex_float* cwork, lapack_int lwork, - float* rwork,lapack_int lrwork ); -lapack_int LAPACKE_zgesvj_work( int matrix_layout, char joba, char jobu, - char jobv, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, double* sva, - lapack_int mv, lapack_complex_double* v, lapack_int ldv, - lapack_complex_double* cwork, lapack_int lwork, - double* rwork, lapack_int lrwork ); - -lapack_int LAPACKE_sgesvx_work( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, float* a, - lapack_int lda, float* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, float* r, - float* c, float* b, lapack_int ldb, float* x, - lapack_int ldx, float* rcond, float* ferr, - float* berr, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dgesvx_work( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, double* a, - lapack_int lda, double* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, double* r, - double* c, double* b, lapack_int ldb, double* x, - lapack_int ldx, double* rcond, double* ferr, - double* berr, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cgesvx_work( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, float* r, - float* c, lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* x, - lapack_int ldx, float* rcond, float* ferr, - float* berr, lapack_complex_float* work, - float* rwork ); -lapack_int LAPACKE_zgesvx_work( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, double* r, - double* c, lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* x, - lapack_int ldx, double* rcond, double* ferr, - double* berr, lapack_complex_double* work, - double* rwork ); - -lapack_int LAPACKE_sgesvxx_work( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, float* a, - lapack_int lda, float* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, float* r, - float* c, float* b, lapack_int ldb, float* x, - lapack_int ldx, float* rcond, float* rpvgrw, - float* berr, lapack_int n_err_bnds, - float* err_bnds_norm, float* err_bnds_comp, - lapack_int nparams, float* params, float* work, - lapack_int* iwork ); -lapack_int LAPACKE_dgesvxx_work( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, double* a, - lapack_int lda, double* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, double* r, - double* c, double* b, lapack_int ldb, - double* x, lapack_int ldx, double* rcond, - double* rpvgrw, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params, double* work, - lapack_int* iwork ); -lapack_int LAPACKE_cgesvxx_work( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, float* r, - float* c, lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* x, - lapack_int ldx, float* rcond, float* rpvgrw, - float* berr, lapack_int n_err_bnds, - float* err_bnds_norm, float* err_bnds_comp, - lapack_int nparams, float* params, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zgesvxx_work( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, double* r, - double* c, lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* x, - lapack_int ldx, double* rcond, double* rpvgrw, - double* berr, lapack_int n_err_bnds, - double* err_bnds_norm, double* err_bnds_comp, - lapack_int nparams, double* params, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_sgetf2_work( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_dgetf2_work( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_cgetf2_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* ipiv ); -lapack_int LAPACKE_zgetf2_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv ); - -lapack_int LAPACKE_sgetrf_work( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_dgetrf_work( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_cgetrf_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* ipiv ); -lapack_int LAPACKE_zgetrf_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv ); - -lapack_int LAPACKE_sgetrf2_work( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_dgetrf2_work( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_cgetrf2_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* ipiv ); -lapack_int LAPACKE_zgetrf2_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv ); - -lapack_int LAPACKE_sgetri_work( int matrix_layout, lapack_int n, float* a, - lapack_int lda, const lapack_int* ipiv, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dgetri_work( int matrix_layout, lapack_int n, double* a, - lapack_int lda, const lapack_int* ipiv, - double* work, lapack_int lwork ); -lapack_int LAPACKE_cgetri_work( int matrix_layout, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_int* ipiv, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgetri_work( int matrix_layout, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_int* ipiv, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_sgetrs_work( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const float* a, lapack_int lda, - const lapack_int* ipiv, float* b, - lapack_int ldb ); -lapack_int LAPACKE_dgetrs_work( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const double* a, - lapack_int lda, const lapack_int* ipiv, - double* b, lapack_int ldb ); -lapack_int LAPACKE_cgetrs_work( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zgetrs_work( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_sggbak_work( int matrix_layout, char job, char side, - lapack_int n, lapack_int ilo, lapack_int ihi, - const float* lscale, const float* rscale, - lapack_int m, float* v, lapack_int ldv ); -lapack_int LAPACKE_dggbak_work( int matrix_layout, char job, char side, - lapack_int n, lapack_int ilo, lapack_int ihi, - const double* lscale, const double* rscale, - lapack_int m, double* v, lapack_int ldv ); -lapack_int LAPACKE_cggbak_work( int matrix_layout, char job, char side, - lapack_int n, lapack_int ilo, lapack_int ihi, - const float* lscale, const float* rscale, - lapack_int m, lapack_complex_float* v, - lapack_int ldv ); -lapack_int LAPACKE_zggbak_work( int matrix_layout, char job, char side, - lapack_int n, lapack_int ilo, lapack_int ihi, - const double* lscale, const double* rscale, - lapack_int m, lapack_complex_double* v, - lapack_int ldv ); - -lapack_int LAPACKE_sggbal_work( int matrix_layout, char job, lapack_int n, - float* a, lapack_int lda, float* b, - lapack_int ldb, lapack_int* ilo, - lapack_int* ihi, float* lscale, float* rscale, - float* work ); -lapack_int LAPACKE_dggbal_work( int matrix_layout, char job, lapack_int n, - double* a, lapack_int lda, double* b, - lapack_int ldb, lapack_int* ilo, - lapack_int* ihi, double* lscale, double* rscale, - double* work ); -lapack_int LAPACKE_cggbal_work( int matrix_layout, char job, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_int* ilo, lapack_int* ihi, float* lscale, - float* rscale, float* work ); -lapack_int LAPACKE_zggbal_work( int matrix_layout, char job, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_int* ilo, lapack_int* ihi, - double* lscale, double* rscale, double* work ); - -lapack_int LAPACKE_sgges_work( int matrix_layout, char jobvsl, char jobvsr, - char sort, LAPACK_S_SELECT3 selctg, lapack_int n, - float* a, lapack_int lda, float* b, - lapack_int ldb, lapack_int* sdim, float* alphar, - float* alphai, float* beta, float* vsl, - lapack_int ldvsl, float* vsr, lapack_int ldvsr, - float* work, lapack_int lwork, - lapack_logical* bwork ); -lapack_int LAPACKE_dgges_work( int matrix_layout, char jobvsl, char jobvsr, - char sort, LAPACK_D_SELECT3 selctg, lapack_int n, - double* a, lapack_int lda, double* b, - lapack_int ldb, lapack_int* sdim, double* alphar, - double* alphai, double* beta, double* vsl, - lapack_int ldvsl, double* vsr, lapack_int ldvsr, - double* work, lapack_int lwork, - lapack_logical* bwork ); -lapack_int LAPACKE_cgges_work( int matrix_layout, char jobvsl, char jobvsr, - char sort, LAPACK_C_SELECT2 selctg, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_int* sdim, lapack_complex_float* alpha, - lapack_complex_float* beta, - lapack_complex_float* vsl, lapack_int ldvsl, - lapack_complex_float* vsr, lapack_int ldvsr, - lapack_complex_float* work, lapack_int lwork, - float* rwork, lapack_logical* bwork ); -lapack_int LAPACKE_zgges_work( int matrix_layout, char jobvsl, char jobvsr, - char sort, LAPACK_Z_SELECT2 selctg, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_int* sdim, lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* vsl, lapack_int ldvsl, - lapack_complex_double* vsr, lapack_int ldvsr, - lapack_complex_double* work, lapack_int lwork, - double* rwork, lapack_logical* bwork ); - -lapack_int LAPACKE_sgges3_work( int matrix_layout, char jobvsl, char jobvsr, - char sort, LAPACK_S_SELECT3 selctg, - lapack_int n, - float* a, lapack_int lda, - float* b, lapack_int ldb, lapack_int* sdim, - float* alphar, float* alphai, float* beta, - float* vsl, lapack_int ldvsl, - float* vsr, lapack_int ldvsr, - float* work, lapack_int lwork, - lapack_logical* bwork ); -lapack_int LAPACKE_dgges3_work( int matrix_layout, char jobvsl, char jobvsr, - char sort, LAPACK_D_SELECT3 selctg, - lapack_int n, - double* a, lapack_int lda, - double* b, lapack_int ldb, lapack_int* sdim, - double* alphar, double* alphai, double* beta, - double* vsl, lapack_int ldvsl, - double* vsr, lapack_int ldvsr, - double* work, lapack_int lwork, - lapack_logical* bwork ); -lapack_int LAPACKE_cgges3_work( int matrix_layout, char jobvsl, char jobvsr, - char sort, LAPACK_C_SELECT2 selctg, - lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_int* sdim, lapack_complex_float* alpha, - lapack_complex_float* beta, - lapack_complex_float* vsl, lapack_int ldvsl, - lapack_complex_float* vsr, lapack_int ldvsr, - lapack_complex_float* work, lapack_int lwork, - float* rwork, lapack_logical* bwork ); -lapack_int LAPACKE_zgges3_work( int matrix_layout, char jobvsl, char jobvsr, - char sort, LAPACK_Z_SELECT2 selctg, - lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_int* sdim, lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* vsl, lapack_int ldvsl, - lapack_complex_double* vsr, lapack_int ldvsr, - lapack_complex_double* work, lapack_int lwork, - double* rwork, lapack_logical* bwork ); - -lapack_int LAPACKE_sggesx_work( int matrix_layout, char jobvsl, char jobvsr, - char sort, LAPACK_S_SELECT3 selctg, char sense, - lapack_int n, float* a, lapack_int lda, - float* b, lapack_int ldb, lapack_int* sdim, - float* alphar, float* alphai, float* beta, - float* vsl, lapack_int ldvsl, float* vsr, - lapack_int ldvsr, float* rconde, float* rcondv, - float* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork, - lapack_logical* bwork ); -lapack_int LAPACKE_dggesx_work( int matrix_layout, char jobvsl, char jobvsr, - char sort, LAPACK_D_SELECT3 selctg, char sense, - lapack_int n, double* a, lapack_int lda, - double* b, lapack_int ldb, lapack_int* sdim, - double* alphar, double* alphai, double* beta, - double* vsl, lapack_int ldvsl, double* vsr, - lapack_int ldvsr, double* rconde, - double* rcondv, double* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork, - lapack_logical* bwork ); -lapack_int LAPACKE_cggesx_work( int matrix_layout, char jobvsl, char jobvsr, - char sort, LAPACK_C_SELECT2 selctg, char sense, - lapack_int n, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb, lapack_int* sdim, - lapack_complex_float* alpha, - lapack_complex_float* beta, - lapack_complex_float* vsl, lapack_int ldvsl, - lapack_complex_float* vsr, lapack_int ldvsr, - float* rconde, float* rcondv, - lapack_complex_float* work, lapack_int lwork, - float* rwork, lapack_int* iwork, - lapack_int liwork, lapack_logical* bwork ); -lapack_int LAPACKE_zggesx_work( int matrix_layout, char jobvsl, char jobvsr, - char sort, LAPACK_Z_SELECT2 selctg, char sense, - lapack_int n, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb, lapack_int* sdim, - lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* vsl, lapack_int ldvsl, - lapack_complex_double* vsr, lapack_int ldvsr, - double* rconde, double* rcondv, - lapack_complex_double* work, lapack_int lwork, - double* rwork, lapack_int* iwork, - lapack_int liwork, lapack_logical* bwork ); - -lapack_int LAPACKE_sggev_work( int matrix_layout, char jobvl, char jobvr, - lapack_int n, float* a, lapack_int lda, float* b, - lapack_int ldb, float* alphar, float* alphai, - float* beta, float* vl, lapack_int ldvl, - float* vr, lapack_int ldvr, float* work, - lapack_int lwork ); -lapack_int LAPACKE_dggev_work( int matrix_layout, char jobvl, char jobvr, - lapack_int n, double* a, lapack_int lda, - double* b, lapack_int ldb, double* alphar, - double* alphai, double* beta, double* vl, - lapack_int ldvl, double* vr, lapack_int ldvr, - double* work, lapack_int lwork ); -lapack_int LAPACKE_cggev_work( int matrix_layout, char jobvl, char jobvr, - lapack_int n, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* alpha, - lapack_complex_float* beta, - lapack_complex_float* vl, lapack_int ldvl, - lapack_complex_float* vr, lapack_int ldvr, - lapack_complex_float* work, lapack_int lwork, - float* rwork ); -lapack_int LAPACKE_zggev_work( int matrix_layout, char jobvl, char jobvr, - lapack_int n, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* vl, lapack_int ldvl, - lapack_complex_double* vr, lapack_int ldvr, - lapack_complex_double* work, lapack_int lwork, - double* rwork ); - -lapack_int LAPACKE_sggev3_work( int matrix_layout, char jobvl, char jobvr, - lapack_int n, - float* a, lapack_int lda, - float* b, lapack_int ldb, - float* alphar, float* alphai, float* beta, - float* vl, lapack_int ldvl, - float* vr, lapack_int ldvr, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dggev3_work( int matrix_layout, char jobvl, char jobvr, - lapack_int n, - double* a, lapack_int lda, - double* b, lapack_int ldb, - double* alphar, double* alphai, double* beta, - double* vl, lapack_int ldvl, - double* vr, lapack_int ldvr, - double* work, lapack_int lwork ); -lapack_int LAPACKE_cggev3_work( int matrix_layout, char jobvl, char jobvr, - lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* alpha, - lapack_complex_float* beta, - lapack_complex_float* vl, lapack_int ldvl, - lapack_complex_float* vr, lapack_int ldvr, - lapack_complex_float* work, lapack_int lwork, - float* rwork ); -lapack_int LAPACKE_zggev3_work( int matrix_layout, char jobvl, char jobvr, - lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* vl, lapack_int ldvl, - lapack_complex_double* vr, lapack_int ldvr, - lapack_complex_double* work, lapack_int lwork, - double* rwork ); - -lapack_int LAPACKE_sggevx_work( int matrix_layout, char balanc, char jobvl, - char jobvr, char sense, lapack_int n, float* a, - lapack_int lda, float* b, lapack_int ldb, - float* alphar, float* alphai, float* beta, - float* vl, lapack_int ldvl, float* vr, - lapack_int ldvr, lapack_int* ilo, - lapack_int* ihi, float* lscale, float* rscale, - float* abnrm, float* bbnrm, float* rconde, - float* rcondv, float* work, lapack_int lwork, - lapack_int* iwork, lapack_logical* bwork ); -lapack_int LAPACKE_dggevx_work( int matrix_layout, char balanc, char jobvl, - char jobvr, char sense, lapack_int n, double* a, - lapack_int lda, double* b, lapack_int ldb, - double* alphar, double* alphai, double* beta, - double* vl, lapack_int ldvl, double* vr, - lapack_int ldvr, lapack_int* ilo, - lapack_int* ihi, double* lscale, double* rscale, - double* abnrm, double* bbnrm, double* rconde, - double* rcondv, double* work, lapack_int lwork, - lapack_int* iwork, lapack_logical* bwork ); -lapack_int LAPACKE_cggevx_work( int matrix_layout, char balanc, char jobvl, - char jobvr, char sense, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* alpha, - lapack_complex_float* beta, - lapack_complex_float* vl, lapack_int ldvl, - lapack_complex_float* vr, lapack_int ldvr, - lapack_int* ilo, lapack_int* ihi, float* lscale, - float* rscale, float* abnrm, float* bbnrm, - float* rconde, float* rcondv, - lapack_complex_float* work, lapack_int lwork, - float* rwork, lapack_int* iwork, - lapack_logical* bwork ); -lapack_int LAPACKE_zggevx_work( int matrix_layout, char balanc, char jobvl, - char jobvr, char sense, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* vl, lapack_int ldvl, - lapack_complex_double* vr, lapack_int ldvr, - lapack_int* ilo, lapack_int* ihi, - double* lscale, double* rscale, double* abnrm, - double* bbnrm, double* rconde, double* rcondv, - lapack_complex_double* work, lapack_int lwork, - double* rwork, lapack_int* iwork, - lapack_logical* bwork ); - -lapack_int LAPACKE_sggglm_work( int matrix_layout, lapack_int n, lapack_int m, - lapack_int p, float* a, lapack_int lda, - float* b, lapack_int ldb, float* d, float* x, - float* y, float* work, lapack_int lwork ); -lapack_int LAPACKE_dggglm_work( int matrix_layout, lapack_int n, lapack_int m, - lapack_int p, double* a, lapack_int lda, - double* b, lapack_int ldb, double* d, double* x, - double* y, double* work, lapack_int lwork ); -lapack_int LAPACKE_cggglm_work( int matrix_layout, lapack_int n, lapack_int m, - lapack_int p, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* d, - lapack_complex_float* x, - lapack_complex_float* y, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zggglm_work( int matrix_layout, lapack_int n, lapack_int m, - lapack_int p, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* d, - lapack_complex_double* x, - lapack_complex_double* y, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_sgghrd_work( int matrix_layout, char compq, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - float* a, lapack_int lda, float* b, - lapack_int ldb, float* q, lapack_int ldq, - float* z, lapack_int ldz ); -lapack_int LAPACKE_dgghrd_work( int matrix_layout, char compq, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - double* a, lapack_int lda, double* b, - lapack_int ldb, double* q, lapack_int ldq, - double* z, lapack_int ldz ); -lapack_int LAPACKE_cgghrd_work( int matrix_layout, char compq, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* q, lapack_int ldq, - lapack_complex_float* z, lapack_int ldz ); -lapack_int LAPACKE_zgghrd_work( int matrix_layout, char compq, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* q, lapack_int ldq, - lapack_complex_double* z, lapack_int ldz ); - -lapack_int LAPACKE_sgghd3_work( int matrix_layout, char compq, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - float* a, lapack_int lda, - float* b, lapack_int ldb, - float* q, lapack_int ldq, - float* z, lapack_int ldz, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dgghd3_work( int matrix_layout, char compq, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - double* a, lapack_int lda, - double* b, lapack_int ldb, - double* q, lapack_int ldq, - double* z, lapack_int ldz, - double* work, lapack_int lwork ); -lapack_int LAPACKE_cgghd3_work( int matrix_layout, char compq, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* q, lapack_int ldq, - lapack_complex_float* z, lapack_int ldz, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgghd3_work( int matrix_layout, char compq, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* q, lapack_int ldq, - lapack_complex_double* z, lapack_int ldz, - lapack_complex_double* work, - lapack_int lwork ); - -lapack_int LAPACKE_sgglse_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int p, float* a, lapack_int lda, - float* b, lapack_int ldb, float* c, float* d, - float* x, float* work, lapack_int lwork ); -lapack_int LAPACKE_dgglse_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int p, double* a, lapack_int lda, - double* b, lapack_int ldb, double* c, double* d, - double* x, double* work, lapack_int lwork ); -lapack_int LAPACKE_cgglse_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int p, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* c, - lapack_complex_float* d, - lapack_complex_float* x, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgglse_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int p, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* c, - lapack_complex_double* d, - lapack_complex_double* x, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_sggqrf_work( int matrix_layout, lapack_int n, lapack_int m, - lapack_int p, float* a, lapack_int lda, - float* taua, float* b, lapack_int ldb, - float* taub, float* work, lapack_int lwork ); -lapack_int LAPACKE_dggqrf_work( int matrix_layout, lapack_int n, lapack_int m, - lapack_int p, double* a, lapack_int lda, - double* taua, double* b, lapack_int ldb, - double* taub, double* work, lapack_int lwork ); -lapack_int LAPACKE_cggqrf_work( int matrix_layout, lapack_int n, lapack_int m, - lapack_int p, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* taua, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* taub, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zggqrf_work( int matrix_layout, lapack_int n, lapack_int m, - lapack_int p, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* taua, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* taub, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_sggrqf_work( int matrix_layout, lapack_int m, lapack_int p, - lapack_int n, float* a, lapack_int lda, - float* taua, float* b, lapack_int ldb, - float* taub, float* work, lapack_int lwork ); -lapack_int LAPACKE_dggrqf_work( int matrix_layout, lapack_int m, lapack_int p, - lapack_int n, double* a, lapack_int lda, - double* taua, double* b, lapack_int ldb, - double* taub, double* work, lapack_int lwork ); -lapack_int LAPACKE_cggrqf_work( int matrix_layout, lapack_int m, lapack_int p, - lapack_int n, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* taua, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* taub, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zggrqf_work( int matrix_layout, lapack_int m, lapack_int p, - lapack_int n, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* taua, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* taub, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_sggsvd_work( int matrix_layout, char jobu, char jobv, - char jobq, lapack_int m, lapack_int n, - lapack_int p, lapack_int* k, lapack_int* l, - float* a, lapack_int lda, float* b, - lapack_int ldb, float* alpha, float* beta, - float* u, lapack_int ldu, float* v, - lapack_int ldv, float* q, lapack_int ldq, - float* work, lapack_int* iwork ); -lapack_int LAPACKE_dggsvd_work( int matrix_layout, char jobu, char jobv, - char jobq, lapack_int m, lapack_int n, - lapack_int p, lapack_int* k, lapack_int* l, - double* a, lapack_int lda, double* b, - lapack_int ldb, double* alpha, double* beta, - double* u, lapack_int ldu, double* v, - lapack_int ldv, double* q, lapack_int ldq, - double* work, lapack_int* iwork ); -lapack_int LAPACKE_cggsvd_work( int matrix_layout, char jobu, char jobv, - char jobq, lapack_int m, lapack_int n, - lapack_int p, lapack_int* k, lapack_int* l, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - float* alpha, float* beta, - lapack_complex_float* u, lapack_int ldu, - lapack_complex_float* v, lapack_int ldv, - lapack_complex_float* q, lapack_int ldq, - lapack_complex_float* work, float* rwork, - lapack_int* iwork ); -lapack_int LAPACKE_zggsvd_work( int matrix_layout, char jobu, char jobv, - char jobq, lapack_int m, lapack_int n, - lapack_int p, lapack_int* k, lapack_int* l, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - double* alpha, double* beta, - lapack_complex_double* u, lapack_int ldu, - lapack_complex_double* v, lapack_int ldv, - lapack_complex_double* q, lapack_int ldq, - lapack_complex_double* work, double* rwork, - lapack_int* iwork ); - -lapack_int LAPACKE_sggsvd3_work( int matrix_layout, char jobu, char jobv, - char jobq, lapack_int m, lapack_int n, - lapack_int p, lapack_int* k, lapack_int* l, - float* a, lapack_int lda, float* b, - lapack_int ldb, float* alpha, float* beta, - float* u, lapack_int ldu, float* v, - lapack_int ldv, float* q, lapack_int ldq, - float* work, lapack_int lwork, - lapack_int* iwork ); -lapack_int LAPACKE_dggsvd3_work( int matrix_layout, char jobu, char jobv, - char jobq, lapack_int m, lapack_int n, - lapack_int p, lapack_int* k, lapack_int* l, - double* a, lapack_int lda, double* b, - lapack_int ldb, double* alpha, double* beta, - double* u, lapack_int ldu, double* v, - lapack_int ldv, double* q, lapack_int ldq, - double* work, lapack_int lwork, - lapack_int* iwork ); -lapack_int LAPACKE_cggsvd3_work( int matrix_layout, char jobu, char jobv, - char jobq, lapack_int m, lapack_int n, - lapack_int p, lapack_int* k, lapack_int* l, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - float* alpha, float* beta, - lapack_complex_float* u, lapack_int ldu, - lapack_complex_float* v, lapack_int ldv, - lapack_complex_float* q, lapack_int ldq, - lapack_complex_float* work, lapack_int lwork, - float* rwork, lapack_int* iwork ); -lapack_int LAPACKE_zggsvd3_work( int matrix_layout, char jobu, char jobv, - char jobq, lapack_int m, lapack_int n, - lapack_int p, lapack_int* k, lapack_int* l, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - double* alpha, double* beta, - lapack_complex_double* u, lapack_int ldu, - lapack_complex_double* v, lapack_int ldv, - lapack_complex_double* q, lapack_int ldq, - lapack_complex_double* work, lapack_int lwork, - double* rwork, lapack_int* iwork ); - -lapack_int LAPACKE_sggsvp_work( int matrix_layout, char jobu, char jobv, - char jobq, lapack_int m, lapack_int p, - lapack_int n, float* a, lapack_int lda, - float* b, lapack_int ldb, float tola, - float tolb, lapack_int* k, lapack_int* l, - float* u, lapack_int ldu, float* v, - lapack_int ldv, float* q, lapack_int ldq, - lapack_int* iwork, float* tau, float* work ); -lapack_int LAPACKE_dggsvp_work( int matrix_layout, char jobu, char jobv, - char jobq, lapack_int m, lapack_int p, - lapack_int n, double* a, lapack_int lda, - double* b, lapack_int ldb, double tola, - double tolb, lapack_int* k, lapack_int* l, - double* u, lapack_int ldu, double* v, - lapack_int ldv, double* q, lapack_int ldq, - lapack_int* iwork, double* tau, double* work ); -lapack_int LAPACKE_cggsvp_work( int matrix_layout, char jobu, char jobv, - char jobq, lapack_int m, lapack_int p, - lapack_int n, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb, float tola, float tolb, - lapack_int* k, lapack_int* l, - lapack_complex_float* u, lapack_int ldu, - lapack_complex_float* v, lapack_int ldv, - lapack_complex_float* q, lapack_int ldq, - lapack_int* iwork, float* rwork, - lapack_complex_float* tau, - lapack_complex_float* work ); -lapack_int LAPACKE_zggsvp_work( int matrix_layout, char jobu, char jobv, - char jobq, lapack_int m, lapack_int p, - lapack_int n, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb, double tola, double tolb, - lapack_int* k, lapack_int* l, - lapack_complex_double* u, lapack_int ldu, - lapack_complex_double* v, lapack_int ldv, - lapack_complex_double* q, lapack_int ldq, - lapack_int* iwork, double* rwork, - lapack_complex_double* tau, - lapack_complex_double* work ); - -lapack_int LAPACKE_sggsvp3_work( int matrix_layout, char jobu, char jobv, - char jobq, lapack_int m, lapack_int p, - lapack_int n, float* a, lapack_int lda, - float* b, lapack_int ldb, float tola, - float tolb, lapack_int* k, lapack_int* l, - float* u, lapack_int ldu, float* v, - lapack_int ldv, float* q, lapack_int ldq, - lapack_int* iwork, float* tau, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dggsvp3_work( int matrix_layout, char jobu, char jobv, - char jobq, lapack_int m, lapack_int p, - lapack_int n, double* a, lapack_int lda, - double* b, lapack_int ldb, double tola, - double tolb, lapack_int* k, lapack_int* l, - double* u, lapack_int ldu, double* v, - lapack_int ldv, double* q, lapack_int ldq, - lapack_int* iwork, double* tau, double* work, - lapack_int lwork ); -lapack_int LAPACKE_cggsvp3_work( int matrix_layout, char jobu, char jobv, - char jobq, lapack_int m, lapack_int p, - lapack_int n, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb, float tola, float tolb, - lapack_int* k, lapack_int* l, - lapack_complex_float* u, lapack_int ldu, - lapack_complex_float* v, lapack_int ldv, - lapack_complex_float* q, lapack_int ldq, - lapack_int* iwork, float* rwork, - lapack_complex_float* tau, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zggsvp3_work( int matrix_layout, char jobu, char jobv, - char jobq, lapack_int m, lapack_int p, - lapack_int n, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb, double tola, double tolb, - lapack_int* k, lapack_int* l, - lapack_complex_double* u, lapack_int ldu, - lapack_complex_double* v, lapack_int ldv, - lapack_complex_double* q, lapack_int ldq, - lapack_int* iwork, double* rwork, - lapack_complex_double* tau, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_sgtcon_work( char norm, lapack_int n, const float* dl, - const float* d, const float* du, - const float* du2, const lapack_int* ipiv, - float anorm, float* rcond, float* work, - lapack_int* iwork ); -lapack_int LAPACKE_dgtcon_work( char norm, lapack_int n, const double* dl, - const double* d, const double* du, - const double* du2, const lapack_int* ipiv, - double anorm, double* rcond, double* work, - lapack_int* iwork ); -lapack_int LAPACKE_cgtcon_work( char norm, lapack_int n, - const lapack_complex_float* dl, - const lapack_complex_float* d, - const lapack_complex_float* du, - const lapack_complex_float* du2, - const lapack_int* ipiv, float anorm, - float* rcond, lapack_complex_float* work ); -lapack_int LAPACKE_zgtcon_work( char norm, lapack_int n, - const lapack_complex_double* dl, - const lapack_complex_double* d, - const lapack_complex_double* du, - const lapack_complex_double* du2, - const lapack_int* ipiv, double anorm, - double* rcond, lapack_complex_double* work ); - -lapack_int LAPACKE_sgtrfs_work( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const float* dl, - const float* d, const float* du, - const float* dlf, const float* df, - const float* duf, const float* du2, - const lapack_int* ipiv, const float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* ferr, float* berr, float* work, - lapack_int* iwork ); -lapack_int LAPACKE_dgtrfs_work( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const double* dl, - const double* d, const double* du, - const double* dlf, const double* df, - const double* duf, const double* du2, - const lapack_int* ipiv, const double* b, - lapack_int ldb, double* x, lapack_int ldx, - double* ferr, double* berr, double* work, - lapack_int* iwork ); -lapack_int LAPACKE_cgtrfs_work( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const lapack_complex_float* dl, - const lapack_complex_float* d, - const lapack_complex_float* du, - const lapack_complex_float* dlf, - const lapack_complex_float* df, - const lapack_complex_float* duf, - const lapack_complex_float* du2, - const lapack_int* ipiv, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* ferr, float* berr, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zgtrfs_work( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, - const lapack_complex_double* dl, - const lapack_complex_double* d, - const lapack_complex_double* du, - const lapack_complex_double* dlf, - const lapack_complex_double* df, - const lapack_complex_double* duf, - const lapack_complex_double* du2, - const lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_sgtsv_work( int matrix_layout, lapack_int n, lapack_int nrhs, - float* dl, float* d, float* du, float* b, - lapack_int ldb ); -lapack_int LAPACKE_dgtsv_work( int matrix_layout, lapack_int n, lapack_int nrhs, - double* dl, double* d, double* du, double* b, - lapack_int ldb ); -lapack_int LAPACKE_cgtsv_work( int matrix_layout, lapack_int n, lapack_int nrhs, - lapack_complex_float* dl, - lapack_complex_float* d, - lapack_complex_float* du, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zgtsv_work( int matrix_layout, lapack_int n, lapack_int nrhs, - lapack_complex_double* dl, - lapack_complex_double* d, - lapack_complex_double* du, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_sgtsvx_work( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, const float* dl, - const float* d, const float* du, float* dlf, - float* df, float* duf, float* du2, - lapack_int* ipiv, const float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* rcond, float* ferr, float* berr, - float* work, lapack_int* iwork ); -lapack_int LAPACKE_dgtsvx_work( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, const double* dl, - const double* d, const double* du, double* dlf, - double* df, double* duf, double* du2, - lapack_int* ipiv, const double* b, - lapack_int ldb, double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr, - double* work, lapack_int* iwork ); -lapack_int LAPACKE_cgtsvx_work( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, - const lapack_complex_float* dl, - const lapack_complex_float* d, - const lapack_complex_float* du, - lapack_complex_float* dlf, - lapack_complex_float* df, - lapack_complex_float* duf, - lapack_complex_float* du2, lapack_int* ipiv, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* ferr, float* berr, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zgtsvx_work( int matrix_layout, char fact, char trans, - lapack_int n, lapack_int nrhs, - const lapack_complex_double* dl, - const lapack_complex_double* d, - const lapack_complex_double* du, - lapack_complex_double* dlf, - lapack_complex_double* df, - lapack_complex_double* duf, - lapack_complex_double* du2, lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_sgttrf_work( lapack_int n, float* dl, float* d, float* du, - float* du2, lapack_int* ipiv ); -lapack_int LAPACKE_dgttrf_work( lapack_int n, double* dl, double* d, double* du, - double* du2, lapack_int* ipiv ); -lapack_int LAPACKE_cgttrf_work( lapack_int n, lapack_complex_float* dl, - lapack_complex_float* d, - lapack_complex_float* du, - lapack_complex_float* du2, lapack_int* ipiv ); -lapack_int LAPACKE_zgttrf_work( lapack_int n, lapack_complex_double* dl, - lapack_complex_double* d, - lapack_complex_double* du, - lapack_complex_double* du2, lapack_int* ipiv ); - -lapack_int LAPACKE_sgttrs_work( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const float* dl, - const float* d, const float* du, - const float* du2, const lapack_int* ipiv, - float* b, lapack_int ldb ); -lapack_int LAPACKE_dgttrs_work( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const double* dl, - const double* d, const double* du, - const double* du2, const lapack_int* ipiv, - double* b, lapack_int ldb ); -lapack_int LAPACKE_cgttrs_work( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, const lapack_complex_float* dl, - const lapack_complex_float* d, - const lapack_complex_float* du, - const lapack_complex_float* du2, - const lapack_int* ipiv, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zgttrs_work( int matrix_layout, char trans, lapack_int n, - lapack_int nrhs, - const lapack_complex_double* dl, - const lapack_complex_double* d, - const lapack_complex_double* du, - const lapack_complex_double* du2, - const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_chbev_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int kd, - lapack_complex_float* ab, lapack_int ldab, - float* w, lapack_complex_float* z, - lapack_int ldz, lapack_complex_float* work, - float* rwork ); -lapack_int LAPACKE_zhbev_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int kd, - lapack_complex_double* ab, lapack_int ldab, - double* w, lapack_complex_double* z, - lapack_int ldz, lapack_complex_double* work, - double* rwork ); - -lapack_int LAPACKE_chbevd_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int kd, - lapack_complex_float* ab, lapack_int ldab, - float* w, lapack_complex_float* z, - lapack_int ldz, lapack_complex_float* work, - lapack_int lwork, float* rwork, - lapack_int lrwork, lapack_int* iwork, - lapack_int liwork ); -lapack_int LAPACKE_zhbevd_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int kd, - lapack_complex_double* ab, lapack_int ldab, - double* w, lapack_complex_double* z, - lapack_int ldz, lapack_complex_double* work, - lapack_int lwork, double* rwork, - lapack_int lrwork, lapack_int* iwork, - lapack_int liwork ); - -lapack_int LAPACKE_chbevx_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, lapack_int kd, - lapack_complex_float* ab, lapack_int ldab, - lapack_complex_float* q, lapack_int ldq, - float vl, float vu, lapack_int il, - lapack_int iu, float abstol, lapack_int* m, - float* w, lapack_complex_float* z, - lapack_int ldz, lapack_complex_float* work, - float* rwork, lapack_int* iwork, - lapack_int* ifail ); -lapack_int LAPACKE_zhbevx_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, lapack_int kd, - lapack_complex_double* ab, lapack_int ldab, - lapack_complex_double* q, lapack_int ldq, - double vl, double vu, lapack_int il, - lapack_int iu, double abstol, lapack_int* m, - double* w, lapack_complex_double* z, - lapack_int ldz, lapack_complex_double* work, - double* rwork, lapack_int* iwork, - lapack_int* ifail ); - -lapack_int LAPACKE_chbgst_work( int matrix_layout, char vect, char uplo, - lapack_int n, lapack_int ka, lapack_int kb, - lapack_complex_float* ab, lapack_int ldab, - const lapack_complex_float* bb, lapack_int ldbb, - lapack_complex_float* x, lapack_int ldx, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zhbgst_work( int matrix_layout, char vect, char uplo, - lapack_int n, lapack_int ka, lapack_int kb, - lapack_complex_double* ab, lapack_int ldab, - const lapack_complex_double* bb, - lapack_int ldbb, lapack_complex_double* x, - lapack_int ldx, lapack_complex_double* work, - double* rwork ); - -lapack_int LAPACKE_chbgv_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int ka, lapack_int kb, - lapack_complex_float* ab, lapack_int ldab, - lapack_complex_float* bb, lapack_int ldbb, - float* w, lapack_complex_float* z, - lapack_int ldz, lapack_complex_float* work, - float* rwork ); -lapack_int LAPACKE_zhbgv_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int ka, lapack_int kb, - lapack_complex_double* ab, lapack_int ldab, - lapack_complex_double* bb, lapack_int ldbb, - double* w, lapack_complex_double* z, - lapack_int ldz, lapack_complex_double* work, - double* rwork ); - -lapack_int LAPACKE_chbgvd_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int ka, lapack_int kb, - lapack_complex_float* ab, lapack_int ldab, - lapack_complex_float* bb, lapack_int ldbb, - float* w, lapack_complex_float* z, - lapack_int ldz, lapack_complex_float* work, - lapack_int lwork, float* rwork, - lapack_int lrwork, lapack_int* iwork, - lapack_int liwork ); -lapack_int LAPACKE_zhbgvd_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int ka, lapack_int kb, - lapack_complex_double* ab, lapack_int ldab, - lapack_complex_double* bb, lapack_int ldbb, - double* w, lapack_complex_double* z, - lapack_int ldz, lapack_complex_double* work, - lapack_int lwork, double* rwork, - lapack_int lrwork, lapack_int* iwork, - lapack_int liwork ); - -lapack_int LAPACKE_chbgvx_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, lapack_int ka, - lapack_int kb, lapack_complex_float* ab, - lapack_int ldab, lapack_complex_float* bb, - lapack_int ldbb, lapack_complex_float* q, - lapack_int ldq, float vl, float vu, - lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, - lapack_complex_float* z, lapack_int ldz, - lapack_complex_float* work, float* rwork, - lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_zhbgvx_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, lapack_int ka, - lapack_int kb, lapack_complex_double* ab, - lapack_int ldab, lapack_complex_double* bb, - lapack_int ldbb, lapack_complex_double* q, - lapack_int ldq, double vl, double vu, - lapack_int il, lapack_int iu, double abstol, - lapack_int* m, double* w, - lapack_complex_double* z, lapack_int ldz, - lapack_complex_double* work, double* rwork, - lapack_int* iwork, lapack_int* ifail ); - -lapack_int LAPACKE_chbtrd_work( int matrix_layout, char vect, char uplo, - lapack_int n, lapack_int kd, - lapack_complex_float* ab, lapack_int ldab, - float* d, float* e, lapack_complex_float* q, - lapack_int ldq, lapack_complex_float* work ); -lapack_int LAPACKE_zhbtrd_work( int matrix_layout, char vect, char uplo, - lapack_int n, lapack_int kd, - lapack_complex_double* ab, lapack_int ldab, - double* d, double* e, lapack_complex_double* q, - lapack_int ldq, lapack_complex_double* work ); - -lapack_int LAPACKE_checon_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - const lapack_int* ipiv, float anorm, - float* rcond, lapack_complex_float* work ); -lapack_int LAPACKE_zhecon_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - const lapack_int* ipiv, double anorm, - double* rcond, lapack_complex_double* work ); - -lapack_int LAPACKE_cheequb_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - float* s, float* scond, float* amax, - lapack_complex_float* work ); -lapack_int LAPACKE_zheequb_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - double* s, double* scond, double* amax, - lapack_complex_double* work ); - -lapack_int LAPACKE_cheev_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_complex_float* a, - lapack_int lda, float* w, - lapack_complex_float* work, lapack_int lwork, - float* rwork ); -lapack_int LAPACKE_zheev_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_complex_double* a, - lapack_int lda, double* w, - lapack_complex_double* work, lapack_int lwork, - double* rwork ); - -lapack_int LAPACKE_cheevd_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_complex_float* a, - lapack_int lda, float* w, - lapack_complex_float* work, lapack_int lwork, - float* rwork, lapack_int lrwork, - lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_zheevd_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_complex_double* a, - lapack_int lda, double* w, - lapack_complex_double* work, lapack_int lwork, - double* rwork, lapack_int lrwork, - lapack_int* iwork, lapack_int liwork ); - -lapack_int LAPACKE_cheevr_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - float vl, float vu, lapack_int il, - lapack_int iu, float abstol, lapack_int* m, - float* w, lapack_complex_float* z, - lapack_int ldz, lapack_int* isuppz, - lapack_complex_float* work, lapack_int lwork, - float* rwork, lapack_int lrwork, - lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_zheevr_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - double vl, double vu, lapack_int il, - lapack_int iu, double abstol, lapack_int* m, - double* w, lapack_complex_double* z, - lapack_int ldz, lapack_int* isuppz, - lapack_complex_double* work, lapack_int lwork, - double* rwork, lapack_int lrwork, - lapack_int* iwork, lapack_int liwork ); - -lapack_int LAPACKE_cheevx_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - float vl, float vu, lapack_int il, - lapack_int iu, float abstol, lapack_int* m, - float* w, lapack_complex_float* z, - lapack_int ldz, lapack_complex_float* work, - lapack_int lwork, float* rwork, - lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_zheevx_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - double vl, double vu, lapack_int il, - lapack_int iu, double abstol, lapack_int* m, - double* w, lapack_complex_double* z, - lapack_int ldz, lapack_complex_double* work, - lapack_int lwork, double* rwork, - lapack_int* iwork, lapack_int* ifail ); - -lapack_int LAPACKE_chegst_work( int matrix_layout, lapack_int itype, char uplo, - lapack_int n, lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zhegst_work( int matrix_layout, lapack_int itype, char uplo, - lapack_int n, lapack_complex_double* a, - lapack_int lda, const lapack_complex_double* b, - lapack_int ldb ); - -lapack_int LAPACKE_chegv_work( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb, float* w, - lapack_complex_float* work, lapack_int lwork, - float* rwork ); -lapack_int LAPACKE_zhegv_work( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - double* w, lapack_complex_double* work, - lapack_int lwork, double* rwork ); - -lapack_int LAPACKE_chegvd_work( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - float* w, lapack_complex_float* work, - lapack_int lwork, float* rwork, - lapack_int lrwork, lapack_int* iwork, - lapack_int liwork ); -lapack_int LAPACKE_zhegvd_work( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - double* w, lapack_complex_double* work, - lapack_int lwork, double* rwork, - lapack_int lrwork, lapack_int* iwork, - lapack_int liwork ); - -lapack_int LAPACKE_chegvx_work( int matrix_layout, lapack_int itype, char jobz, - char range, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - float vl, float vu, lapack_int il, - lapack_int iu, float abstol, lapack_int* m, - float* w, lapack_complex_float* z, - lapack_int ldz, lapack_complex_float* work, - lapack_int lwork, float* rwork, - lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_zhegvx_work( int matrix_layout, lapack_int itype, char jobz, - char range, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - double vl, double vu, lapack_int il, - lapack_int iu, double abstol, lapack_int* m, - double* w, lapack_complex_double* z, - lapack_int ldz, lapack_complex_double* work, - lapack_int lwork, double* rwork, - lapack_int* iwork, lapack_int* ifail ); - -lapack_int LAPACKE_cherfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* af, - lapack_int ldaf, const lapack_int* ipiv, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* ferr, float* berr, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zherfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_complex_double* af, - lapack_int ldaf, const lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_cherfsx_work( int matrix_layout, char uplo, char equed, - lapack_int n, lapack_int nrhs, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* af, - lapack_int ldaf, const lapack_int* ipiv, - const float* s, const lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* x, - lapack_int ldx, float* rcond, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params, lapack_complex_float* work, - float* rwork ); -lapack_int LAPACKE_zherfsx_work( int matrix_layout, char uplo, char equed, - lapack_int n, lapack_int nrhs, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* af, - lapack_int ldaf, const lapack_int* ipiv, - const double* s, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params, lapack_complex_double* work, - double* rwork ); - -lapack_int LAPACKE_chesv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zhesv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_chesvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - const lapack_complex_float* a, lapack_int lda, - lapack_complex_float* af, lapack_int ldaf, - lapack_int* ipiv, const lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* x, - lapack_int ldx, float* rcond, float* ferr, - float* berr, lapack_complex_float* work, - lapack_int lwork, float* rwork ); -lapack_int LAPACKE_zhesvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - const lapack_complex_double* a, lapack_int lda, - lapack_complex_double* af, lapack_int ldaf, - lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr, - lapack_complex_double* work, lapack_int lwork, - double* rwork ); - -lapack_int LAPACKE_chesvxx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, float* s, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* rpvgrw, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params, lapack_complex_float* work, - float* rwork ); -lapack_int LAPACKE_zhesvxx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, double* s, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* rpvgrw, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params, lapack_complex_double* work, - double* rwork ); - -lapack_int LAPACKE_chetrd_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - float* d, float* e, lapack_complex_float* tau, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zhetrd_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - double* d, double* e, - lapack_complex_double* tau, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_chetrf_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* ipiv, lapack_complex_float* work, - lapack_int lwork ); -lapack_int LAPACKE_zhetrf_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv, lapack_complex_double* work, - lapack_int lwork ); - -lapack_int LAPACKE_chetri_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_int* ipiv, - lapack_complex_float* work ); -lapack_int LAPACKE_zhetri_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_int* ipiv, - lapack_complex_double* work ); - -lapack_int LAPACKE_chetrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zhetrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_chfrk_work( int matrix_layout, char transr, char uplo, - char trans, lapack_int n, lapack_int k, - float alpha, const lapack_complex_float* a, - lapack_int lda, float beta, - lapack_complex_float* c ); -lapack_int LAPACKE_zhfrk_work( int matrix_layout, char transr, char uplo, - char trans, lapack_int n, lapack_int k, - double alpha, const lapack_complex_double* a, - lapack_int lda, double beta, - lapack_complex_double* c ); - -lapack_int LAPACKE_shgeqz_work( int matrix_layout, char job, char compq, - char compz, lapack_int n, lapack_int ilo, - lapack_int ihi, float* h, lapack_int ldh, - float* t, lapack_int ldt, float* alphar, - float* alphai, float* beta, float* q, - lapack_int ldq, float* z, lapack_int ldz, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dhgeqz_work( int matrix_layout, char job, char compq, - char compz, lapack_int n, lapack_int ilo, - lapack_int ihi, double* h, lapack_int ldh, - double* t, lapack_int ldt, double* alphar, - double* alphai, double* beta, double* q, - lapack_int ldq, double* z, lapack_int ldz, - double* work, lapack_int lwork ); -lapack_int LAPACKE_chgeqz_work( int matrix_layout, char job, char compq, - char compz, lapack_int n, lapack_int ilo, - lapack_int ihi, lapack_complex_float* h, - lapack_int ldh, lapack_complex_float* t, - lapack_int ldt, lapack_complex_float* alpha, - lapack_complex_float* beta, - lapack_complex_float* q, lapack_int ldq, - lapack_complex_float* z, lapack_int ldz, - lapack_complex_float* work, lapack_int lwork, - float* rwork ); -lapack_int LAPACKE_zhgeqz_work( int matrix_layout, char job, char compq, - char compz, lapack_int n, lapack_int ilo, - lapack_int ihi, lapack_complex_double* h, - lapack_int ldh, lapack_complex_double* t, - lapack_int ldt, lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* q, lapack_int ldq, - lapack_complex_double* z, lapack_int ldz, - lapack_complex_double* work, lapack_int lwork, - double* rwork ); - -lapack_int LAPACKE_chpcon_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* ap, - const lapack_int* ipiv, float anorm, - float* rcond, lapack_complex_float* work ); -lapack_int LAPACKE_zhpcon_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* ap, - const lapack_int* ipiv, double anorm, - double* rcond, lapack_complex_double* work ); - -lapack_int LAPACKE_chpev_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_complex_float* ap, float* w, - lapack_complex_float* z, lapack_int ldz, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zhpev_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_complex_double* ap, - double* w, lapack_complex_double* z, - lapack_int ldz, lapack_complex_double* work, - double* rwork ); - -lapack_int LAPACKE_chpevd_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_complex_float* ap, - float* w, lapack_complex_float* z, - lapack_int ldz, lapack_complex_float* work, - lapack_int lwork, float* rwork, - lapack_int lrwork, lapack_int* iwork, - lapack_int liwork ); -lapack_int LAPACKE_zhpevd_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_complex_double* ap, - double* w, lapack_complex_double* z, - lapack_int ldz, lapack_complex_double* work, - lapack_int lwork, double* rwork, - lapack_int lrwork, lapack_int* iwork, - lapack_int liwork ); - -lapack_int LAPACKE_chpevx_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, - lapack_complex_float* ap, float vl, float vu, - lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, - lapack_complex_float* z, lapack_int ldz, - lapack_complex_float* work, float* rwork, - lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_zhpevx_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, - lapack_complex_double* ap, double vl, double vu, - lapack_int il, lapack_int iu, double abstol, - lapack_int* m, double* w, - lapack_complex_double* z, lapack_int ldz, - lapack_complex_double* work, double* rwork, - lapack_int* iwork, lapack_int* ifail ); - -lapack_int LAPACKE_chpgst_work( int matrix_layout, lapack_int itype, char uplo, - lapack_int n, lapack_complex_float* ap, - const lapack_complex_float* bp ); -lapack_int LAPACKE_zhpgst_work( int matrix_layout, lapack_int itype, char uplo, - lapack_int n, lapack_complex_double* ap, - const lapack_complex_double* bp ); - -lapack_int LAPACKE_chpgv_work( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, - lapack_complex_float* ap, - lapack_complex_float* bp, float* w, - lapack_complex_float* z, lapack_int ldz, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zhpgv_work( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, - lapack_complex_double* ap, - lapack_complex_double* bp, double* w, - lapack_complex_double* z, lapack_int ldz, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_chpgvd_work( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, - lapack_complex_float* ap, - lapack_complex_float* bp, float* w, - lapack_complex_float* z, lapack_int ldz, - lapack_complex_float* work, lapack_int lwork, - float* rwork, lapack_int lrwork, - lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_zhpgvd_work( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, - lapack_complex_double* ap, - lapack_complex_double* bp, double* w, - lapack_complex_double* z, lapack_int ldz, - lapack_complex_double* work, lapack_int lwork, - double* rwork, lapack_int lrwork, - lapack_int* iwork, lapack_int liwork ); - -lapack_int LAPACKE_chpgvx_work( int matrix_layout, lapack_int itype, char jobz, - char range, char uplo, lapack_int n, - lapack_complex_float* ap, - lapack_complex_float* bp, float vl, float vu, - lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, - lapack_complex_float* z, lapack_int ldz, - lapack_complex_float* work, float* rwork, - lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_zhpgvx_work( int matrix_layout, lapack_int itype, char jobz, - char range, char uplo, lapack_int n, - lapack_complex_double* ap, - lapack_complex_double* bp, double vl, double vu, - lapack_int il, lapack_int iu, double abstol, - lapack_int* m, double* w, - lapack_complex_double* z, lapack_int ldz, - lapack_complex_double* work, double* rwork, - lapack_int* iwork, lapack_int* ifail ); - -lapack_int LAPACKE_chprfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* ap, - const lapack_complex_float* afp, - const lapack_int* ipiv, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* ferr, float* berr, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zhprfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, - const lapack_complex_double* ap, - const lapack_complex_double* afp, - const lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_chpsv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* ap, - lapack_int* ipiv, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zhpsv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* ap, - lapack_int* ipiv, lapack_complex_double* b, - lapack_int ldb ); - -lapack_int LAPACKE_chpsvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - const lapack_complex_float* ap, - lapack_complex_float* afp, lapack_int* ipiv, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* ferr, float* berr, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zhpsvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - const lapack_complex_double* ap, - lapack_complex_double* afp, lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_chptrd_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* ap, float* d, float* e, - lapack_complex_float* tau ); -lapack_int LAPACKE_zhptrd_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* ap, double* d, double* e, - lapack_complex_double* tau ); - -lapack_int LAPACKE_chptrf_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* ap, lapack_int* ipiv ); -lapack_int LAPACKE_zhptrf_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* ap, lapack_int* ipiv ); - -lapack_int LAPACKE_chptri_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* ap, - const lapack_int* ipiv, - lapack_complex_float* work ); -lapack_int LAPACKE_zhptri_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* ap, - const lapack_int* ipiv, - lapack_complex_double* work ); - -lapack_int LAPACKE_chptrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* ap, - const lapack_int* ipiv, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zhptrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, - const lapack_complex_double* ap, - const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_shsein_work( int matrix_layout, char job, char eigsrc, - char initv, lapack_logical* select, - lapack_int n, const float* h, lapack_int ldh, - float* wr, const float* wi, float* vl, - lapack_int ldvl, float* vr, lapack_int ldvr, - lapack_int mm, lapack_int* m, float* work, - lapack_int* ifaill, lapack_int* ifailr ); -lapack_int LAPACKE_dhsein_work( int matrix_layout, char job, char eigsrc, - char initv, lapack_logical* select, - lapack_int n, const double* h, lapack_int ldh, - double* wr, const double* wi, double* vl, - lapack_int ldvl, double* vr, lapack_int ldvr, - lapack_int mm, lapack_int* m, double* work, - lapack_int* ifaill, lapack_int* ifailr ); -lapack_int LAPACKE_chsein_work( int matrix_layout, char job, char eigsrc, - char initv, const lapack_logical* select, - lapack_int n, const lapack_complex_float* h, - lapack_int ldh, lapack_complex_float* w, - lapack_complex_float* vl, lapack_int ldvl, - lapack_complex_float* vr, lapack_int ldvr, - lapack_int mm, lapack_int* m, - lapack_complex_float* work, float* rwork, - lapack_int* ifaill, lapack_int* ifailr ); -lapack_int LAPACKE_zhsein_work( int matrix_layout, char job, char eigsrc, - char initv, const lapack_logical* select, - lapack_int n, const lapack_complex_double* h, - lapack_int ldh, lapack_complex_double* w, - lapack_complex_double* vl, lapack_int ldvl, - lapack_complex_double* vr, lapack_int ldvr, - lapack_int mm, lapack_int* m, - lapack_complex_double* work, double* rwork, - lapack_int* ifaill, lapack_int* ifailr ); - -lapack_int LAPACKE_shseqr_work( int matrix_layout, char job, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - float* h, lapack_int ldh, float* wr, float* wi, - float* z, lapack_int ldz, float* work, - lapack_int lwork ); -lapack_int LAPACKE_dhseqr_work( int matrix_layout, char job, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - double* h, lapack_int ldh, double* wr, - double* wi, double* z, lapack_int ldz, - double* work, lapack_int lwork ); -lapack_int LAPACKE_chseqr_work( int matrix_layout, char job, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - lapack_complex_float* h, lapack_int ldh, - lapack_complex_float* w, - lapack_complex_float* z, lapack_int ldz, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zhseqr_work( int matrix_layout, char job, char compz, - lapack_int n, lapack_int ilo, lapack_int ihi, - lapack_complex_double* h, lapack_int ldh, - lapack_complex_double* w, - lapack_complex_double* z, lapack_int ldz, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_clacgv_work( lapack_int n, lapack_complex_float* x, - lapack_int incx ); -lapack_int LAPACKE_zlacgv_work( lapack_int n, lapack_complex_double* x, - lapack_int incx ); - -lapack_int LAPACKE_slacn2_work( lapack_int n, float* v, float* x, - lapack_int* isgn, float* est, lapack_int* kase, - lapack_int* isave ); -lapack_int LAPACKE_dlacn2_work( lapack_int n, double* v, double* x, - lapack_int* isgn, double* est, lapack_int* kase, - lapack_int* isave ); -lapack_int LAPACKE_clacn2_work( lapack_int n, lapack_complex_float* v, - lapack_complex_float* x, - float* est, lapack_int* kase, - lapack_int* isave ); -lapack_int LAPACKE_zlacn2_work( lapack_int n, lapack_complex_double* v, - lapack_complex_double* x, - double* est, lapack_int* kase, - lapack_int* isave ); - -lapack_int LAPACKE_slacpy_work( int matrix_layout, char uplo, lapack_int m, - lapack_int n, const float* a, lapack_int lda, - float* b, lapack_int ldb ); -lapack_int LAPACKE_dlacpy_work( int matrix_layout, char uplo, lapack_int m, - lapack_int n, const double* a, lapack_int lda, - double* b, lapack_int ldb ); -lapack_int LAPACKE_clacpy_work( int matrix_layout, char uplo, lapack_int m, - lapack_int n, const lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zlacpy_work( int matrix_layout, char uplo, lapack_int m, - lapack_int n, const lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb ); - -lapack_int LAPACKE_clacp2_work( int matrix_layout, char uplo, lapack_int m, - lapack_int n, const float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zlacp2_work( int matrix_layout, char uplo, lapack_int m, - lapack_int n, const double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_zlag2c_work( int matrix_layout, lapack_int m, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - lapack_complex_float* sa, lapack_int ldsa ); - -lapack_int LAPACKE_slag2d_work( int matrix_layout, lapack_int m, lapack_int n, - const float* sa, lapack_int ldsa, double* a, - lapack_int lda ); - -lapack_int LAPACKE_dlag2s_work( int matrix_layout, lapack_int m, lapack_int n, - const double* a, lapack_int lda, float* sa, - lapack_int ldsa ); - -lapack_int LAPACKE_clag2z_work( int matrix_layout, lapack_int m, lapack_int n, - const lapack_complex_float* sa, lapack_int ldsa, - lapack_complex_double* a, lapack_int lda ); - -lapack_int LAPACKE_slagge_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, const float* d, - float* a, lapack_int lda, lapack_int* iseed, - float* work ); -lapack_int LAPACKE_dlagge_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, const double* d, - double* a, lapack_int lda, lapack_int* iseed, - double* work ); -lapack_int LAPACKE_clagge_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, const float* d, - lapack_complex_float* a, lapack_int lda, - lapack_int* iseed, lapack_complex_float* work ); -lapack_int LAPACKE_zlagge_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, const double* d, - lapack_complex_double* a, lapack_int lda, - lapack_int* iseed, - lapack_complex_double* work ); - -lapack_int LAPACKE_claghe_work( int matrix_layout, lapack_int n, lapack_int k, - const float* d, lapack_complex_float* a, - lapack_int lda, lapack_int* iseed, - lapack_complex_float* work ); -lapack_int LAPACKE_zlaghe_work( int matrix_layout, lapack_int n, lapack_int k, - const double* d, lapack_complex_double* a, - lapack_int lda, lapack_int* iseed, - lapack_complex_double* work ); - -lapack_int LAPACKE_slagsy_work( int matrix_layout, lapack_int n, lapack_int k, - const float* d, float* a, lapack_int lda, - lapack_int* iseed, float* work ); -lapack_int LAPACKE_dlagsy_work( int matrix_layout, lapack_int n, lapack_int k, - const double* d, double* a, lapack_int lda, - lapack_int* iseed, double* work ); -lapack_int LAPACKE_clagsy_work( int matrix_layout, lapack_int n, lapack_int k, - const float* d, lapack_complex_float* a, - lapack_int lda, lapack_int* iseed, - lapack_complex_float* work ); -lapack_int LAPACKE_zlagsy_work( int matrix_layout, lapack_int n, lapack_int k, - const double* d, lapack_complex_double* a, - lapack_int lda, lapack_int* iseed, - lapack_complex_double* work ); - -lapack_int LAPACKE_slapmr_work( int matrix_layout, lapack_logical forwrd, - lapack_int m, lapack_int n, float* x, - lapack_int ldx, lapack_int* k ); -lapack_int LAPACKE_dlapmr_work( int matrix_layout, lapack_logical forwrd, - lapack_int m, lapack_int n, double* x, - lapack_int ldx, lapack_int* k ); -lapack_int LAPACKE_clapmr_work( int matrix_layout, lapack_logical forwrd, - lapack_int m, lapack_int n, - lapack_complex_float* x, lapack_int ldx, - lapack_int* k ); -lapack_int LAPACKE_zlapmr_work( int matrix_layout, lapack_logical forwrd, - lapack_int m, lapack_int n, - lapack_complex_double* x, lapack_int ldx, - lapack_int* k ); - -lapack_int LAPACKE_slapmt_work( int matrix_layout, lapack_logical forwrd, - lapack_int m, lapack_int n, float* x, - lapack_int ldx, lapack_int* k ); -lapack_int LAPACKE_dlapmt_work( int matrix_layout, lapack_logical forwrd, - lapack_int m, lapack_int n, double* x, - lapack_int ldx, lapack_int* k ); -lapack_int LAPACKE_clapmt_work( int matrix_layout, lapack_logical forwrd, - lapack_int m, lapack_int n, - lapack_complex_float* x, lapack_int ldx, - lapack_int* k ); -lapack_int LAPACKE_zlapmt_work( int matrix_layout, lapack_logical forwrd, - lapack_int m, lapack_int n, - lapack_complex_double* x, lapack_int ldx, - lapack_int* k ); - -lapack_int LAPACKE_slartgp_work( float f, float g, float* cs, float* sn, - float* r ); -lapack_int LAPACKE_dlartgp_work( double f, double g, double* cs, double* sn, - double* r ); - -lapack_int LAPACKE_slartgs_work( float x, float y, float sigma, float* cs, - float* sn ); -lapack_int LAPACKE_dlartgs_work( double x, double y, double sigma, double* cs, - double* sn ); - -float LAPACKE_slapy2_work( float x, float y ); -double LAPACKE_dlapy2_work( double x, double y ); - -float LAPACKE_slapy3_work( float x, float y, float z ); -double LAPACKE_dlapy3_work( double x, double y, double z ); - -float LAPACKE_slamch_work( char cmach ); -double LAPACKE_dlamch_work( char cmach ); - -float LAPACKE_slangb_work( int matrix_layout, char norm, lapack_int n, - lapack_int kl, lapack_int ku, const float* ab, - lapack_int ldab, float* work ); -double LAPACKE_dlangb_work( int matrix_layout, char norm, lapack_int n, - lapack_int kl, lapack_int ku, const double* ab, - lapack_int ldab, double* work ); -float LAPACKE_clangb_work( int matrix_layout, char norm, lapack_int n, - lapack_int kl, lapack_int ku, - const lapack_complex_float* ab, lapack_int ldab, - float* work ); -double LAPACKE_zlangb_work( int matrix_layout, char norm, lapack_int n, - lapack_int kl, lapack_int ku, - const lapack_complex_double* ab, lapack_int ldab, - double* work ); - -float LAPACKE_slange_work( int matrix_layout, char norm, lapack_int m, - lapack_int n, const float* a, lapack_int lda, - float* work ); -double LAPACKE_dlange_work( int matrix_layout, char norm, lapack_int m, - lapack_int n, const double* a, lapack_int lda, - double* work ); -float LAPACKE_clange_work( int matrix_layout, char norm, lapack_int m, - lapack_int n, const lapack_complex_float* a, - lapack_int lda, float* work ); -double LAPACKE_zlange_work( int matrix_layout, char norm, lapack_int m, - lapack_int n, const lapack_complex_double* a, - lapack_int lda, double* work ); - -float LAPACKE_clanhe_work( int matrix_layout, char norm, char uplo, - lapack_int n, const lapack_complex_float* a, - lapack_int lda, float* work ); -double LAPACKE_zlanhe_work( int matrix_layout, char norm, char uplo, - lapack_int n, const lapack_complex_double* a, - lapack_int lda, double* work ); - -lapack_int LAPACKE_clacrm_work( int matrix_layout, lapack_int m, lapack_int n, - const lapack_complex_float* a, - lapack_int lda, const float* b, - lapack_int ldb, lapack_complex_float* c, - lapack_int ldc, float* work ); -lapack_int LAPACKE_zlacrm_work( int matrix_layout, lapack_int m, lapack_int n, - const lapack_complex_double* a, - lapack_int lda, const double* b, - lapack_int ldb, lapack_complex_double* c, - lapack_int ldc, double* work ); - -lapack_int LAPACKE_clarcm_work( int matrix_layout, lapack_int m, lapack_int n, - const float* a, lapack_int lda, - const lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* c, - lapack_int ldc, float* work ); -lapack_int LAPACKE_zlarcm_work( int matrix_layout, lapack_int m, lapack_int n, - const double* a, lapack_int lda, - const lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* c, - lapack_int ldc, double* work ); - -float LAPACKE_slansy_work( int matrix_layout, char norm, char uplo, - lapack_int n, const float* a, lapack_int lda, - float* work ); -double LAPACKE_dlansy_work( int matrix_layout, char norm, char uplo, - lapack_int n, const double* a, lapack_int lda, - double* work ); -float LAPACKE_clansy_work( int matrix_layout, char norm, char uplo, - lapack_int n, const lapack_complex_float* a, - lapack_int lda, float* work ); -double LAPACKE_zlansy_work( int matrix_layout, char norm, char uplo, - lapack_int n, const lapack_complex_double* a, - lapack_int lda, double* work ); - -float LAPACKE_slantr_work( int matrix_layout, char norm, char uplo, - char diag, lapack_int m, lapack_int n, const float* a, - lapack_int lda, float* work ); -double LAPACKE_dlantr_work( int matrix_layout, char norm, char uplo, - char diag, lapack_int m, lapack_int n, - const double* a, lapack_int lda, double* work ); -float LAPACKE_clantr_work( int matrix_layout, char norm, char uplo, - char diag, lapack_int m, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - float* work ); -double LAPACKE_zlantr_work( int matrix_layout, char norm, char uplo, - char diag, lapack_int m, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - double* work ); - -lapack_int LAPACKE_slarfb_work( int matrix_layout, char side, char trans, - char direct, char storev, lapack_int m, - lapack_int n, lapack_int k, const float* v, - lapack_int ldv, const float* t, lapack_int ldt, - float* c, lapack_int ldc, float* work, - lapack_int ldwork ); -lapack_int LAPACKE_dlarfb_work( int matrix_layout, char side, char trans, - char direct, char storev, lapack_int m, - lapack_int n, lapack_int k, const double* v, - lapack_int ldv, const double* t, lapack_int ldt, - double* c, lapack_int ldc, double* work, - lapack_int ldwork ); -lapack_int LAPACKE_clarfb_work( int matrix_layout, char side, char trans, - char direct, char storev, lapack_int m, - lapack_int n, lapack_int k, - const lapack_complex_float* v, lapack_int ldv, - const lapack_complex_float* t, lapack_int ldt, - lapack_complex_float* c, lapack_int ldc, - lapack_complex_float* work, lapack_int ldwork ); -lapack_int LAPACKE_zlarfb_work( int matrix_layout, char side, char trans, - char direct, char storev, lapack_int m, - lapack_int n, lapack_int k, - const lapack_complex_double* v, lapack_int ldv, - const lapack_complex_double* t, lapack_int ldt, - lapack_complex_double* c, lapack_int ldc, - lapack_complex_double* work, - lapack_int ldwork ); - -lapack_int LAPACKE_slarfg_work( lapack_int n, float* alpha, float* x, - lapack_int incx, float* tau ); -lapack_int LAPACKE_dlarfg_work( lapack_int n, double* alpha, double* x, - lapack_int incx, double* tau ); -lapack_int LAPACKE_clarfg_work( lapack_int n, lapack_complex_float* alpha, - lapack_complex_float* x, lapack_int incx, - lapack_complex_float* tau ); -lapack_int LAPACKE_zlarfg_work( lapack_int n, lapack_complex_double* alpha, - lapack_complex_double* x, lapack_int incx, - lapack_complex_double* tau ); - -lapack_int LAPACKE_slarft_work( int matrix_layout, char direct, char storev, - lapack_int n, lapack_int k, const float* v, - lapack_int ldv, const float* tau, float* t, - lapack_int ldt ); -lapack_int LAPACKE_dlarft_work( int matrix_layout, char direct, char storev, - lapack_int n, lapack_int k, const double* v, - lapack_int ldv, const double* tau, double* t, - lapack_int ldt ); -lapack_int LAPACKE_clarft_work( int matrix_layout, char direct, char storev, - lapack_int n, lapack_int k, - const lapack_complex_float* v, lapack_int ldv, - const lapack_complex_float* tau, - lapack_complex_float* t, lapack_int ldt ); -lapack_int LAPACKE_zlarft_work( int matrix_layout, char direct, char storev, - lapack_int n, lapack_int k, - const lapack_complex_double* v, lapack_int ldv, - const lapack_complex_double* tau, - lapack_complex_double* t, lapack_int ldt ); - -lapack_int LAPACKE_slarfx_work( int matrix_layout, char side, lapack_int m, - lapack_int n, const float* v, float tau, - float* c, lapack_int ldc, float* work ); -lapack_int LAPACKE_dlarfx_work( int matrix_layout, char side, lapack_int m, - lapack_int n, const double* v, double tau, - double* c, lapack_int ldc, double* work ); -lapack_int LAPACKE_clarfx_work( int matrix_layout, char side, lapack_int m, - lapack_int n, const lapack_complex_float* v, - lapack_complex_float tau, - lapack_complex_float* c, lapack_int ldc, - lapack_complex_float* work ); -lapack_int LAPACKE_zlarfx_work( int matrix_layout, char side, lapack_int m, - lapack_int n, const lapack_complex_double* v, - lapack_complex_double tau, - lapack_complex_double* c, lapack_int ldc, - lapack_complex_double* work ); - -lapack_int LAPACKE_slarnv_work( lapack_int idist, lapack_int* iseed, - lapack_int n, float* x ); -lapack_int LAPACKE_dlarnv_work( lapack_int idist, lapack_int* iseed, - lapack_int n, double* x ); -lapack_int LAPACKE_clarnv_work( lapack_int idist, lapack_int* iseed, - lapack_int n, lapack_complex_float* x ); -lapack_int LAPACKE_zlarnv_work( lapack_int idist, lapack_int* iseed, - lapack_int n, lapack_complex_double* x ); - - -lapack_int LAPACKE_slascl_work( int matrix_layout, char type, lapack_int kl, - lapack_int ku, float cfrom, float cto, - lapack_int m, lapack_int n, float* a, - lapack_int lda ); -lapack_int LAPACKE_dlascl_work( int matrix_layout, char type, lapack_int kl, - lapack_int ku, double cfrom, double cto, - lapack_int m, lapack_int n, double* a, - lapack_int lda ); -lapack_int LAPACKE_clascl_work( int matrix_layout, char type, lapack_int kl, - lapack_int ku, float cfrom, float cto, - lapack_int m, lapack_int n, lapack_complex_float* a, - lapack_int lda ); -lapack_int LAPACKE_zlascl_work( int matrix_layout, char type, lapack_int kl, - lapack_int ku, double cfrom, double cto, - lapack_int m, lapack_int n, lapack_complex_double* a, - lapack_int lda ); - -lapack_int LAPACKE_slaset_work( int matrix_layout, char uplo, lapack_int m, - lapack_int n, float alpha, float beta, float* a, - lapack_int lda ); -lapack_int LAPACKE_dlaset_work( int matrix_layout, char uplo, lapack_int m, - lapack_int n, double alpha, double beta, - double* a, lapack_int lda ); -lapack_int LAPACKE_claset_work( int matrix_layout, char uplo, lapack_int m, - lapack_int n, lapack_complex_float alpha, - lapack_complex_float beta, - lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_zlaset_work( int matrix_layout, char uplo, lapack_int m, - lapack_int n, lapack_complex_double alpha, - lapack_complex_double beta, - lapack_complex_double* a, lapack_int lda ); - -lapack_int LAPACKE_slasrt_work( char id, lapack_int n, float* d ); -lapack_int LAPACKE_dlasrt_work( char id, lapack_int n, double* d ); - -lapack_int LAPACKE_slassq_work( lapack_int n, float* x, lapack_int incx, float* scale, float* sumsq ); -lapack_int LAPACKE_dlassq_work( lapack_int n, double* x, lapack_int incx, double* scale, double* sumsq ); -lapack_int LAPACKE_classq_work( lapack_int n, lapack_complex_float* x, lapack_int incx, float* scale, float* sumsq ); -lapack_int LAPACKE_zlassq_work( lapack_int n, lapack_complex_double* x, lapack_int incx, double* scale, double* sumsq ); - -lapack_int LAPACKE_slaswp_work( int matrix_layout, lapack_int n, float* a, - lapack_int lda, lapack_int k1, lapack_int k2, - const lapack_int* ipiv, lapack_int incx ); -lapack_int LAPACKE_dlaswp_work( int matrix_layout, lapack_int n, double* a, - lapack_int lda, lapack_int k1, lapack_int k2, - const lapack_int* ipiv, lapack_int incx ); -lapack_int LAPACKE_claswp_work( int matrix_layout, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int k1, lapack_int k2, - const lapack_int* ipiv, lapack_int incx ); -lapack_int LAPACKE_zlaswp_work( int matrix_layout, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int k1, lapack_int k2, - const lapack_int* ipiv, lapack_int incx ); - -lapack_int LAPACKE_slatms_work( int matrix_layout, lapack_int m, lapack_int n, - char dist, lapack_int* iseed, char sym, - float* d, lapack_int mode, float cond, - float dmax, lapack_int kl, lapack_int ku, - char pack, float* a, lapack_int lda, - float* work ); -lapack_int LAPACKE_dlatms_work( int matrix_layout, lapack_int m, lapack_int n, - char dist, lapack_int* iseed, char sym, - double* d, lapack_int mode, double cond, - double dmax, lapack_int kl, lapack_int ku, - char pack, double* a, lapack_int lda, - double* work ); -lapack_int LAPACKE_clatms_work( int matrix_layout, lapack_int m, lapack_int n, - char dist, lapack_int* iseed, char sym, - float* d, lapack_int mode, float cond, - float dmax, lapack_int kl, lapack_int ku, - char pack, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* work ); -lapack_int LAPACKE_zlatms_work( int matrix_layout, lapack_int m, lapack_int n, - char dist, lapack_int* iseed, char sym, - double* d, lapack_int mode, double cond, - double dmax, lapack_int kl, lapack_int ku, - char pack, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* work ); - -lapack_int LAPACKE_slauum_work( int matrix_layout, char uplo, lapack_int n, - float* a, lapack_int lda ); -lapack_int LAPACKE_dlauum_work( int matrix_layout, char uplo, lapack_int n, - double* a, lapack_int lda ); -lapack_int LAPACKE_clauum_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_zlauum_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda ); - -lapack_int LAPACKE_sopgtr_work( int matrix_layout, char uplo, lapack_int n, - const float* ap, const float* tau, float* q, - lapack_int ldq, float* work ); -lapack_int LAPACKE_dopgtr_work( int matrix_layout, char uplo, lapack_int n, - const double* ap, const double* tau, double* q, - lapack_int ldq, double* work ); - -lapack_int LAPACKE_sopmtr_work( int matrix_layout, char side, char uplo, - char trans, lapack_int m, lapack_int n, - const float* ap, const float* tau, float* c, - lapack_int ldc, float* work ); -lapack_int LAPACKE_dopmtr_work( int matrix_layout, char side, char uplo, - char trans, lapack_int m, lapack_int n, - const double* ap, const double* tau, double* c, - lapack_int ldc, double* work ); - -lapack_int LAPACKE_sorgbr_work( int matrix_layout, char vect, lapack_int m, - lapack_int n, lapack_int k, float* a, - lapack_int lda, const float* tau, float* work, - lapack_int lwork ); -lapack_int LAPACKE_dorgbr_work( int matrix_layout, char vect, lapack_int m, - lapack_int n, lapack_int k, double* a, - lapack_int lda, const double* tau, double* work, - lapack_int lwork ); - -lapack_int LAPACKE_sorghr_work( int matrix_layout, lapack_int n, lapack_int ilo, - lapack_int ihi, float* a, lapack_int lda, - const float* tau, float* work, - lapack_int lwork ); -lapack_int LAPACKE_dorghr_work( int matrix_layout, lapack_int n, lapack_int ilo, - lapack_int ihi, double* a, lapack_int lda, - const double* tau, double* work, - lapack_int lwork ); - -lapack_int LAPACKE_sorglq_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, float* a, lapack_int lda, - const float* tau, float* work, - lapack_int lwork ); -lapack_int LAPACKE_dorglq_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, double* a, lapack_int lda, - const double* tau, double* work, - lapack_int lwork ); - -lapack_int LAPACKE_sorgql_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, float* a, lapack_int lda, - const float* tau, float* work, - lapack_int lwork ); -lapack_int LAPACKE_dorgql_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, double* a, lapack_int lda, - const double* tau, double* work, - lapack_int lwork ); - -lapack_int LAPACKE_sorgqr_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, float* a, lapack_int lda, - const float* tau, float* work, - lapack_int lwork ); -lapack_int LAPACKE_dorgqr_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, double* a, lapack_int lda, - const double* tau, double* work, - lapack_int lwork ); - -lapack_int LAPACKE_sorgrq_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, float* a, lapack_int lda, - const float* tau, float* work, - lapack_int lwork ); -lapack_int LAPACKE_dorgrq_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, double* a, lapack_int lda, - const double* tau, double* work, - lapack_int lwork ); - -lapack_int LAPACKE_sorgtr_work( int matrix_layout, char uplo, lapack_int n, - float* a, lapack_int lda, const float* tau, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dorgtr_work( int matrix_layout, char uplo, lapack_int n, - double* a, lapack_int lda, const double* tau, - double* work, lapack_int lwork ); - -lapack_int LAPACKE_sorgtsqr_row_work( int matrix_layout, - lapack_int m, lapack_int n, - lapack_int mb, lapack_int nb, - float* a, lapack_int lda, - const float* t, lapack_int ldt, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dorgtsqr_row_work( int matrix_layout, - lapack_int m, lapack_int n, - lapack_int mb, lapack_int nb, - double* a, lapack_int lda, - const double* t, lapack_int ldt, - double* work, lapack_int lwork ); - -lapack_int LAPACKE_sormbr_work( int matrix_layout, char vect, char side, - char trans, lapack_int m, lapack_int n, - lapack_int k, const float* a, lapack_int lda, - const float* tau, float* c, lapack_int ldc, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dormbr_work( int matrix_layout, char vect, char side, - char trans, lapack_int m, lapack_int n, - lapack_int k, const double* a, lapack_int lda, - const double* tau, double* c, lapack_int ldc, - double* work, lapack_int lwork ); - -lapack_int LAPACKE_sormhr_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int ilo, - lapack_int ihi, const float* a, lapack_int lda, - const float* tau, float* c, lapack_int ldc, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dormhr_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int ilo, - lapack_int ihi, const double* a, lapack_int lda, - const double* tau, double* c, lapack_int ldc, - double* work, lapack_int lwork ); - -lapack_int LAPACKE_sormlq_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const float* a, lapack_int lda, - const float* tau, float* c, lapack_int ldc, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dormlq_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const double* a, lapack_int lda, - const double* tau, double* c, lapack_int ldc, - double* work, lapack_int lwork ); - -lapack_int LAPACKE_sormql_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const float* a, lapack_int lda, - const float* tau, float* c, lapack_int ldc, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dormql_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const double* a, lapack_int lda, - const double* tau, double* c, lapack_int ldc, - double* work, lapack_int lwork ); - -lapack_int LAPACKE_sormqr_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const float* a, lapack_int lda, - const float* tau, float* c, lapack_int ldc, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dormqr_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const double* a, lapack_int lda, - const double* tau, double* c, lapack_int ldc, - double* work, lapack_int lwork ); - -lapack_int LAPACKE_sormrq_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const float* a, lapack_int lda, - const float* tau, float* c, lapack_int ldc, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dormrq_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const double* a, lapack_int lda, - const double* tau, double* c, lapack_int ldc, - double* work, lapack_int lwork ); - -lapack_int LAPACKE_sormrz_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int l, const float* a, lapack_int lda, - const float* tau, float* c, lapack_int ldc, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dormrz_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int l, const double* a, lapack_int lda, - const double* tau, double* c, lapack_int ldc, - double* work, lapack_int lwork ); - -lapack_int LAPACKE_sormtr_work( int matrix_layout, char side, char uplo, - char trans, lapack_int m, lapack_int n, - const float* a, lapack_int lda, - const float* tau, float* c, lapack_int ldc, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dormtr_work( int matrix_layout, char side, char uplo, - char trans, lapack_int m, lapack_int n, - const double* a, lapack_int lda, - const double* tau, double* c, lapack_int ldc, - double* work, lapack_int lwork ); - -lapack_int LAPACKE_spbcon_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, const float* ab, lapack_int ldab, - float anorm, float* rcond, float* work, - lapack_int* iwork ); -lapack_int LAPACKE_dpbcon_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, const double* ab, - lapack_int ldab, double anorm, double* rcond, - double* work, lapack_int* iwork ); -lapack_int LAPACKE_cpbcon_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, const lapack_complex_float* ab, - lapack_int ldab, float anorm, float* rcond, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zpbcon_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, const lapack_complex_double* ab, - lapack_int ldab, double anorm, double* rcond, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_spbequ_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, const float* ab, lapack_int ldab, - float* s, float* scond, float* amax ); -lapack_int LAPACKE_dpbequ_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, const double* ab, - lapack_int ldab, double* s, double* scond, - double* amax ); -lapack_int LAPACKE_cpbequ_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, const lapack_complex_float* ab, - lapack_int ldab, float* s, float* scond, - float* amax ); -lapack_int LAPACKE_zpbequ_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, const lapack_complex_double* ab, - lapack_int ldab, double* s, double* scond, - double* amax ); - -lapack_int LAPACKE_spbrfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, const float* ab, - lapack_int ldab, const float* afb, - lapack_int ldafb, const float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* ferr, float* berr, float* work, - lapack_int* iwork ); -lapack_int LAPACKE_dpbrfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, - const double* ab, lapack_int ldab, - const double* afb, lapack_int ldafb, - const double* b, lapack_int ldb, double* x, - lapack_int ldx, double* ferr, double* berr, - double* work, lapack_int* iwork ); -lapack_int LAPACKE_cpbrfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, - const lapack_complex_float* ab, lapack_int ldab, - const lapack_complex_float* afb, - lapack_int ldafb, const lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* x, - lapack_int ldx, float* ferr, float* berr, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zpbrfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, - const lapack_complex_double* ab, - lapack_int ldab, - const lapack_complex_double* afb, - lapack_int ldafb, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_spbstf_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kb, float* bb, lapack_int ldbb ); -lapack_int LAPACKE_dpbstf_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kb, double* bb, lapack_int ldbb ); -lapack_int LAPACKE_cpbstf_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kb, lapack_complex_float* bb, - lapack_int ldbb ); -lapack_int LAPACKE_zpbstf_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kb, lapack_complex_double* bb, - lapack_int ldbb ); - -lapack_int LAPACKE_spbsv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, float* ab, - lapack_int ldab, float* b, lapack_int ldb ); -lapack_int LAPACKE_dpbsv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, double* ab, - lapack_int ldab, double* b, lapack_int ldb ); -lapack_int LAPACKE_cpbsv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, - lapack_complex_float* ab, lapack_int ldab, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zpbsv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, - lapack_complex_double* ab, lapack_int ldab, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_spbsvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int kd, lapack_int nrhs, - float* ab, lapack_int ldab, float* afb, - lapack_int ldafb, char* equed, float* s, - float* b, lapack_int ldb, float* x, - lapack_int ldx, float* rcond, float* ferr, - float* berr, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dpbsvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int kd, lapack_int nrhs, - double* ab, lapack_int ldab, double* afb, - lapack_int ldafb, char* equed, double* s, - double* b, lapack_int ldb, double* x, - lapack_int ldx, double* rcond, double* ferr, - double* berr, double* work, lapack_int* iwork ); -lapack_int LAPACKE_cpbsvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int kd, lapack_int nrhs, - lapack_complex_float* ab, lapack_int ldab, - lapack_complex_float* afb, lapack_int ldafb, - char* equed, float* s, lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* x, - lapack_int ldx, float* rcond, float* ferr, - float* berr, lapack_complex_float* work, - float* rwork ); -lapack_int LAPACKE_zpbsvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int kd, lapack_int nrhs, - lapack_complex_double* ab, lapack_int ldab, - lapack_complex_double* afb, lapack_int ldafb, - char* equed, double* s, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_spbtrf_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, float* ab, lapack_int ldab ); -lapack_int LAPACKE_dpbtrf_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, double* ab, lapack_int ldab ); -lapack_int LAPACKE_cpbtrf_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_complex_float* ab, - lapack_int ldab ); -lapack_int LAPACKE_zpbtrf_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_complex_double* ab, - lapack_int ldab ); - -lapack_int LAPACKE_spbtrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, const float* ab, - lapack_int ldab, float* b, lapack_int ldb ); -lapack_int LAPACKE_dpbtrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, - const double* ab, lapack_int ldab, double* b, - lapack_int ldb ); -lapack_int LAPACKE_cpbtrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, - const lapack_complex_float* ab, lapack_int ldab, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zpbtrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, lapack_int nrhs, - const lapack_complex_double* ab, - lapack_int ldab, lapack_complex_double* b, - lapack_int ldb ); - -lapack_int LAPACKE_spftrf_work( int matrix_layout, char transr, char uplo, - lapack_int n, float* a ); -lapack_int LAPACKE_dpftrf_work( int matrix_layout, char transr, char uplo, - lapack_int n, double* a ); -lapack_int LAPACKE_cpftrf_work( int matrix_layout, char transr, char uplo, - lapack_int n, lapack_complex_float* a ); -lapack_int LAPACKE_zpftrf_work( int matrix_layout, char transr, char uplo, - lapack_int n, lapack_complex_double* a ); - -lapack_int LAPACKE_spftri_work( int matrix_layout, char transr, char uplo, - lapack_int n, float* a ); -lapack_int LAPACKE_dpftri_work( int matrix_layout, char transr, char uplo, - lapack_int n, double* a ); -lapack_int LAPACKE_cpftri_work( int matrix_layout, char transr, char uplo, - lapack_int n, lapack_complex_float* a ); -lapack_int LAPACKE_zpftri_work( int matrix_layout, char transr, char uplo, - lapack_int n, lapack_complex_double* a ); - -lapack_int LAPACKE_spftrs_work( int matrix_layout, char transr, char uplo, - lapack_int n, lapack_int nrhs, const float* a, - float* b, lapack_int ldb ); -lapack_int LAPACKE_dpftrs_work( int matrix_layout, char transr, char uplo, - lapack_int n, lapack_int nrhs, const double* a, - double* b, lapack_int ldb ); -lapack_int LAPACKE_cpftrs_work( int matrix_layout, char transr, char uplo, - lapack_int n, lapack_int nrhs, - const lapack_complex_float* a, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zpftrs_work( int matrix_layout, char transr, char uplo, - lapack_int n, lapack_int nrhs, - const lapack_complex_double* a, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_spocon_work( int matrix_layout, char uplo, lapack_int n, - const float* a, lapack_int lda, float anorm, - float* rcond, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dpocon_work( int matrix_layout, char uplo, lapack_int n, - const double* a, lapack_int lda, double anorm, - double* rcond, double* work, - lapack_int* iwork ); -lapack_int LAPACKE_cpocon_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - float anorm, float* rcond, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zpocon_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - double anorm, double* rcond, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_spoequ_work( int matrix_layout, lapack_int n, const float* a, - lapack_int lda, float* s, float* scond, - float* amax ); -lapack_int LAPACKE_dpoequ_work( int matrix_layout, lapack_int n, const double* a, - lapack_int lda, double* s, double* scond, - double* amax ); -lapack_int LAPACKE_cpoequ_work( int matrix_layout, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - float* s, float* scond, float* amax ); -lapack_int LAPACKE_zpoequ_work( int matrix_layout, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - double* s, double* scond, double* amax ); - -lapack_int LAPACKE_spoequb_work( int matrix_layout, lapack_int n, const float* a, - lapack_int lda, float* s, float* scond, - float* amax ); -lapack_int LAPACKE_dpoequb_work( int matrix_layout, lapack_int n, - const double* a, lapack_int lda, double* s, - double* scond, double* amax ); -lapack_int LAPACKE_cpoequb_work( int matrix_layout, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - float* s, float* scond, float* amax ); -lapack_int LAPACKE_zpoequb_work( int matrix_layout, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - double* s, double* scond, double* amax ); - -lapack_int LAPACKE_sporfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* a, lapack_int lda, - const float* af, lapack_int ldaf, - const float* b, lapack_int ldb, float* x, - lapack_int ldx, float* ferr, float* berr, - float* work, lapack_int* iwork ); -lapack_int LAPACKE_dporfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* a, - lapack_int lda, const double* af, - lapack_int ldaf, const double* b, - lapack_int ldb, double* x, lapack_int ldx, - double* ferr, double* berr, double* work, - lapack_int* iwork ); -lapack_int LAPACKE_cporfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* af, - lapack_int ldaf, const lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* x, - lapack_int ldx, float* ferr, float* berr, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zporfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_complex_double* af, - lapack_int ldaf, const lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* x, - lapack_int ldx, double* ferr, double* berr, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_sporfsx_work( int matrix_layout, char uplo, char equed, - lapack_int n, lapack_int nrhs, const float* a, - lapack_int lda, const float* af, - lapack_int ldaf, const float* s, - const float* b, lapack_int ldb, float* x, - lapack_int ldx, float* rcond, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params, float* work, - lapack_int* iwork ); -lapack_int LAPACKE_dporfsx_work( int matrix_layout, char uplo, char equed, - lapack_int n, lapack_int nrhs, const double* a, - lapack_int lda, const double* af, - lapack_int ldaf, const double* s, - const double* b, lapack_int ldb, double* x, - lapack_int ldx, double* rcond, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params, double* work, - lapack_int* iwork ); -lapack_int LAPACKE_cporfsx_work( int matrix_layout, char uplo, char equed, - lapack_int n, lapack_int nrhs, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* af, - lapack_int ldaf, const float* s, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params, lapack_complex_float* work, - float* rwork ); -lapack_int LAPACKE_zporfsx_work( int matrix_layout, char uplo, char equed, - lapack_int n, lapack_int nrhs, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* af, - lapack_int ldaf, const double* s, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params, lapack_complex_double* work, - double* rwork ); - -lapack_int LAPACKE_sposv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, - float* b, lapack_int ldb ); -lapack_int LAPACKE_dposv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - double* b, lapack_int ldb ); -lapack_int LAPACKE_cposv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zposv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb ); -lapack_int LAPACKE_dsposv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - double* b, lapack_int ldb, double* x, - lapack_int ldx, double* work, float* swork, - lapack_int* iter ); -lapack_int LAPACKE_zcposv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* x, - lapack_int ldx, lapack_complex_double* work, - lapack_complex_float* swork, double* rwork, - lapack_int* iter ); - -lapack_int LAPACKE_sposvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, float* a, - lapack_int lda, float* af, lapack_int ldaf, - char* equed, float* s, float* b, lapack_int ldb, - float* x, lapack_int ldx, float* rcond, - float* ferr, float* berr, float* work, - lapack_int* iwork ); -lapack_int LAPACKE_dposvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, double* a, - lapack_int lda, double* af, lapack_int ldaf, - char* equed, double* s, double* b, - lapack_int ldb, double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr, - double* work, lapack_int* iwork ); -lapack_int LAPACKE_cposvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* af, lapack_int ldaf, - char* equed, float* s, lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* x, - lapack_int ldx, float* rcond, float* ferr, - float* berr, lapack_complex_float* work, - float* rwork ); -lapack_int LAPACKE_zposvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* af, lapack_int ldaf, - char* equed, double* s, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_sposvxx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, float* a, - lapack_int lda, float* af, lapack_int ldaf, - char* equed, float* s, float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* rcond, float* rpvgrw, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params, float* work, - lapack_int* iwork ); -lapack_int LAPACKE_dposvxx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, double* a, - lapack_int lda, double* af, lapack_int ldaf, - char* equed, double* s, double* b, - lapack_int ldb, double* x, lapack_int ldx, - double* rcond, double* rpvgrw, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params, double* work, - lapack_int* iwork ); -lapack_int LAPACKE_cposvxx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* af, lapack_int ldaf, - char* equed, float* s, lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* x, - lapack_int ldx, float* rcond, float* rpvgrw, - float* berr, lapack_int n_err_bnds, - float* err_bnds_norm, float* err_bnds_comp, - lapack_int nparams, float* params, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zposvxx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* af, lapack_int ldaf, - char* equed, double* s, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* rpvgrw, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params, lapack_complex_double* work, - double* rwork ); - -lapack_int LAPACKE_spotrf2_work( int matrix_layout, char uplo, lapack_int n, - float* a, lapack_int lda ); -lapack_int LAPACKE_dpotrf2_work( int matrix_layout, char uplo, lapack_int n, - double* a, lapack_int lda ); -lapack_int LAPACKE_cpotrf2_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_zpotrf2_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda ); - -lapack_int LAPACKE_spotrf_work( int matrix_layout, char uplo, lapack_int n, - float* a, lapack_int lda ); -lapack_int LAPACKE_dpotrf_work( int matrix_layout, char uplo, lapack_int n, - double* a, lapack_int lda ); -lapack_int LAPACKE_cpotrf_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_zpotrf_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda ); - -lapack_int LAPACKE_spotri_work( int matrix_layout, char uplo, lapack_int n, - float* a, lapack_int lda ); -lapack_int LAPACKE_dpotri_work( int matrix_layout, char uplo, lapack_int n, - double* a, lapack_int lda ); -lapack_int LAPACKE_cpotri_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_zpotri_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda ); - -lapack_int LAPACKE_spotrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* a, lapack_int lda, - float* b, lapack_int ldb ); -lapack_int LAPACKE_dpotrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* a, - lapack_int lda, double* b, lapack_int ldb ); -lapack_int LAPACKE_cpotrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zpotrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb ); - -lapack_int LAPACKE_sppcon_work( int matrix_layout, char uplo, lapack_int n, - const float* ap, float anorm, float* rcond, - float* work, lapack_int* iwork ); -lapack_int LAPACKE_dppcon_work( int matrix_layout, char uplo, lapack_int n, - const double* ap, double anorm, double* rcond, - double* work, lapack_int* iwork ); -lapack_int LAPACKE_cppcon_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* ap, float anorm, - float* rcond, lapack_complex_float* work, - float* rwork ); -lapack_int LAPACKE_zppcon_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* ap, double anorm, - double* rcond, lapack_complex_double* work, - double* rwork ); - -lapack_int LAPACKE_sppequ_work( int matrix_layout, char uplo, lapack_int n, - const float* ap, float* s, float* scond, - float* amax ); -lapack_int LAPACKE_dppequ_work( int matrix_layout, char uplo, lapack_int n, - const double* ap, double* s, double* scond, - double* amax ); -lapack_int LAPACKE_cppequ_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* ap, float* s, - float* scond, float* amax ); -lapack_int LAPACKE_zppequ_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* ap, double* s, - double* scond, double* amax ); - -lapack_int LAPACKE_spprfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* ap, - const float* afp, const float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* ferr, float* berr, float* work, - lapack_int* iwork ); -lapack_int LAPACKE_dpprfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* ap, - const double* afp, const double* b, - lapack_int ldb, double* x, lapack_int ldx, - double* ferr, double* berr, double* work, - lapack_int* iwork ); -lapack_int LAPACKE_cpprfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* ap, - const lapack_complex_float* afp, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* ferr, float* berr, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zpprfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, - const lapack_complex_double* ap, - const lapack_complex_double* afp, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_sppsv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* ap, float* b, - lapack_int ldb ); -lapack_int LAPACKE_dppsv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* ap, double* b, - lapack_int ldb ); -lapack_int LAPACKE_cppsv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* ap, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zppsv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* ap, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_sppsvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, float* ap, - float* afp, char* equed, float* s, float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* rcond, float* ferr, float* berr, - float* work, lapack_int* iwork ); -lapack_int LAPACKE_dppsvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, double* ap, - double* afp, char* equed, double* s, double* b, - lapack_int ldb, double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr, - double* work, lapack_int* iwork ); -lapack_int LAPACKE_cppsvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - lapack_complex_float* ap, - lapack_complex_float* afp, char* equed, - float* s, lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* x, - lapack_int ldx, float* rcond, float* ferr, - float* berr, lapack_complex_float* work, - float* rwork ); -lapack_int LAPACKE_zppsvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - lapack_complex_double* ap, - lapack_complex_double* afp, char* equed, - double* s, lapack_complex_double* b, - lapack_int ldb, lapack_complex_double* x, - lapack_int ldx, double* rcond, double* ferr, - double* berr, lapack_complex_double* work, - double* rwork ); - -lapack_int LAPACKE_spptrf_work( int matrix_layout, char uplo, lapack_int n, - float* ap ); -lapack_int LAPACKE_dpptrf_work( int matrix_layout, char uplo, lapack_int n, - double* ap ); -lapack_int LAPACKE_cpptrf_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* ap ); -lapack_int LAPACKE_zpptrf_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* ap ); - -lapack_int LAPACKE_spptri_work( int matrix_layout, char uplo, lapack_int n, - float* ap ); -lapack_int LAPACKE_dpptri_work( int matrix_layout, char uplo, lapack_int n, - double* ap ); -lapack_int LAPACKE_cpptri_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* ap ); -lapack_int LAPACKE_zpptri_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* ap ); - -lapack_int LAPACKE_spptrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* ap, float* b, - lapack_int ldb ); -lapack_int LAPACKE_dpptrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* ap, double* b, - lapack_int ldb ); -lapack_int LAPACKE_cpptrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* ap, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zpptrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, - const lapack_complex_double* ap, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_spstrf_work( int matrix_layout, char uplo, lapack_int n, - float* a, lapack_int lda, lapack_int* piv, - lapack_int* rank, float tol, float* work ); -lapack_int LAPACKE_dpstrf_work( int matrix_layout, char uplo, lapack_int n, - double* a, lapack_int lda, lapack_int* piv, - lapack_int* rank, double tol, double* work ); -lapack_int LAPACKE_cpstrf_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* piv, lapack_int* rank, float tol, - float* work ); -lapack_int LAPACKE_zpstrf_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* piv, lapack_int* rank, double tol, - double* work ); - -lapack_int LAPACKE_sptcon_work( lapack_int n, const float* d, const float* e, - float anorm, float* rcond, float* work ); -lapack_int LAPACKE_dptcon_work( lapack_int n, const double* d, const double* e, - double anorm, double* rcond, double* work ); -lapack_int LAPACKE_cptcon_work( lapack_int n, const float* d, - const lapack_complex_float* e, float anorm, - float* rcond, float* work ); -lapack_int LAPACKE_zptcon_work( lapack_int n, const double* d, - const lapack_complex_double* e, double anorm, - double* rcond, double* work ); - -lapack_int LAPACKE_spteqr_work( int matrix_layout, char compz, lapack_int n, - float* d, float* e, float* z, lapack_int ldz, - float* work ); -lapack_int LAPACKE_dpteqr_work( int matrix_layout, char compz, lapack_int n, - double* d, double* e, double* z, lapack_int ldz, - double* work ); -lapack_int LAPACKE_cpteqr_work( int matrix_layout, char compz, lapack_int n, - float* d, float* e, lapack_complex_float* z, - lapack_int ldz, float* work ); -lapack_int LAPACKE_zpteqr_work( int matrix_layout, char compz, lapack_int n, - double* d, double* e, lapack_complex_double* z, - lapack_int ldz, double* work ); - -lapack_int LAPACKE_sptrfs_work( int matrix_layout, lapack_int n, lapack_int nrhs, - const float* d, const float* e, const float* df, - const float* ef, const float* b, lapack_int ldb, - float* x, lapack_int ldx, float* ferr, - float* berr, float* work ); -lapack_int LAPACKE_dptrfs_work( int matrix_layout, lapack_int n, lapack_int nrhs, - const double* d, const double* e, - const double* df, const double* ef, - const double* b, lapack_int ldb, double* x, - lapack_int ldx, double* ferr, double* berr, - double* work ); -lapack_int LAPACKE_cptrfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* d, - const lapack_complex_float* e, const float* df, - const lapack_complex_float* ef, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* ferr, float* berr, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zptrfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* d, - const lapack_complex_double* e, - const double* df, - const lapack_complex_double* ef, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_sptsv_work( int matrix_layout, lapack_int n, lapack_int nrhs, - float* d, float* e, float* b, lapack_int ldb ); -lapack_int LAPACKE_dptsv_work( int matrix_layout, lapack_int n, lapack_int nrhs, - double* d, double* e, double* b, - lapack_int ldb ); -lapack_int LAPACKE_cptsv_work( int matrix_layout, lapack_int n, lapack_int nrhs, - float* d, lapack_complex_float* e, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zptsv_work( int matrix_layout, lapack_int n, lapack_int nrhs, - double* d, lapack_complex_double* e, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_sptsvx_work( int matrix_layout, char fact, lapack_int n, - lapack_int nrhs, const float* d, const float* e, - float* df, float* ef, const float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* rcond, float* ferr, float* berr, - float* work ); -lapack_int LAPACKE_dptsvx_work( int matrix_layout, char fact, lapack_int n, - lapack_int nrhs, const double* d, - const double* e, double* df, double* ef, - const double* b, lapack_int ldb, double* x, - lapack_int ldx, double* rcond, double* ferr, - double* berr, double* work ); -lapack_int LAPACKE_cptsvx_work( int matrix_layout, char fact, lapack_int n, - lapack_int nrhs, const float* d, - const lapack_complex_float* e, float* df, - lapack_complex_float* ef, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* ferr, float* berr, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zptsvx_work( int matrix_layout, char fact, lapack_int n, - lapack_int nrhs, const double* d, - const lapack_complex_double* e, double* df, - lapack_complex_double* ef, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_spttrf_work( lapack_int n, float* d, float* e ); -lapack_int LAPACKE_dpttrf_work( lapack_int n, double* d, double* e ); -lapack_int LAPACKE_cpttrf_work( lapack_int n, float* d, - lapack_complex_float* e ); -lapack_int LAPACKE_zpttrf_work( lapack_int n, double* d, - lapack_complex_double* e ); - -lapack_int LAPACKE_spttrs_work( int matrix_layout, lapack_int n, lapack_int nrhs, - const float* d, const float* e, float* b, - lapack_int ldb ); -lapack_int LAPACKE_dpttrs_work( int matrix_layout, lapack_int n, lapack_int nrhs, - const double* d, const double* e, double* b, - lapack_int ldb ); -lapack_int LAPACKE_cpttrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* d, - const lapack_complex_float* e, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zpttrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* d, - const lapack_complex_double* e, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_ssbev_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int kd, float* ab, - lapack_int ldab, float* w, float* z, - lapack_int ldz, float* work ); -lapack_int LAPACKE_dsbev_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int kd, double* ab, - lapack_int ldab, double* w, double* z, - lapack_int ldz, double* work ); - -lapack_int LAPACKE_ssbevd_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int kd, float* ab, - lapack_int ldab, float* w, float* z, - lapack_int ldz, float* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dsbevd_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int kd, double* ab, - lapack_int ldab, double* w, double* z, - lapack_int ldz, double* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); - -lapack_int LAPACKE_ssbevx_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, lapack_int kd, - float* ab, lapack_int ldab, float* q, - lapack_int ldq, float vl, float vu, - lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, float* z, - lapack_int ldz, float* work, - lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_dsbevx_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, lapack_int kd, - double* ab, lapack_int ldab, double* q, - lapack_int ldq, double vl, double vu, - lapack_int il, lapack_int iu, double abstol, - lapack_int* m, double* w, double* z, - lapack_int ldz, double* work, - lapack_int* iwork, lapack_int* ifail ); - -lapack_int LAPACKE_ssbgst_work( int matrix_layout, char vect, char uplo, - lapack_int n, lapack_int ka, lapack_int kb, - float* ab, lapack_int ldab, const float* bb, - lapack_int ldbb, float* x, lapack_int ldx, - float* work ); -lapack_int LAPACKE_dsbgst_work( int matrix_layout, char vect, char uplo, - lapack_int n, lapack_int ka, lapack_int kb, - double* ab, lapack_int ldab, const double* bb, - lapack_int ldbb, double* x, lapack_int ldx, - double* work ); - -lapack_int LAPACKE_ssbgv_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int ka, lapack_int kb, - float* ab, lapack_int ldab, float* bb, - lapack_int ldbb, float* w, float* z, - lapack_int ldz, float* work ); -lapack_int LAPACKE_dsbgv_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int ka, lapack_int kb, - double* ab, lapack_int ldab, double* bb, - lapack_int ldbb, double* w, double* z, - lapack_int ldz, double* work ); - -lapack_int LAPACKE_ssbgvd_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int ka, lapack_int kb, - float* ab, lapack_int ldab, float* bb, - lapack_int ldbb, float* w, float* z, - lapack_int ldz, float* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dsbgvd_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int ka, lapack_int kb, - double* ab, lapack_int ldab, double* bb, - lapack_int ldbb, double* w, double* z, - lapack_int ldz, double* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); - -lapack_int LAPACKE_ssbgvx_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, lapack_int ka, - lapack_int kb, float* ab, lapack_int ldab, - float* bb, lapack_int ldbb, float* q, - lapack_int ldq, float vl, float vu, - lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, float* z, - lapack_int ldz, float* work, lapack_int* iwork, - lapack_int* ifail ); -lapack_int LAPACKE_dsbgvx_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, lapack_int ka, - lapack_int kb, double* ab, lapack_int ldab, - double* bb, lapack_int ldbb, double* q, - lapack_int ldq, double vl, double vu, - lapack_int il, lapack_int iu, double abstol, - lapack_int* m, double* w, double* z, - lapack_int ldz, double* work, lapack_int* iwork, - lapack_int* ifail ); - -lapack_int LAPACKE_ssbtrd_work( int matrix_layout, char vect, char uplo, - lapack_int n, lapack_int kd, float* ab, - lapack_int ldab, float* d, float* e, float* q, - lapack_int ldq, float* work ); -lapack_int LAPACKE_dsbtrd_work( int matrix_layout, char vect, char uplo, - lapack_int n, lapack_int kd, double* ab, - lapack_int ldab, double* d, double* e, - double* q, lapack_int ldq, double* work ); - -lapack_int LAPACKE_ssfrk_work( int matrix_layout, char transr, char uplo, - char trans, lapack_int n, lapack_int k, - float alpha, const float* a, lapack_int lda, - float beta, float* c ); -lapack_int LAPACKE_dsfrk_work( int matrix_layout, char transr, char uplo, - char trans, lapack_int n, lapack_int k, - double alpha, const double* a, lapack_int lda, - double beta, double* c ); - -lapack_int LAPACKE_sspcon_work( int matrix_layout, char uplo, lapack_int n, - const float* ap, const lapack_int* ipiv, - float anorm, float* rcond, float* work, - lapack_int* iwork ); -lapack_int LAPACKE_dspcon_work( int matrix_layout, char uplo, lapack_int n, - const double* ap, const lapack_int* ipiv, - double anorm, double* rcond, double* work, - lapack_int* iwork ); -lapack_int LAPACKE_cspcon_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* ap, - const lapack_int* ipiv, float anorm, - float* rcond, lapack_complex_float* work ); -lapack_int LAPACKE_zspcon_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* ap, - const lapack_int* ipiv, double anorm, - double* rcond, lapack_complex_double* work ); - -lapack_int LAPACKE_sspev_work( int matrix_layout, char jobz, char uplo, - lapack_int n, float* ap, float* w, float* z, - lapack_int ldz, float* work ); -lapack_int LAPACKE_dspev_work( int matrix_layout, char jobz, char uplo, - lapack_int n, double* ap, double* w, double* z, - lapack_int ldz, double* work ); - -lapack_int LAPACKE_sspevd_work( int matrix_layout, char jobz, char uplo, - lapack_int n, float* ap, float* w, float* z, - lapack_int ldz, float* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dspevd_work( int matrix_layout, char jobz, char uplo, - lapack_int n, double* ap, double* w, double* z, - lapack_int ldz, double* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); - -lapack_int LAPACKE_sspevx_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, float* ap, float vl, - float vu, lapack_int il, lapack_int iu, - float abstol, lapack_int* m, float* w, float* z, - lapack_int ldz, float* work, lapack_int* iwork, - lapack_int* ifail ); -lapack_int LAPACKE_dspevx_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, double* ap, double vl, - double vu, lapack_int il, lapack_int iu, - double abstol, lapack_int* m, double* w, - double* z, lapack_int ldz, double* work, - lapack_int* iwork, lapack_int* ifail ); - -lapack_int LAPACKE_sspgst_work( int matrix_layout, lapack_int itype, char uplo, - lapack_int n, float* ap, const float* bp ); -lapack_int LAPACKE_dspgst_work( int matrix_layout, lapack_int itype, char uplo, - lapack_int n, double* ap, const double* bp ); - -lapack_int LAPACKE_sspgv_work( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, float* ap, float* bp, - float* w, float* z, lapack_int ldz, - float* work ); -lapack_int LAPACKE_dspgv_work( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, double* ap, double* bp, - double* w, double* z, lapack_int ldz, - double* work ); - -lapack_int LAPACKE_sspgvd_work( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, float* ap, float* bp, - float* w, float* z, lapack_int ldz, float* work, - lapack_int lwork, lapack_int* iwork, - lapack_int liwork ); -lapack_int LAPACKE_dspgvd_work( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, double* ap, double* bp, - double* w, double* z, lapack_int ldz, - double* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); - -lapack_int LAPACKE_sspgvx_work( int matrix_layout, lapack_int itype, char jobz, - char range, char uplo, lapack_int n, float* ap, - float* bp, float vl, float vu, lapack_int il, - lapack_int iu, float abstol, lapack_int* m, - float* w, float* z, lapack_int ldz, float* work, - lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_dspgvx_work( int matrix_layout, lapack_int itype, char jobz, - char range, char uplo, lapack_int n, double* ap, - double* bp, double vl, double vu, lapack_int il, - lapack_int iu, double abstol, lapack_int* m, - double* w, double* z, lapack_int ldz, - double* work, lapack_int* iwork, - lapack_int* ifail ); - -lapack_int LAPACKE_ssprfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* ap, - const float* afp, const lapack_int* ipiv, - const float* b, lapack_int ldb, float* x, - lapack_int ldx, float* ferr, float* berr, - float* work, lapack_int* iwork ); -lapack_int LAPACKE_dsprfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* ap, - const double* afp, const lapack_int* ipiv, - const double* b, lapack_int ldb, double* x, - lapack_int ldx, double* ferr, double* berr, - double* work, lapack_int* iwork ); -lapack_int LAPACKE_csprfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* ap, - const lapack_complex_float* afp, - const lapack_int* ipiv, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* ferr, float* berr, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zsprfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, - const lapack_complex_double* ap, - const lapack_complex_double* afp, - const lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_sspsv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* ap, lapack_int* ipiv, - float* b, lapack_int ldb ); -lapack_int LAPACKE_dspsv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* ap, lapack_int* ipiv, - double* b, lapack_int ldb ); -lapack_int LAPACKE_cspsv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* ap, - lapack_int* ipiv, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zspsv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* ap, - lapack_int* ipiv, lapack_complex_double* b, - lapack_int ldb ); - -lapack_int LAPACKE_sspsvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, const float* ap, - float* afp, lapack_int* ipiv, const float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* rcond, float* ferr, float* berr, - float* work, lapack_int* iwork ); -lapack_int LAPACKE_dspsvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, const double* ap, - double* afp, lapack_int* ipiv, const double* b, - lapack_int ldb, double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr, - double* work, lapack_int* iwork ); -lapack_int LAPACKE_cspsvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - const lapack_complex_float* ap, - lapack_complex_float* afp, lapack_int* ipiv, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* ferr, float* berr, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zspsvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - const lapack_complex_double* ap, - lapack_complex_double* afp, lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_ssptrd_work( int matrix_layout, char uplo, lapack_int n, - float* ap, float* d, float* e, float* tau ); -lapack_int LAPACKE_dsptrd_work( int matrix_layout, char uplo, lapack_int n, - double* ap, double* d, double* e, double* tau ); - -lapack_int LAPACKE_ssptrf_work( int matrix_layout, char uplo, lapack_int n, - float* ap, lapack_int* ipiv ); -lapack_int LAPACKE_dsptrf_work( int matrix_layout, char uplo, lapack_int n, - double* ap, lapack_int* ipiv ); -lapack_int LAPACKE_csptrf_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* ap, lapack_int* ipiv ); -lapack_int LAPACKE_zsptrf_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* ap, lapack_int* ipiv ); - -lapack_int LAPACKE_ssptri_work( int matrix_layout, char uplo, lapack_int n, - float* ap, const lapack_int* ipiv, - float* work ); -lapack_int LAPACKE_dsptri_work( int matrix_layout, char uplo, lapack_int n, - double* ap, const lapack_int* ipiv, - double* work ); -lapack_int LAPACKE_csptri_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* ap, - const lapack_int* ipiv, - lapack_complex_float* work ); -lapack_int LAPACKE_zsptri_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* ap, - const lapack_int* ipiv, - lapack_complex_double* work ); - -lapack_int LAPACKE_ssptrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* ap, - const lapack_int* ipiv, float* b, - lapack_int ldb ); -lapack_int LAPACKE_dsptrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* ap, - const lapack_int* ipiv, double* b, - lapack_int ldb ); -lapack_int LAPACKE_csptrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* ap, - const lapack_int* ipiv, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_zsptrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, - const lapack_complex_double* ap, - const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_sstebz_work( char range, char order, lapack_int n, float vl, - float vu, lapack_int il, lapack_int iu, - float abstol, const float* d, const float* e, - lapack_int* m, lapack_int* nsplit, float* w, - lapack_int* iblock, lapack_int* isplit, - float* work, lapack_int* iwork ); -lapack_int LAPACKE_dstebz_work( char range, char order, lapack_int n, double vl, - double vu, lapack_int il, lapack_int iu, - double abstol, const double* d, const double* e, - lapack_int* m, lapack_int* nsplit, double* w, - lapack_int* iblock, lapack_int* isplit, - double* work, lapack_int* iwork ); - -lapack_int LAPACKE_sstedc_work( int matrix_layout, char compz, lapack_int n, - float* d, float* e, float* z, lapack_int ldz, - float* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dstedc_work( int matrix_layout, char compz, lapack_int n, - double* d, double* e, double* z, lapack_int ldz, - double* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_cstedc_work( int matrix_layout, char compz, lapack_int n, - float* d, float* e, lapack_complex_float* z, - lapack_int ldz, lapack_complex_float* work, - lapack_int lwork, float* rwork, - lapack_int lrwork, lapack_int* iwork, - lapack_int liwork ); -lapack_int LAPACKE_zstedc_work( int matrix_layout, char compz, lapack_int n, - double* d, double* e, lapack_complex_double* z, - lapack_int ldz, lapack_complex_double* work, - lapack_int lwork, double* rwork, - lapack_int lrwork, lapack_int* iwork, - lapack_int liwork ); - -lapack_int LAPACKE_sstegr_work( int matrix_layout, char jobz, char range, - lapack_int n, float* d, float* e, float vl, - float vu, lapack_int il, lapack_int iu, - float abstol, lapack_int* m, float* w, float* z, - lapack_int ldz, lapack_int* isuppz, float* work, - lapack_int lwork, lapack_int* iwork, - lapack_int liwork ); -lapack_int LAPACKE_dstegr_work( int matrix_layout, char jobz, char range, - lapack_int n, double* d, double* e, double vl, - double vu, lapack_int il, lapack_int iu, - double abstol, lapack_int* m, double* w, - double* z, lapack_int ldz, lapack_int* isuppz, - double* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_cstegr_work( int matrix_layout, char jobz, char range, - lapack_int n, float* d, float* e, float vl, - float vu, lapack_int il, lapack_int iu, - float abstol, lapack_int* m, float* w, - lapack_complex_float* z, lapack_int ldz, - lapack_int* isuppz, float* work, - lapack_int lwork, lapack_int* iwork, - lapack_int liwork ); -lapack_int LAPACKE_zstegr_work( int matrix_layout, char jobz, char range, - lapack_int n, double* d, double* e, double vl, - double vu, lapack_int il, lapack_int iu, - double abstol, lapack_int* m, double* w, - lapack_complex_double* z, lapack_int ldz, - lapack_int* isuppz, double* work, - lapack_int lwork, lapack_int* iwork, - lapack_int liwork ); - -lapack_int LAPACKE_sstein_work( int matrix_layout, lapack_int n, const float* d, - const float* e, lapack_int m, const float* w, - const lapack_int* iblock, - const lapack_int* isplit, float* z, - lapack_int ldz, float* work, lapack_int* iwork, - lapack_int* ifailv ); -lapack_int LAPACKE_dstein_work( int matrix_layout, lapack_int n, const double* d, - const double* e, lapack_int m, const double* w, - const lapack_int* iblock, - const lapack_int* isplit, double* z, - lapack_int ldz, double* work, lapack_int* iwork, - lapack_int* ifailv ); -lapack_int LAPACKE_cstein_work( int matrix_layout, lapack_int n, const float* d, - const float* e, lapack_int m, const float* w, - const lapack_int* iblock, - const lapack_int* isplit, - lapack_complex_float* z, lapack_int ldz, - float* work, lapack_int* iwork, - lapack_int* ifailv ); -lapack_int LAPACKE_zstein_work( int matrix_layout, lapack_int n, const double* d, - const double* e, lapack_int m, const double* w, - const lapack_int* iblock, - const lapack_int* isplit, - lapack_complex_double* z, lapack_int ldz, - double* work, lapack_int* iwork, - lapack_int* ifailv ); - -lapack_int LAPACKE_sstemr_work( int matrix_layout, char jobz, char range, - lapack_int n, float* d, float* e, float vl, - float vu, lapack_int il, lapack_int iu, - lapack_int* m, float* w, float* z, - lapack_int ldz, lapack_int nzc, - lapack_int* isuppz, lapack_logical* tryrac, - float* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dstemr_work( int matrix_layout, char jobz, char range, - lapack_int n, double* d, double* e, double vl, - double vu, lapack_int il, lapack_int iu, - lapack_int* m, double* w, double* z, - lapack_int ldz, lapack_int nzc, - lapack_int* isuppz, lapack_logical* tryrac, - double* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_cstemr_work( int matrix_layout, char jobz, char range, - lapack_int n, float* d, float* e, float vl, - float vu, lapack_int il, lapack_int iu, - lapack_int* m, float* w, - lapack_complex_float* z, lapack_int ldz, - lapack_int nzc, lapack_int* isuppz, - lapack_logical* tryrac, float* work, - lapack_int lwork, lapack_int* iwork, - lapack_int liwork ); -lapack_int LAPACKE_zstemr_work( int matrix_layout, char jobz, char range, - lapack_int n, double* d, double* e, double vl, - double vu, lapack_int il, lapack_int iu, - lapack_int* m, double* w, - lapack_complex_double* z, lapack_int ldz, - lapack_int nzc, lapack_int* isuppz, - lapack_logical* tryrac, double* work, - lapack_int lwork, lapack_int* iwork, - lapack_int liwork ); - -lapack_int LAPACKE_ssteqr_work( int matrix_layout, char compz, lapack_int n, - float* d, float* e, float* z, lapack_int ldz, - float* work ); -lapack_int LAPACKE_dsteqr_work( int matrix_layout, char compz, lapack_int n, - double* d, double* e, double* z, lapack_int ldz, - double* work ); -lapack_int LAPACKE_csteqr_work( int matrix_layout, char compz, lapack_int n, - float* d, float* e, lapack_complex_float* z, - lapack_int ldz, float* work ); -lapack_int LAPACKE_zsteqr_work( int matrix_layout, char compz, lapack_int n, - double* d, double* e, lapack_complex_double* z, - lapack_int ldz, double* work ); - -lapack_int LAPACKE_ssterf_work( lapack_int n, float* d, float* e ); -lapack_int LAPACKE_dsterf_work( lapack_int n, double* d, double* e ); - -lapack_int LAPACKE_sstev_work( int matrix_layout, char jobz, lapack_int n, - float* d, float* e, float* z, lapack_int ldz, - float* work ); -lapack_int LAPACKE_dstev_work( int matrix_layout, char jobz, lapack_int n, - double* d, double* e, double* z, lapack_int ldz, - double* work ); - -lapack_int LAPACKE_sstevd_work( int matrix_layout, char jobz, lapack_int n, - float* d, float* e, float* z, lapack_int ldz, - float* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dstevd_work( int matrix_layout, char jobz, lapack_int n, - double* d, double* e, double* z, lapack_int ldz, - double* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); - -lapack_int LAPACKE_sstevr_work( int matrix_layout, char jobz, char range, - lapack_int n, float* d, float* e, float vl, - float vu, lapack_int il, lapack_int iu, - float abstol, lapack_int* m, float* w, float* z, - lapack_int ldz, lapack_int* isuppz, float* work, - lapack_int lwork, lapack_int* iwork, - lapack_int liwork ); -lapack_int LAPACKE_dstevr_work( int matrix_layout, char jobz, char range, - lapack_int n, double* d, double* e, double vl, - double vu, lapack_int il, lapack_int iu, - double abstol, lapack_int* m, double* w, - double* z, lapack_int ldz, lapack_int* isuppz, - double* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); - -lapack_int LAPACKE_sstevx_work( int matrix_layout, char jobz, char range, - lapack_int n, float* d, float* e, float vl, - float vu, lapack_int il, lapack_int iu, - float abstol, lapack_int* m, float* w, float* z, - lapack_int ldz, float* work, lapack_int* iwork, - lapack_int* ifail ); -lapack_int LAPACKE_dstevx_work( int matrix_layout, char jobz, char range, - lapack_int n, double* d, double* e, double vl, - double vu, lapack_int il, lapack_int iu, - double abstol, lapack_int* m, double* w, - double* z, lapack_int ldz, double* work, - lapack_int* iwork, lapack_int* ifail ); - -lapack_int LAPACKE_ssycon_work( int matrix_layout, char uplo, lapack_int n, - const float* a, lapack_int lda, - const lapack_int* ipiv, float anorm, - float* rcond, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dsycon_work( int matrix_layout, char uplo, lapack_int n, - const double* a, lapack_int lda, - const lapack_int* ipiv, double anorm, - double* rcond, double* work, - lapack_int* iwork ); -lapack_int LAPACKE_csycon_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - const lapack_int* ipiv, float anorm, - float* rcond, lapack_complex_float* work ); -lapack_int LAPACKE_zsycon_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - const lapack_int* ipiv, double anorm, - double* rcond, lapack_complex_double* work ); - -lapack_int LAPACKE_ssyequb_work( int matrix_layout, char uplo, lapack_int n, - const float* a, lapack_int lda, float* s, - float* scond, float* amax, float* work ); -lapack_int LAPACKE_dsyequb_work( int matrix_layout, char uplo, lapack_int n, - const double* a, lapack_int lda, double* s, - double* scond, double* amax, double* work ); -lapack_int LAPACKE_csyequb_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - float* s, float* scond, float* amax, - lapack_complex_float* work ); -lapack_int LAPACKE_zsyequb_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - double* s, double* scond, double* amax, - lapack_complex_double* work ); - -lapack_int LAPACKE_ssyev_work( int matrix_layout, char jobz, char uplo, - lapack_int n, float* a, lapack_int lda, float* w, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dsyev_work( int matrix_layout, char jobz, char uplo, - lapack_int n, double* a, lapack_int lda, - double* w, double* work, lapack_int lwork ); - -lapack_int LAPACKE_ssyevd_work( int matrix_layout, char jobz, char uplo, - lapack_int n, float* a, lapack_int lda, - float* w, float* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dsyevd_work( int matrix_layout, char jobz, char uplo, - lapack_int n, double* a, lapack_int lda, - double* w, double* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); - -lapack_int LAPACKE_ssyevr_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, float* a, - lapack_int lda, float vl, float vu, - lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, float* z, - lapack_int ldz, lapack_int* isuppz, float* work, - lapack_int lwork, lapack_int* iwork, - lapack_int liwork ); -lapack_int LAPACKE_dsyevr_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, double* a, - lapack_int lda, double vl, double vu, - lapack_int il, lapack_int iu, double abstol, - lapack_int* m, double* w, double* z, - lapack_int ldz, lapack_int* isuppz, - double* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); - -lapack_int LAPACKE_ssyevx_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, float* a, - lapack_int lda, float vl, float vu, - lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, float* z, - lapack_int ldz, float* work, lapack_int lwork, - lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_dsyevx_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, double* a, - lapack_int lda, double vl, double vu, - lapack_int il, lapack_int iu, double abstol, - lapack_int* m, double* w, double* z, - lapack_int ldz, double* work, lapack_int lwork, - lapack_int* iwork, lapack_int* ifail ); - -lapack_int LAPACKE_ssygst_work( int matrix_layout, lapack_int itype, char uplo, - lapack_int n, float* a, lapack_int lda, - const float* b, lapack_int ldb ); -lapack_int LAPACKE_dsygst_work( int matrix_layout, lapack_int itype, char uplo, - lapack_int n, double* a, lapack_int lda, - const double* b, lapack_int ldb ); - -lapack_int LAPACKE_ssygv_work( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, float* a, - lapack_int lda, float* b, lapack_int ldb, - float* w, float* work, lapack_int lwork ); -lapack_int LAPACKE_dsygv_work( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, double* a, - lapack_int lda, double* b, lapack_int ldb, - double* w, double* work, lapack_int lwork ); - -lapack_int LAPACKE_ssygvd_work( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, float* a, - lapack_int lda, float* b, lapack_int ldb, - float* w, float* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dsygvd_work( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, double* a, - lapack_int lda, double* b, lapack_int ldb, - double* w, double* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); - -lapack_int LAPACKE_ssygvx_work( int matrix_layout, lapack_int itype, char jobz, - char range, char uplo, lapack_int n, float* a, - lapack_int lda, float* b, lapack_int ldb, - float vl, float vu, lapack_int il, - lapack_int iu, float abstol, lapack_int* m, - float* w, float* z, lapack_int ldz, float* work, - lapack_int lwork, lapack_int* iwork, - lapack_int* ifail ); -lapack_int LAPACKE_dsygvx_work( int matrix_layout, lapack_int itype, char jobz, - char range, char uplo, lapack_int n, double* a, - lapack_int lda, double* b, lapack_int ldb, - double vl, double vu, lapack_int il, - lapack_int iu, double abstol, lapack_int* m, - double* w, double* z, lapack_int ldz, - double* work, lapack_int lwork, - lapack_int* iwork, lapack_int* ifail ); - -lapack_int LAPACKE_ssyrfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* a, lapack_int lda, - const float* af, lapack_int ldaf, - const lapack_int* ipiv, const float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* ferr, float* berr, float* work, - lapack_int* iwork ); -lapack_int LAPACKE_dsyrfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* a, - lapack_int lda, const double* af, - lapack_int ldaf, const lapack_int* ipiv, - const double* b, lapack_int ldb, double* x, - lapack_int ldx, double* ferr, double* berr, - double* work, lapack_int* iwork ); -lapack_int LAPACKE_csyrfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* af, - lapack_int ldaf, const lapack_int* ipiv, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* ferr, float* berr, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_zsyrfs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_complex_double* af, - lapack_int ldaf, const lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_ssyrfsx_work( int matrix_layout, char uplo, char equed, - lapack_int n, lapack_int nrhs, const float* a, - lapack_int lda, const float* af, - lapack_int ldaf, const lapack_int* ipiv, - const float* s, const float* b, lapack_int ldb, - float* x, lapack_int ldx, float* rcond, - float* berr, lapack_int n_err_bnds, - float* err_bnds_norm, float* err_bnds_comp, - lapack_int nparams, float* params, float* work, - lapack_int* iwork ); -lapack_int LAPACKE_dsyrfsx_work( int matrix_layout, char uplo, char equed, - lapack_int n, lapack_int nrhs, const double* a, - lapack_int lda, const double* af, - lapack_int ldaf, const lapack_int* ipiv, - const double* s, const double* b, - lapack_int ldb, double* x, lapack_int ldx, - double* rcond, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params, double* work, - lapack_int* iwork ); -lapack_int LAPACKE_csyrfsx_work( int matrix_layout, char uplo, char equed, - lapack_int n, lapack_int nrhs, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* af, - lapack_int ldaf, const lapack_int* ipiv, - const float* s, const lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* x, - lapack_int ldx, float* rcond, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params, lapack_complex_float* work, - float* rwork ); -lapack_int LAPACKE_zsyrfsx_work( int matrix_layout, char uplo, char equed, - lapack_int n, lapack_int nrhs, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* af, - lapack_int ldaf, const lapack_int* ipiv, - const double* s, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params, lapack_complex_double* work, - double* rwork ); - -lapack_int LAPACKE_ssysv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, - lapack_int* ipiv, float* b, lapack_int ldb, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dsysv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - lapack_int* ipiv, double* b, lapack_int ldb, - double* work, lapack_int lwork ); -lapack_int LAPACKE_csysv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zsysv_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_ssysvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, const float* a, - lapack_int lda, float* af, lapack_int ldaf, - lapack_int* ipiv, const float* b, - lapack_int ldb, float* x, lapack_int ldx, - float* rcond, float* ferr, float* berr, - float* work, lapack_int lwork, - lapack_int* iwork ); -lapack_int LAPACKE_dsysvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, const double* a, - lapack_int lda, double* af, lapack_int ldaf, - lapack_int* ipiv, const double* b, - lapack_int ldb, double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr, - double* work, lapack_int lwork, - lapack_int* iwork ); -lapack_int LAPACKE_csysvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - const lapack_complex_float* a, lapack_int lda, - lapack_complex_float* af, lapack_int ldaf, - lapack_int* ipiv, const lapack_complex_float* b, - lapack_int ldb, lapack_complex_float* x, - lapack_int ldx, float* rcond, float* ferr, - float* berr, lapack_complex_float* work, - lapack_int lwork, float* rwork ); -lapack_int LAPACKE_zsysvx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - const lapack_complex_double* a, lapack_int lda, - lapack_complex_double* af, lapack_int ldaf, - lapack_int* ipiv, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* ferr, double* berr, - lapack_complex_double* work, lapack_int lwork, - double* rwork ); - -lapack_int LAPACKE_ssysvxx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, float* a, - lapack_int lda, float* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, float* s, - float* b, lapack_int ldb, float* x, - lapack_int ldx, float* rcond, float* rpvgrw, - float* berr, lapack_int n_err_bnds, - float* err_bnds_norm, float* err_bnds_comp, - lapack_int nparams, float* params, float* work, - lapack_int* iwork ); -lapack_int LAPACKE_dsysvxx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, double* a, - lapack_int lda, double* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, double* s, - double* b, lapack_int ldb, double* x, - lapack_int ldx, double* rcond, double* rpvgrw, - double* berr, lapack_int n_err_bnds, - double* err_bnds_norm, double* err_bnds_comp, - lapack_int nparams, double* params, - double* work, lapack_int* iwork ); -lapack_int LAPACKE_csysvxx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, float* s, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* x, lapack_int ldx, - float* rcond, float* rpvgrw, float* berr, - lapack_int n_err_bnds, float* err_bnds_norm, - float* err_bnds_comp, lapack_int nparams, - float* params, lapack_complex_float* work, - float* rwork ); -lapack_int LAPACKE_zsysvxx_work( int matrix_layout, char fact, char uplo, - lapack_int n, lapack_int nrhs, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* af, lapack_int ldaf, - lapack_int* ipiv, char* equed, double* s, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* x, lapack_int ldx, - double* rcond, double* rpvgrw, double* berr, - lapack_int n_err_bnds, double* err_bnds_norm, - double* err_bnds_comp, lapack_int nparams, - double* params, lapack_complex_double* work, - double* rwork ); - -lapack_int LAPACKE_ssytrd_work( int matrix_layout, char uplo, lapack_int n, - float* a, lapack_int lda, float* d, float* e, - float* tau, float* work, lapack_int lwork ); -lapack_int LAPACKE_dsytrd_work( int matrix_layout, char uplo, lapack_int n, - double* a, lapack_int lda, double* d, double* e, - double* tau, double* work, lapack_int lwork ); - -lapack_int LAPACKE_ssytrf_work( int matrix_layout, char uplo, lapack_int n, - float* a, lapack_int lda, lapack_int* ipiv, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dsytrf_work( int matrix_layout, char uplo, lapack_int n, - double* a, lapack_int lda, lapack_int* ipiv, - double* work, lapack_int lwork ); -lapack_int LAPACKE_csytrf_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* ipiv, lapack_complex_float* work, - lapack_int lwork ); -lapack_int LAPACKE_zsytrf_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv, lapack_complex_double* work, - lapack_int lwork ); - -lapack_int LAPACKE_ssytri_work( int matrix_layout, char uplo, lapack_int n, - float* a, lapack_int lda, - const lapack_int* ipiv, float* work ); -lapack_int LAPACKE_dsytri_work( int matrix_layout, char uplo, lapack_int n, - double* a, lapack_int lda, - const lapack_int* ipiv, double* work ); -lapack_int LAPACKE_csytri_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_int* ipiv, - lapack_complex_float* work ); -lapack_int LAPACKE_zsytri_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_int* ipiv, - lapack_complex_double* work ); - -lapack_int LAPACKE_ssytrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* a, lapack_int lda, - const lapack_int* ipiv, float* b, - lapack_int ldb ); -lapack_int LAPACKE_dsytrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* a, - lapack_int lda, const lapack_int* ipiv, - double* b, lapack_int ldb ); -lapack_int LAPACKE_csytrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zsytrs_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_stbcon_work( int matrix_layout, char norm, char uplo, - char diag, lapack_int n, lapack_int kd, - const float* ab, lapack_int ldab, float* rcond, - float* work, lapack_int* iwork ); -lapack_int LAPACKE_dtbcon_work( int matrix_layout, char norm, char uplo, - char diag, lapack_int n, lapack_int kd, - const double* ab, lapack_int ldab, - double* rcond, double* work, - lapack_int* iwork ); -lapack_int LAPACKE_ctbcon_work( int matrix_layout, char norm, char uplo, - char diag, lapack_int n, lapack_int kd, - const lapack_complex_float* ab, lapack_int ldab, - float* rcond, lapack_complex_float* work, - float* rwork ); -lapack_int LAPACKE_ztbcon_work( int matrix_layout, char norm, char uplo, - char diag, lapack_int n, lapack_int kd, - const lapack_complex_double* ab, - lapack_int ldab, double* rcond, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_stbrfs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int kd, - lapack_int nrhs, const float* ab, - lapack_int ldab, const float* b, lapack_int ldb, - const float* x, lapack_int ldx, float* ferr, - float* berr, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dtbrfs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int kd, - lapack_int nrhs, const double* ab, - lapack_int ldab, const double* b, - lapack_int ldb, const double* x, lapack_int ldx, - double* ferr, double* berr, double* work, - lapack_int* iwork ); -lapack_int LAPACKE_ctbrfs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int kd, - lapack_int nrhs, const lapack_complex_float* ab, - lapack_int ldab, const lapack_complex_float* b, - lapack_int ldb, const lapack_complex_float* x, - lapack_int ldx, float* ferr, float* berr, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_ztbrfs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int kd, - lapack_int nrhs, - const lapack_complex_double* ab, - lapack_int ldab, const lapack_complex_double* b, - lapack_int ldb, const lapack_complex_double* x, - lapack_int ldx, double* ferr, double* berr, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_stbtrs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int kd, - lapack_int nrhs, const float* ab, - lapack_int ldab, float* b, lapack_int ldb ); -lapack_int LAPACKE_dtbtrs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int kd, - lapack_int nrhs, const double* ab, - lapack_int ldab, double* b, lapack_int ldb ); -lapack_int LAPACKE_ctbtrs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int kd, - lapack_int nrhs, const lapack_complex_float* ab, - lapack_int ldab, lapack_complex_float* b, - lapack_int ldb ); -lapack_int LAPACKE_ztbtrs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int kd, - lapack_int nrhs, - const lapack_complex_double* ab, - lapack_int ldab, lapack_complex_double* b, - lapack_int ldb ); - -lapack_int LAPACKE_stfsm_work( int matrix_layout, char transr, char side, - char uplo, char trans, char diag, lapack_int m, - lapack_int n, float alpha, const float* a, - float* b, lapack_int ldb ); -lapack_int LAPACKE_dtfsm_work( int matrix_layout, char transr, char side, - char uplo, char trans, char diag, lapack_int m, - lapack_int n, double alpha, const double* a, - double* b, lapack_int ldb ); -lapack_int LAPACKE_ctfsm_work( int matrix_layout, char transr, char side, - char uplo, char trans, char diag, lapack_int m, - lapack_int n, lapack_complex_float alpha, - const lapack_complex_float* a, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_ztfsm_work( int matrix_layout, char transr, char side, - char uplo, char trans, char diag, lapack_int m, - lapack_int n, lapack_complex_double alpha, - const lapack_complex_double* a, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_stftri_work( int matrix_layout, char transr, char uplo, - char diag, lapack_int n, float* a ); -lapack_int LAPACKE_dtftri_work( int matrix_layout, char transr, char uplo, - char diag, lapack_int n, double* a ); -lapack_int LAPACKE_ctftri_work( int matrix_layout, char transr, char uplo, - char diag, lapack_int n, - lapack_complex_float* a ); -lapack_int LAPACKE_ztftri_work( int matrix_layout, char transr, char uplo, - char diag, lapack_int n, - lapack_complex_double* a ); - -lapack_int LAPACKE_stfttp_work( int matrix_layout, char transr, char uplo, - lapack_int n, const float* arf, float* ap ); -lapack_int LAPACKE_dtfttp_work( int matrix_layout, char transr, char uplo, - lapack_int n, const double* arf, double* ap ); -lapack_int LAPACKE_ctfttp_work( int matrix_layout, char transr, char uplo, - lapack_int n, const lapack_complex_float* arf, - lapack_complex_float* ap ); -lapack_int LAPACKE_ztfttp_work( int matrix_layout, char transr, char uplo, - lapack_int n, const lapack_complex_double* arf, - lapack_complex_double* ap ); - -lapack_int LAPACKE_stfttr_work( int matrix_layout, char transr, char uplo, - lapack_int n, const float* arf, float* a, - lapack_int lda ); -lapack_int LAPACKE_dtfttr_work( int matrix_layout, char transr, char uplo, - lapack_int n, const double* arf, double* a, - lapack_int lda ); -lapack_int LAPACKE_ctfttr_work( int matrix_layout, char transr, char uplo, - lapack_int n, const lapack_complex_float* arf, - lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_ztfttr_work( int matrix_layout, char transr, char uplo, - lapack_int n, const lapack_complex_double* arf, - lapack_complex_double* a, lapack_int lda ); - -lapack_int LAPACKE_stgevc_work( int matrix_layout, char side, char howmny, - const lapack_logical* select, lapack_int n, - const float* s, lapack_int lds, const float* p, - lapack_int ldp, float* vl, lapack_int ldvl, - float* vr, lapack_int ldvr, lapack_int mm, - lapack_int* m, float* work ); -lapack_int LAPACKE_dtgevc_work( int matrix_layout, char side, char howmny, - const lapack_logical* select, lapack_int n, - const double* s, lapack_int lds, - const double* p, lapack_int ldp, double* vl, - lapack_int ldvl, double* vr, lapack_int ldvr, - lapack_int mm, lapack_int* m, double* work ); -lapack_int LAPACKE_ctgevc_work( int matrix_layout, char side, char howmny, - const lapack_logical* select, lapack_int n, - const lapack_complex_float* s, lapack_int lds, - const lapack_complex_float* p, lapack_int ldp, - lapack_complex_float* vl, lapack_int ldvl, - lapack_complex_float* vr, lapack_int ldvr, - lapack_int mm, lapack_int* m, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_ztgevc_work( int matrix_layout, char side, char howmny, - const lapack_logical* select, lapack_int n, - const lapack_complex_double* s, lapack_int lds, - const lapack_complex_double* p, lapack_int ldp, - lapack_complex_double* vl, lapack_int ldvl, - lapack_complex_double* vr, lapack_int ldvr, - lapack_int mm, lapack_int* m, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_stgexc_work( int matrix_layout, lapack_logical wantq, - lapack_logical wantz, lapack_int n, float* a, - lapack_int lda, float* b, lapack_int ldb, - float* q, lapack_int ldq, float* z, - lapack_int ldz, lapack_int* ifst, - lapack_int* ilst, float* work, - lapack_int lwork ); -lapack_int LAPACKE_dtgexc_work( int matrix_layout, lapack_logical wantq, - lapack_logical wantz, lapack_int n, double* a, - lapack_int lda, double* b, lapack_int ldb, - double* q, lapack_int ldq, double* z, - lapack_int ldz, lapack_int* ifst, - lapack_int* ilst, double* work, - lapack_int lwork ); -lapack_int LAPACKE_ctgexc_work( int matrix_layout, lapack_logical wantq, - lapack_logical wantz, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* q, lapack_int ldq, - lapack_complex_float* z, lapack_int ldz, - lapack_int ifst, lapack_int ilst ); -lapack_int LAPACKE_ztgexc_work( int matrix_layout, lapack_logical wantq, - lapack_logical wantz, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* q, lapack_int ldq, - lapack_complex_double* z, lapack_int ldz, - lapack_int ifst, lapack_int ilst ); - -lapack_int LAPACKE_stgsen_work( int matrix_layout, lapack_int ijob, - lapack_logical wantq, lapack_logical wantz, - const lapack_logical* select, lapack_int n, - float* a, lapack_int lda, float* b, - lapack_int ldb, float* alphar, float* alphai, - float* beta, float* q, lapack_int ldq, float* z, - lapack_int ldz, lapack_int* m, float* pl, - float* pr, float* dif, float* work, - lapack_int lwork, lapack_int* iwork, - lapack_int liwork ); -lapack_int LAPACKE_dtgsen_work( int matrix_layout, lapack_int ijob, - lapack_logical wantq, lapack_logical wantz, - const lapack_logical* select, lapack_int n, - double* a, lapack_int lda, double* b, - lapack_int ldb, double* alphar, double* alphai, - double* beta, double* q, lapack_int ldq, - double* z, lapack_int ldz, lapack_int* m, - double* pl, double* pr, double* dif, - double* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_ctgsen_work( int matrix_layout, lapack_int ijob, - lapack_logical wantq, lapack_logical wantz, - const lapack_logical* select, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* alpha, - lapack_complex_float* beta, - lapack_complex_float* q, lapack_int ldq, - lapack_complex_float* z, lapack_int ldz, - lapack_int* m, float* pl, float* pr, float* dif, - lapack_complex_float* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_ztgsen_work( int matrix_layout, lapack_int ijob, - lapack_logical wantq, lapack_logical wantz, - const lapack_logical* select, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* alpha, - lapack_complex_double* beta, - lapack_complex_double* q, lapack_int ldq, - lapack_complex_double* z, lapack_int ldz, - lapack_int* m, double* pl, double* pr, - double* dif, lapack_complex_double* work, - lapack_int lwork, lapack_int* iwork, - lapack_int liwork ); - -lapack_int LAPACKE_stgsja_work( int matrix_layout, char jobu, char jobv, - char jobq, lapack_int m, lapack_int p, - lapack_int n, lapack_int k, lapack_int l, - float* a, lapack_int lda, float* b, - lapack_int ldb, float tola, float tolb, - float* alpha, float* beta, float* u, - lapack_int ldu, float* v, lapack_int ldv, - float* q, lapack_int ldq, float* work, - lapack_int* ncycle ); -lapack_int LAPACKE_dtgsja_work( int matrix_layout, char jobu, char jobv, - char jobq, lapack_int m, lapack_int p, - lapack_int n, lapack_int k, lapack_int l, - double* a, lapack_int lda, double* b, - lapack_int ldb, double tola, double tolb, - double* alpha, double* beta, double* u, - lapack_int ldu, double* v, lapack_int ldv, - double* q, lapack_int ldq, double* work, - lapack_int* ncycle ); -lapack_int LAPACKE_ctgsja_work( int matrix_layout, char jobu, char jobv, - char jobq, lapack_int m, lapack_int p, - lapack_int n, lapack_int k, lapack_int l, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - float tola, float tolb, float* alpha, - float* beta, lapack_complex_float* u, - lapack_int ldu, lapack_complex_float* v, - lapack_int ldv, lapack_complex_float* q, - lapack_int ldq, lapack_complex_float* work, - lapack_int* ncycle ); -lapack_int LAPACKE_ztgsja_work( int matrix_layout, char jobu, char jobv, - char jobq, lapack_int m, lapack_int p, - lapack_int n, lapack_int k, lapack_int l, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - double tola, double tolb, double* alpha, - double* beta, lapack_complex_double* u, - lapack_int ldu, lapack_complex_double* v, - lapack_int ldv, lapack_complex_double* q, - lapack_int ldq, lapack_complex_double* work, - lapack_int* ncycle ); - -lapack_int LAPACKE_stgsna_work( int matrix_layout, char job, char howmny, - const lapack_logical* select, lapack_int n, - const float* a, lapack_int lda, const float* b, - lapack_int ldb, const float* vl, - lapack_int ldvl, const float* vr, - lapack_int ldvr, float* s, float* dif, - lapack_int mm, lapack_int* m, float* work, - lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_dtgsna_work( int matrix_layout, char job, char howmny, - const lapack_logical* select, lapack_int n, - const double* a, lapack_int lda, - const double* b, lapack_int ldb, - const double* vl, lapack_int ldvl, - const double* vr, lapack_int ldvr, double* s, - double* dif, lapack_int mm, lapack_int* m, - double* work, lapack_int lwork, - lapack_int* iwork ); -lapack_int LAPACKE_ctgsna_work( int matrix_layout, char job, char howmny, - const lapack_logical* select, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* b, lapack_int ldb, - const lapack_complex_float* vl, lapack_int ldvl, - const lapack_complex_float* vr, lapack_int ldvr, - float* s, float* dif, lapack_int mm, - lapack_int* m, lapack_complex_float* work, - lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_ztgsna_work( int matrix_layout, char job, char howmny, - const lapack_logical* select, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* b, lapack_int ldb, - const lapack_complex_double* vl, - lapack_int ldvl, - const lapack_complex_double* vr, - lapack_int ldvr, double* s, double* dif, - lapack_int mm, lapack_int* m, - lapack_complex_double* work, lapack_int lwork, - lapack_int* iwork ); - -lapack_int LAPACKE_stgsyl_work( int matrix_layout, char trans, lapack_int ijob, - lapack_int m, lapack_int n, const float* a, - lapack_int lda, const float* b, lapack_int ldb, - float* c, lapack_int ldc, const float* d, - lapack_int ldd, const float* e, lapack_int lde, - float* f, lapack_int ldf, float* scale, - float* dif, float* work, lapack_int lwork, - lapack_int* iwork ); -lapack_int LAPACKE_dtgsyl_work( int matrix_layout, char trans, lapack_int ijob, - lapack_int m, lapack_int n, const double* a, - lapack_int lda, const double* b, lapack_int ldb, - double* c, lapack_int ldc, const double* d, - lapack_int ldd, const double* e, lapack_int lde, - double* f, lapack_int ldf, double* scale, - double* dif, double* work, lapack_int lwork, - lapack_int* iwork ); -lapack_int LAPACKE_ctgsyl_work( int matrix_layout, char trans, lapack_int ijob, - lapack_int m, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* c, lapack_int ldc, - const lapack_complex_float* d, lapack_int ldd, - const lapack_complex_float* e, lapack_int lde, - lapack_complex_float* f, lapack_int ldf, - float* scale, float* dif, - lapack_complex_float* work, lapack_int lwork, - lapack_int* iwork ); -lapack_int LAPACKE_ztgsyl_work( int matrix_layout, char trans, lapack_int ijob, - lapack_int m, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* c, lapack_int ldc, - const lapack_complex_double* d, lapack_int ldd, - const lapack_complex_double* e, lapack_int lde, - lapack_complex_double* f, lapack_int ldf, - double* scale, double* dif, - lapack_complex_double* work, lapack_int lwork, - lapack_int* iwork ); - -lapack_int LAPACKE_stpcon_work( int matrix_layout, char norm, char uplo, - char diag, lapack_int n, const float* ap, - float* rcond, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dtpcon_work( int matrix_layout, char norm, char uplo, - char diag, lapack_int n, const double* ap, - double* rcond, double* work, - lapack_int* iwork ); -lapack_int LAPACKE_ctpcon_work( int matrix_layout, char norm, char uplo, - char diag, lapack_int n, - const lapack_complex_float* ap, float* rcond, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_ztpcon_work( int matrix_layout, char norm, char uplo, - char diag, lapack_int n, - const lapack_complex_double* ap, double* rcond, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_stprfs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int nrhs, - const float* ap, const float* b, lapack_int ldb, - const float* x, lapack_int ldx, float* ferr, - float* berr, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dtprfs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int nrhs, - const double* ap, const double* b, - lapack_int ldb, const double* x, lapack_int ldx, - double* ferr, double* berr, double* work, - lapack_int* iwork ); -lapack_int LAPACKE_ctprfs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int nrhs, - const lapack_complex_float* ap, - const lapack_complex_float* b, lapack_int ldb, - const lapack_complex_float* x, lapack_int ldx, - float* ferr, float* berr, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_ztprfs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int nrhs, - const lapack_complex_double* ap, - const lapack_complex_double* b, lapack_int ldb, - const lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_stptri_work( int matrix_layout, char uplo, char diag, - lapack_int n, float* ap ); -lapack_int LAPACKE_dtptri_work( int matrix_layout, char uplo, char diag, - lapack_int n, double* ap ); -lapack_int LAPACKE_ctptri_work( int matrix_layout, char uplo, char diag, - lapack_int n, lapack_complex_float* ap ); -lapack_int LAPACKE_ztptri_work( int matrix_layout, char uplo, char diag, - lapack_int n, lapack_complex_double* ap ); - -lapack_int LAPACKE_stptrs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int nrhs, - const float* ap, float* b, lapack_int ldb ); -lapack_int LAPACKE_dtptrs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int nrhs, - const double* ap, double* b, lapack_int ldb ); -lapack_int LAPACKE_ctptrs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int nrhs, - const lapack_complex_float* ap, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_ztptrs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int nrhs, - const lapack_complex_double* ap, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_stpttf_work( int matrix_layout, char transr, char uplo, - lapack_int n, const float* ap, float* arf ); -lapack_int LAPACKE_dtpttf_work( int matrix_layout, char transr, char uplo, - lapack_int n, const double* ap, double* arf ); -lapack_int LAPACKE_ctpttf_work( int matrix_layout, char transr, char uplo, - lapack_int n, const lapack_complex_float* ap, - lapack_complex_float* arf ); -lapack_int LAPACKE_ztpttf_work( int matrix_layout, char transr, char uplo, - lapack_int n, const lapack_complex_double* ap, - lapack_complex_double* arf ); - -lapack_int LAPACKE_stpttr_work( int matrix_layout, char uplo, lapack_int n, - const float* ap, float* a, lapack_int lda ); -lapack_int LAPACKE_dtpttr_work( int matrix_layout, char uplo, lapack_int n, - const double* ap, double* a, lapack_int lda ); -lapack_int LAPACKE_ctpttr_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* ap, - lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_ztpttr_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* ap, - lapack_complex_double* a, lapack_int lda ); - -lapack_int LAPACKE_strcon_work( int matrix_layout, char norm, char uplo, - char diag, lapack_int n, const float* a, - lapack_int lda, float* rcond, float* work, - lapack_int* iwork ); -lapack_int LAPACKE_dtrcon_work( int matrix_layout, char norm, char uplo, - char diag, lapack_int n, const double* a, - lapack_int lda, double* rcond, double* work, - lapack_int* iwork ); -lapack_int LAPACKE_ctrcon_work( int matrix_layout, char norm, char uplo, - char diag, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - float* rcond, lapack_complex_float* work, - float* rwork ); -lapack_int LAPACKE_ztrcon_work( int matrix_layout, char norm, char uplo, - char diag, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - double* rcond, lapack_complex_double* work, - double* rwork ); - -lapack_int LAPACKE_strevc_work( int matrix_layout, char side, char howmny, - lapack_logical* select, lapack_int n, - const float* t, lapack_int ldt, float* vl, - lapack_int ldvl, float* vr, lapack_int ldvr, - lapack_int mm, lapack_int* m, float* work ); -lapack_int LAPACKE_dtrevc_work( int matrix_layout, char side, char howmny, - lapack_logical* select, lapack_int n, - const double* t, lapack_int ldt, double* vl, - lapack_int ldvl, double* vr, lapack_int ldvr, - lapack_int mm, lapack_int* m, double* work ); -lapack_int LAPACKE_ctrevc_work( int matrix_layout, char side, char howmny, - const lapack_logical* select, lapack_int n, - lapack_complex_float* t, lapack_int ldt, - lapack_complex_float* vl, lapack_int ldvl, - lapack_complex_float* vr, lapack_int ldvr, - lapack_int mm, lapack_int* m, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_ztrevc_work( int matrix_layout, char side, char howmny, - const lapack_logical* select, lapack_int n, - lapack_complex_double* t, lapack_int ldt, - lapack_complex_double* vl, lapack_int ldvl, - lapack_complex_double* vr, lapack_int ldvr, - lapack_int mm, lapack_int* m, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_strexc_work( int matrix_layout, char compq, lapack_int n, - float* t, lapack_int ldt, float* q, - lapack_int ldq, lapack_int* ifst, - lapack_int* ilst, float* work ); -lapack_int LAPACKE_dtrexc_work( int matrix_layout, char compq, lapack_int n, - double* t, lapack_int ldt, double* q, - lapack_int ldq, lapack_int* ifst, - lapack_int* ilst, double* work ); -lapack_int LAPACKE_ctrexc_work( int matrix_layout, char compq, lapack_int n, - lapack_complex_float* t, lapack_int ldt, - lapack_complex_float* q, lapack_int ldq, - lapack_int ifst, lapack_int ilst ); -lapack_int LAPACKE_ztrexc_work( int matrix_layout, char compq, lapack_int n, - lapack_complex_double* t, lapack_int ldt, - lapack_complex_double* q, lapack_int ldq, - lapack_int ifst, lapack_int ilst ); - -lapack_int LAPACKE_strrfs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int nrhs, - const float* a, lapack_int lda, const float* b, - lapack_int ldb, const float* x, lapack_int ldx, - float* ferr, float* berr, float* work, - lapack_int* iwork ); -lapack_int LAPACKE_dtrrfs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int nrhs, - const double* a, lapack_int lda, - const double* b, lapack_int ldb, - const double* x, lapack_int ldx, double* ferr, - double* berr, double* work, lapack_int* iwork ); -lapack_int LAPACKE_ctrrfs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int nrhs, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* b, lapack_int ldb, - const lapack_complex_float* x, lapack_int ldx, - float* ferr, float* berr, - lapack_complex_float* work, float* rwork ); -lapack_int LAPACKE_ztrrfs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int nrhs, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* b, lapack_int ldb, - const lapack_complex_double* x, lapack_int ldx, - double* ferr, double* berr, - lapack_complex_double* work, double* rwork ); - -lapack_int LAPACKE_strsen_work( int matrix_layout, char job, char compq, - const lapack_logical* select, lapack_int n, - float* t, lapack_int ldt, float* q, - lapack_int ldq, float* wr, float* wi, - lapack_int* m, float* s, float* sep, - float* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dtrsen_work( int matrix_layout, char job, char compq, - const lapack_logical* select, lapack_int n, - double* t, lapack_int ldt, double* q, - lapack_int ldq, double* wr, double* wi, - lapack_int* m, double* s, double* sep, - double* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_ctrsen_work( int matrix_layout, char job, char compq, - const lapack_logical* select, lapack_int n, - lapack_complex_float* t, lapack_int ldt, - lapack_complex_float* q, lapack_int ldq, - lapack_complex_float* w, lapack_int* m, - float* s, float* sep, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_ztrsen_work( int matrix_layout, char job, char compq, - const lapack_logical* select, lapack_int n, - lapack_complex_double* t, lapack_int ldt, - lapack_complex_double* q, lapack_int ldq, - lapack_complex_double* w, lapack_int* m, - double* s, double* sep, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_strsna_work( int matrix_layout, char job, char howmny, - const lapack_logical* select, lapack_int n, - const float* t, lapack_int ldt, const float* vl, - lapack_int ldvl, const float* vr, - lapack_int ldvr, float* s, float* sep, - lapack_int mm, lapack_int* m, float* work, - lapack_int ldwork, lapack_int* iwork ); -lapack_int LAPACKE_dtrsna_work( int matrix_layout, char job, char howmny, - const lapack_logical* select, lapack_int n, - const double* t, lapack_int ldt, - const double* vl, lapack_int ldvl, - const double* vr, lapack_int ldvr, double* s, - double* sep, lapack_int mm, lapack_int* m, - double* work, lapack_int ldwork, - lapack_int* iwork ); -lapack_int LAPACKE_ctrsna_work( int matrix_layout, char job, char howmny, - const lapack_logical* select, lapack_int n, - const lapack_complex_float* t, lapack_int ldt, - const lapack_complex_float* vl, lapack_int ldvl, - const lapack_complex_float* vr, lapack_int ldvr, - float* s, float* sep, lapack_int mm, - lapack_int* m, lapack_complex_float* work, - lapack_int ldwork, float* rwork ); -lapack_int LAPACKE_ztrsna_work( int matrix_layout, char job, char howmny, - const lapack_logical* select, lapack_int n, - const lapack_complex_double* t, lapack_int ldt, - const lapack_complex_double* vl, - lapack_int ldvl, - const lapack_complex_double* vr, - lapack_int ldvr, double* s, double* sep, - lapack_int mm, lapack_int* m, - lapack_complex_double* work, lapack_int ldwork, - double* rwork ); - -lapack_int LAPACKE_strsyl_work( int matrix_layout, char trana, char tranb, - lapack_int isgn, lapack_int m, lapack_int n, - const float* a, lapack_int lda, const float* b, - lapack_int ldb, float* c, lapack_int ldc, - float* scale ); -lapack_int LAPACKE_dtrsyl_work( int matrix_layout, char trana, char tranb, - lapack_int isgn, lapack_int m, lapack_int n, - const double* a, lapack_int lda, - const double* b, lapack_int ldb, double* c, - lapack_int ldc, double* scale ); -lapack_int LAPACKE_ctrsyl_work( int matrix_layout, char trana, char tranb, - lapack_int isgn, lapack_int m, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* c, lapack_int ldc, - float* scale ); -lapack_int LAPACKE_ztrsyl_work( int matrix_layout, char trana, char tranb, - lapack_int isgn, lapack_int m, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* c, lapack_int ldc, - double* scale ); - -lapack_int LAPACKE_strsyl3_work( int matrix_layout, char trana, char tranb, - lapack_int isgn, lapack_int m, lapack_int n, - const float* a, lapack_int lda, - const float* b, lapack_int ldb, - float* c, lapack_int ldc, float* scale, - lapack_int* iwork, lapack_int liwork, - float* swork, lapack_int ldswork ); -lapack_int LAPACKE_dtrsyl3_work( int matrix_layout, char trana, char tranb, - lapack_int isgn, lapack_int m, lapack_int n, - const double* a, lapack_int lda, - const double* b, lapack_int ldb, - double* c, lapack_int ldc, double* scale, - lapack_int* iwork, lapack_int liwork, - double* swork, lapack_int ldswork ); -lapack_int LAPACKE_ctrsyl3_work( int matrix_layout, char trana, char tranb, - lapack_int isgn, lapack_int m, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* c, lapack_int ldc, - float* scale, float* swork, - lapack_int ldswork ); -lapack_int LAPACKE_ztrsyl3_work( int matrix_layout, char trana, char tranb, - lapack_int isgn, lapack_int m, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* c, lapack_int ldc, - double* scale, double* swork, - lapack_int ldswork ); - -lapack_int LAPACKE_strtri_work( int matrix_layout, char uplo, char diag, - lapack_int n, float* a, lapack_int lda ); -lapack_int LAPACKE_dtrtri_work( int matrix_layout, char uplo, char diag, - lapack_int n, double* a, lapack_int lda ); -lapack_int LAPACKE_ctrtri_work( int matrix_layout, char uplo, char diag, - lapack_int n, lapack_complex_float* a, - lapack_int lda ); -lapack_int LAPACKE_ztrtri_work( int matrix_layout, char uplo, char diag, - lapack_int n, lapack_complex_double* a, - lapack_int lda ); - -lapack_int LAPACKE_strtrs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int nrhs, - const float* a, lapack_int lda, float* b, - lapack_int ldb ); -lapack_int LAPACKE_dtrtrs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int nrhs, - const double* a, lapack_int lda, double* b, - lapack_int ldb ); -lapack_int LAPACKE_ctrtrs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int nrhs, - const lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_ztrtrs_work( int matrix_layout, char uplo, char trans, - char diag, lapack_int n, lapack_int nrhs, - const lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_strttf_work( int matrix_layout, char transr, char uplo, - lapack_int n, const float* a, lapack_int lda, - float* arf ); -lapack_int LAPACKE_dtrttf_work( int matrix_layout, char transr, char uplo, - lapack_int n, const double* a, lapack_int lda, - double* arf ); -lapack_int LAPACKE_ctrttf_work( int matrix_layout, char transr, char uplo, - lapack_int n, const lapack_complex_float* a, - lapack_int lda, lapack_complex_float* arf ); -lapack_int LAPACKE_ztrttf_work( int matrix_layout, char transr, char uplo, - lapack_int n, const lapack_complex_double* a, - lapack_int lda, lapack_complex_double* arf ); - -lapack_int LAPACKE_strttp_work( int matrix_layout, char uplo, lapack_int n, - const float* a, lapack_int lda, float* ap ); -lapack_int LAPACKE_dtrttp_work( int matrix_layout, char uplo, lapack_int n, - const double* a, lapack_int lda, double* ap ); -lapack_int LAPACKE_ctrttp_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - lapack_complex_float* ap ); -lapack_int LAPACKE_ztrttp_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - lapack_complex_double* ap ); - -lapack_int LAPACKE_stzrzf_work( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, float* tau, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dtzrzf_work( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, double* tau, - double* work, lapack_int lwork ); -lapack_int LAPACKE_ctzrzf_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* tau, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_ztzrzf_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* tau, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_cungbr_work( int matrix_layout, char vect, lapack_int m, - lapack_int n, lapack_int k, - lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* tau, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zungbr_work( int matrix_layout, char vect, lapack_int m, - lapack_int n, lapack_int k, - lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* tau, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_cunghr_work( int matrix_layout, lapack_int n, lapack_int ilo, - lapack_int ihi, lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* tau, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zunghr_work( int matrix_layout, lapack_int n, lapack_int ilo, - lapack_int ihi, lapack_complex_double* a, - lapack_int lda, - const lapack_complex_double* tau, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_cunglq_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* tau, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zunglq_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, lapack_complex_double* a, - lapack_int lda, - const lapack_complex_double* tau, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_cungql_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* tau, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zungql_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, lapack_complex_double* a, - lapack_int lda, - const lapack_complex_double* tau, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_cungqr_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* tau, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zungqr_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, lapack_complex_double* a, - lapack_int lda, - const lapack_complex_double* tau, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_cungrq_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* tau, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zungrq_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int k, lapack_complex_double* a, - lapack_int lda, - const lapack_complex_double* tau, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_cungtr_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* tau, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zungtr_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* tau, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_cungtsqr_row_work( int matrix_layout, - lapack_int m, lapack_int n, - lapack_int mb, lapack_int nb, - lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* t, lapack_int ldt, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zungtsqr_row_work( int matrix_layout, - lapack_int m, lapack_int n, - lapack_int mb, lapack_int nb, - lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* t, lapack_int ldt, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_cunmbr_work( int matrix_layout, char vect, char side, - char trans, lapack_int m, lapack_int n, - lapack_int k, const lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* tau, - lapack_complex_float* c, lapack_int ldc, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zunmbr_work( int matrix_layout, char vect, char side, - char trans, lapack_int m, lapack_int n, - lapack_int k, const lapack_complex_double* a, - lapack_int lda, - const lapack_complex_double* tau, - lapack_complex_double* c, lapack_int ldc, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_cunmhr_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int ilo, - lapack_int ihi, const lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* tau, - lapack_complex_float* c, lapack_int ldc, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zunmhr_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int ilo, - lapack_int ihi, const lapack_complex_double* a, - lapack_int lda, - const lapack_complex_double* tau, - lapack_complex_double* c, lapack_int ldc, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_cunmlq_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* tau, - lapack_complex_float* c, lapack_int ldc, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zunmlq_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* tau, - lapack_complex_double* c, lapack_int ldc, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_cunmql_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* tau, - lapack_complex_float* c, lapack_int ldc, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zunmql_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* tau, - lapack_complex_double* c, lapack_int ldc, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_cunmqr_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* tau, - lapack_complex_float* c, lapack_int ldc, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zunmqr_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* tau, - lapack_complex_double* c, lapack_int ldc, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_cunmrq_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* tau, - lapack_complex_float* c, lapack_int ldc, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zunmrq_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* tau, - lapack_complex_double* c, lapack_int ldc, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_cunmrz_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int l, const lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* tau, - lapack_complex_float* c, lapack_int ldc, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zunmrz_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int l, const lapack_complex_double* a, - lapack_int lda, - const lapack_complex_double* tau, - lapack_complex_double* c, lapack_int ldc, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_cunmtr_work( int matrix_layout, char side, char uplo, - char trans, lapack_int m, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* tau, - lapack_complex_float* c, lapack_int ldc, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zunmtr_work( int matrix_layout, char side, char uplo, - char trans, lapack_int m, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* tau, - lapack_complex_double* c, lapack_int ldc, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_cupgtr_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* ap, - const lapack_complex_float* tau, - lapack_complex_float* q, lapack_int ldq, - lapack_complex_float* work ); -lapack_int LAPACKE_zupgtr_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* ap, - const lapack_complex_double* tau, - lapack_complex_double* q, lapack_int ldq, - lapack_complex_double* work ); - -lapack_int LAPACKE_cupmtr_work( int matrix_layout, char side, char uplo, - char trans, lapack_int m, lapack_int n, - const lapack_complex_float* ap, - const lapack_complex_float* tau, - lapack_complex_float* c, lapack_int ldc, - lapack_complex_float* work ); -lapack_int LAPACKE_zupmtr_work( int matrix_layout, char side, char uplo, - char trans, lapack_int m, lapack_int n, - const lapack_complex_double* ap, - const lapack_complex_double* tau, - lapack_complex_double* c, lapack_int ldc, - lapack_complex_double* work ); - -lapack_int LAPACKE_claghe( int matrix_layout, lapack_int n, lapack_int k, - const float* d, lapack_complex_float* a, - lapack_int lda, lapack_int* iseed ); -lapack_int LAPACKE_zlaghe( int matrix_layout, lapack_int n, lapack_int k, - const double* d, lapack_complex_double* a, - lapack_int lda, lapack_int* iseed ); - -lapack_int LAPACKE_slagsy( int matrix_layout, lapack_int n, lapack_int k, - const float* d, float* a, lapack_int lda, - lapack_int* iseed ); -lapack_int LAPACKE_dlagsy( int matrix_layout, lapack_int n, lapack_int k, - const double* d, double* a, lapack_int lda, - lapack_int* iseed ); -lapack_int LAPACKE_clagsy( int matrix_layout, lapack_int n, lapack_int k, - const float* d, lapack_complex_float* a, - lapack_int lda, lapack_int* iseed ); -lapack_int LAPACKE_zlagsy( int matrix_layout, lapack_int n, lapack_int k, - const double* d, lapack_complex_double* a, - lapack_int lda, lapack_int* iseed ); - -lapack_int LAPACKE_slapmr( int matrix_layout, lapack_logical forwrd, - lapack_int m, lapack_int n, float* x, lapack_int ldx, - lapack_int* k ); -lapack_int LAPACKE_dlapmr( int matrix_layout, lapack_logical forwrd, - lapack_int m, lapack_int n, double* x, - lapack_int ldx, lapack_int* k ); -lapack_int LAPACKE_clapmr( int matrix_layout, lapack_logical forwrd, - lapack_int m, lapack_int n, lapack_complex_float* x, - lapack_int ldx, lapack_int* k ); -lapack_int LAPACKE_zlapmr( int matrix_layout, lapack_logical forwrd, - lapack_int m, lapack_int n, lapack_complex_double* x, - lapack_int ldx, lapack_int* k ); - -lapack_int LAPACKE_slapmt( int matrix_layout, lapack_logical forwrd, - lapack_int m, lapack_int n, float* x, lapack_int ldx, - lapack_int* k ); -lapack_int LAPACKE_dlapmt( int matrix_layout, lapack_logical forwrd, - lapack_int m, lapack_int n, double* x, - lapack_int ldx, lapack_int* k ); -lapack_int LAPACKE_clapmt( int matrix_layout, lapack_logical forwrd, - lapack_int m, lapack_int n, lapack_complex_float* x, - lapack_int ldx, lapack_int* k ); -lapack_int LAPACKE_zlapmt( int matrix_layout, lapack_logical forwrd, - lapack_int m, lapack_int n, lapack_complex_double* x, - lapack_int ldx, lapack_int* k ); - -float LAPACKE_slapy2( float x, float y ); -double LAPACKE_dlapy2( double x, double y ); - -float LAPACKE_slapy3( float x, float y, float z ); -double LAPACKE_dlapy3( double x, double y, double z ); - -lapack_int LAPACKE_slartgp( float f, float g, float* cs, float* sn, float* r ); -lapack_int LAPACKE_dlartgp( double f, double g, double* cs, double* sn, - double* r ); - -lapack_int LAPACKE_slartgs( float x, float y, float sigma, float* cs, - float* sn ); -lapack_int LAPACKE_dlartgs( double x, double y, double sigma, double* cs, - double* sn ); - - -//LAPACK 3.3.0 -lapack_int LAPACKE_cbbcsd( int matrix_layout, char jobu1, char jobu2, - char jobv1t, char jobv2t, char trans, lapack_int m, - lapack_int p, lapack_int q, float* theta, float* phi, - lapack_complex_float* u1, lapack_int ldu1, - lapack_complex_float* u2, lapack_int ldu2, - lapack_complex_float* v1t, lapack_int ldv1t, - lapack_complex_float* v2t, lapack_int ldv2t, - float* b11d, float* b11e, float* b12d, float* b12e, - float* b21d, float* b21e, float* b22d, float* b22e ); -lapack_int LAPACKE_cbbcsd_work( int matrix_layout, char jobu1, char jobu2, - char jobv1t, char jobv2t, char trans, - lapack_int m, lapack_int p, lapack_int q, - float* theta, float* phi, - lapack_complex_float* u1, lapack_int ldu1, - lapack_complex_float* u2, lapack_int ldu2, - lapack_complex_float* v1t, lapack_int ldv1t, - lapack_complex_float* v2t, lapack_int ldv2t, - float* b11d, float* b11e, float* b12d, - float* b12e, float* b21d, float* b21e, - float* b22d, float* b22e, float* rwork, - lapack_int lrwork ); -lapack_int LAPACKE_cheswapr( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int i1, lapack_int i2 ); -lapack_int LAPACKE_cheswapr_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int i1, lapack_int i2 ); -lapack_int LAPACKE_chetri2( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_int* ipiv ); -lapack_int LAPACKE_chetri2_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_int* ipiv, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_chetri2x( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_int* ipiv, lapack_int nb ); -lapack_int LAPACKE_chetri2x_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_int* ipiv, - lapack_complex_float* work, lapack_int nb ); -lapack_int LAPACKE_chetrs2( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_chetrs2_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* work ); -lapack_int LAPACKE_csyconv( int matrix_layout, char uplo, char way, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_int* ipiv, lapack_complex_float* e ); -lapack_int LAPACKE_csyconv_work( int matrix_layout, char uplo, char way, - lapack_int n, lapack_complex_float* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_float* e ); -lapack_int LAPACKE_csyswapr( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int i1, lapack_int i2 ); -lapack_int LAPACKE_csyswapr_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int i1, lapack_int i2 ); -lapack_int LAPACKE_csytri2( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_int* ipiv ); -lapack_int LAPACKE_csytri2_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_int* ipiv, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_csytri2x( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_int* ipiv, lapack_int nb ); -lapack_int LAPACKE_csytri2x_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_int* ipiv, - lapack_complex_float* work, lapack_int nb ); -lapack_int LAPACKE_csytrs2( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_csytrs2_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* work ); -lapack_int LAPACKE_cunbdb( int matrix_layout, char trans, char signs, - lapack_int m, lapack_int p, lapack_int q, - lapack_complex_float* x11, lapack_int ldx11, - lapack_complex_float* x12, lapack_int ldx12, - lapack_complex_float* x21, lapack_int ldx21, - lapack_complex_float* x22, lapack_int ldx22, - float* theta, float* phi, - lapack_complex_float* taup1, - lapack_complex_float* taup2, - lapack_complex_float* tauq1, - lapack_complex_float* tauq2 ); -lapack_int LAPACKE_cunbdb_work( int matrix_layout, char trans, char signs, - lapack_int m, lapack_int p, lapack_int q, - lapack_complex_float* x11, lapack_int ldx11, - lapack_complex_float* x12, lapack_int ldx12, - lapack_complex_float* x21, lapack_int ldx21, - lapack_complex_float* x22, lapack_int ldx22, - float* theta, float* phi, - lapack_complex_float* taup1, - lapack_complex_float* taup2, - lapack_complex_float* tauq1, - lapack_complex_float* tauq2, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_cuncsd( int matrix_layout, char jobu1, char jobu2, - char jobv1t, char jobv2t, char trans, char signs, - lapack_int m, lapack_int p, lapack_int q, - lapack_complex_float* x11, lapack_int ldx11, - lapack_complex_float* x12, lapack_int ldx12, - lapack_complex_float* x21, lapack_int ldx21, - lapack_complex_float* x22, lapack_int ldx22, - float* theta, lapack_complex_float* u1, - lapack_int ldu1, lapack_complex_float* u2, - lapack_int ldu2, lapack_complex_float* v1t, - lapack_int ldv1t, lapack_complex_float* v2t, - lapack_int ldv2t ); -lapack_int LAPACKE_cuncsd_work( int matrix_layout, char jobu1, char jobu2, - char jobv1t, char jobv2t, char trans, - char signs, lapack_int m, lapack_int p, - lapack_int q, lapack_complex_float* x11, - lapack_int ldx11, lapack_complex_float* x12, - lapack_int ldx12, lapack_complex_float* x21, - lapack_int ldx21, lapack_complex_float* x22, - lapack_int ldx22, float* theta, - lapack_complex_float* u1, lapack_int ldu1, - lapack_complex_float* u2, lapack_int ldu2, - lapack_complex_float* v1t, lapack_int ldv1t, - lapack_complex_float* v2t, lapack_int ldv2t, - lapack_complex_float* work, lapack_int lwork, - float* rwork, lapack_int lrwork, - lapack_int* iwork ); -lapack_int LAPACKE_cuncsd2by1( int matrix_layout, char jobu1, char jobu2, - char jobv1t, lapack_int m, lapack_int p, lapack_int q, - lapack_complex_float* x11, lapack_int ldx11, - lapack_complex_float* x21, lapack_int ldx21, - float* theta, lapack_complex_float* u1, - lapack_int ldu1, lapack_complex_float* u2, - lapack_int ldu2, lapack_complex_float* v1t, lapack_int ldv1t ); -lapack_int LAPACKE_cuncsd2by1_work( int matrix_layout, char jobu1, char jobu2, - char jobv1t, lapack_int m, lapack_int p, - lapack_int q, lapack_complex_float* x11, lapack_int ldx11, - lapack_complex_float* x21, lapack_int ldx21, - float* theta, lapack_complex_float* u1, - lapack_int ldu1, lapack_complex_float* u2, - lapack_int ldu2, lapack_complex_float* v1t, - lapack_int ldv1t, lapack_complex_float* work, - lapack_int lwork, float* rwork, lapack_int lrwork, - lapack_int* iwork ); -lapack_int LAPACKE_dbbcsd( int matrix_layout, char jobu1, char jobu2, - char jobv1t, char jobv2t, char trans, lapack_int m, - lapack_int p, lapack_int q, double* theta, - double* phi, double* u1, lapack_int ldu1, double* u2, - lapack_int ldu2, double* v1t, lapack_int ldv1t, - double* v2t, lapack_int ldv2t, double* b11d, - double* b11e, double* b12d, double* b12e, - double* b21d, double* b21e, double* b22d, - double* b22e ); -lapack_int LAPACKE_dbbcsd_work( int matrix_layout, char jobu1, char jobu2, - char jobv1t, char jobv2t, char trans, - lapack_int m, lapack_int p, lapack_int q, - double* theta, double* phi, double* u1, - lapack_int ldu1, double* u2, lapack_int ldu2, - double* v1t, lapack_int ldv1t, double* v2t, - lapack_int ldv2t, double* b11d, double* b11e, - double* b12d, double* b12e, double* b21d, - double* b21e, double* b22d, double* b22e, - double* work, lapack_int lwork ); -lapack_int LAPACKE_dorbdb( int matrix_layout, char trans, char signs, - lapack_int m, lapack_int p, lapack_int q, - double* x11, lapack_int ldx11, double* x12, - lapack_int ldx12, double* x21, lapack_int ldx21, - double* x22, lapack_int ldx22, double* theta, - double* phi, double* taup1, double* taup2, - double* tauq1, double* tauq2 ); -lapack_int LAPACKE_dorbdb_work( int matrix_layout, char trans, char signs, - lapack_int m, lapack_int p, lapack_int q, - double* x11, lapack_int ldx11, double* x12, - lapack_int ldx12, double* x21, lapack_int ldx21, - double* x22, lapack_int ldx22, double* theta, - double* phi, double* taup1, double* taup2, - double* tauq1, double* tauq2, double* work, - lapack_int lwork ); -lapack_int LAPACKE_dorcsd( int matrix_layout, char jobu1, char jobu2, - char jobv1t, char jobv2t, char trans, char signs, - lapack_int m, lapack_int p, lapack_int q, - double* x11, lapack_int ldx11, double* x12, - lapack_int ldx12, double* x21, lapack_int ldx21, - double* x22, lapack_int ldx22, double* theta, - double* u1, lapack_int ldu1, double* u2, - lapack_int ldu2, double* v1t, lapack_int ldv1t, - double* v2t, lapack_int ldv2t ); -lapack_int LAPACKE_dorcsd_work( int matrix_layout, char jobu1, char jobu2, - char jobv1t, char jobv2t, char trans, - char signs, lapack_int m, lapack_int p, - lapack_int q, double* x11, lapack_int ldx11, - double* x12, lapack_int ldx12, double* x21, - lapack_int ldx21, double* x22, lapack_int ldx22, - double* theta, double* u1, lapack_int ldu1, - double* u2, lapack_int ldu2, double* v1t, - lapack_int ldv1t, double* v2t, lapack_int ldv2t, - double* work, lapack_int lwork, - lapack_int* iwork ); -lapack_int LAPACKE_dorcsd2by1( int matrix_layout, char jobu1, char jobu2, - char jobv1t, lapack_int m, lapack_int p, lapack_int q, - double* x11, lapack_int ldx11, double* x21, lapack_int ldx21, - double* theta, double* u1, lapack_int ldu1, double* u2, - lapack_int ldu2, double* v1t, lapack_int ldv1t); -lapack_int LAPACKE_dorcsd2by1_work( int matrix_layout, char jobu1, char jobu2, - char jobv1t, lapack_int m, lapack_int p, lapack_int q, - double* x11, lapack_int ldx11, double* x21, lapack_int ldx21, - double* theta, double* u1, lapack_int ldu1, double* u2, - lapack_int ldu2, double* v1t, lapack_int ldv1t, - double* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_dsyconv( int matrix_layout, char uplo, char way, lapack_int n, - double* a, lapack_int lda, const lapack_int* ipiv, double* e); -lapack_int LAPACKE_dsyconv_work( int matrix_layout, char uplo, char way, - lapack_int n, double* a, lapack_int lda, - const lapack_int* ipiv, double* e ); -lapack_int LAPACKE_dsyswapr( int matrix_layout, char uplo, lapack_int n, - double* a, lapack_int lda, lapack_int i1, - lapack_int i2 ); -lapack_int LAPACKE_dsyswapr_work( int matrix_layout, char uplo, lapack_int n, - double* a, lapack_int lda, lapack_int i1, - lapack_int i2 ); -lapack_int LAPACKE_dsytri2( int matrix_layout, char uplo, lapack_int n, - double* a, lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_dsytri2_work( int matrix_layout, char uplo, lapack_int n, - double* a, lapack_int lda, - const lapack_int* ipiv, - double* work, lapack_int lwork ); -lapack_int LAPACKE_dsytri2x( int matrix_layout, char uplo, lapack_int n, - double* a, lapack_int lda, const lapack_int* ipiv, - lapack_int nb ); -lapack_int LAPACKE_dsytri2x_work( int matrix_layout, char uplo, lapack_int n, - double* a, lapack_int lda, - const lapack_int* ipiv, double* work, - lapack_int nb ); -lapack_int LAPACKE_dsytrs2( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* a, lapack_int lda, - const lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_dsytrs2_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* a, - lapack_int lda, const lapack_int* ipiv, - double* b, lapack_int ldb, double* work ); -lapack_int LAPACKE_sbbcsd( int matrix_layout, char jobu1, char jobu2, - char jobv1t, char jobv2t, char trans, lapack_int m, - lapack_int p, lapack_int q, float* theta, float* phi, - float* u1, lapack_int ldu1, float* u2, - lapack_int ldu2, float* v1t, lapack_int ldv1t, - float* v2t, lapack_int ldv2t, float* b11d, - float* b11e, float* b12d, float* b12e, float* b21d, - float* b21e, float* b22d, float* b22e ); -lapack_int LAPACKE_sbbcsd_work( int matrix_layout, char jobu1, char jobu2, - char jobv1t, char jobv2t, char trans, - lapack_int m, lapack_int p, lapack_int q, - float* theta, float* phi, float* u1, - lapack_int ldu1, float* u2, lapack_int ldu2, - float* v1t, lapack_int ldv1t, float* v2t, - lapack_int ldv2t, float* b11d, float* b11e, - float* b12d, float* b12e, float* b21d, - float* b21e, float* b22d, float* b22e, - float* work, lapack_int lwork ); -lapack_int LAPACKE_sorbdb( int matrix_layout, char trans, char signs, - lapack_int m, lapack_int p, lapack_int q, float* x11, - lapack_int ldx11, float* x12, lapack_int ldx12, - float* x21, lapack_int ldx21, float* x22, - lapack_int ldx22, float* theta, float* phi, - float* taup1, float* taup2, float* tauq1, - float* tauq2 ); -lapack_int LAPACKE_sorbdb_work( int matrix_layout, char trans, char signs, - lapack_int m, lapack_int p, lapack_int q, - float* x11, lapack_int ldx11, float* x12, - lapack_int ldx12, float* x21, lapack_int ldx21, - float* x22, lapack_int ldx22, float* theta, - float* phi, float* taup1, float* taup2, - float* tauq1, float* tauq2, float* work, - lapack_int lwork ); -lapack_int LAPACKE_sorcsd( int matrix_layout, char jobu1, char jobu2, - char jobv1t, char jobv2t, char trans, char signs, - lapack_int m, lapack_int p, lapack_int q, float* x11, - lapack_int ldx11, float* x12, lapack_int ldx12, - float* x21, lapack_int ldx21, float* x22, - lapack_int ldx22, float* theta, float* u1, - lapack_int ldu1, float* u2, lapack_int ldu2, - float* v1t, lapack_int ldv1t, float* v2t, - lapack_int ldv2t ); -lapack_int LAPACKE_sorcsd_work( int matrix_layout, char jobu1, char jobu2, - char jobv1t, char jobv2t, char trans, - char signs, lapack_int m, lapack_int p, - lapack_int q, float* x11, lapack_int ldx11, - float* x12, lapack_int ldx12, float* x21, - lapack_int ldx21, float* x22, lapack_int ldx22, - float* theta, float* u1, lapack_int ldu1, - float* u2, lapack_int ldu2, float* v1t, - lapack_int ldv1t, float* v2t, lapack_int ldv2t, - float* work, lapack_int lwork, - lapack_int* iwork ); -lapack_int LAPACKE_sorcsd2by1( int matrix_layout, char jobu1, char jobu2, - char jobv1t, lapack_int m, lapack_int p, lapack_int q, - float* x11, lapack_int ldx11, float* x21, lapack_int ldx21, - float* theta, float* u1, lapack_int ldu1, float* u2, - lapack_int ldu2, float* v1t, lapack_int ldv1t); -lapack_int LAPACKE_sorcsd2by1_work( int matrix_layout, char jobu1, char jobu2, - char jobv1t, lapack_int m, lapack_int p, lapack_int q, - float* x11, lapack_int ldx11, float* x21, lapack_int ldx21, - float* theta, float* u1, lapack_int ldu1, float* u2, - lapack_int ldu2, float* v1t, lapack_int ldv1t, - float* work, lapack_int lwork, lapack_int* iwork ); -lapack_int LAPACKE_ssyconv( int matrix_layout, char uplo, char way, lapack_int n, - float* a, lapack_int lda, const lapack_int* ipiv, float* e ); -lapack_int LAPACKE_ssyconv_work( int matrix_layout, char uplo, char way, - lapack_int n, float* a, lapack_int lda, - const lapack_int* ipiv, float* e ); -lapack_int LAPACKE_ssyswapr( int matrix_layout, char uplo, lapack_int n, - float* a, lapack_int lda, lapack_int i1, - lapack_int i2 ); -lapack_int LAPACKE_ssyswapr_work( int matrix_layout, char uplo, lapack_int n, - float* a, lapack_int lda, lapack_int i1, - lapack_int i2 ); -lapack_int LAPACKE_ssytri2( int matrix_layout, char uplo, lapack_int n, float* a, - lapack_int lda, const lapack_int* ipiv ); -lapack_int LAPACKE_ssytri2_work( int matrix_layout, char uplo, lapack_int n, - float* a, lapack_int lda, - const lapack_int* ipiv, - float* work, lapack_int lwork ); -lapack_int LAPACKE_ssytri2x( int matrix_layout, char uplo, lapack_int n, - float* a, lapack_int lda, const lapack_int* ipiv, - lapack_int nb ); -lapack_int LAPACKE_ssytri2x_work( int matrix_layout, char uplo, lapack_int n, - float* a, lapack_int lda, - const lapack_int* ipiv, float* work, - lapack_int nb ); -lapack_int LAPACKE_ssytrs2( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* a, lapack_int lda, - const lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_ssytrs2_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* a, - lapack_int lda, const lapack_int* ipiv, - float* b, lapack_int ldb, float* work ); -lapack_int LAPACKE_zbbcsd( int matrix_layout, char jobu1, char jobu2, - char jobv1t, char jobv2t, char trans, lapack_int m, - lapack_int p, lapack_int q, double* theta, - double* phi, lapack_complex_double* u1, - lapack_int ldu1, lapack_complex_double* u2, - lapack_int ldu2, lapack_complex_double* v1t, - lapack_int ldv1t, lapack_complex_double* v2t, - lapack_int ldv2t, double* b11d, double* b11e, - double* b12d, double* b12e, double* b21d, - double* b21e, double* b22d, double* b22e ); -lapack_int LAPACKE_zbbcsd_work( int matrix_layout, char jobu1, char jobu2, - char jobv1t, char jobv2t, char trans, - lapack_int m, lapack_int p, lapack_int q, - double* theta, double* phi, - lapack_complex_double* u1, lapack_int ldu1, - lapack_complex_double* u2, lapack_int ldu2, - lapack_complex_double* v1t, lapack_int ldv1t, - lapack_complex_double* v2t, lapack_int ldv2t, - double* b11d, double* b11e, double* b12d, - double* b12e, double* b21d, double* b21e, - double* b22d, double* b22e, double* rwork, - lapack_int lrwork ); -lapack_int LAPACKE_zheswapr( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int i1, lapack_int i2 ); -lapack_int LAPACKE_zheswapr_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int i1, lapack_int i2 ); -lapack_int LAPACKE_zhetri2( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_int* ipiv ); -lapack_int LAPACKE_zhetri2_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_int* ipiv, - lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_zhetri2x( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_int* ipiv, lapack_int nb ); -lapack_int LAPACKE_zhetri2x_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_int* ipiv, - lapack_complex_double* work, lapack_int nb ); -lapack_int LAPACKE_zhetrs2( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_zhetrs2_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* work ); -lapack_int LAPACKE_zsyconv( int matrix_layout, char uplo, char way, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_int* ipiv, lapack_complex_double* e ); -lapack_int LAPACKE_zsyconv_work( int matrix_layout, char uplo, char way, - lapack_int n, lapack_complex_double* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_double* e ); -lapack_int LAPACKE_zsyswapr( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int i1, lapack_int i2 ); -lapack_int LAPACKE_zsyswapr_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int i1, lapack_int i2 ); -lapack_int LAPACKE_zsytri2( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_int* ipiv ); -lapack_int LAPACKE_zsytri2_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_int* ipiv, - lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_zsytri2x( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_int* ipiv, lapack_int nb ); -lapack_int LAPACKE_zsytri2x_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_int* ipiv, - lapack_complex_double* work, lapack_int nb ); -lapack_int LAPACKE_zsytrs2( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_zsytrs2_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* work ); -lapack_int LAPACKE_zunbdb( int matrix_layout, char trans, char signs, - lapack_int m, lapack_int p, lapack_int q, - lapack_complex_double* x11, lapack_int ldx11, - lapack_complex_double* x12, lapack_int ldx12, - lapack_complex_double* x21, lapack_int ldx21, - lapack_complex_double* x22, lapack_int ldx22, - double* theta, double* phi, - lapack_complex_double* taup1, - lapack_complex_double* taup2, - lapack_complex_double* tauq1, - lapack_complex_double* tauq2 ); -lapack_int LAPACKE_zunbdb_work( int matrix_layout, char trans, char signs, - lapack_int m, lapack_int p, lapack_int q, - lapack_complex_double* x11, lapack_int ldx11, - lapack_complex_double* x12, lapack_int ldx12, - lapack_complex_double* x21, lapack_int ldx21, - lapack_complex_double* x22, lapack_int ldx22, - double* theta, double* phi, - lapack_complex_double* taup1, - lapack_complex_double* taup2, - lapack_complex_double* tauq1, - lapack_complex_double* tauq2, - lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_zuncsd( int matrix_layout, char jobu1, char jobu2, - char jobv1t, char jobv2t, char trans, char signs, - lapack_int m, lapack_int p, lapack_int q, - lapack_complex_double* x11, lapack_int ldx11, - lapack_complex_double* x12, lapack_int ldx12, - lapack_complex_double* x21, lapack_int ldx21, - lapack_complex_double* x22, lapack_int ldx22, - double* theta, lapack_complex_double* u1, - lapack_int ldu1, lapack_complex_double* u2, - lapack_int ldu2, lapack_complex_double* v1t, - lapack_int ldv1t, lapack_complex_double* v2t, - lapack_int ldv2t ); -lapack_int LAPACKE_zuncsd_work( int matrix_layout, char jobu1, char jobu2, - char jobv1t, char jobv2t, char trans, - char signs, lapack_int m, lapack_int p, - lapack_int q, lapack_complex_double* x11, - lapack_int ldx11, lapack_complex_double* x12, - lapack_int ldx12, lapack_complex_double* x21, - lapack_int ldx21, lapack_complex_double* x22, - lapack_int ldx22, double* theta, - lapack_complex_double* u1, lapack_int ldu1, - lapack_complex_double* u2, lapack_int ldu2, - lapack_complex_double* v1t, lapack_int ldv1t, - lapack_complex_double* v2t, lapack_int ldv2t, - lapack_complex_double* work, lapack_int lwork, - double* rwork, lapack_int lrwork, - lapack_int* iwork ); -lapack_int LAPACKE_zuncsd2by1( int matrix_layout, char jobu1, char jobu2, - char jobv1t, lapack_int m, lapack_int p, lapack_int q, - lapack_complex_double* x11, lapack_int ldx11, - lapack_complex_double* x21, lapack_int ldx21, - double* theta, lapack_complex_double* u1, - lapack_int ldu1, lapack_complex_double* u2, - lapack_int ldu2, lapack_complex_double* v1t, lapack_int ldv1t ); -lapack_int LAPACKE_zuncsd2by1_work( int matrix_layout, char jobu1, char jobu2, - char jobv1t, lapack_int m, lapack_int p, - lapack_int q, lapack_complex_double* x11, lapack_int ldx11, - lapack_complex_double* x21, lapack_int ldx21, - double* theta, lapack_complex_double* u1, - lapack_int ldu1, lapack_complex_double* u2, - lapack_int ldu2, lapack_complex_double* v1t, - lapack_int ldv1t, lapack_complex_double* work, - lapack_int lwork, double* rwork, lapack_int lrwork, - lapack_int* iwork ); - -//LAPACK 3.4.0 -lapack_int LAPACKE_sgemqrt( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int nb, const float* v, lapack_int ldv, - const float* t, lapack_int ldt, float* c, - lapack_int ldc ); -lapack_int LAPACKE_dgemqrt( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int nb, const double* v, lapack_int ldv, - const double* t, lapack_int ldt, double* c, - lapack_int ldc ); -lapack_int LAPACKE_cgemqrt( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int nb, const lapack_complex_float* v, - lapack_int ldv, const lapack_complex_float* t, - lapack_int ldt, lapack_complex_float* c, - lapack_int ldc ); -lapack_int LAPACKE_zgemqrt( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int nb, const lapack_complex_double* v, - lapack_int ldv, const lapack_complex_double* t, - lapack_int ldt, lapack_complex_double* c, - lapack_int ldc ); - -lapack_int LAPACKE_sgeqrt( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nb, float* a, lapack_int lda, float* t, - lapack_int ldt ); -lapack_int LAPACKE_dgeqrt( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nb, double* a, lapack_int lda, double* t, - lapack_int ldt ); -lapack_int LAPACKE_cgeqrt( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nb, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* t, - lapack_int ldt ); -lapack_int LAPACKE_zgeqrt( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nb, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* t, - lapack_int ldt ); - -lapack_int LAPACKE_sgeqrt2( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, float* t, - lapack_int ldt ); -lapack_int LAPACKE_dgeqrt2( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, double* t, - lapack_int ldt ); -lapack_int LAPACKE_cgeqrt2( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* t, lapack_int ldt ); -lapack_int LAPACKE_zgeqrt2( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* t, lapack_int ldt ); - -lapack_int LAPACKE_sgeqrt3( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, float* t, - lapack_int ldt ); -lapack_int LAPACKE_dgeqrt3( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, double* t, - lapack_int ldt ); -lapack_int LAPACKE_cgeqrt3( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* t, lapack_int ldt ); -lapack_int LAPACKE_zgeqrt3( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* t, lapack_int ldt ); - -lapack_int LAPACKE_stpmqrt( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int l, lapack_int nb, const float* v, - lapack_int ldv, const float* t, lapack_int ldt, - float* a, lapack_int lda, float* b, - lapack_int ldb ); -lapack_int LAPACKE_dtpmqrt( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int l, lapack_int nb, const double* v, - lapack_int ldv, const double* t, lapack_int ldt, - double* a, lapack_int lda, double* b, - lapack_int ldb ); -lapack_int LAPACKE_ctpmqrt( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int l, lapack_int nb, - const lapack_complex_float* v, lapack_int ldv, - const lapack_complex_float* t, lapack_int ldt, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_ztpmqrt( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int l, lapack_int nb, - const lapack_complex_double* v, lapack_int ldv, - const lapack_complex_double* t, lapack_int ldt, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_stpqrt( int matrix_layout, lapack_int m, lapack_int n, - lapack_int l, lapack_int nb, float* a, - lapack_int lda, float* b, lapack_int ldb, float* t, - lapack_int ldt ); - -lapack_int LAPACKE_dtpqrt( int matrix_layout, lapack_int m, lapack_int n, - lapack_int l, lapack_int nb, double* a, - lapack_int lda, double* b, lapack_int ldb, double* t, - lapack_int ldt ); -lapack_int LAPACKE_ctpqrt( int matrix_layout, lapack_int m, lapack_int n, - lapack_int l, lapack_int nb, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* t, lapack_int ldt ); -lapack_int LAPACKE_ztpqrt( int matrix_layout, lapack_int m, lapack_int n, - lapack_int l, lapack_int nb, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* t, lapack_int ldt ); - -lapack_int LAPACKE_stpqrt2( int matrix_layout, - lapack_int m, lapack_int n, lapack_int l, - float* a, lapack_int lda, - float* b, lapack_int ldb, - float* t, lapack_int ldt ); -lapack_int LAPACKE_dtpqrt2( int matrix_layout, - lapack_int m, lapack_int n, lapack_int l, - double* a, lapack_int lda, - double* b, lapack_int ldb, - double* t, lapack_int ldt ); -lapack_int LAPACKE_ctpqrt2( int matrix_layout, - lapack_int m, lapack_int n, lapack_int l, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* t, lapack_int ldt ); -lapack_int LAPACKE_ztpqrt2( int matrix_layout, - lapack_int m, lapack_int n, lapack_int l, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* t, lapack_int ldt ); - -lapack_int LAPACKE_stprfb( int matrix_layout, char side, char trans, char direct, - char storev, lapack_int m, lapack_int n, - lapack_int k, lapack_int l, const float* v, - lapack_int ldv, const float* t, lapack_int ldt, - float* a, lapack_int lda, float* b, lapack_int ldb ); -lapack_int LAPACKE_dtprfb( int matrix_layout, char side, char trans, char direct, - char storev, lapack_int m, lapack_int n, - lapack_int k, lapack_int l, const double* v, - lapack_int ldv, const double* t, lapack_int ldt, - double* a, lapack_int lda, double* b, lapack_int ldb ); -lapack_int LAPACKE_ctprfb( int matrix_layout, char side, char trans, char direct, - char storev, lapack_int m, lapack_int n, - lapack_int k, lapack_int l, - const lapack_complex_float* v, lapack_int ldv, - const lapack_complex_float* t, lapack_int ldt, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_ztprfb( int matrix_layout, char side, char trans, char direct, - char storev, lapack_int m, lapack_int n, - lapack_int k, lapack_int l, - const lapack_complex_double* v, lapack_int ldv, - const lapack_complex_double* t, lapack_int ldt, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_sgemqrt_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int nb, const float* v, lapack_int ldv, - const float* t, lapack_int ldt, float* c, - lapack_int ldc, float* work ); -lapack_int LAPACKE_dgemqrt_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int nb, const double* v, lapack_int ldv, - const double* t, lapack_int ldt, double* c, - lapack_int ldc, double* work ); -lapack_int LAPACKE_cgemqrt_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int nb, const lapack_complex_float* v, - lapack_int ldv, const lapack_complex_float* t, - lapack_int ldt, lapack_complex_float* c, - lapack_int ldc, lapack_complex_float* work ); -lapack_int LAPACKE_zgemqrt_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int nb, const lapack_complex_double* v, - lapack_int ldv, const lapack_complex_double* t, - lapack_int ldt, lapack_complex_double* c, - lapack_int ldc, lapack_complex_double* work ); - -lapack_int LAPACKE_sgeqrt_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nb, float* a, lapack_int lda, - float* t, lapack_int ldt, float* work ); -lapack_int LAPACKE_dgeqrt_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nb, double* a, lapack_int lda, - double* t, lapack_int ldt, double* work ); -lapack_int LAPACKE_cgeqrt_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nb, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* t, - lapack_int ldt, lapack_complex_float* work ); -lapack_int LAPACKE_zgeqrt_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nb, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* t, - lapack_int ldt, lapack_complex_double* work ); - -lapack_int LAPACKE_sgeqrt2_work( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, float* t, - lapack_int ldt ); -lapack_int LAPACKE_dgeqrt2_work( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, double* t, - lapack_int ldt ); -lapack_int LAPACKE_cgeqrt2_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* t, lapack_int ldt ); -lapack_int LAPACKE_zgeqrt2_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* t, lapack_int ldt ); - -lapack_int LAPACKE_sgeqrt3_work( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, float* t, - lapack_int ldt ); -lapack_int LAPACKE_dgeqrt3_work( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, double* t, - lapack_int ldt ); -lapack_int LAPACKE_cgeqrt3_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* t, lapack_int ldt ); -lapack_int LAPACKE_zgeqrt3_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* t, lapack_int ldt ); - -lapack_int LAPACKE_stpmqrt_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int l, lapack_int nb, const float* v, - lapack_int ldv, const float* t, lapack_int ldt, - float* a, lapack_int lda, float* b, - lapack_int ldb, float* work ); -lapack_int LAPACKE_dtpmqrt_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int l, lapack_int nb, const double* v, - lapack_int ldv, const double* t, - lapack_int ldt, double* a, lapack_int lda, - double* b, lapack_int ldb, double* work ); -lapack_int LAPACKE_ctpmqrt_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int l, lapack_int nb, - const lapack_complex_float* v, lapack_int ldv, - const lapack_complex_float* t, lapack_int ldt, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* work ); -lapack_int LAPACKE_ztpmqrt_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - lapack_int l, lapack_int nb, - const lapack_complex_double* v, lapack_int ldv, - const lapack_complex_double* t, lapack_int ldt, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* work ); - -lapack_int LAPACKE_stpqrt_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int l, lapack_int nb, float* a, - lapack_int lda, float* b, lapack_int ldb, - float* t, lapack_int ldt, float* work ); -lapack_int LAPACKE_dtpqrt_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int l, lapack_int nb, double* a, - lapack_int lda, double* b, lapack_int ldb, - double* t, lapack_int ldt, double* work ); -lapack_int LAPACKE_ctpqrt_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int l, lapack_int nb, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* t, lapack_int ldt, - lapack_complex_float* work ); -lapack_int LAPACKE_ztpqrt_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int l, lapack_int nb, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* t, lapack_int ldt, - lapack_complex_double* work ); - -lapack_int LAPACKE_stpqrt2_work( int matrix_layout, - lapack_int m, lapack_int n, lapack_int l, - float* a, lapack_int lda, - float* b, lapack_int ldb, - float* t, lapack_int ldt ); -lapack_int LAPACKE_dtpqrt2_work( int matrix_layout, - lapack_int m, lapack_int n, lapack_int l, - double* a, lapack_int lda, - double* b, lapack_int ldb, - double* t, lapack_int ldt ); -lapack_int LAPACKE_ctpqrt2_work( int matrix_layout, - lapack_int m, lapack_int n, lapack_int l, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* t, lapack_int ldt ); -lapack_int LAPACKE_ztpqrt2_work( int matrix_layout, - lapack_int m, lapack_int n, lapack_int l, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* t, lapack_int ldt ); - -lapack_int LAPACKE_stprfb_work( int matrix_layout, char side, char trans, - char direct, char storev, lapack_int m, - lapack_int n, lapack_int k, lapack_int l, - const float* v, lapack_int ldv, const float* t, - lapack_int ldt, float* a, lapack_int lda, - float* b, lapack_int ldb, float* work, - lapack_int ldwork ); -lapack_int LAPACKE_dtprfb_work( int matrix_layout, char side, char trans, - char direct, char storev, lapack_int m, - lapack_int n, lapack_int k, lapack_int l, - const double* v, lapack_int ldv, - const double* t, lapack_int ldt, double* a, - lapack_int lda, double* b, lapack_int ldb, - double* work, lapack_int ldwork ); -lapack_int LAPACKE_ctprfb_work( int matrix_layout, char side, char trans, - char direct, char storev, lapack_int m, - lapack_int n, lapack_int k, lapack_int l, - const lapack_complex_float* v, lapack_int ldv, - const lapack_complex_float* t, lapack_int ldt, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* work, lapack_int ldwork ); -lapack_int LAPACKE_ztprfb_work( int matrix_layout, char side, char trans, - char direct, char storev, lapack_int m, - lapack_int n, lapack_int k, lapack_int l, - const lapack_complex_double* v, lapack_int ldv, - const lapack_complex_double* t, lapack_int ldt, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* work, lapack_int ldwork ); -//LAPACK 3.X.X -lapack_int LAPACKE_ssysv_rook( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, - lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dsysv_rook( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_csysv_rook( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zsysv_rook( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_ssytrf_rook( int matrix_layout, char uplo, lapack_int n, float* a, - lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_dsytrf_rook( int matrix_layout, char uplo, lapack_int n, double* a, - lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_csytrf_rook( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* ipiv ); -lapack_int LAPACKE_zsytrf_rook( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv ); - -lapack_int LAPACKE_ssytrs_rook( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* a, lapack_int lda, - const lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_dsytrs_rook( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* a, lapack_int lda, - const lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_csytrs_rook( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zsytrs_rook( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_chetrf_rook( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* ipiv ); -lapack_int LAPACKE_zhetrf_rook( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv ); - -lapack_int LAPACKE_chetrs_rook( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zhetrs_rook( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_csyr( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float alpha, - const lapack_complex_float* x, lapack_int incx, - lapack_complex_float* a, lapack_int lda ); -lapack_int LAPACKE_zsyr( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double alpha, - const lapack_complex_double* x, lapack_int incx, - lapack_complex_double* a, lapack_int lda ); - -lapack_int LAPACKE_ssysv_rook_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, - lapack_int* ipiv, float* b, lapack_int ldb, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dsysv_rook_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - lapack_int* ipiv, double* b, lapack_int ldb, - double* work, lapack_int lwork ); -lapack_int LAPACKE_csysv_rook_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* work, - lapack_int lwork ); -lapack_int LAPACKE_zsysv_rook_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* work, - lapack_int lwork ); - -lapack_int LAPACKE_ssytrf_rook_work( int matrix_layout, char uplo, lapack_int n, - float* a, lapack_int lda, lapack_int* ipiv, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dsytrf_rook_work( int matrix_layout, char uplo, lapack_int n, - double* a, lapack_int lda, lapack_int* ipiv, - double* work, lapack_int lwork ); -lapack_int LAPACKE_csytrf_rook_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* ipiv, lapack_complex_float* work, - lapack_int lwork ); -lapack_int LAPACKE_zsytrf_rook_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv, lapack_complex_double* work, - lapack_int lwork ); - -lapack_int LAPACKE_ssytrs_rook_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* a, lapack_int lda, - const lapack_int* ipiv, float* b, - lapack_int ldb ); -lapack_int LAPACKE_dsytrs_rook_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* a, - lapack_int lda, const lapack_int* ipiv, - double* b, lapack_int ldb ); -lapack_int LAPACKE_csytrs_rook_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zsytrs_rook_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_chetrf_rook_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* ipiv, lapack_complex_float* work, - lapack_int lwork ); -lapack_int LAPACKE_zhetrf_rook_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv, lapack_complex_double* work, - lapack_int lwork ); - -lapack_int LAPACKE_chetrs_rook_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zhetrs_rook_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); - - -lapack_int LAPACKE_csyr_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float alpha, - const lapack_complex_float* x, - lapack_int incx, lapack_complex_float* a, - lapack_int lda ); -lapack_int LAPACKE_zsyr_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double alpha, - const lapack_complex_double* x, - lapack_int incx, lapack_complex_double* a, - lapack_int lda ); -void LAPACKE_ilaver( lapack_int* vers_major, - lapack_int* vers_minor, - lapack_int* vers_patch ); -// LAPACK 3.7.0 -lapack_int LAPACKE_ssysv_aa( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, - lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_ssysv_aa_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, - lapack_int* ipiv, float* b, lapack_int ldb, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dsysv_aa( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_dsysv_aa_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - lapack_int* ipiv, double* b, lapack_int ldb, - double* work, lapack_int lwork ); -lapack_int LAPACKE_csysv_aa( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_csysv_aa_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zsysv_aa( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_zsysv_aa_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_chesv_aa( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_chesv_aa_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zhesv_aa( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_zhesv_aa_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_ssytrf_aa( int matrix_layout, char uplo, lapack_int n, float* a, - lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_dsytrf_aa( int matrix_layout, char uplo, lapack_int n, double* a, - lapack_int lda, lapack_int* ipiv ); -lapack_int LAPACKE_csytrf_aa( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* ipiv ); -lapack_int LAPACKE_zsytrf_aa( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv ); -lapack_int LAPACKE_chetrf_aa( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* ipiv ); -lapack_int LAPACKE_zhetrf_aa( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv ); - -lapack_int LAPACKE_ssytrf_aa_work( int matrix_layout, char uplo, lapack_int n, - float* a, lapack_int lda, lapack_int* ipiv, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dsytrf_aa_work( int matrix_layout, char uplo, lapack_int n, - double* a, lapack_int lda, lapack_int* ipiv, - double* work, lapack_int lwork ); -lapack_int LAPACKE_csytrf_aa_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* ipiv, lapack_complex_float* work, - lapack_int lwork ); -lapack_int LAPACKE_zsytrf_aa_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv, lapack_complex_double* work, - lapack_int lwork ); -lapack_int LAPACKE_chetrf_aa_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_int* ipiv, lapack_complex_float* work, - lapack_int lwork ); -lapack_int LAPACKE_zhetrf_aa_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_int* ipiv, lapack_complex_double* work, - lapack_int lwork ); - - -lapack_int LAPACKE_csytrs_aa( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_csytrs_aa_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_chetrs_aa( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_chetrs_aa_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_dsytrs_aa( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* a, lapack_int lda, - const lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_dsytrs_aa_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* a, - lapack_int lda, const lapack_int* ipiv, - double* b, lapack_int ldb, double* work, lapack_int lwork ); -lapack_int LAPACKE_ssytrs_aa( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* a, lapack_int lda, - const lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_ssytrs_aa_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* a, lapack_int lda, - const lapack_int* ipiv, float* b, - lapack_int ldb, float* work, lapack_int lwork ); -lapack_int LAPACKE_zsytrs_aa( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_zsytrs_aa_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* work, lapack_int lwork); -lapack_int LAPACKE_zhetrs_aa( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_zhetrs_aa_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* work, lapack_int lwork); - - -lapack_int LAPACKE_ssysv_rk( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, - float* e, lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_ssysv_rk_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, - float* e, lapack_int* ipiv, float* b, lapack_int ldb, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dsysv_rk( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - double* e, lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_dsysv_rk_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - double* e, lapack_int* ipiv, double* b, lapack_int ldb, - double* work, lapack_int lwork ); -lapack_int LAPACKE_csysv_rk( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* e, lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_csysv_rk_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* e, lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zsysv_rk( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* e, lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_zsysv_rk_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* e, lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_chesv_rk( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* e, lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_chesv_rk_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* e, lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zhesv_rk( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* e, lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_zhesv_rk_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* e, lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_ssytrf_rk( int matrix_layout, char uplo, lapack_int n, float* a, - lapack_int lda, float* e, lapack_int* ipiv ); -lapack_int LAPACKE_dsytrf_rk( int matrix_layout, char uplo, lapack_int n, double* a, - lapack_int lda, double* e, lapack_int* ipiv ); -lapack_int LAPACKE_csytrf_rk( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* e, lapack_int* ipiv ); -lapack_int LAPACKE_zsytrf_rk( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* e, lapack_int* ipiv ); -lapack_int LAPACKE_chetrf_rk( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* e, lapack_int* ipiv ); -lapack_int LAPACKE_zhetrf_rk( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* e, lapack_int* ipiv ); -lapack_int LAPACKE_ssytrf_rk_work( int matrix_layout, char uplo, lapack_int n, - float* a, lapack_int lda, float* e, lapack_int* ipiv, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dsytrf_rk_work( int matrix_layout, char uplo, lapack_int n, - double* a, lapack_int lda, double* e, lapack_int* ipiv, - double* work, lapack_int lwork ); -lapack_int LAPACKE_csytrf_rk_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* e, - lapack_int* ipiv, lapack_complex_float* work, - lapack_int lwork ); -lapack_int LAPACKE_zsytrf_rk_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* e, - lapack_int* ipiv, lapack_complex_double* work, - lapack_int lwork ); -lapack_int LAPACKE_chetrf_rk_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* e, - lapack_int* ipiv, lapack_complex_float* work, - lapack_int lwork ); -lapack_int LAPACKE_zhetrf_rk_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* e, - lapack_int* ipiv, lapack_complex_double* work, - lapack_int lwork ); - -lapack_int LAPACKE_csytrs_3( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* e, - const lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_csytrs_3_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* e, - const lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb); -lapack_int LAPACKE_chetrs_3( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* e, - const lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_chetrs_3_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_float* a, - lapack_int lda, const lapack_complex_float* e, - const lapack_int* ipiv, - lapack_complex_float* b, lapack_int ldb); -lapack_int LAPACKE_dsytrs_3( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* a, lapack_int lda, - const double* e, - const lapack_int* ipiv, double* b, lapack_int ldb ); -lapack_int LAPACKE_dsytrs_3_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const double* a, - lapack_int lda, const double* e, - const lapack_int* ipiv, - double* b, lapack_int ldb); -lapack_int LAPACKE_ssytrs_3( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* a, lapack_int lda, - const float* e, - const lapack_int* ipiv, float* b, lapack_int ldb ); -lapack_int LAPACKE_ssytrs_3_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const float* a, lapack_int lda, - const float* e, const lapack_int* ipiv, float* b, - lapack_int ldb); -lapack_int LAPACKE_zsytrs_3( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_complex_double* e, - const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_zsytrs_3_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_complex_double* e, - const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb); -lapack_int LAPACKE_zhetrs_3( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_complex_double* e, - const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_zhetrs_3_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, const lapack_complex_double* a, - lapack_int lda, const lapack_complex_double* e, - const lapack_int* ipiv, - lapack_complex_double* b, lapack_int ldb); - -lapack_int LAPACKE_ssytri_3( int matrix_layout, char uplo, lapack_int n, float* a, - lapack_int lda, const float* e, const lapack_int* ipiv ); -lapack_int LAPACKE_dsytri_3( int matrix_layout, char uplo, lapack_int n, double* a, - lapack_int lda, const double* e, const lapack_int* ipiv ); -lapack_int LAPACKE_csytri_3( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* e, const lapack_int* ipiv ); -lapack_int LAPACKE_zsytri_3( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* e, const lapack_int* ipiv ); -lapack_int LAPACKE_chetri_3( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* e, const lapack_int* ipiv ); -lapack_int LAPACKE_zhetri_3( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* e, const lapack_int* ipiv ); -lapack_int LAPACKE_ssytri_3_work( int matrix_layout, char uplo, lapack_int n, float* a, - lapack_int lda, const float* e, const lapack_int* ipiv, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dsytri_3_work( int matrix_layout, char uplo, lapack_int n, double* a, - lapack_int lda, const double* e, const lapack_int* ipiv, - double* work, lapack_int lwork ); -lapack_int LAPACKE_csytri_3_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* e, const lapack_int* ipiv, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zsytri_3_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* e, const lapack_int* ipiv, - lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_chetri_3_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* e, const lapack_int* ipiv, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zhetri_3_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* e, const lapack_int* ipiv, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_ssycon_3( int matrix_layout, char uplo, lapack_int n, - const float* a, lapack_int lda, const float* e, - const lapack_int* ipiv, float anorm, float* rcond ); -lapack_int LAPACKE_dsycon_3( int matrix_layout, char uplo, lapack_int n, - const double* a, lapack_int lda, const double* e, - const lapack_int* ipiv, double anorm, - double* rcond ); -lapack_int LAPACKE_csycon_3( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* e, - const lapack_int* ipiv, float anorm, float* rcond ); -lapack_int LAPACKE_zsycon_3( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* e, - const lapack_int* ipiv, double anorm, - double* rcond ); -lapack_int LAPACKE_checon_3( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* e, - const lapack_int* ipiv, float anorm, float* rcond ); -lapack_int LAPACKE_zhecon_3( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* e, - const lapack_int* ipiv, double anorm, - double* rcond ); -lapack_int LAPACKE_ssycon_3_work( int matrix_layout, char uplo, lapack_int n, - const float* a, lapack_int lda, const float* e, - const lapack_int* ipiv, float anorm, - float* rcond, float* work, lapack_int* iwork ); -lapack_int LAPACKE_dsycon_3_work( int matrix_layout, char uplo, lapack_int n, - const double* a, lapack_int lda, const double* e, - const lapack_int* ipiv, double anorm, - double* rcond, double* work, - lapack_int* iwork ); -lapack_int LAPACKE_csycon_3_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* e, - const lapack_int* ipiv, float anorm, - float* rcond, lapack_complex_float* work ); -lapack_int LAPACKE_zsycon_3_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* e, - const lapack_int* ipiv, double anorm, - double* rcond, lapack_complex_double* work ); -lapack_int LAPACKE_checon_3_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* e, - const lapack_int* ipiv, float anorm, - float* rcond, lapack_complex_float* work ); -lapack_int LAPACKE_zhecon_3_work( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* e, - const lapack_int* ipiv, double anorm, - double* rcond, lapack_complex_double* work ); - -lapack_int LAPACKE_sgelq( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, - float* t, lapack_int tsize ); -lapack_int LAPACKE_dgelq( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, - double* t, lapack_int tsize ); -lapack_int LAPACKE_cgelq( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* t, lapack_int tsize ); -lapack_int LAPACKE_zgelq( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* t, lapack_int tsize ); - -lapack_int LAPACKE_sgelq_work( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, - float* t, lapack_int tsize, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dgelq_work( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, - double* t, lapack_int tsize, - double* work, lapack_int lwork ); -lapack_int LAPACKE_cgelq_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* t, lapack_int tsize, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgelq_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* t, lapack_int tsize, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_sgemlq( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const float* a, lapack_int lda, - const float* t, lapack_int tsize, - float* c, lapack_int ldc ); -lapack_int LAPACKE_dgemlq( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const double* a, lapack_int lda, - const double* t, lapack_int tsize, - double* c, lapack_int ldc ); -lapack_int LAPACKE_cgemlq( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* t, lapack_int tsize, - lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zgemlq( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* t, lapack_int tsize, - lapack_complex_double* c, lapack_int ldc ); - -lapack_int LAPACKE_sgemlq_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const float* a, lapack_int lda, - const float* t, lapack_int tsize, - float* c, lapack_int ldc, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dgemlq_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const double* a, lapack_int lda, - const double* t, lapack_int tsize, - double* c, lapack_int ldc, - double* work, lapack_int lwork ); -lapack_int LAPACKE_cgemlq_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* t, lapack_int tsize, - lapack_complex_float* c, lapack_int ldc, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgemlq_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* t, lapack_int tsize, - lapack_complex_double* c, lapack_int ldc, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_sgeqr( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, - float* t, lapack_int tsize ); -lapack_int LAPACKE_dgeqr( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, - double* t, lapack_int tsize ); -lapack_int LAPACKE_cgeqr( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* t, lapack_int tsize ); -lapack_int LAPACKE_zgeqr( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* t, lapack_int tsize ); - -lapack_int LAPACKE_sgeqr_work( int matrix_layout, lapack_int m, lapack_int n, - float* a, lapack_int lda, - float* t, lapack_int tsize, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dgeqr_work( int matrix_layout, lapack_int m, lapack_int n, - double* a, lapack_int lda, - double* t, lapack_int tsize, - double* work, lapack_int lwork ); -lapack_int LAPACKE_cgeqr_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* t, lapack_int tsize, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgeqr_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* t, lapack_int tsize, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_sgemqr( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const float* a, lapack_int lda, - const float* t, lapack_int tsize, - float* c, lapack_int ldc ); -lapack_int LAPACKE_dgemqr( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const double* a, lapack_int lda, - const double* t, lapack_int tsize, - double* c, lapack_int ldc ); -lapack_int LAPACKE_cgemqr( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* t, lapack_int tsize, - lapack_complex_float* c, lapack_int ldc ); -lapack_int LAPACKE_zgemqr( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* t, lapack_int tsize, - lapack_complex_double* c, lapack_int ldc ); - -lapack_int LAPACKE_sgemqr_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const float* a, lapack_int lda, - const float* t, lapack_int tsize, - float* c, lapack_int ldc, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dgemqr_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const double* a, lapack_int lda, - const double* t, lapack_int tsize, - double* c, lapack_int ldc, - double* work, lapack_int lwork ); -lapack_int LAPACKE_cgemqr_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_float* a, lapack_int lda, - const lapack_complex_float* t, lapack_int tsize, - lapack_complex_float* c, lapack_int ldc, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgemqr_work( int matrix_layout, char side, char trans, - lapack_int m, lapack_int n, lapack_int k, - const lapack_complex_double* a, lapack_int lda, - const lapack_complex_double* t, lapack_int tsize, - lapack_complex_double* c, lapack_int ldc, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_sgetsls( int matrix_layout, char trans, lapack_int m, - lapack_int n, lapack_int nrhs, float* a, - lapack_int lda, float* b, lapack_int ldb ); -lapack_int LAPACKE_dgetsls( int matrix_layout, char trans, lapack_int m, - lapack_int n, lapack_int nrhs, double* a, - lapack_int lda, double* b, lapack_int ldb ); -lapack_int LAPACKE_cgetsls( int matrix_layout, char trans, lapack_int m, - lapack_int n, lapack_int nrhs, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zgetsls( int matrix_layout, char trans, lapack_int m, - lapack_int n, lapack_int nrhs, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb ); - -lapack_int LAPACKE_sgetsls_work( int matrix_layout, char trans, lapack_int m, - lapack_int n, lapack_int nrhs, float* a, - lapack_int lda, float* b, lapack_int ldb, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dgetsls_work( int matrix_layout, char trans, lapack_int m, - lapack_int n, lapack_int nrhs, double* a, - lapack_int lda, double* b, lapack_int ldb, - double* work, lapack_int lwork ); -lapack_int LAPACKE_cgetsls_work( int matrix_layout, char trans, lapack_int m, - lapack_int n, lapack_int nrhs, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgetsls_work( int matrix_layout, char trans, lapack_int m, - lapack_int n, lapack_int nrhs, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_sgetsqrhrt( int matrix_layout, lapack_int m, lapack_int n, - lapack_int mb1, lapack_int nb1, lapack_int nb2, - float* a, lapack_int lda, - float* t, lapack_int ldt ); -lapack_int LAPACKE_dgetsqrhrt( int matrix_layout, lapack_int m, lapack_int n, - lapack_int mb1, lapack_int nb1, lapack_int nb2, - double* a, lapack_int lda, - double* t, lapack_int ldt ); -lapack_int LAPACKE_cgetsqrhrt( int matrix_layout, lapack_int m, lapack_int n, - lapack_int mb1, lapack_int nb1, lapack_int nb2, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* t, lapack_int ldt ); -lapack_int LAPACKE_zgetsqrhrt( int matrix_layout, lapack_int m, lapack_int n, - lapack_int mb1, lapack_int nb1, lapack_int nb2, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* t, lapack_int ldt ); - -lapack_int LAPACKE_sgetsqrhrt_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int mb1, lapack_int nb1, lapack_int nb2, - float* a, lapack_int lda, - float* t, lapack_int ldt, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dgetsqrhrt_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int mb1, lapack_int nb1, lapack_int nb2, - double* a, lapack_int lda, - double* t, lapack_int ldt, - double* work, lapack_int lwork ); -lapack_int LAPACKE_cgetsqrhrt_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int mb1, lapack_int nb1, lapack_int nb2, - lapack_complex_float* a, lapack_int lda, - lapack_complex_float* t, lapack_int ldt, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zgetsqrhrt_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int mb1, lapack_int nb1, lapack_int nb2, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* t, lapack_int ldt, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_ssyev_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, - float* a, lapack_int lda, float* w ); -lapack_int LAPACKE_dsyev_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, - double* a, lapack_int lda, double* w ); - -lapack_int LAPACKE_ssyevd_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, - float* a, lapack_int lda, float* w ); -lapack_int LAPACKE_dsyevd_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, - double* a, lapack_int lda, double* w ); - -lapack_int LAPACKE_ssyevr_2stage( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, float* a, lapack_int lda, float vl, - float vu, lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, float* z, lapack_int ldz, - lapack_int* isuppz ); -lapack_int LAPACKE_dsyevr_2stage( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, double* a, lapack_int lda, double vl, - double vu, lapack_int il, lapack_int iu, - double abstol, lapack_int* m, double* w, double* z, - lapack_int ldz, lapack_int* isuppz ); - -lapack_int LAPACKE_ssyevx_2stage( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, float* a, lapack_int lda, float vl, - float vu, lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, float* z, lapack_int ldz, - lapack_int* ifail ); -lapack_int LAPACKE_dsyevx_2stage( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, double* a, lapack_int lda, double vl, - double vu, lapack_int il, lapack_int iu, - double abstol, lapack_int* m, double* w, double* z, - lapack_int ldz, lapack_int* ifail ); - -lapack_int LAPACKE_ssyev_2stage_work( int matrix_layout, char jobz, char uplo, - lapack_int n, float* a, lapack_int lda, float* w, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dsyev_2stage_work( int matrix_layout, char jobz, char uplo, - lapack_int n, double* a, lapack_int lda, - double* w, double* work, lapack_int lwork ); - -lapack_int LAPACKE_ssyevd_2stage_work( int matrix_layout, char jobz, char uplo, - lapack_int n, float* a, lapack_int lda, - float* w, float* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dsyevd_2stage_work( int matrix_layout, char jobz, char uplo, - lapack_int n, double* a, lapack_int lda, - double* w, double* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); - -lapack_int LAPACKE_ssyevr_2stage_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, float* a, - lapack_int lda, float vl, float vu, - lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, float* z, - lapack_int ldz, lapack_int* isuppz, float* work, - lapack_int lwork, lapack_int* iwork, - lapack_int liwork ); -lapack_int LAPACKE_dsyevr_2stage_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, double* a, - lapack_int lda, double vl, double vu, - lapack_int il, lapack_int iu, double abstol, - lapack_int* m, double* w, double* z, - lapack_int ldz, lapack_int* isuppz, - double* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); - -lapack_int LAPACKE_ssyevx_2stage_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, float* a, - lapack_int lda, float vl, float vu, - lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, float* z, - lapack_int ldz, float* work, lapack_int lwork, - lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_dsyevx_2stage_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, double* a, - lapack_int lda, double vl, double vu, - lapack_int il, lapack_int iu, double abstol, - lapack_int* m, double* w, double* z, - lapack_int ldz, double* work, lapack_int lwork, - lapack_int* iwork, lapack_int* ifail ); - -lapack_int LAPACKE_cheev_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, float* w ); -lapack_int LAPACKE_zheev_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, double* w ); - -lapack_int LAPACKE_cheevd_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, float* w ); -lapack_int LAPACKE_zheevd_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - double* w ); - -lapack_int LAPACKE_cheevr_2stage( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, lapack_complex_float* a, - lapack_int lda, float vl, float vu, lapack_int il, - lapack_int iu, float abstol, lapack_int* m, float* w, - lapack_complex_float* z, lapack_int ldz, - lapack_int* isuppz ); -lapack_int LAPACKE_zheevr_2stage( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, lapack_complex_double* a, - lapack_int lda, double vl, double vu, lapack_int il, - lapack_int iu, double abstol, lapack_int* m, - double* w, lapack_complex_double* z, lapack_int ldz, - lapack_int* isuppz ); - -lapack_int LAPACKE_cheevx_2stage( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, lapack_complex_float* a, - lapack_int lda, float vl, float vu, lapack_int il, - lapack_int iu, float abstol, lapack_int* m, float* w, - lapack_complex_float* z, lapack_int ldz, - lapack_int* ifail ); -lapack_int LAPACKE_zheevx_2stage( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, lapack_complex_double* a, - lapack_int lda, double vl, double vu, lapack_int il, - lapack_int iu, double abstol, lapack_int* m, - double* w, lapack_complex_double* z, lapack_int ldz, - lapack_int* ifail ); - -lapack_int LAPACKE_cheev_2stage_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_complex_float* a, - lapack_int lda, float* w, - lapack_complex_float* work, lapack_int lwork, - float* rwork ); -lapack_int LAPACKE_zheev_2stage_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_complex_double* a, - lapack_int lda, double* w, - lapack_complex_double* work, lapack_int lwork, - double* rwork ); - -lapack_int LAPACKE_cheevd_2stage_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_complex_float* a, - lapack_int lda, float* w, - lapack_complex_float* work, lapack_int lwork, - float* rwork, lapack_int lrwork, - lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_zheevd_2stage_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_complex_double* a, - lapack_int lda, double* w, - lapack_complex_double* work, lapack_int lwork, - double* rwork, lapack_int lrwork, - lapack_int* iwork, lapack_int liwork ); - -lapack_int LAPACKE_cheevr_2stage_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - float vl, float vu, lapack_int il, - lapack_int iu, float abstol, lapack_int* m, - float* w, lapack_complex_float* z, - lapack_int ldz, lapack_int* isuppz, - lapack_complex_float* work, lapack_int lwork, - float* rwork, lapack_int lrwork, - lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_zheevr_2stage_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - double vl, double vu, lapack_int il, - lapack_int iu, double abstol, lapack_int* m, - double* w, lapack_complex_double* z, - lapack_int ldz, lapack_int* isuppz, - lapack_complex_double* work, lapack_int lwork, - double* rwork, lapack_int lrwork, - lapack_int* iwork, lapack_int liwork ); - -lapack_int LAPACKE_cheevx_2stage_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, - lapack_complex_float* a, lapack_int lda, - float vl, float vu, lapack_int il, - lapack_int iu, float abstol, lapack_int* m, - float* w, lapack_complex_float* z, - lapack_int ldz, lapack_complex_float* work, - lapack_int lwork, float* rwork, - lapack_int* iwork, lapack_int* ifail ); -lapack_int LAPACKE_zheevx_2stage_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - double vl, double vu, lapack_int il, - lapack_int iu, double abstol, lapack_int* m, - double* w, lapack_complex_double* z, - lapack_int ldz, lapack_complex_double* work, - lapack_int lwork, double* rwork, - lapack_int* iwork, lapack_int* ifail ); - -lapack_int LAPACKE_ssbev_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int kd, float* ab, lapack_int ldab, float* w, - float* z, lapack_int ldz ); -lapack_int LAPACKE_dsbev_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int kd, double* ab, lapack_int ldab, double* w, - double* z, lapack_int ldz ); - -lapack_int LAPACKE_ssbevd_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int kd, float* ab, lapack_int ldab, float* w, - float* z, lapack_int ldz ); -lapack_int LAPACKE_dsbevd_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int kd, double* ab, lapack_int ldab, - double* w, double* z, lapack_int ldz ); - -lapack_int LAPACKE_ssbevx_2stage( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, lapack_int kd, float* ab, - lapack_int ldab, float* q, lapack_int ldq, float vl, - float vu, lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, float* z, lapack_int ldz, - lapack_int* ifail ); -lapack_int LAPACKE_dsbevx_2stage( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, lapack_int kd, double* ab, - lapack_int ldab, double* q, lapack_int ldq, - double vl, double vu, lapack_int il, lapack_int iu, - double abstol, lapack_int* m, double* w, double* z, - lapack_int ldz, lapack_int* ifail ); - -lapack_int LAPACKE_ssbev_2stage_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int kd, float* ab, - lapack_int ldab, float* w, float* z, - lapack_int ldz, float* work, lapack_int lwork ); -lapack_int LAPACKE_dsbev_2stage_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int kd, double* ab, - lapack_int ldab, double* w, double* z, - lapack_int ldz, double* work, lapack_int lwork ); - -lapack_int LAPACKE_ssbevd_2stage_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int kd, float* ab, - lapack_int ldab, float* w, float* z, - lapack_int ldz, float* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); -lapack_int LAPACKE_dsbevd_2stage_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int kd, double* ab, - lapack_int ldab, double* w, double* z, - lapack_int ldz, double* work, lapack_int lwork, - lapack_int* iwork, lapack_int liwork ); - -lapack_int LAPACKE_ssbevx_2stage_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, lapack_int kd, - float* ab, lapack_int ldab, float* q, - lapack_int ldq, float vl, float vu, - lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, float* z, - lapack_int ldz, float* work, lapack_int lwork, lapack_int* iwork, - lapack_int* ifail ); -lapack_int LAPACKE_dsbevx_2stage_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, lapack_int kd, - double* ab, lapack_int ldab, double* q, - lapack_int ldq, double vl, double vu, - lapack_int il, lapack_int iu, double abstol, - lapack_int* m, double* w, double* z, - lapack_int ldz, double* work, lapack_int lwork, lapack_int* iwork, - lapack_int* ifail ); - -lapack_int LAPACKE_chbev_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int kd, lapack_complex_float* ab, - lapack_int ldab, float* w, lapack_complex_float* z, - lapack_int ldz ); -lapack_int LAPACKE_zhbev_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int kd, lapack_complex_double* ab, - lapack_int ldab, double* w, lapack_complex_double* z, - lapack_int ldz ); - -lapack_int LAPACKE_chbevd_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int kd, lapack_complex_float* ab, - lapack_int ldab, float* w, lapack_complex_float* z, - lapack_int ldz ); -lapack_int LAPACKE_zhbevd_2stage( int matrix_layout, char jobz, char uplo, lapack_int n, - lapack_int kd, lapack_complex_double* ab, - lapack_int ldab, double* w, lapack_complex_double* z, - lapack_int ldz ); - -lapack_int LAPACKE_chbevx_2stage( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, lapack_int kd, - lapack_complex_float* ab, lapack_int ldab, - lapack_complex_float* q, lapack_int ldq, float vl, - float vu, lapack_int il, lapack_int iu, float abstol, - lapack_int* m, float* w, lapack_complex_float* z, - lapack_int ldz, lapack_int* ifail ); -lapack_int LAPACKE_zhbevx_2stage( int matrix_layout, char jobz, char range, char uplo, - lapack_int n, lapack_int kd, - lapack_complex_double* ab, lapack_int ldab, - lapack_complex_double* q, lapack_int ldq, double vl, - double vu, lapack_int il, lapack_int iu, - double abstol, lapack_int* m, double* w, - lapack_complex_double* z, lapack_int ldz, - lapack_int* ifail ); - -lapack_int LAPACKE_chbev_2stage_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int kd, - lapack_complex_float* ab, lapack_int ldab, - float* w, lapack_complex_float* z, - lapack_int ldz, lapack_complex_float* work, - lapack_int lwork, float* rwork ); -lapack_int LAPACKE_zhbev_2stage_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int kd, - lapack_complex_double* ab, lapack_int ldab, - double* w, lapack_complex_double* z, - lapack_int ldz, lapack_complex_double* work, - lapack_int lwork, double* rwork ); - -lapack_int LAPACKE_chbevd_2stage_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int kd, - lapack_complex_float* ab, lapack_int ldab, - float* w, lapack_complex_float* z, - lapack_int ldz, lapack_complex_float* work, - lapack_int lwork, float* rwork, - lapack_int lrwork, lapack_int* iwork, - lapack_int liwork ); -lapack_int LAPACKE_zhbevd_2stage_work( int matrix_layout, char jobz, char uplo, - lapack_int n, lapack_int kd, - lapack_complex_double* ab, lapack_int ldab, - double* w, lapack_complex_double* z, - lapack_int ldz, lapack_complex_double* work, - lapack_int lwork, double* rwork, - lapack_int lrwork, lapack_int* iwork, - lapack_int liwork ); - -lapack_int LAPACKE_chbevx_2stage_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, lapack_int kd, - lapack_complex_float* ab, lapack_int ldab, - lapack_complex_float* q, lapack_int ldq, - float vl, float vu, lapack_int il, - lapack_int iu, float abstol, lapack_int* m, - float* w, lapack_complex_float* z, - lapack_int ldz, lapack_complex_float* work, - lapack_int lwork, float* rwork, lapack_int* iwork, - lapack_int* ifail ); -lapack_int LAPACKE_zhbevx_2stage_work( int matrix_layout, char jobz, char range, - char uplo, lapack_int n, lapack_int kd, - lapack_complex_double* ab, lapack_int ldab, - lapack_complex_double* q, lapack_int ldq, - double vl, double vu, lapack_int il, - lapack_int iu, double abstol, lapack_int* m, - double* w, lapack_complex_double* z, - lapack_int ldz, lapack_complex_double* work, - lapack_int lwork, double* rwork, lapack_int* iwork, - lapack_int* ifail ); - -lapack_int LAPACKE_ssygv_2stage( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, float* a, lapack_int lda, - float* b, lapack_int ldb, float* w ); -lapack_int LAPACKE_dsygv_2stage( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, double* a, lapack_int lda, - double* b, lapack_int ldb, double* w ); -lapack_int LAPACKE_ssygv_2stage_work( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, float* a, - lapack_int lda, float* b, lapack_int ldb, - float* w, float* work, lapack_int lwork ); -lapack_int LAPACKE_dsygv_2stage_work( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, double* a, - lapack_int lda, double* b, lapack_int ldb, - double* w, double* work, lapack_int lwork ); - -lapack_int LAPACKE_chegv_2stage( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb, float* w ); -lapack_int LAPACKE_zhegv_2stage( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* b, - lapack_int ldb, double* w ); -lapack_int LAPACKE_chegv_2stage_work( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* b, - lapack_int ldb, float* w, - lapack_complex_float* work, lapack_int lwork, - float* rwork ); -lapack_int LAPACKE_zhegv_2stage_work( int matrix_layout, lapack_int itype, char jobz, - char uplo, lapack_int n, - lapack_complex_double* a, lapack_int lda, - lapack_complex_double* b, lapack_int ldb, - double* w, lapack_complex_double* work, - lapack_int lwork, double* rwork ); - -//LAPACK 3.8.0 -lapack_int LAPACKE_ssysv_aa_2stage( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, - float* tb, lapack_int ltb, lapack_int* ipiv, - lapack_int* ipiv2, float* b, lapack_int ldb ); -lapack_int LAPACKE_ssysv_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, - float* tb, lapack_int ltb, lapack_int* ipiv, - lapack_int* ipiv2, float* b, lapack_int ldb, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dsysv_aa_2stage( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - double* tb, lapack_int ltb, - lapack_int* ipiv, lapack_int* ipiv2, - double* b, lapack_int ldb ); -lapack_int LAPACKE_dsysv_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - double* tb, lapack_int ltb, - lapack_int* ipiv, lapack_int* ipiv2, - double* b, lapack_int ldb, - double* work, lapack_int lwork ); -lapack_int LAPACKE_csysv_aa_2stage( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_csysv_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zsysv_aa_2stage( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_zsysv_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_chesv_aa_2stage( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_chesv_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_float* b, lapack_int ldb, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zhesv_aa_2stage( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_zhesv_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_double* b, lapack_int ldb, - lapack_complex_double* work, lapack_int lwork ); - -lapack_int LAPACKE_ssytrf_aa_2stage( int matrix_layout, char uplo, lapack_int n, - float* a, lapack_int lda, - float* tb, lapack_int ltb, lapack_int* ipiv, - lapack_int* ipiv2 ); -lapack_int LAPACKE_ssytrf_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - float* a, lapack_int lda, - float* tb, lapack_int ltb, lapack_int* ipiv, - lapack_int* ipiv2, - float* work, lapack_int lwork ); -lapack_int LAPACKE_dsytrf_aa_2stage( int matrix_layout, char uplo, lapack_int n, - double* a, lapack_int lda, - double* tb, lapack_int ltb, - lapack_int* ipiv, lapack_int* ipiv2 ); -lapack_int LAPACKE_dsytrf_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - double* a, lapack_int lda, - double* tb, lapack_int ltb, - lapack_int* ipiv, lapack_int* ipiv2, - double* work, lapack_int lwork ); -lapack_int LAPACKE_csytrf_aa_2stage( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, - lapack_int lda, lapack_complex_float* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2 ); -lapack_int LAPACKE_csytrf_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, - lapack_int lda, lapack_complex_float* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zsytrf_aa_2stage( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, - lapack_int lda, lapack_complex_double* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2 ); -lapack_int LAPACKE_zsytrf_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, - lapack_int lda, lapack_complex_double* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_double* work, lapack_int lwork ); -lapack_int LAPACKE_chetrf_aa_2stage( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, - lapack_int lda, lapack_complex_float* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2 ); -lapack_int LAPACKE_chetrf_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_float* a, - lapack_int lda, lapack_complex_float* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_float* work, lapack_int lwork ); -lapack_int LAPACKE_zhetrf_aa_2stage( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, - lapack_int lda, lapack_complex_double* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2 ); -lapack_int LAPACKE_zhetrf_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - lapack_complex_double* a, - lapack_int lda, lapack_complex_double* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_double* work, lapack_int lwork ); - - -lapack_int LAPACKE_ssytrs_aa_2stage( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, - float* tb, lapack_int ltb, lapack_int* ipiv, - lapack_int* ipiv2, float* b, lapack_int ldb ); -lapack_int LAPACKE_ssytrs_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, float* a, lapack_int lda, - float* tb, lapack_int ltb, lapack_int* ipiv, - lapack_int* ipiv2, float* b, lapack_int ldb ); -lapack_int LAPACKE_dsytrs_aa_2stage( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - double* tb, lapack_int ltb, - lapack_int* ipiv, lapack_int* ipiv2, - double* b, lapack_int ldb ); -lapack_int LAPACKE_dsytrs_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, double* a, lapack_int lda, - double* tb, lapack_int ltb, - lapack_int* ipiv, lapack_int* ipiv2, - double* b, lapack_int ldb ); -lapack_int LAPACKE_csytrs_aa_2stage( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_csytrs_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zsytrs_aa_2stage( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_zsytrs_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_chetrs_aa_2stage( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_chetrs_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_float* b, lapack_int ldb ); -lapack_int LAPACKE_zhetrs_aa_2stage( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_double* b, lapack_int ldb ); -lapack_int LAPACKE_zhetrs_aa_2stage_work( int matrix_layout, char uplo, lapack_int n, - lapack_int nrhs, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* tb, - lapack_int ltb, lapack_int* ipiv, lapack_int* ipiv2, - lapack_complex_double* b, lapack_int ldb ); -//LAPACK 3.10.0 -lapack_int LAPACKE_sorhr_col( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nb, float* a, - lapack_int lda, float* t, - lapack_int ldt, float* d ); -lapack_int LAPACKE_sorhr_col_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nb, float* a, - lapack_int lda, float* t, - lapack_int ldt, float* d ); -lapack_int LAPACKE_dorhr_col( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nb, double* a, - lapack_int lda, double* t, - lapack_int ldt, double* d ); -lapack_int LAPACKE_dorhr_col_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nb, double* a, - lapack_int lda, double* t, - lapack_int ldt, double* d ); -lapack_int LAPACKE_cunhr_col( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nb, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* t, - lapack_int ldt, lapack_complex_float* d ); -lapack_int LAPACKE_cunhr_col_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nb, lapack_complex_float* a, - lapack_int lda, lapack_complex_float* t, - lapack_int ldt, lapack_complex_float* d ); -lapack_int LAPACKE_zunhr_col( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nb, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* t, - lapack_int ldt, lapack_complex_double* d ); -lapack_int LAPACKE_zunhr_col_work( int matrix_layout, lapack_int m, lapack_int n, - lapack_int nb, lapack_complex_double* a, - lapack_int lda, lapack_complex_double* t, - lapack_int ldt, lapack_complex_double* d ); - -/* APIs for set/get nancheck flags */ -void LAPACKE_set_nancheck( int flag ); -int LAPACKE_get_nancheck( void ); - -#ifdef __cplusplus -} -#endif /* __cplusplus */ - -#endif /* _LAPACKE_H_ */ diff --git a/test/openblas/lapacke_config.h b/test/openblas/lapacke_config.h deleted file mode 100644 index c64fc44..0000000 --- a/test/openblas/lapacke_config.h +++ /dev/null @@ -1,131 +0,0 @@ -/***************************************************************************** - Copyright (c) 2010, Intel Corp. - All rights reserved. - - Redistribution and use in source and binary forms, with or without - modification, are permitted provided that the following conditions are met: - - * Redistributions of source code must retain the above copyright notice, - this list of conditions and the following disclaimer. - * 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. - * Neither the name of Intel Corporation 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. -****************************************************************************** -* Contents: Native C interface to LAPACK -* Author: Intel Corporation -*****************************************************************************/ - -#ifndef _LAPACKE_CONFIG_H_ -#define _LAPACKE_CONFIG_H_ - -#ifdef __cplusplus -#if defined(LAPACK_COMPLEX_CPP) -#include -#endif -extern "C" { -#endif /* __cplusplus */ - -#include -#include -#include - -#ifndef lapack_int -#if defined(LAPACK_ILP64) -#define lapack_int int64_t -#else -#define lapack_int int32_t -#endif -#endif - -/* - * Integer format string - */ -#ifndef LAPACK_IFMT -#if defined(LAPACK_ILP64) -#define LAPACK_IFMT PRId64 -#else -#define LAPACK_IFMT PRId32 -#endif -#endif - -#ifndef lapack_logical -#define lapack_logical lapack_int -#endif - -#ifndef LAPACK_COMPLEX_CUSTOM - -#if defined(LAPACK_COMPLEX_STRUCTURE) - -typedef struct { float real, imag; } _lapack_complex_float; -typedef struct { double real, imag; } _lapack_complex_double; -#define lapack_complex_float _lapack_complex_float -#define lapack_complex_double _lapack_complex_double -#define lapack_complex_float_real(z) ((z).real) -#define lapack_complex_float_imag(z) ((z).imag) -#define lapack_complex_double_real(z) ((z).real) -#define lapack_complex_double_imag(z) ((z).imag) - -#elif defined(LAPACK_COMPLEX_C99) - -#include -#define lapack_complex_float float _Complex -#define lapack_complex_double double _Complex -#define lapack_complex_float_real(z) (creal(z)) -#define lapack_complex_float_imag(z) (cimag(z)) -#define lapack_complex_double_real(z) (creal(z)) -#define lapack_complex_double_imag(z) (cimag(z)) - -#elif defined(LAPACK_COMPLEX_CPP) - -#define lapack_complex_float std::complex -#define lapack_complex_double std::complex -#define lapack_complex_float_real(z) ((z).real()) -#define lapack_complex_float_imag(z) ((z).imag()) -#define lapack_complex_double_real(z) ((z).real()) -#define lapack_complex_double_imag(z) ((z).imag()) - -#else - -#include -#define lapack_complex_float float _Complex -#define lapack_complex_double double _Complex -#define lapack_complex_float_real(z) (creal(z)) -#define lapack_complex_float_imag(z) (cimag(z)) -#define lapack_complex_double_real(z) (creal(z)) -#define lapack_complex_double_imag(z) (cimag(z)) - -#endif - -lapack_complex_float lapack_make_complex_float( float re, float im ); -lapack_complex_double lapack_make_complex_double( double re, double im ); - -#endif - -#ifndef LAPACK_malloc -#define LAPACK_malloc( size ) malloc( size ) -#endif - -#ifndef LAPACK_free -#define LAPACK_free( p ) free( p ) -#endif - -#ifdef __cplusplus -} -#endif /* __cplusplus */ - -#endif /* _LAPACKE_CONFIG_H_ */ diff --git a/test/openblas/lapacke_mangling.h b/test/openblas/lapacke_mangling.h deleted file mode 100644 index 6211fd1..0000000 --- a/test/openblas/lapacke_mangling.h +++ /dev/null @@ -1,17 +0,0 @@ -#ifndef LAPACK_HEADER_INCLUDED -#define LAPACK_HEADER_INCLUDED - -#ifndef LAPACK_GLOBAL -#if defined(LAPACK_GLOBAL_PATTERN_LC) || defined(ADD_) -#define LAPACK_GLOBAL(lcname,UCNAME) lcname##_ -#elif defined(LAPACK_GLOBAL_PATTERN_UC) || defined(UPPER) -#define LAPACK_GLOBAL(lcname,UCNAME) UCNAME -#elif defined(LAPACK_GLOBAL_PATTERN_MC) || defined(NOCHANGE) -#define LAPACK_GLOBAL(lcname,UCNAME) lcname -#else -#define LAPACK_GLOBAL(lcname,UCNAME) lcname##_ -#endif -#endif - -#endif - diff --git a/test/openblas/lapacke_utils.h b/test/openblas/lapacke_utils.h deleted file mode 100644 index 332a502..0000000 --- a/test/openblas/lapacke_utils.h +++ /dev/null @@ -1,612 +0,0 @@ -/***************************************************************************** - Copyright (c) 2014, Intel Corp. - All rights reserved. - - Redistribution and use in source and binary forms, with or without - modification, are permitted provided that the following conditions are met: - - * Redistributions of source code must retain the above copyright notice, - this list of conditions and the following disclaimer. - * 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. - * Neither the name of Intel Corporation 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. -****************************************************************************** -* Contents: Native C interface to LAPACK utility functions -* Author: Intel Corporation -*****************************************************************************/ - -#ifndef _LAPACKE_UTILS_H_ -#define _LAPACKE_UTILS_H_ - -#include "lapacke.h" - -#ifdef __cplusplus -extern "C" { -#endif /* __cplusplus */ - -#ifndef ABS -#define ABS(x) (((x) < 0) ? -(x) : (x)) -#endif -#ifndef MAX -#define MAX(x,y) (((x) > (y)) ? (x) : (y)) -#endif -#ifndef MIN -#define MIN(x,y) (((x) < (y)) ? (x) : (y)) -#endif -#ifndef MAX3 -#define MAX3(x,y,z) (((x) > MAX(y,z)) ? (x) : MAX(y,z)) -#endif -#ifndef MIN3 -#define MIN3(x,y,z) (((x) < MIN(y,z)) ? (x) : MIN(y,z)) -#endif - -#define IS_S_NONZERO(x) ( (x) < 0 || (x) > 0 ) -#define IS_D_NONZERO(x) ( (x) < 0 || (x) > 0 ) -#define IS_C_NONZERO(x) ( IS_S_NONZERO(*((float*)&x)) || \ - IS_S_NONZERO(*(((float*)&x)+1)) ) -#define IS_Z_NONZERO(x) ( IS_D_NONZERO(*((double*)&x)) || \ - IS_D_NONZERO(*(((double*)&x)+1)) ) - -/* Error handler */ -void LAPACKE_xerbla( const char *name, lapack_int info ); - -/* Compare two chars (case-insensitive) */ -lapack_logical LAPACKE_lsame( char ca, char cb ) -#if defined __GNUC__ - __attribute__((const)) -#endif - ; - -/* Functions to convert column-major to row-major 2d arrays and vice versa. */ -void LAPACKE_cgb_trans( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, - const lapack_complex_float *in, lapack_int ldin, - lapack_complex_float *out, lapack_int ldout ); -void LAPACKE_cge_trans( int matrix_layout, lapack_int m, lapack_int n, - const lapack_complex_float* in, lapack_int ldin, - lapack_complex_float* out, lapack_int ldout ); -void LAPACKE_cgg_trans( int matrix_layout, lapack_int m, lapack_int n, - const lapack_complex_float* in, lapack_int ldin, - lapack_complex_float* out, lapack_int ldout ); -void LAPACKE_chb_trans( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, - const lapack_complex_float *in, lapack_int ldin, - lapack_complex_float *out, lapack_int ldout ); -void LAPACKE_che_trans( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float *in, lapack_int ldin, - lapack_complex_float *out, lapack_int ldout ); -void LAPACKE_chp_trans( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float *in, - lapack_complex_float *out ); -void LAPACKE_chs_trans( int matrix_layout, lapack_int n, - const lapack_complex_float *in, lapack_int ldin, - lapack_complex_float *out, lapack_int ldout ); -void LAPACKE_cpb_trans( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, - const lapack_complex_float *in, lapack_int ldin, - lapack_complex_float *out, lapack_int ldout ); -void LAPACKE_cpf_trans( int matrix_layout, char transr, char uplo, - lapack_int n, const lapack_complex_float *in, - lapack_complex_float *out ); -void LAPACKE_cpo_trans( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float *in, lapack_int ldin, - lapack_complex_float *out, lapack_int ldout ); -void LAPACKE_cpp_trans( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float *in, - lapack_complex_float *out ); -void LAPACKE_csp_trans( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float *in, - lapack_complex_float *out ); -void LAPACKE_csy_trans( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_float *in, lapack_int ldin, - lapack_complex_float *out, lapack_int ldout ); -void LAPACKE_ctb_trans( int matrix_layout, char uplo, char diag, - lapack_int n, lapack_int kd, - const lapack_complex_float *in, lapack_int ldin, - lapack_complex_float *out, lapack_int ldout ); -void LAPACKE_ctf_trans( int matrix_layout, char transr, char uplo, char diag, - lapack_int n, const lapack_complex_float *in, - lapack_complex_float *out ); -void LAPACKE_ctp_trans( int matrix_layout, char uplo, char diag, - lapack_int n, const lapack_complex_float *in, - lapack_complex_float *out ); -void LAPACKE_ctr_trans( int matrix_layout, char uplo, char diag, lapack_int n, - const lapack_complex_float *in, lapack_int ldin, - lapack_complex_float *out, lapack_int ldout ); -void LAPACKE_ctz_trans( int matrix_layout, char direct, char uplo, - char diag, lapack_int m, lapack_int n, - const lapack_complex_float *in, lapack_int ldin, - lapack_complex_float *out, lapack_int ldout ); - -void LAPACKE_dgb_trans( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, - const double *in, lapack_int ldin, - double *out, lapack_int ldout ); -void LAPACKE_dge_trans( int matrix_layout, lapack_int m, lapack_int n, - const double* in, lapack_int ldin, - double* out, lapack_int ldout ); -void LAPACKE_dgg_trans( int matrix_layout, lapack_int m, lapack_int n, - const double* in, lapack_int ldin, - double* out, lapack_int ldout ); -void LAPACKE_dhs_trans( int matrix_layout, lapack_int n, - const double *in, lapack_int ldin, - double *out, lapack_int ldout ); -void LAPACKE_dpb_trans( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, - const double *in, lapack_int ldin, - double *out, lapack_int ldout ); -void LAPACKE_dpf_trans( int matrix_layout, char transr, char uplo, - lapack_int n, const double *in, - double *out ); -void LAPACKE_dpo_trans( int matrix_layout, char uplo, lapack_int n, - const double *in, lapack_int ldin, - double *out, lapack_int ldout ); -void LAPACKE_dpp_trans( int matrix_layout, char uplo, lapack_int n, - const double *in, - double *out ); -void LAPACKE_dsb_trans( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, - const double *in, lapack_int ldin, - double *out, lapack_int ldout ); -void LAPACKE_dsp_trans( int matrix_layout, char uplo, lapack_int n, - const double *in, - double *out ); -void LAPACKE_dsy_trans( int matrix_layout, char uplo, lapack_int n, - const double *in, lapack_int ldin, - double *out, lapack_int ldout ); -void LAPACKE_dtb_trans( int matrix_layout, char uplo, char diag, - lapack_int n, lapack_int kd, - const double *in, lapack_int ldin, - double *out, lapack_int ldout ); -void LAPACKE_dtf_trans( int matrix_layout, char transr, char uplo, char diag, - lapack_int n, const double *in, - double *out ); -void LAPACKE_dtp_trans( int matrix_layout, char uplo, char diag, - lapack_int n, const double *in, - double *out ); -void LAPACKE_dtr_trans( int matrix_layout, char uplo, char diag, lapack_int n, - const double *in, lapack_int ldin, - double *out, lapack_int ldout ); -void LAPACKE_dtz_trans( int matrix_layout, char direct, char uplo, - char diag, lapack_int m, lapack_int n, - const double *in, lapack_int ldin, - double *out, lapack_int ldout ); - -void LAPACKE_sgb_trans( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, - const float *in, lapack_int ldin, - float *out, lapack_int ldout ); -void LAPACKE_sge_trans( int matrix_layout, lapack_int m, lapack_int n, - const float* in, lapack_int ldin, - float* out, lapack_int ldout ); -void LAPACKE_sgg_trans( int matrix_layout, lapack_int m, lapack_int n, - const float* in, lapack_int ldin, - float* out, lapack_int ldout ); -void LAPACKE_shs_trans( int matrix_layout, lapack_int n, - const float *in, lapack_int ldin, - float *out, lapack_int ldout ); -void LAPACKE_spb_trans( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, - const float *in, lapack_int ldin, - float *out, lapack_int ldout ); -void LAPACKE_spf_trans( int matrix_layout, char transr, char uplo, - lapack_int n, const float *in, - float *out ); -void LAPACKE_spo_trans( int matrix_layout, char uplo, lapack_int n, - const float *in, lapack_int ldin, - float *out, lapack_int ldout ); -void LAPACKE_spp_trans( int matrix_layout, char uplo, lapack_int n, - const float *in, - float *out ); -void LAPACKE_ssb_trans( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, - const float *in, lapack_int ldin, - float *out, lapack_int ldout ); -void LAPACKE_ssp_trans( int matrix_layout, char uplo, lapack_int n, - const float *in, - float *out ); -void LAPACKE_ssy_trans( int matrix_layout, char uplo, lapack_int n, - const float *in, lapack_int ldin, - float *out, lapack_int ldout ); -void LAPACKE_stb_trans( int matrix_layout, char uplo, char diag, - lapack_int n, lapack_int kd, - const float *in, lapack_int ldin, - float *out, lapack_int ldout ); -void LAPACKE_stf_trans( int matrix_layout, char transr, char uplo, char diag, - lapack_int n, const float *in, - float *out ); -void LAPACKE_stp_trans( int matrix_layout, char uplo, char diag, - lapack_int n, const float *in, - float *out ); -void LAPACKE_str_trans( int matrix_layout, char uplo, char diag, lapack_int n, - const float *in, lapack_int ldin, - float *out, lapack_int ldout ); -void LAPACKE_stz_trans( int matrix_layout, char direct, char uplo, - char diag, lapack_int m, lapack_int n, - const float *in, lapack_int ldin, - float *out, lapack_int ldout ); - -void LAPACKE_zgb_trans( int matrix_layout, lapack_int m, lapack_int n, - lapack_int kl, lapack_int ku, - const lapack_complex_double *in, lapack_int ldin, - lapack_complex_double *out, lapack_int ldout ); -void LAPACKE_zge_trans( int matrix_layout, lapack_int m, lapack_int n, - const lapack_complex_double* in, lapack_int ldin, - lapack_complex_double* out, lapack_int ldout ); -void LAPACKE_zgg_trans( int matrix_layout, lapack_int m, lapack_int n, - const lapack_complex_double* in, lapack_int ldin, - lapack_complex_double* out, lapack_int ldout ); -void LAPACKE_zhb_trans( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, - const lapack_complex_double *in, lapack_int ldin, - lapack_complex_double *out, lapack_int ldout ); -void LAPACKE_zhe_trans( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double *in, lapack_int ldin, - lapack_complex_double *out, lapack_int ldout ); -void LAPACKE_zhp_trans( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double *in, - lapack_complex_double *out ); -void LAPACKE_zhs_trans( int matrix_layout, lapack_int n, - const lapack_complex_double *in, lapack_int ldin, - lapack_complex_double *out, lapack_int ldout ); -void LAPACKE_zpb_trans( int matrix_layout, char uplo, lapack_int n, - lapack_int kd, - const lapack_complex_double *in, lapack_int ldin, - lapack_complex_double *out, lapack_int ldout ); -void LAPACKE_zpf_trans( int matrix_layout, char transr, char uplo, - lapack_int n, const lapack_complex_double *in, - lapack_complex_double *out ); -void LAPACKE_zpo_trans( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double *in, lapack_int ldin, - lapack_complex_double *out, lapack_int ldout ); -void LAPACKE_zpp_trans( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double *in, - lapack_complex_double *out ); -void LAPACKE_zsp_trans( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double *in, - lapack_complex_double *out ); -void LAPACKE_zsy_trans( int matrix_layout, char uplo, lapack_int n, - const lapack_complex_double *in, lapack_int ldin, - lapack_complex_double *out, lapack_int ldout ); -void LAPACKE_ztb_trans( int matrix_layout, char uplo, char diag, - lapack_int n, lapack_int kd, - const lapack_complex_double *in, lapack_int ldin, - lapack_complex_double *out, lapack_int ldout ); -void LAPACKE_ztf_trans( int matrix_layout, char transr, char uplo, char diag, - lapack_int n, const lapack_complex_double *in, - lapack_complex_double *out ); -void LAPACKE_ztp_trans( int matrix_layout, char uplo, char diag, - lapack_int n, const lapack_complex_double *in, - lapack_complex_double *out ); -void LAPACKE_ztr_trans( int matrix_layout, char uplo, char diag, lapack_int n, - const lapack_complex_double *in, lapack_int ldin, - lapack_complex_double *out, lapack_int ldout ); -void LAPACKE_ztz_trans( int matrix_layout, char direct, char uplo, - char diag, lapack_int m, lapack_int n, - const lapack_complex_double *in, lapack_int ldin, - lapack_complex_double *out, lapack_int ldout ); - -/* NaN checkers */ -#define LAPACK_SISNAN( x ) ( x != x ) -#define LAPACK_DISNAN( x ) ( x != x ) -#define LAPACK_CISNAN( x ) ( LAPACK_SISNAN(*((float*) &x)) || \ - LAPACK_SISNAN(*(((float*) &x)+1)) ) -#define LAPACK_ZISNAN( x ) ( LAPACK_DISNAN(*((double*)&x)) || \ - LAPACK_DISNAN(*(((double*)&x)+1)) ) - -/* NaN checkers for vectors */ -lapack_logical LAPACKE_c_nancheck( lapack_int n, - const lapack_complex_float *x, - lapack_int incx ); -lapack_logical LAPACKE_d_nancheck( lapack_int n, - const double *x, - lapack_int incx ); -lapack_logical LAPACKE_s_nancheck( lapack_int n, - const float *x, - lapack_int incx ); -lapack_logical LAPACKE_z_nancheck( lapack_int n, - const lapack_complex_double *x, - lapack_int incx ); -/* NaN checkers for matrices */ -lapack_logical LAPACKE_cgb_nancheck( int matrix_layout, lapack_int m, - lapack_int n, lapack_int kl, - lapack_int ku, - const lapack_complex_float *ab, - lapack_int ldab ); -lapack_logical LAPACKE_cge_nancheck( int matrix_layout, lapack_int m, - lapack_int n, - const lapack_complex_float *a, - lapack_int lda ); -lapack_logical LAPACKE_cgg_nancheck( int matrix_layout, lapack_int m, - lapack_int n, - const lapack_complex_float *a, - lapack_int lda ); -lapack_logical LAPACKE_cgt_nancheck( lapack_int n, - const lapack_complex_float *dl, - const lapack_complex_float *d, - const lapack_complex_float *du ); -lapack_logical LAPACKE_chb_nancheck( int matrix_layout, char uplo, - lapack_int n, lapack_int kd, - const lapack_complex_float* ab, - lapack_int ldab ); -lapack_logical LAPACKE_che_nancheck( int matrix_layout, char uplo, - lapack_int n, - const lapack_complex_float *a, - lapack_int lda ); -lapack_logical LAPACKE_chp_nancheck( lapack_int n, - const lapack_complex_float *ap ); -lapack_logical LAPACKE_chs_nancheck( int matrix_layout, lapack_int n, - const lapack_complex_float *a, - lapack_int lda ); -lapack_logical LAPACKE_cpb_nancheck( int matrix_layout, char uplo, - lapack_int n, lapack_int kd, - const lapack_complex_float* ab, - lapack_int ldab ); -lapack_logical LAPACKE_cpf_nancheck( lapack_int n, - const lapack_complex_float *a ); -lapack_logical LAPACKE_cpo_nancheck( int matrix_layout, char uplo, - lapack_int n, - const lapack_complex_float *a, - lapack_int lda ); -lapack_logical LAPACKE_cpp_nancheck( lapack_int n, - const lapack_complex_float *ap ); -lapack_logical LAPACKE_cpt_nancheck( lapack_int n, - const float *d, - const lapack_complex_float *e ); -lapack_logical LAPACKE_csp_nancheck( lapack_int n, - const lapack_complex_float *ap ); -lapack_logical LAPACKE_cst_nancheck( lapack_int n, - const lapack_complex_float *d, - const lapack_complex_float *e ); -lapack_logical LAPACKE_csy_nancheck( int matrix_layout, char uplo, - lapack_int n, - const lapack_complex_float *a, - lapack_int lda ); -lapack_logical LAPACKE_ctb_nancheck( int matrix_layout, char uplo, char diag, - lapack_int n, lapack_int kd, - const lapack_complex_float* ab, - lapack_int ldab ); -lapack_logical LAPACKE_ctf_nancheck( int matrix_layout, char transr, - char uplo, char diag, - lapack_int n, - const lapack_complex_float *a ); -lapack_logical LAPACKE_ctp_nancheck( int matrix_layout, char uplo, char diag, - lapack_int n, - const lapack_complex_float *ap ); -lapack_logical LAPACKE_ctr_nancheck( int matrix_layout, char uplo, char diag, - lapack_int n, - const lapack_complex_float *a, - lapack_int lda ); -lapack_logical LAPACKE_ctz_nancheck( int matrix_layout, char direct, char uplo, - char diag, lapack_int m, lapack_int n, - const lapack_complex_float *a, - lapack_int lda ); - -lapack_logical LAPACKE_dgb_nancheck( int matrix_layout, lapack_int m, - lapack_int n, lapack_int kl, - lapack_int ku, - const double *ab, - lapack_int ldab ); -lapack_logical LAPACKE_dge_nancheck( int matrix_layout, lapack_int m, - lapack_int n, - const double *a, - lapack_int lda ); -lapack_logical LAPACKE_dgg_nancheck( int matrix_layout, lapack_int m, - lapack_int n, - const double *a, - lapack_int lda ); -lapack_logical LAPACKE_dgt_nancheck( lapack_int n, - const double *dl, - const double *d, - const double *du ); -lapack_logical LAPACKE_dhs_nancheck( int matrix_layout, lapack_int n, - const double *a, - lapack_int lda ); -lapack_logical LAPACKE_dpb_nancheck( int matrix_layout, char uplo, - lapack_int n, lapack_int kd, - const double* ab, - lapack_int ldab ); -lapack_logical LAPACKE_dpf_nancheck( lapack_int n, - const double *a ); -lapack_logical LAPACKE_dpo_nancheck( int matrix_layout, char uplo, - lapack_int n, - const double *a, - lapack_int lda ); -lapack_logical LAPACKE_dpp_nancheck( lapack_int n, - const double *ap ); -lapack_logical LAPACKE_dpt_nancheck( lapack_int n, - const double *d, - const double *e ); -lapack_logical LAPACKE_dsb_nancheck( int matrix_layout, char uplo, - lapack_int n, lapack_int kd, - const double* ab, - lapack_int ldab ); -lapack_logical LAPACKE_dsp_nancheck( lapack_int n, - const double *ap ); -lapack_logical LAPACKE_dst_nancheck( lapack_int n, - const double *d, - const double *e ); -lapack_logical LAPACKE_dsy_nancheck( int matrix_layout, char uplo, - lapack_int n, - const double *a, - lapack_int lda ); -lapack_logical LAPACKE_dtb_nancheck( int matrix_layout, char uplo, char diag, - lapack_int n, lapack_int kd, - const double* ab, - lapack_int ldab ); -lapack_logical LAPACKE_dtf_nancheck( int matrix_layout, char transr, - char uplo, char diag, - lapack_int n, - const double *a ); -lapack_logical LAPACKE_dtp_nancheck( int matrix_layout, char uplo, char diag, - lapack_int n, - const double *ap ); -lapack_logical LAPACKE_dtr_nancheck( int matrix_layout, char uplo, char diag, - lapack_int n, - const double *a, - lapack_int lda ); -lapack_logical LAPACKE_dtz_nancheck( int matrix_layout, char direct, char uplo, - char diag, lapack_int m, lapack_int n, - const double *a, lapack_int lda ); - -lapack_logical LAPACKE_sgb_nancheck( int matrix_layout, lapack_int m, - lapack_int n, lapack_int kl, - lapack_int ku, - const float *ab, - lapack_int ldab ); -lapack_logical LAPACKE_sge_nancheck( int matrix_layout, lapack_int m, - lapack_int n, - const float *a, - lapack_int lda ); -lapack_logical LAPACKE_sgg_nancheck( int matrix_layout, lapack_int m, - lapack_int n, - const float *a, - lapack_int lda ); -lapack_logical LAPACKE_sgt_nancheck( lapack_int n, - const float *dl, - const float *d, - const float *du ); -lapack_logical LAPACKE_shs_nancheck( int matrix_layout, lapack_int n, - const float *a, - lapack_int lda ); -lapack_logical LAPACKE_spb_nancheck( int matrix_layout, char uplo, - lapack_int n, lapack_int kd, - const float* ab, - lapack_int ldab ); -lapack_logical LAPACKE_spf_nancheck( lapack_int n, - const float *a ); -lapack_logical LAPACKE_spo_nancheck( int matrix_layout, char uplo, - lapack_int n, - const float *a, - lapack_int lda ); -lapack_logical LAPACKE_spp_nancheck( lapack_int n, - const float *ap ); -lapack_logical LAPACKE_spt_nancheck( lapack_int n, - const float *d, - const float *e ); -lapack_logical LAPACKE_ssb_nancheck( int matrix_layout, char uplo, - lapack_int n, lapack_int kd, - const float* ab, - lapack_int ldab ); -lapack_logical LAPACKE_ssp_nancheck( lapack_int n, - const float *ap ); -lapack_logical LAPACKE_sst_nancheck( lapack_int n, - const float *d, - const float *e ); -lapack_logical LAPACKE_ssy_nancheck( int matrix_layout, char uplo, - lapack_int n, - const float *a, - lapack_int lda ); -lapack_logical LAPACKE_stb_nancheck( int matrix_layout, char uplo, char diag, - lapack_int n, lapack_int kd, - const float* ab, - lapack_int ldab ); -lapack_logical LAPACKE_stf_nancheck( int matrix_layout, char transr, - char uplo, char diag, - lapack_int n, - const float *a ); -lapack_logical LAPACKE_stp_nancheck( int matrix_layout, char uplo, char diag, - lapack_int n, - const float *ap ); -lapack_logical LAPACKE_str_nancheck( int matrix_layout, char uplo, char diag, - lapack_int n, - const float *a, - lapack_int lda ); -lapack_logical LAPACKE_stz_nancheck( int matrix_layout, char direct, char uplo, - char diag, lapack_int m, lapack_int n, - const float *a, lapack_int lda ); - -lapack_logical LAPACKE_zgb_nancheck( int matrix_layout, lapack_int m, - lapack_int n, lapack_int kl, - lapack_int ku, - const lapack_complex_double *ab, - lapack_int ldab ); -lapack_logical LAPACKE_zge_nancheck( int matrix_layout, lapack_int m, - lapack_int n, - const lapack_complex_double *a, - lapack_int lda ); -lapack_logical LAPACKE_zgg_nancheck( int matrix_layout, lapack_int m, - lapack_int n, - const lapack_complex_double *a, - lapack_int lda ); -lapack_logical LAPACKE_zgt_nancheck( lapack_int n, - const lapack_complex_double *dl, - const lapack_complex_double *d, - const lapack_complex_double *du ); -lapack_logical LAPACKE_zhb_nancheck( int matrix_layout, char uplo, - lapack_int n, lapack_int kd, - const lapack_complex_double* ab, - lapack_int ldab ); -lapack_logical LAPACKE_zhe_nancheck( int matrix_layout, char uplo, - lapack_int n, - const lapack_complex_double *a, - lapack_int lda ); -lapack_logical LAPACKE_zhp_nancheck( lapack_int n, - const lapack_complex_double *ap ); -lapack_logical LAPACKE_zhs_nancheck( int matrix_layout, lapack_int n, - const lapack_complex_double *a, - lapack_int lda ); -lapack_logical LAPACKE_zpb_nancheck( int matrix_layout, char uplo, - lapack_int n, lapack_int kd, - const lapack_complex_double* ab, - lapack_int ldab ); -lapack_logical LAPACKE_zpf_nancheck( lapack_int n, - const lapack_complex_double *a ); -lapack_logical LAPACKE_zpo_nancheck( int matrix_layout, char uplo, - lapack_int n, - const lapack_complex_double *a, - lapack_int lda ); -lapack_logical LAPACKE_zpp_nancheck( lapack_int n, - const lapack_complex_double *ap ); -lapack_logical LAPACKE_zpt_nancheck( lapack_int n, - const double *d, - const lapack_complex_double *e ); -lapack_logical LAPACKE_zsp_nancheck( lapack_int n, - const lapack_complex_double *ap ); -lapack_logical LAPACKE_zst_nancheck( lapack_int n, - const lapack_complex_double *d, - const lapack_complex_double *e ); -lapack_logical LAPACKE_zsy_nancheck( int matrix_layout, char uplo, - lapack_int n, - const lapack_complex_double *a, - lapack_int lda ); -lapack_logical LAPACKE_ztb_nancheck( int matrix_layout, char uplo, char diag, - lapack_int n, lapack_int kd, - const lapack_complex_double* ab, - lapack_int ldab ); -lapack_logical LAPACKE_ztf_nancheck( int matrix_layout, char transr, - char uplo, char diag, - lapack_int n, - const lapack_complex_double *a ); -lapack_logical LAPACKE_ztp_nancheck( int matrix_layout, char uplo, char diag, - lapack_int n, - const lapack_complex_double *ap ); -lapack_logical LAPACKE_ztr_nancheck( int matrix_layout, char uplo, char diag, - lapack_int n, - const lapack_complex_double *a, - lapack_int lda ); -lapack_logical LAPACKE_ztz_nancheck( int matrix_layout, char direct, char uplo, - char diag, lapack_int m, lapack_int n, - const lapack_complex_double *a, - lapack_int lda ); - -#ifdef __cplusplus -} -#endif /* __cplusplus */ - -#endif /* _LAPACKE_UTILS_H_ */ diff --git a/test/openblas/openblas_config.h b/test/openblas/openblas_config.h deleted file mode 100644 index 9c1387b..0000000 --- a/test/openblas/openblas_config.h +++ /dev/null @@ -1,135 +0,0 @@ -#ifndef OPENBLAS_CONFIG_H -#define OPENBLAS_CONFIG_H -#define OPENBLAS_OS_DARWIN 1 -#define OPENBLAS_ARCH_ARM64 1 -#define OPENBLAS_C_GCC 1 -#define OPENBLAS___64BIT__ 1 -#define OPENBLAS_FUNDERSCORE _ -#define OPENBLAS_HAVE_C11 1 -#define OPENBLAS_PTHREAD_CREATE_FUNC pthread_create -#define OPENBLAS_BUNDERSCORE _ -#define OPENBLAS_NEEDBUNDERSCORE 1 -#define OPENBLAS_VORTEX -#define OPENBLAS_L1_DATA_SIZE 32768 -#define OPENBLAS_L1_DATA_LINESIZE 64 -#define OPENBLAS_L2_SIZE 262144 -#define OPENBLAS_L2_LINESIZE 64 -#define OPENBLAS_DTB_DEFAULT_ENTRIES 64 -#define OPENBLAS_DTB_SIZE 4096 -#define OPENBLAS_L2_ASSOCIATIVE 32 -#define OPENBLAS_HAVE_VFPV4 -#define OPENBLAS_HAVE_VFPV3 -#define OPENBLAS_HAVE_VFP -#define OPENBLAS_HAVE_NEON -#define OPENBLAS_ARMV8 -#define OPENBLAS_CORE_VORTEX -#define OPENBLAS_CHAR_CORENAME "VORTEX" -#define OPENBLAS_GEMM_MULTITHREAD_THRESHOLD 4 -#define OPENBLAS_VERSION " OpenBLAS 0.3.24 " -/*This is only for "make install" target.*/ - -#if defined(OPENBLAS_OS_WINNT) || defined(OPENBLAS_OS_CYGWIN_NT) || defined(OPENBLAS_OS_INTERIX) -#define OPENBLAS_WINDOWS_ABI -#define OPENBLAS_OS_WINDOWS - -#ifdef DOUBLE -#define DOUBLE_DEFINED DOUBLE -#undef DOUBLE -#endif -#endif - -#ifdef OPENBLAS_NEEDBUNDERSCORE -#define BLASFUNC(FUNC) FUNC##_ -#else -#define BLASFUNC(FUNC) FUNC -#endif - -#ifdef OPENBLAS_QUAD_PRECISION -typedef struct { - unsigned long x[2]; -} xdouble; -#elif defined OPENBLAS_EXPRECISION -#define xdouble long double -#else -#define xdouble double -#endif - -#if defined(OPENBLAS_OS_WINDOWS) && defined(OPENBLAS___64BIT__) -typedef long long BLASLONG; -typedef unsigned long long BLASULONG; -#else -typedef long BLASLONG; -typedef unsigned long BLASULONG; -#endif - -#ifndef BFLOAT16 -#include -typedef uint16_t bfloat16; -#endif - -#ifdef OPENBLAS_USE64BITINT -typedef BLASLONG blasint; -#else -typedef int blasint; -#endif - -#if defined(XDOUBLE) || defined(DOUBLE) -#define FLOATRET FLOAT -#else -#ifdef NEED_F2CCONV -#define FLOATRET double -#else -#define FLOATRET float -#endif -#endif - -/* Inclusion of a standard header file is needed for definition of __STDC_* - predefined macros with some compilers (e.g. GCC 4.7 on Linux). This occurs - as a side effect of including either or . */ -#include - -/* C99 supports complex floating numbers natively, which GCC also offers as an - extension since version 3.0. If neither are available, use a compatible - structure as fallback (see Clause 6.2.5.13 of the C99 standard). */ -#if ((defined(__STDC_IEC_559_COMPLEX__) || __STDC_VERSION__ >= 199901L || \ - (__GNUC__ >= 3 && !defined(__cplusplus))) && !(defined(FORCE_OPENBLAS_COMPLEX_STRUCT))) && !defined(_MSC_VER) - #define OPENBLAS_COMPLEX_C99 -#ifndef __cplusplus - #include -#endif - typedef float _Complex openblas_complex_float; - typedef double _Complex openblas_complex_double; - typedef xdouble _Complex openblas_complex_xdouble; - #define openblas_make_complex_float(real, imag) ((real) + ((imag) * _Complex_I)) - #define openblas_make_complex_double(real, imag) ((real) + ((imag) * _Complex_I)) - #define openblas_make_complex_xdouble(real, imag) ((real) + ((imag) * _Complex_I)) - #define openblas_complex_float_real(z) (creal(z)) - #define openblas_complex_float_imag(z) (cimag(z)) - #define openblas_complex_double_real(z) (creal(z)) - #define openblas_complex_double_imag(z) (cimag(z)) - #define openblas_complex_xdouble_real(z) (creal(z)) - #define openblas_complex_xdouble_imag(z) (cimag(z)) -#else - #define OPENBLAS_COMPLEX_STRUCT - typedef struct { float real, imag; } openblas_complex_float; - typedef struct { double real, imag; } openblas_complex_double; - typedef struct { xdouble real, imag; } openblas_complex_xdouble; - #define openblas_make_complex_float(real, imag) {(real), (imag)} - #define openblas_make_complex_double(real, imag) {(real), (imag)} - #define openblas_make_complex_xdouble(real, imag) {(real), (imag)} - #define openblas_complex_float_real(z) ((z).real) - #define openblas_complex_float_imag(z) ((z).imag) - #define openblas_complex_double_real(z) ((z).real) - #define openblas_complex_double_imag(z) ((z).imag) - #define openblas_complex_xdouble_real(z) ((z).real) - #define openblas_complex_xdouble_imag(z) ((z).imag) -#endif - -/* Inclusion of Linux-specific header is needed for definition of cpu_set_t. */ -#ifdef OPENBLAS_OS_LINUX -#ifndef _GNU_SOURCE - #define _GNU_SOURCE -#endif -#include -#endif -#endif /* OPENBLAS_CONFIG_H */