Misc. typo fixes
Found via `codespell -q 3 -w -L ith,als,dum,nd,amin,nto,wis,ba -S ./relapack,./kernel,./lapack-netlib`
This commit is contained in:
parent
4f8143b098
commit
daf2fec12d
|
@ -74,7 +74,7 @@ ARMv8:
|
||||||
* ARMV8 builds with the BINARY=32 option are now automatically handled as ARMV7
|
* ARMV8 builds with the BINARY=32 option are now automatically handled as ARMV7
|
||||||
|
|
||||||
IBM Z:
|
IBM Z:
|
||||||
* optimized microkernels for single precicion BLAS1/2 functions have been added
|
* optimized microkernels for single precision BLAS1/2 functions have been added
|
||||||
for both Z13 and Z14
|
for both Z13 and Z14
|
||||||
|
|
||||||
====================================================================
|
====================================================================
|
||||||
|
@ -588,7 +588,7 @@ common:
|
||||||
s/d/c/zaxpby, s/d/c/zimatcopy, s/d/c/zomatcopy.
|
s/d/c/zaxpby, s/d/c/zimatcopy, s/d/c/zomatcopy.
|
||||||
* Added OPENBLAS_CORETYPE environment for dynamic_arch. (a86d34)
|
* Added OPENBLAS_CORETYPE environment for dynamic_arch. (a86d34)
|
||||||
* Added NO_AVX2 flag for old binutils. (#401)
|
* Added NO_AVX2 flag for old binutils. (#401)
|
||||||
* Support outputing the CPU corename on runtime.(#407)
|
* Support outputting the CPU corename on runtime.(#407)
|
||||||
* Patched LAPACK to fix bug 114, 117, 118.
|
* Patched LAPACK to fix bug 114, 117, 118.
|
||||||
(http://www.netlib.org/lapack/bug_list.html)
|
(http://www.netlib.org/lapack/bug_list.html)
|
||||||
* Disabled ?gemm3m for a work-around fix. (#400)
|
* Disabled ?gemm3m for a work-around fix. (#400)
|
||||||
|
@ -628,7 +628,7 @@ Version 0.2.9.rc1
|
||||||
13-Jan-2013
|
13-Jan-2013
|
||||||
common:
|
common:
|
||||||
* Update LAPACK to 3.5.0 version
|
* Update LAPACK to 3.5.0 version
|
||||||
* Fixed compatiable issues with Clang and Pathscale compilers.
|
* Fixed compatible issues with Clang and Pathscale compilers.
|
||||||
|
|
||||||
x86/x86-64:
|
x86/x86-64:
|
||||||
* Optimization on Intel Haswell.
|
* Optimization on Intel Haswell.
|
||||||
|
@ -705,7 +705,7 @@ Version 0.2.5
|
||||||
26-Nov-2012
|
26-Nov-2012
|
||||||
common:
|
common:
|
||||||
* Added NO_SHARED flag to disable generating the shared library.
|
* Added NO_SHARED flag to disable generating the shared library.
|
||||||
* Compile LAPACKE with ILP64 modle when INTERFACE64=1 (#158)
|
* Compile LAPACKE with ILP64 model when INTERFACE64=1 (#158)
|
||||||
* Export LAPACK 3.4.2 symbols in shared library. (#147)
|
* Export LAPACK 3.4.2 symbols in shared library. (#147)
|
||||||
* Only detect the number of physical CPU cores on Mac OSX. (#157)
|
* Only detect the number of physical CPU cores on Mac OSX. (#157)
|
||||||
* Fixed NetBSD build. (#155)
|
* Fixed NetBSD build. (#155)
|
||||||
|
@ -896,7 +896,7 @@ x86/x86_64:
|
||||||
* Fixed #28 a wrong result of dsdot on x86_64.
|
* Fixed #28 a wrong result of dsdot on x86_64.
|
||||||
* Fixed #32 a SEGFAULT bug of zdotc with gcc-4.6.
|
* Fixed #32 a SEGFAULT bug of zdotc with gcc-4.6.
|
||||||
* Fixed #33 ztrmm bug on Nehalem.
|
* Fixed #33 ztrmm bug on Nehalem.
|
||||||
* Work-around #27 the low performance axpy issue with small imput size & multithreads.
|
* Work-around #27 the low performance axpy issue with small input size & multithreads.
|
||||||
|
|
||||||
MIPS64:
|
MIPS64:
|
||||||
* Fixed #28 a wrong result of dsdot on Loongson3A/MIPS64.
|
* Fixed #28 a wrong result of dsdot on Loongson3A/MIPS64.
|
||||||
|
@ -919,7 +919,7 @@ common:
|
||||||
* Imported GotoBLAS2 1.13 BSD version
|
* Imported GotoBLAS2 1.13 BSD version
|
||||||
|
|
||||||
x86/x86_64:
|
x86/x86_64:
|
||||||
* On x86 32bits, fixed a bug in zdot_sse2.S line 191. This would casue
|
* On x86 32bits, fixed a bug in zdot_sse2.S line 191. This would cause
|
||||||
zdotu & zdotc failures. Instead, work-around it. (Refs issue #8 #9 on github)
|
zdotu & zdotc failures. Instead, work-around it. (Refs issue #8 #9 on github)
|
||||||
* Modified ?axpy functions to return same netlib BLAS results
|
* Modified ?axpy functions to return same netlib BLAS results
|
||||||
when incx==0 or incy==0 (Refs issue #7 on github)
|
when incx==0 or incy==0 (Refs issue #7 on github)
|
||||||
|
|
|
@ -181,17 +181,17 @@ NO_AFFINITY = 1
|
||||||
# time out to improve performance. This number should be from 4 to 30
|
# time out to improve performance. This number should be from 4 to 30
|
||||||
# which corresponds to (1 << n) cycles. For example, if you set to 26,
|
# which corresponds to (1 << n) cycles. For example, if you set to 26,
|
||||||
# thread will be running for (1 << 26) cycles(about 25ms on 3.0GHz
|
# thread will be running for (1 << 26) cycles(about 25ms on 3.0GHz
|
||||||
# system). Also you can control this mumber by THREAD_TIMEOUT
|
# system). Also you can control this number by THREAD_TIMEOUT
|
||||||
# CCOMMON_OPT += -DTHREAD_TIMEOUT=26
|
# CCOMMON_OPT += -DTHREAD_TIMEOUT=26
|
||||||
|
|
||||||
# Using special device driver for mapping physically contigous memory
|
# Using special device driver for mapping physically contiguous memory
|
||||||
# to the user space. If bigphysarea is enabled, it will use it.
|
# to the user space. If bigphysarea is enabled, it will use it.
|
||||||
# DEVICEDRIVER_ALLOCATION = 1
|
# DEVICEDRIVER_ALLOCATION = 1
|
||||||
|
|
||||||
# If you need to synchronize FP CSR between threads (for x86/x86_64 only).
|
# If you need to synchronize FP CSR between threads (for x86/x86_64 only).
|
||||||
# CONSISTENT_FPCSR = 1
|
# CONSISTENT_FPCSR = 1
|
||||||
|
|
||||||
# If any gemm arguement m, n or k is less or equal this threshold, gemm will be execute
|
# If any gemm argument m, n or k is less or equal this threshold, gemm will be execute
|
||||||
# with single thread. (Actually in recent versions this is a factor proportional to the
|
# with single thread. (Actually in recent versions this is a factor proportional to the
|
||||||
# number of floating point operations necessary for the given problem size, no longer
|
# number of floating point operations necessary for the given problem size, no longer
|
||||||
# an individual dimension). You can use this setting to avoid the overhead of multi-
|
# an individual dimension). You can use this setting to avoid the overhead of multi-
|
||||||
|
|
|
@ -133,7 +133,7 @@ Please read `GotoBLAS_01Readme.txt`.
|
||||||
|
|
||||||
#### PPC/PPC64
|
#### PPC/PPC64
|
||||||
|
|
||||||
- **POWER8**: Optmized Level-3 BLAS and some Level-1, only with `USE_OPENMP=1`
|
- **POWER8**: Optimized Level-3 BLAS and some Level-1, only with `USE_OPENMP=1`
|
||||||
|
|
||||||
#### IBM zEnterprise System
|
#### IBM zEnterprise System
|
||||||
|
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
# helper functions for the kernel CMakeLists.txt
|
# helper functions for the kernel CMakeLists.txt
|
||||||
|
|
||||||
|
|
||||||
# Set the default filenames for L1 objects. Most of these will be overriden by the appropriate KERNEL file.
|
# Set the default filenames for L1 objects. Most of these will be overridden by the appropriate KERNEL file.
|
||||||
macro(SetDefaultL1)
|
macro(SetDefaultL1)
|
||||||
set(SAMAXKERNEL amax.S)
|
set(SAMAXKERNEL amax.S)
|
||||||
set(DAMAXKERNEL amax.S)
|
set(DAMAXKERNEL amax.S)
|
||||||
|
|
|
@ -283,7 +283,7 @@ endif ()
|
||||||
|
|
||||||
set(KERNELDIR "${PROJECT_SOURCE_DIR}/kernel/${ARCH}")
|
set(KERNELDIR "${PROJECT_SOURCE_DIR}/kernel/${ARCH}")
|
||||||
|
|
||||||
# TODO: nead to convert these Makefiles
|
# TODO: need to convert these Makefiles
|
||||||
# include ${PROJECT_SOURCE_DIR}/cmake/${ARCH}.cmake
|
# include ${PROJECT_SOURCE_DIR}/cmake/${ARCH}.cmake
|
||||||
|
|
||||||
if (${CORE} STREQUAL "PPC440")
|
if (${CORE} STREQUAL "PPC440")
|
||||||
|
|
|
@ -89,7 +89,7 @@ function(AllCombinations list_in absent_codes_in)
|
||||||
set(CODES_OUT ${CODES_OUT} PARENT_SCOPE)
|
set(CODES_OUT ${CODES_OUT} PARENT_SCOPE)
|
||||||
endfunction ()
|
endfunction ()
|
||||||
|
|
||||||
# generates object files for each of the sources, using the BLAS naming scheme to pass the funciton name as a preprocessor definition
|
# generates object files for each of the sources, using the BLAS naming scheme to pass the function name as a preprocessor definition
|
||||||
# @param sources_in the source files to build from
|
# @param sources_in the source files to build from
|
||||||
# @param defines_in (optional) preprocessor definitions that will be applied to all objects
|
# @param defines_in (optional) preprocessor definitions that will be applied to all objects
|
||||||
# @param name_in (optional) if this is set this name will be used instead of the filename. Use a * to indicate where the float character should go, if no star the character will be prepended.
|
# @param name_in (optional) if this is set this name will be used instead of the filename. Use a * to indicate where the float character should go, if no star the character will be prepended.
|
||||||
|
|
|
@ -45,7 +45,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
||||||
* SIZE must be carefully chosen to be:
|
* SIZE must be carefully chosen to be:
|
||||||
* - as small as possible to maximize the number of stack allocation
|
* - as small as possible to maximize the number of stack allocation
|
||||||
* - large enough to support all architectures and kernel
|
* - large enough to support all architectures and kernel
|
||||||
* Chosing a too small SIZE will lead to a stack smashing.
|
* Choosing a SIZE too small will lead to a stack smashing.
|
||||||
*/
|
*/
|
||||||
#define STACK_ALLOC(SIZE, TYPE, BUFFER) \
|
#define STACK_ALLOC(SIZE, TYPE, BUFFER) \
|
||||||
/* make it volatile because some function (ex: dgemv_n.S) */ \
|
/* make it volatile because some function (ex: dgemv_n.S) */ \
|
||||||
|
|
|
@ -214,7 +214,7 @@ static __inline int blas_quickdivide(unsigned int x, unsigned int y){
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#if defined(PILEDRIVER) || defined(BULLDOZER) || defined(STEAMROLLER) || defined(EXCAVATOR)
|
#if defined(PILEDRIVER) || defined(BULLDOZER) || defined(STEAMROLLER) || defined(EXCAVATOR)
|
||||||
//Enable some optimazation for barcelona.
|
//Enable some optimization for barcelona.
|
||||||
#define BARCELONA_OPTIMIZATION
|
#define BARCELONA_OPTIMIZATION
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
|
@ -276,7 +276,7 @@ static __inline int blas_quickdivide(unsigned int x, unsigned int y){
|
||||||
#ifdef ASSEMBLER
|
#ifdef ASSEMBLER
|
||||||
|
|
||||||
#if defined(PILEDRIVER) || defined(BULLDOZER) || defined(STEAMROLLER) || defined(EXCAVATOR)
|
#if defined(PILEDRIVER) || defined(BULLDOZER) || defined(STEAMROLLER) || defined(EXCAVATOR)
|
||||||
//Enable some optimazation for barcelona.
|
//Enable some optimization for barcelona.
|
||||||
#define BARCELONA_OPTIMIZATION
|
#define BARCELONA_OPTIMIZATION
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
|
@ -577,7 +577,7 @@
|
||||||
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
|
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
|
||||||
* ************************* STEST1 *****************************
|
* ************************* STEST1 *****************************
|
||||||
*
|
*
|
||||||
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMODATE THE FORTRAN
|
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN
|
||||||
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
|
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
|
||||||
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
|
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
|
||||||
*
|
*
|
||||||
|
|
|
@ -653,7 +653,7 @@
|
||||||
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
|
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
|
||||||
* ************************* STEST1 *****************************
|
* ************************* STEST1 *****************************
|
||||||
*
|
*
|
||||||
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMODATE THE FORTRAN
|
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN
|
||||||
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
|
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
|
||||||
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
|
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
|
||||||
*
|
*
|
||||||
|
|
|
@ -653,7 +653,7 @@
|
||||||
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
|
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
|
||||||
* ************************* STEST1 *****************************
|
* ************************* STEST1 *****************************
|
||||||
*
|
*
|
||||||
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMODATE THE FORTRAN
|
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN
|
||||||
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
|
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
|
||||||
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
|
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
|
||||||
*
|
*
|
||||||
|
|
|
@ -577,7 +577,7 @@
|
||||||
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
|
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
|
||||||
* ************************* STEST1 *****************************
|
* ************************* STEST1 *****************************
|
||||||
*
|
*
|
||||||
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMODATE THE FORTRAN
|
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN
|
||||||
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
|
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
|
||||||
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
|
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
|
||||||
*
|
*
|
||||||
|
|
|
@ -109,7 +109,7 @@ extern unsigned int openblas_thread_timeout();
|
||||||
/* equal to "OMP_NUM_THREADS - 1" and thread only wakes up when */
|
/* equal to "OMP_NUM_THREADS - 1" and thread only wakes up when */
|
||||||
/* jobs is queued. */
|
/* jobs is queued. */
|
||||||
|
|
||||||
/* We need this grobal for cheking if initialization is finished. */
|
/* We need this global for checking if initialization is finished. */
|
||||||
int blas_server_avail __attribute__((aligned(ATTRIBUTE_SIZE))) = 0;
|
int blas_server_avail __attribute__((aligned(ATTRIBUTE_SIZE))) = 0;
|
||||||
|
|
||||||
/* Local Variables */
|
/* Local Variables */
|
||||||
|
@ -150,7 +150,7 @@ static unsigned int thread_timeout = (1U << (THREAD_TIMEOUT));
|
||||||
|
|
||||||
#ifdef MONITOR
|
#ifdef MONITOR
|
||||||
|
|
||||||
/* Monitor is a function to see thread's status for every seconds. */
|
/* Monitor is a function to see thread's status for every second. */
|
||||||
/* Usually it turns off and it's for debugging. */
|
/* Usually it turns off and it's for debugging. */
|
||||||
|
|
||||||
static pthread_t monitor_thread;
|
static pthread_t monitor_thread;
|
||||||
|
|
|
@ -50,7 +50,7 @@
|
||||||
|
|
||||||
/* This is a thread implementation for Win32 lazy implementation */
|
/* This is a thread implementation for Win32 lazy implementation */
|
||||||
|
|
||||||
/* Thread server common infomation */
|
/* Thread server common information */
|
||||||
typedef struct{
|
typedef struct{
|
||||||
CRITICAL_SECTION lock;
|
CRITICAL_SECTION lock;
|
||||||
HANDLE filled;
|
HANDLE filled;
|
||||||
|
@ -61,7 +61,7 @@ typedef struct{
|
||||||
|
|
||||||
} blas_pool_t;
|
} blas_pool_t;
|
||||||
|
|
||||||
/* We need this global for cheking if initialization is finished. */
|
/* We need this global for checking if initialization is finished. */
|
||||||
int blas_server_avail = 0;
|
int blas_server_avail = 0;
|
||||||
|
|
||||||
/* Local Variables */
|
/* Local Variables */
|
||||||
|
|
|
@ -765,7 +765,7 @@ int gotoblas_set_affinity(int pos) {
|
||||||
|
|
||||||
int mynode = 1;
|
int mynode = 1;
|
||||||
|
|
||||||
/* if number of threads is larger than inital condition */
|
/* if number of threads is larger than initial condition */
|
||||||
if (pos < 0) {
|
if (pos < 0) {
|
||||||
sched_setaffinity(0, sizeof(cpu_orig_mask), &cpu_orig_mask[0]);
|
sched_setaffinity(0, sizeof(cpu_orig_mask), &cpu_orig_mask[0]);
|
||||||
return 0;
|
return 0;
|
||||||
|
|
|
@ -2751,7 +2751,7 @@ void *blas_memory_alloc(int procpos){
|
||||||
|
|
||||||
#ifdef ALLOC_DEVICEDRIVER
|
#ifdef ALLOC_DEVICEDRIVER
|
||||||
if ((*func == alloc_devicedirver) && (map_address == (void *)-1)) {
|
if ((*func == alloc_devicedirver) && (map_address == (void *)-1)) {
|
||||||
fprintf(stderr, "OpenBLAS Warning ... Physically contigous allocation was failed.\n");
|
fprintf(stderr, "OpenBLAS Warning ... Physically contiguous allocation was failed.\n");
|
||||||
}
|
}
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
2
f_check
2
f_check
|
@ -125,7 +125,7 @@ if ($compiler eq "") {
|
||||||
$openmp = "-openmp";
|
$openmp = "-openmp";
|
||||||
}
|
}
|
||||||
|
|
||||||
# for embeded underscore name, e.g. zho_ge, it may append 2 underscores.
|
# for embedded underscore name, e.g. zho_ge, it may append 2 underscores.
|
||||||
$data = `$compiler -O2 -S ftest3.f > /dev/null 2>&1 && cat ftest3.s && rm -f ftest3.s`;
|
$data = `$compiler -O2 -S ftest3.f > /dev/null 2>&1 && cat ftest3.s && rm -f ftest3.s`;
|
||||||
if ($data =~ / zho_ge__/) {
|
if ($data =~ / zho_ge__/) {
|
||||||
$need2bu = 1;
|
$need2bu = 1;
|
||||||
|
|
|
@ -24,7 +24,7 @@ set(BLAS1_MANGLED_SOURCES
|
||||||
axpby.c
|
axpby.c
|
||||||
)
|
)
|
||||||
|
|
||||||
# TODO: USE_NETLIB_GEMV shoudl switch gemv.c to netlib/*gemv.f
|
# TODO: USE_NETLIB_GEMV should switch gemv.c to netlib/*gemv.f
|
||||||
# these all have 'z' sources for complex versions
|
# these all have 'z' sources for complex versions
|
||||||
set(BLAS2_SOURCES
|
set(BLAS2_SOURCES
|
||||||
gemv.c ger.c
|
gemv.c ger.c
|
||||||
|
|
|
@ -91,7 +91,7 @@ void CNAME(blasint n, FLOAT alpha, FLOAT *x, blasint incx, FLOAT *y, blasint inc
|
||||||
//disable multi-thread when incx==0 or incy==0
|
//disable multi-thread when incx==0 or incy==0
|
||||||
//In that case, the threads would be dependent.
|
//In that case, the threads would be dependent.
|
||||||
//
|
//
|
||||||
//Temporarily work-around the low performance issue with small imput size &
|
//Temporarily work-around the low performance issue with small input size &
|
||||||
//multithreads.
|
//multithreads.
|
||||||
if (incx == 0 || incy == 0 || n <= MULTI_THREAD_MINIMAL)
|
if (incx == 0 || incy == 0 || n <= MULTI_THREAD_MINIMAL)
|
||||||
nthreads = 1;
|
nthreads = 1;
|
||||||
|
|
|
@ -99,7 +99,7 @@ void CNAME(blasint n, FLOAT *ALPHA, FLOAT *x, blasint incx, FLOAT *y, blasint in
|
||||||
//disable multi-thread when incx==0 or incy==0
|
//disable multi-thread when incx==0 or incy==0
|
||||||
//In that case, the threads would be dependent.
|
//In that case, the threads would be dependent.
|
||||||
//
|
//
|
||||||
//Temporarily work-around the low performance issue with small imput size &
|
//Temporarily work-around the low performance issue with small input size &
|
||||||
//multithreads.
|
//multithreads.
|
||||||
if (incx == 0 || incy == 0 || n <= MULTI_THREAD_MINIMAL)
|
if (incx == 0 || incy == 0 || n <= MULTI_THREAD_MINIMAL)
|
||||||
nthreads = 1;
|
nthreads = 1;
|
||||||
|
|
|
@ -117,7 +117,7 @@
|
||||||
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
||||||
* Before entry, the incremented array X must contain the n
|
* Before entry, the incremented array X must contain the n
|
||||||
* element vector x. On exit, X is overwritten with the
|
* element vector x. On exit, X is overwritten with the
|
||||||
* tranformed vector x.
|
* transformed vector x.
|
||||||
*
|
*
|
||||||
* INCX - INTEGER.
|
* INCX - INTEGER.
|
||||||
* On entry, INCX specifies the increment for the elements of
|
* On entry, INCX specifies the increment for the elements of
|
||||||
|
|
|
@ -77,7 +77,7 @@
|
||||||
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
||||||
* Before entry, the incremented array X must contain the n
|
* Before entry, the incremented array X must contain the n
|
||||||
* element vector x. On exit, X is overwritten with the
|
* element vector x. On exit, X is overwritten with the
|
||||||
* tranformed vector x.
|
* transformed vector x.
|
||||||
*
|
*
|
||||||
* INCX - INTEGER.
|
* INCX - INTEGER.
|
||||||
* On entry, INCX specifies the increment for the elements of
|
* On entry, INCX specifies the increment for the elements of
|
||||||
|
|
|
@ -80,7 +80,7 @@
|
||||||
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
||||||
* Before entry, the incremented array X must contain the n
|
* Before entry, the incremented array X must contain the n
|
||||||
* element vector x. On exit, X is overwritten with the
|
* element vector x. On exit, X is overwritten with the
|
||||||
* tranformed vector x.
|
* transformed vector x.
|
||||||
*
|
*
|
||||||
* INCX - INTEGER.
|
* INCX - INTEGER.
|
||||||
* On entry, INCX specifies the increment for the elements of
|
* On entry, INCX specifies the increment for the elements of
|
||||||
|
|
|
@ -117,7 +117,7 @@
|
||||||
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
||||||
* Before entry, the incremented array X must contain the n
|
* Before entry, the incremented array X must contain the n
|
||||||
* element vector x. On exit, X is overwritten with the
|
* element vector x. On exit, X is overwritten with the
|
||||||
* tranformed vector x.
|
* transformed vector x.
|
||||||
*
|
*
|
||||||
* INCX - INTEGER.
|
* INCX - INTEGER.
|
||||||
* On entry, INCX specifies the increment for the elements of
|
* On entry, INCX specifies the increment for the elements of
|
||||||
|
|
|
@ -77,7 +77,7 @@
|
||||||
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
||||||
* Before entry, the incremented array X must contain the n
|
* Before entry, the incremented array X must contain the n
|
||||||
* element vector x. On exit, X is overwritten with the
|
* element vector x. On exit, X is overwritten with the
|
||||||
* tranformed vector x.
|
* transformed vector x.
|
||||||
*
|
*
|
||||||
* INCX - INTEGER.
|
* INCX - INTEGER.
|
||||||
* On entry, INCX specifies the increment for the elements of
|
* On entry, INCX specifies the increment for the elements of
|
||||||
|
|
|
@ -80,7 +80,7 @@
|
||||||
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
||||||
* Before entry, the incremented array X must contain the n
|
* Before entry, the incremented array X must contain the n
|
||||||
* element vector x. On exit, X is overwritten with the
|
* element vector x. On exit, X is overwritten with the
|
||||||
* tranformed vector x.
|
* transformed vector x.
|
||||||
*
|
*
|
||||||
* INCX - INTEGER.
|
* INCX - INTEGER.
|
||||||
* On entry, INCX specifies the increment for the elements of
|
* On entry, INCX specifies the increment for the elements of
|
||||||
|
|
|
@ -117,7 +117,7 @@
|
||||||
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
||||||
* Before entry, the incremented array X must contain the n
|
* Before entry, the incremented array X must contain the n
|
||||||
* element vector x. On exit, X is overwritten with the
|
* element vector x. On exit, X is overwritten with the
|
||||||
* tranformed vector x.
|
* transformed vector x.
|
||||||
*
|
*
|
||||||
* INCX - INTEGER.
|
* INCX - INTEGER.
|
||||||
* On entry, INCX specifies the increment for the elements of
|
* On entry, INCX specifies the increment for the elements of
|
||||||
|
|
|
@ -77,7 +77,7 @@
|
||||||
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
||||||
* Before entry, the incremented array X must contain the n
|
* Before entry, the incremented array X must contain the n
|
||||||
* element vector x. On exit, X is overwritten with the
|
* element vector x. On exit, X is overwritten with the
|
||||||
* tranformed vector x.
|
* transformed vector x.
|
||||||
*
|
*
|
||||||
* INCX - INTEGER.
|
* INCX - INTEGER.
|
||||||
* On entry, INCX specifies the increment for the elements of
|
* On entry, INCX specifies the increment for the elements of
|
||||||
|
|
|
@ -80,7 +80,7 @@
|
||||||
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
||||||
* Before entry, the incremented array X must contain the n
|
* Before entry, the incremented array X must contain the n
|
||||||
* element vector x. On exit, X is overwritten with the
|
* element vector x. On exit, X is overwritten with the
|
||||||
* tranformed vector x.
|
* transformed vector x.
|
||||||
*
|
*
|
||||||
* INCX - INTEGER.
|
* INCX - INTEGER.
|
||||||
* On entry, INCX specifies the increment for the elements of
|
* On entry, INCX specifies the increment for the elements of
|
||||||
|
|
|
@ -117,7 +117,7 @@
|
||||||
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
||||||
* Before entry, the incremented array X must contain the n
|
* Before entry, the incremented array X must contain the n
|
||||||
* element vector x. On exit, X is overwritten with the
|
* element vector x. On exit, X is overwritten with the
|
||||||
* tranformed vector x.
|
* transformed vector x.
|
||||||
*
|
*
|
||||||
* INCX - INTEGER.
|
* INCX - INTEGER.
|
||||||
* On entry, INCX specifies the increment for the elements of
|
* On entry, INCX specifies the increment for the elements of
|
||||||
|
|
|
@ -77,7 +77,7 @@
|
||||||
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
||||||
* Before entry, the incremented array X must contain the n
|
* Before entry, the incremented array X must contain the n
|
||||||
* element vector x. On exit, X is overwritten with the
|
* element vector x. On exit, X is overwritten with the
|
||||||
* tranformed vector x.
|
* transformed vector x.
|
||||||
*
|
*
|
||||||
* INCX - INTEGER.
|
* INCX - INTEGER.
|
||||||
* On entry, INCX specifies the increment for the elements of
|
* On entry, INCX specifies the increment for the elements of
|
||||||
|
|
|
@ -80,7 +80,7 @@
|
||||||
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
* ( 1 + ( n - 1 )*abs( INCX ) ).
|
||||||
* Before entry, the incremented array X must contain the n
|
* Before entry, the incremented array X must contain the n
|
||||||
* element vector x. On exit, X is overwritten with the
|
* element vector x. On exit, X is overwritten with the
|
||||||
* tranformed vector x.
|
* transformed vector x.
|
||||||
*
|
*
|
||||||
* INCX - INTEGER.
|
* INCX - INTEGER.
|
||||||
* On entry, INCX specifies the increment for the elements of
|
* On entry, INCX specifies the increment for the elements of
|
||||||
|
|
|
@ -576,7 +576,7 @@
|
||||||
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
|
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
|
||||||
* ************************* STEST1 *****************************
|
* ************************* STEST1 *****************************
|
||||||
*
|
*
|
||||||
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMODATE THE FORTRAN
|
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN
|
||||||
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
|
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
|
||||||
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
|
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
|
||||||
*
|
*
|
||||||
|
|
|
@ -991,7 +991,7 @@
|
||||||
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
|
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
|
||||||
* ************************* STEST1 *****************************
|
* ************************* STEST1 *****************************
|
||||||
*
|
*
|
||||||
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMODATE THE FORTRAN
|
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN
|
||||||
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
|
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
|
||||||
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
|
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
|
||||||
*
|
*
|
||||||
|
|
|
@ -946,7 +946,7 @@
|
||||||
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
|
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
|
||||||
* ************************* STEST1 *****************************
|
* ************************* STEST1 *****************************
|
||||||
*
|
*
|
||||||
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMODATE THE FORTRAN
|
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN
|
||||||
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
|
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
|
||||||
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
|
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
|
||||||
*
|
*
|
||||||
|
|
|
@ -576,7 +576,7 @@
|
||||||
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
|
SUBROUTINE STEST1(SCOMP1,STRUE1,SSIZE,SFAC)
|
||||||
* ************************* STEST1 *****************************
|
* ************************* STEST1 *****************************
|
||||||
*
|
*
|
||||||
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMODATE THE FORTRAN
|
* THIS IS AN INTERFACE SUBROUTINE TO ACCOMMODATE THE FORTRAN
|
||||||
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
|
* REQUIREMENT THAT WHEN A DUMMY ARGUMENT IS AN ARRAY, THE
|
||||||
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
|
* ACTUAL ARGUMENT MUST ALSO BE AN ARRAY OR AN ARRAY ELEMENT.
|
||||||
*
|
*
|
||||||
|
|
Loading…
Reference in New Issue