Found via `codespell -q 3 -w -L ith,als,dum,nd,amin,nto,wis,ba -S ./relapack,./kernel,./lapack-netlib`tags/v0.3.7
| @@ -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,8 +588,8 @@ 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) | |||||
| * Patched LAPACK to fix bug 114, 117, 118. | |||||
| * Support outputting the CPU corename on runtime.(#407) | |||||
| * 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) | ||||
| x86/x86-64: | x86/x86-64: | ||||
| @@ -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,8 +150,8 @@ static unsigned int thread_timeout = (1U << (THREAD_TIMEOUT)); | |||||
| #ifdef MONITOR | #ifdef MONITOR | ||||
| /* Monitor is a function to see thread's status for every seconds. */ | |||||
| /* Usually it turns off and it's for debugging. */ | |||||
| /* Monitor is a function to see thread's status for every second. */ | |||||
| /* Usually it turns off and it's for debugging. */ | |||||
| static pthread_t monitor_thread; | static pthread_t monitor_thread; | ||||
| static int main_status[MAX_CPU_NUMBER]; | static int main_status[MAX_CPU_NUMBER]; | ||||
| @@ -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 | ||||
| @@ -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. | ||||
| * | * | ||||