amd/blis
1
0
Fork 0
mirror of https://github.com/amd/blis.git synced 2026-04-19 23:28:52 +00:00
Code Issues Packages Projects Releases Wiki Activity

Migrated integer usage to stdint.h types.

Browse Source 
Details:
- Changed the way bli_type_defs.h defines integer types so that dim_t,
  inc_t, doff_t, etc. are all defined in terms of gint_t (general signed
  integer) or guint_t (general unsigned integer).
- Renamed Fortran types fchar and fint to f77_char and f77_int.
- Define f77_int as int64_t if a new configuration variable,
  BLIS_ENABLE_BLIS2BLAS_INT64, is defined, and int32_t otherwise.
  These types are defined in stdint.h, which is now included in blis.h.
- Renamed "complex" type in f2c files to "singlecomplex" and typedef'ed
  in terms of scomplex.
- Renamed "char" type in f2c files to "character" and typedef'ed in terms
  of char.
- Updated bla_amax() wrappers so that the return type is defined directly
  as f77_int, rather than letting the prototype-generating macro decide
  the type. This was the only use of GENTFUNC2I/GENTPROT2I-related macros,
  so I removed them. Also, changed the body of the wrapper so that a
  gint_t is passed into abmaxv, which is THEN typecast to an f77_int
  before returning the value.
- Updated f2c code that accessed .r and .i fields of complex and
  doublecomplex types so that they use .real and .imag instead (now that
  we are using scomplex and dcomplex).
This commit is contained in:
Field G. Van Zee
2013-07-08 15:20:34 -05:00
parent 3725013985
commit 4b7e7970f1
130 changed files with 2639 additions and 2636 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
config/clarksville/bli_config.h
View File

@@ -126,6 +126,10 @@
// Enable the BLAS compatibility layer?
#define BLIS_ENABLE_BLAS2BLIS
// Enable 64-bit integers in the BLAS compatibility layer? If disabled,
// these integers will be defined as 32-bit.
#define BLIS_ENABLE_BLAS2BLIS_INT64
// Fortran-77 name-mangling macros.
#define PASTEF77(ch1,name) ch1 ## name ## _
#define PASTEF772(ch1,ch2,name) ch1 ## ch2 ## name ## _

4
config/flame/bli_config.h
View File

@@ -126,6 +126,10 @@
// Enable the BLAS compatibility layer?
#define BLIS_ENABLE_BLAS2BLIS
// Enable 64-bit integers in the BLAS compatibility layer? If disabled,
// these integers will be defined as 32-bit.
#define BLIS_ENABLE_BLAS2BLIS_INT64
// Fortran-77 name-mangling macros.
#define PASTEF77(ch1,name) ch1 ## name ## _
#define PASTEF772(ch1,ch2,name) ch1 ## ch2 ## name ## _

4
config/reference/bli_config.h
View File

@@ -126,6 +126,10 @@
// Enable the BLAS compatibility layer?
#define BLIS_ENABLE_BLAS2BLIS
// Enable 64-bit integers in the BLAS compatibility layer? If disabled,
// these integers will be defined as 32-bit.
#define BLIS_ENABLE_BLAS2BLIS_INT64
// Fortran-77 name-mangling macros.
#define PASTEF77(ch1,name) ch1 ## name ## _
#define PASTEF772(ch1,ch2,name) ch1 ## ch2 ## name ## _

2
frame/base/bli_check.c
View File

@@ -36,7 +36,7 @@
// -- General stuff ------------------------------------------------------------
err_t bli_check_error_code_helper( int code, char* file, unsigned int line )
err_t bli_check_error_code_helper( gint_t code, char* file, guint_t line )
{
if ( code == BLIS_SUCCESS ) return code;

2
frame/base/bli_check.h
View File

@@ -33,7 +33,7 @@
*/
err_t bli_check_error_code_helper( int code, char* file, unsigned int line );
err_t bli_check_error_code_helper( gint_t code, char* file, guint_t line );
err_t bli_check_valid_error_level( errlev_t level );

6
frame/base/bli_error.c
View File

@@ -66,7 +66,7 @@ bool_t bli_error_checking_is_enabled()
return bli_error_checking_level() != BLIS_NO_ERROR_CHECKING;
}
char* bli_error_string_for_code( int code )
char* bli_error_string_for_code( gint_t code )
{
return bli_error_string[-code];
}
@@ -78,10 +78,10 @@ void bli_abort( void )
abort();
}
void bli_print_msg( char* str, char* file, unsigned int line )
void bli_print_msg( char* str, char* file, guint_t line )
{
fprintf( stderr, "\n" );
fprintf( stderr, "libblis: %s (line %d):\n", file, line );
fprintf( stderr, "libblis: %s (line %u):\n", file, line );
fprintf( stderr, "libblis: %s\n", str );
fflush( stderr );
}

4
frame/base/bli_error.h
View File

@@ -38,10 +38,10 @@ errlev_t bli_error_checking_level_set( errlev_t new_level );
bool_t bli_error_checking_is_enabled( void );
char* bli_error_string_for_code( int code );
char* bli_error_string_for_code( gint_t code );
void bli_abort( void );
void bli_print_msg( char* str, char* file, unsigned int line );
void bli_print_msg( char* str, char* file, guint_t line );
void bli_error_msgs_init( void );

4
frame/base/bli_mem.c
View File

@@ -146,7 +146,7 @@ void bli_mem_acquire_m( siz_t req_size,
pool_t* pool;
void** block_ptrs;
void* block;
int i;
gint_t i;
if ( buf_type == BLIS_BUFFER_FOR_GEN_USE )
@@ -239,7 +239,7 @@ void bli_mem_release( mem_t* mem )
pool_t* pool;
void** block_ptrs;
void* block;
int i;
gint_t i;
// Extract the address of the memory block we are trying to
// release.

34
frame/base/bli_obj.c
View File

@@ -274,7 +274,7 @@ void bli_obj_free( obj_t* obj )
void bli_obj_create_const( double value, obj_t* obj )
{
int* temp_i;
gint_t* temp_i;
float* temp_s;
double* temp_d;
scomplex* temp_c;
@@ -291,18 +291,18 @@ void bli_obj_create_const( double value, obj_t* obj )
temp_z = bli_obj_buffer_for_const( BLIS_DCOMPLEX, *obj );
temp_i = bli_obj_buffer_for_const( BLIS_INT, *obj );
*temp_s = ( float ) value;
*temp_d = value;
temp_c->real = ( float ) value;
temp_c->imag = ( float ) 0.0;
temp_z->real = value;
temp_z->imag = 0.0;
*temp_i = ( int ) value;
*temp_s = ( float ) value;
*temp_d = value;
temp_c->real = ( float ) value;
temp_c->imag = ( float ) 0.0;
temp_z->real = value;
temp_z->imag = 0.0;
*temp_i = ( gint_t ) value;
}
void bli_obj_create_const_copy_of( obj_t* a, obj_t* b )
{
int* temp_i;
gint_t* temp_i;
float* temp_s;
double* temp_d;
scomplex* temp_c;
@@ -348,13 +348,13 @@ void bli_obj_create_const_copy_of( obj_t* a, obj_t* b )
bli_check_error_code( BLIS_NOT_YET_IMPLEMENTED );
}
*temp_s = ( float ) value.real;
*temp_d = value.real;
temp_c->real = ( float ) value.real;
temp_c->imag = ( float ) value.imag;
temp_z->real = value.real;
temp_z->imag = value.imag;
*temp_i = ( int ) value.real;
*temp_s = ( float ) value.real;
*temp_d = value.real;
temp_c->real = ( float ) value.real;
temp_c->imag = ( float ) value.imag;
temp_z->real = value.real;
temp_z->imag = value.imag;
*temp_i = ( gint_t ) value.real;
}
void bli_adjust_strides( dim_t m,
@@ -432,7 +432,7 @@ static siz_t dt_sizes[6] =
sizeof( scomplex ),
sizeof( double ),
sizeof( dcomplex ),
sizeof( int ),
sizeof( gint_t ),
BLIS_CONSTANT_SIZE
};

11
frame/base/noopt/bli_dlamch.c
View File

@@ -6,6 +6,7 @@
#ifdef __cplusplus
extern "C" {
#endif
#include "blis.h"
#include "bli_f2c.h"
#include "stdio.h"
@@ -46,7 +47,7 @@ double bli_pow_di(doublereal *ap, integer *bp)
return pow;
}
doublereal bli_dlamch(char *cmach, ftnlen cmach_len)
doublereal bli_dlamch(character *cmach, ftnlen cmach_len)
{
/* Initialized data */
@@ -66,7 +67,7 @@ doublereal bli_dlamch(char *cmach, ftnlen cmach_len)
static integer imin, imax;
static logical lrnd;
static doublereal rmin, rmax, t, rmach;
extern logical bli_lsame(char *, char *, ftnlen, ftnlen);
extern logical bli_lsame(character *, character *, ftnlen, ftnlen);
static doublereal small, sfmin;
extern /* Subroutine */ int bli_dlamc2(integer *, integer *, logical *,
doublereal *, integer *, doublereal *, integer *, doublereal *);
@@ -411,7 +412,7 @@ L30:
static logical iwarn = FALSE_;
/* Format strings */
static char fmt_9999[] = "(//\002 WARNING. The value EMIN may be incorre\
static character fmt_9999[] = "(//\002 WARNING. The value EMIN may be incorre\
ct:-\002,\002 EMIN = \002,i8,/\002 If, after inspection, the value EMIN loo\
ks\002,\002 acceptable please comment out \002,/\002 the IF block as marked \
within the code of routine\002,\002 DLAMC2,\002,/\002 otherwise supply EMIN \
@@ -423,7 +424,7 @@ explicitly.\002,/)";
/* Builtin functions */
double bli_pow_di(doublereal *, integer *);
//integer s_wsfe(cilist *), do_fio(integer *, char *, ftnlen), e_wsfe();
//integer s_wsfe(cilist *), do_fio(integer *, character *, ftnlen), e_wsfe();
/* Local variables */
static logical ieee;
@@ -665,7 +666,7 @@ L10:
first = TRUE_;
/*
s_wsfe(&io___58);
do_fio(&c__1, (char *)&lemin, (ftnlen)sizeof(integer));
do_fio(&c__1, (character *)&lemin, (ftnlen)sizeof(integer));
e_wsfe();
*/
printf( "%s", fmt_9999 );

2
frame/base/noopt/bli_dlamch.h
View File

@@ -32,4 +32,4 @@
*/
doublereal bli_dlamch( char* cmach, ftnlen cmach_len );
doublereal bli_dlamch( character* cmach, ftnlen cmach_len );

3
frame/base/noopt/bli_lsame.c
View File

@@ -6,9 +6,10 @@
#ifdef __cplusplus
extern "C" {
#endif
#include "blis.h"
#include "bli_f2c.h"
logical bli_lsame(char *ca, char *cb, ftnlen ca_len, ftnlen cb_len)
logical bli_lsame(character *ca, character *cb, ftnlen ca_len, ftnlen cb_len)
{
/* System generated locals */
logical ret_val;

2
frame/base/noopt/bli_lsame.h
View File

@@ -32,4 +32,4 @@
*/
logical bli_lsame( char* ca, char* cb, ftnlen ca_len, ftnlen cb_len );
logical bli_lsame( character* ca, character* cb, ftnlen ca_len, ftnlen cb_len );

11
frame/base/noopt/bli_slamch.c
View File

@@ -6,6 +6,7 @@
#ifdef __cplusplus
extern "C" {
#endif
#include "blis.h"
#include "bli_f2c.h"
#include "stdio.h"
@@ -46,7 +47,7 @@ double bli_pow_ri(real *ap, integer *bp)
return pow;
}
real bli_slamch(char *cmach, ftnlen cmach_len)
real bli_slamch(character *cmach, ftnlen cmach_len)
{
/* Initialized data */
@@ -66,7 +67,7 @@ real bli_slamch(char *cmach, ftnlen cmach_len)
static integer imin, imax;
static logical lrnd;
static real rmin, rmax, t, rmach;
extern logical bli_lsame(char *, char *, ftnlen, ftnlen);
extern logical bli_lsame(character *, character *, ftnlen, ftnlen);
static real small, sfmin;
extern /* Subroutine */ int bli_slamc2(integer *, integer *, logical *, real
*, integer *, real *, integer *, real *);
@@ -408,7 +409,7 @@ L30:
static logical iwarn = FALSE_;
/* Format strings */
static char fmt_9999[] = "(//\002 WARNING. The value EMIN may be incorre\
static character fmt_9999[] = "(//\002 WARNING. The value EMIN may be incorre\
ct:-\002,\002 EMIN = \002,i8,/\002 If, after inspection, the value EMIN loo\
ks\002,\002 acceptable please comment out \002,/\002 the IF block as marked \
within the code of routine\002,\002 SLAMC2,\002,/\002 otherwise supply EMIN \
@@ -420,7 +421,7 @@ explicitly.\002,/)";
/* Builtin functions */
double bli_pow_ri(real *, integer *);
//integer s_wsfe(cilist *), do_fio(integer *, char *, ftnlen), e_wsfe();
//integer s_wsfe(cilist *), do_fio(integer *, character *, ftnlen), e_wsfe();
/* Local variables */
static logical ieee;
@@ -661,7 +662,7 @@ L10:
first = TRUE_;
/*
s_wsfe(&io___58);
do_fio(&c__1, (char *)&lemin, (ftnlen)sizeof(integer));
do_fio(&c__1, (character *)&lemin, (ftnlen)sizeof(integer));
e_wsfe();
*/
printf( "%s", fmt_9999 );

2
frame/base/noopt/bli_slamch.h
View File

@@ -32,4 +32,4 @@
*/
real bli_slamch( char* cmach, ftnlen cmach_len );
real bli_slamch( character* cmach, ftnlen cmach_len );

20
frame/compat/attic/bla_gbmv.c
View File

@@ -42,16 +42,16 @@
#define GENTFUNC( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* transa, \
fint* m, \
fint* n, \
fint* kl, \
fint* ku, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* x, fint* incx, \
ftype* beta, \
ftype* y, fint* incy \
f77_char* transa, \
f77_int* m, \
f77_int* n, \
f77_int* kl, \
f77_int* ku, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx, \
ftype* beta, \
ftype* y, f77_int* incy \
) \
{ \
trans_t blis_transa; \

20
frame/compat/attic/bla_gbmv.h
View File

@@ -40,16 +40,16 @@
#define GENTPROT( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* transa, \
fint* m, \
fint* n, \
fint* kl, \
fint* ku, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* x, fint* incx, \
ftype* beta, \
ftype* y, fint* incy \
f77_char* transa, \
f77_int* m, \
f77_int* n, \
f77_int* kl, \
f77_int* ku, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx, \
ftype* beta, \
ftype* y, f77_int* incy \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

16
frame/compat/attic/bla_hbmv.c
View File

@@ -42,14 +42,14 @@
#define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
fint* k, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* x, fint* incx, \
ftype* beta, \
ftype* y, fint* incy \
f77_char* uploa, \
f77_int* m, \
f77_int* k, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx, \
ftype* beta, \
ftype* y, f77_int* incy \
) \
{ \
uplo_t blis_uploa; \

16
frame/compat/attic/bla_hbmv.h
View File

@@ -40,14 +40,14 @@
#define GENTPROTCO( ftype, ftype_r, ch, chr, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
fint* k, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* x, fint* incx, \
ftype* beta, \
ftype* y, fint* incy \
f77_char* uploa, \
f77_int* m, \
f77_int* k, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx, \
ftype* beta, \
ftype* y, f77_int* incy \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

14
frame/compat/attic/bla_hpmv.c
View File

@@ -42,13 +42,13 @@
#define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
ftype* alpha, \
ftype* a, \
ftype* x, fint* incx, \
ftype* beta, \
ftype* y, fint* incy \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* a, \
ftype* x, f77_int* incx, \
ftype* beta, \
ftype* y, f77_int* incy \
) \
{ \
uplo_t blis_uploa; \

14
frame/compat/attic/bla_hpmv.h
View File

@@ -40,13 +40,13 @@
#define GENTPROTCO( ftype, ftype_r, ch, chr, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
ftype* alpha, \
ftype* a, \
ftype* x, fint* incx, \
ftype* beta, \
ftype* y, fint* incy \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* a, \
ftype* x, f77_int* incx, \
ftype* beta, \
ftype* y, f77_int* incy \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

6
frame/compat/attic/bla_hpr.c
View File

@@ -42,10 +42,10 @@
#define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
f77_char* uploa, \
f77_int* m, \
ftype_r* alpha, \
ftype* x, fint* incx, \
ftype* x, f77_int* incx, \
ftype* a \
) \
{ \

6
frame/compat/attic/bla_hpr.h
View File

@@ -40,10 +40,10 @@
#define GENTPROTCO( ftype, ftype_r, ch, chr, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
f77_char* uploa, \
f77_int* m, \
ftype_r* alpha, \
ftype* x, fint* incx, \
ftype* x, f77_int* incx, \
ftype* a \
);

8
frame/compat/attic/bla_hpr2.c
View File

@@ -42,11 +42,11 @@
#define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* x, fint* incx, \
ftype* y, fint* incy, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy, \
ftype* a \
) \
{ \

8
frame/compat/attic/bla_hpr2.h
View File

@@ -40,11 +40,11 @@
#define GENTPROTCO( ftype, ftype_r, ch, chr, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* x, fint* incx, \
ftype* y, fint* incy, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy, \
ftype* a \
);

16
frame/compat/attic/bla_sbmv.c
View File

@@ -42,14 +42,14 @@
#define GENTFUNCRO( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
fint* k, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* x, fint* incx, \
ftype* beta, \
ftype* y, fint* incy \
f77_char* uploa, \
f77_int* m, \
f77_int* k, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx, \
ftype* beta, \
ftype* y, f77_int* incy \
) \
{ \
uplo_t blis_uploa; \

16
frame/compat/attic/bla_sbmv.h
View File

@@ -40,14 +40,14 @@
#define GENTPROTRO( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
fint* k, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* x, fint* incx, \
ftype* beta, \
ftype* y, fint* incy \
f77_char* uploa, \
f77_int* m, \
f77_int* k, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx, \
ftype* beta, \
ftype* y, f77_int* incy \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

14
frame/compat/attic/bla_spmv.c
View File

@@ -42,13 +42,13 @@
#define GENTFUNCRO( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
ftype* alpha, \
ftype* a, \
ftype* x, fint* incx, \
ftype* beta, \
ftype* y, fint* incy \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* a, \
ftype* x, f77_int* incx, \
ftype* beta, \
ftype* y, f77_int* incy \
) \
{ \
uplo_t blis_uploa; \

14
frame/compat/attic/bla_spmv.h
View File

@@ -40,13 +40,13 @@
#define GENTPROTRO( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
ftype* alpha, \
ftype* a, \
ftype* x, fint* incx, \
ftype* beta, \
ftype* y, fint* incy \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* a, \
ftype* x, f77_int* incx, \
ftype* beta, \
ftype* y, f77_int* incy \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

10
frame/compat/attic/bla_spr.c
View File

@@ -42,11 +42,11 @@
#define GENTFUNCRO( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
ftype* alpha, \
ftype* x, fint* incx, \
ftype* a \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* x, f77_int* incx, \
ftype* a \
) \
{ \
uplo_t blis_uploa; \

10
frame/compat/attic/bla_spr.h
View File

@@ -40,11 +40,11 @@
#define GENTPROTRO( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
ftype* alpha, \
ftype* x, fint* incx, \
ftype* a \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* x, f77_int* incx, \
ftype* a \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

8
frame/compat/attic/bla_spr2.c
View File

@@ -42,11 +42,11 @@
#define GENTFUNCRO( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* x, fint* incx, \
ftype* y, fint* incy, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy, \
ftype* a \
) \
{ \

8
frame/compat/attic/bla_spr2.h
View File

@@ -40,11 +40,11 @@
#define GENTPROTRO( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* x, fint* incx, \
ftype* y, fint* incy, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy, \
ftype* a \
);

14
frame/compat/attic/bla_tbmv.c
View File

@@ -42,13 +42,13 @@
#define GENTFUNC( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fchar* transa, \
fchar* diaga, \
fint* m, \
fint* k, \
ftype* a, fint* lda, \
ftype* x, fint* incx \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
f77_int* k, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx \
) \
{ \
uplo_t blis_uploa; \

14
frame/compat/attic/bla_tbmv.h
View File

@@ -40,13 +40,13 @@
#define GENTPROT( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fchar* transa, \
fchar* diaga, \
fint* m, \
fint* k, \
ftype* a, fint* lda, \
ftype* x, fint* incx \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
f77_int* k, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

14
frame/compat/attic/bla_tbsv.c
View File

@@ -42,13 +42,13 @@
#define GENTFUNC( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fchar* transa, \
fchar* diaga, \
fint* m, \
fint* k, \
ftype* a, fint* lda, \
ftype* x, fint* incx \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
f77_int* k, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx \
) \
{ \
uplo_t blis_uploa; \

14
frame/compat/attic/bla_tbsv.h
View File

@@ -40,13 +40,13 @@
#define GENTPROT( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fchar* transa, \
fchar* diaga, \
fint* m, \
fint* k, \
ftype* a, fint* lda, \
ftype* x, fint* incx \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
f77_int* k, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

12
frame/compat/attic/bla_tpmv.c
View File

@@ -42,12 +42,12 @@
#define GENTFUNC( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fchar* transa, \
fchar* diaga, \
fint* m, \
ftype* a, \
ftype* x, fint* incx \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
ftype* a, \
ftype* x, f77_int* incx \
) \
{ \
uplo_t blis_uploa; \

12
frame/compat/attic/bla_tpmv.h
View File

@@ -40,12 +40,12 @@
#define GENTPROT( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fchar* transa, \
fchar* diaga, \
fint* m, \
ftype* a, \
ftype* x, fint* incx \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
ftype* a, \
ftype* x, f77_int* incx \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

12
frame/compat/attic/bla_tpsv.c
View File

@@ -42,12 +42,12 @@
#define GENTFUNC( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fchar* transa, \
fchar* diaga, \
fint* m, \
ftype* a, \
ftype* x, fint* incx \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
ftype* a, \
ftype* x, f77_int* incx \
) \
{ \
uplo_t blis_uploa; \

12
frame/compat/attic/bla_tpsv.h
View File

@@ -40,12 +40,12 @@
#define GENTPROT( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fchar* transa, \
fchar* diaga, \
fint* m, \
ftype* a, \
ftype* x, fint* incx \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
ftype* a, \
ftype* x, f77_int* incx \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

23
frame/compat/bla_amax.c
View File

@@ -38,18 +38,19 @@
//
// Define BLAS-to-BLIS interfaces.
//
#undef GENTFUNC2I
#define GENTFUNC2I( ftype_x, ftype_i, chx, chi, blasname, blisname ) \
#undef GENTFUNC
#define GENTFUNC( ftype_x, chx, blasname, blisname ) \
\
ftype_i PASTEF772(chi,chx,blasname)( \
fint* n, \
ftype_x* x, fint* incx \
) \
f77_int PASTEF772(i,chx,blasname)( \
f77_int* n, \
ftype_x* x, f77_int* incx \
) \
{ \
dim_t n0; \
ftype_x* x0; \
inc_t incx0; \
ftype_i index; \
gint_t bli_index; \
f77_int f77_index; \
\
/* Convert negative values of n to zero. */ \
bli_convert_blas_dim1( *n, n0 ); \
@@ -61,16 +62,16 @@ ftype_i PASTEF772(chi,chx,blasname)( \
/* Call BLIS interface. */ \
PASTEMAC(chx,abmaxv)( n0, \
x0, incx0, \
&index ); \
&bli_index ); \
\
/* Convert zero-based BLIS (C) index to one-based BLAS (Fortran)
index. */ \
index++; \
f77_index = bli_index + 1; \
\
return index; \
return f77_index; \
}
#ifdef BLIS_ENABLE_BLAS2BLIS
INSERT_GENTFUNC2I_BLAS( amax, abmaxv )
INSERT_GENTFUNC_BLAS( amax, abmaxv )
#endif

14
frame/compat/bla_amax.h
View File

@@ -36,15 +36,15 @@
//
// Prototype BLAS-to-BLIS interfaces.
//
#undef GENTPROT2I
#define GENTPROT2I( ftype_x, ftype_i, chx, chi, blasname ) \
#undef GENTPROT
#define GENTPROT( ftype_x, chx, blasname ) \
\
ftype_i PASTEF772(chi,chx,blasname)( \
fint* n, \
ftype_x* x, fint* incx \
); \
f77_int PASTEF772(i,chx,blasname)( \
f77_int* n, \
ftype_x* x, f77_int* incx \
); \
#ifdef BLIS_ENABLE_BLAS2BLIS
INSERT_GENTPROT2I_BLAS( amax )
INSERT_GENTPROT_BLAS( amax )
#endif

4
frame/compat/bla_asum.c
View File

@@ -42,8 +42,8 @@
#define GENTFUNCR2( ftype_x, ftype_r, chx, chr, blasname, blisname ) \
\
ftype_r PASTEF772(chr,chx,blasname)( \
fint* n, \
ftype_x* x, fint* incx \
f77_int* n, \
ftype_x* x, f77_int* incx \
) \
{ \
dim_t n0; \

4
frame/compat/bla_asum.h
View File

@@ -40,8 +40,8 @@
#define GENTPROTR2( ftype_x, ftype_r, chx, chr, blasname ) \
\
ftype_r PASTEF772(chr,chx,blasname)( \
fint* n, \
ftype_x* x, fint* incx \
f77_int* n, \
ftype_x* x, f77_int* incx \
); \
#ifdef BLIS_ENABLE_BLAS2BLIS

8
frame/compat/bla_axpy.c
View File

@@ -42,10 +42,10 @@
#define GENTFUNC( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fint* n, \
ftype* alpha, \
ftype* x, fint* incx, \
ftype* y, fint* incy \
f77_int* n, \
ftype* alpha, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy \
) \
{ \
dim_t n0; \

8
frame/compat/bla_axpy.h
View File

@@ -40,10 +40,10 @@
#define GENTPROT( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fint* n, \
ftype* alpha, \
ftype* x, fint* incx, \
ftype* y, fint* incy \
f77_int* n, \
ftype* alpha, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

6
frame/compat/bla_copy.c
View File

@@ -42,9 +42,9 @@
#define GENTFUNC( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fint* n, \
ftype* x, fint* incx, \
ftype* y, fint* incy \
f77_int* n, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy \
) \
{ \
dim_t n0; \

6
frame/compat/bla_copy.h
View File

@@ -40,9 +40,9 @@
#define GENTPROT( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fint* n, \
ftype* x, fint* incx, \
ftype* y, fint* incy \
f77_int* n, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

18
frame/compat/bla_dot.c
View File

@@ -42,9 +42,9 @@
#define GENTFUNCDOT( ftype, chxy, chc, blis_conjx, blasname, blisname ) \
\
ftype PASTEF772(chxy,blasname,chc)( \
fint* n, \
ftype* x, fint* incx, \
ftype* y, fint* incy \
f77_int* n, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy \
) \
{ \
dim_t n0; \
@@ -81,9 +81,9 @@ INSERT_GENTFUNCDOT_BLAS( dot, DOTV_KERNEL )
// Input vectors stored in single precision, computed in double precision,
// with result returned in single precision.
float PASTEF77(sd,sdot)( fint* n,
float* x, fint* incx,
float* y, fint* incy
float PASTEF77(sd,sdot)( f77_int* n,
float* x, f77_int* incx,
float* y, f77_int* incy
)
{
bli_check_error_code( BLIS_NOT_YET_IMPLEMENTED );
@@ -93,9 +93,9 @@ float PASTEF77(sd,sdot)( fint* n,
// Input vectors stored in single precision, computed in double precision,
// with result returned in double precision.
double PASTEF77(d,sdot)( fint* n,
float* x, fint* incx,
float* y, fint* incy
double PASTEF77(d,sdot)( f77_int* n,
float* x, f77_int* incx,
float* y, f77_int* incy
)
{
bli_check_error_code( BLIS_NOT_YET_IMPLEMENTED );

18
frame/compat/bla_dot.h
View File

@@ -40,9 +40,9 @@
#define GENTPROTDOT( ftype, chxy, chc, blasname ) \
\
ftype PASTEF772(chxy,blasname,chc)( \
fint* n, \
ftype* x, fint* incx, \
ftype* y, fint* incy \
f77_int* n, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy \
);
#ifdef BLIS_ENABLE_BLAS2BLIS
@@ -51,13 +51,13 @@ INSERT_GENTPROTDOT_BLAS( dot )
// -- "Black sheep" dot product function prototypes --
float PASTEF77(sd,sdot)( fint* n,
float* x, fint* incx,
float* y, fint* incy
float PASTEF77(sd,sdot)( f77_int* n,
float* x, f77_int* incx,
float* y, f77_int* incy
);
double PASTEF77(d,sdot)( fint* n,
float* x, fint* incx,
float* y, fint* incy
double PASTEF77(d,sdot)( f77_int* n,
float* x, f77_int* incx,
float* y, f77_int* incy
);
#endif

20
frame/compat/bla_gemm.c
View File

@@ -42,16 +42,16 @@
#define GENTFUNC( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* transa, \
fchar* transb, \
fint* m, \
fint* n, \
fint* k, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* b, fint* ldb, \
ftype* beta, \
ftype* c, fint* ldc \
f77_char* transa, \
f77_char* transb, \
f77_int* m, \
f77_int* n, \
f77_int* k, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb, \
ftype* beta, \
ftype* c, f77_int* ldc \
) \
{ \
trans_t blis_transa; \

20
frame/compat/bla_gemm.h
View File

@@ -40,16 +40,16 @@
#define GENTPROT( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* transa, \
fchar* transb, \
fint* m, \
fint* n, \
fint* k, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* b, fint* ldb, \
ftype* beta, \
ftype* c, fint* ldc \
f77_char* transa, \
f77_char* transb, \
f77_int* m, \
f77_int* n, \
f77_int* k, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb, \
ftype* beta, \
ftype* c, f77_int* ldc \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

16
frame/compat/bla_gemv.c
View File

@@ -42,14 +42,14 @@
#define GENTFUNC( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* transa, \
fint* m, \
fint* n, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* x, fint* incx, \
ftype* beta, \
ftype* y, fint* incy \
f77_char* transa, \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx, \
ftype* beta, \
ftype* y, f77_int* incy \
) \
{ \
trans_t blis_transa; \

16
frame/compat/bla_gemv.h
View File

@@ -40,14 +40,14 @@
#define GENTPROT( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* transa, \
fint* m, \
fint* n, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* x, fint* incx, \
ftype* beta, \
ftype* y, fint* incy \
f77_char* transa, \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx, \
ftype* beta, \
ftype* y, f77_int* incy \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

12
frame/compat/bla_ger.c
View File

@@ -42,12 +42,12 @@
#define GENTFUNCDOT( ftype, chxy, chc, blis_conjy, blasname, blisname ) \
\
void PASTEF772(chxy,blasname,chc)( \
fint* m, \
fint* n, \
ftype* alpha, \
ftype* x, fint* incx, \
ftype* y, fint* incy, \
ftype* a, fint* lda \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy, \
ftype* a, f77_int* lda \
) \
{ \
dim_t m0, n0; \

12
frame/compat/bla_ger.h
View File

@@ -40,12 +40,12 @@
#define GENTPROTDOT( ftype, chxy, chc, blasname ) \
\
void PASTEF772(chxy,blasname,chc)( \
fint* m, \
fint* n, \
ftype* alpha, \
ftype* x, fint* incx, \
ftype* y, fint* incy, \
ftype* a, fint* lda \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy, \
ftype* a, f77_int* lda \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

18
frame/compat/bla_hemm.c
View File

@@ -42,15 +42,15 @@
#define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* side, \
fchar* uploa, \
fint* m, \
fint* n, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* b, fint* ldb, \
ftype* beta, \
ftype* c, fint* ldc \
f77_char* side, \
f77_char* uploa, \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb, \
ftype* beta, \
ftype* c, f77_int* ldc \
) \
{ \
side_t blis_side; \

18
frame/compat/bla_hemm.h
View File

@@ -40,15 +40,15 @@
#define GENTPROTCO( ftype, ftype_r, ch, chr, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* side, \
fchar* uploa, \
fint* m, \
fint* n, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* b, fint* ldb, \
ftype* beta, \
ftype* c, fint* ldc \
f77_char* side, \
f77_char* uploa, \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb, \
ftype* beta, \
ftype* c, f77_int* ldc \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

14
frame/compat/bla_hemv.c
View File

@@ -42,13 +42,13 @@
#define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* x, fint* incx, \
ftype* beta, \
ftype* y, fint* incy \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx, \
ftype* beta, \
ftype* y, f77_int* incy \
) \
{ \
uplo_t blis_uploa; \

14
frame/compat/bla_hemv.h
View File

@@ -40,13 +40,13 @@
#define GENTPROTCO( ftype, ftype_r, ch, chr, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* x, fint* incx, \
ftype* beta, \
ftype* y, fint* incy \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx, \
ftype* beta, \
ftype* y, f77_int* incy \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

8
frame/compat/bla_her.c
View File

@@ -42,11 +42,11 @@
#define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
f77_char* uploa, \
f77_int* m, \
ftype_r* alpha, \
ftype* x, fint* incx, \
ftype* a, fint* lda \
ftype* x, f77_int* incx, \
ftype* a, f77_int* lda \
) \
{ \
uplo_t blis_uploa; \

8
frame/compat/bla_her.h
View File

@@ -40,11 +40,11 @@
#define GENTPROTCO( ftype, ftype_r, ch, chr, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
f77_char* uploa, \
f77_int* m, \
ftype_r* alpha, \
ftype* x, fint* incx, \
ftype* a, fint* lda \
ftype* x, f77_int* incx, \
ftype* a, f77_int* lda \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

10
frame/compat/bla_her2.c
View File

@@ -42,12 +42,12 @@
#define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* x, fint* incx, \
ftype* y, fint* incy, \
ftype* a, fint* lda \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy, \
ftype* a, f77_int* lda \
) \
{ \
uplo_t blis_uploa; \

10
frame/compat/bla_her2.h
View File

@@ -40,12 +40,12 @@
#define GENTPROTCO( ftype, ftype_r, ch, chr, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* x, fint* incx, \
ftype* y, fint* incy, \
ftype* a, fint* lda \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy, \
ftype* a, f77_int* lda \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

14
frame/compat/bla_her2k.c
View File

@@ -42,15 +42,15 @@
#define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploc, \
fchar* transa, \
fint* m, \
fint* k, \
f77_char* uploc, \
f77_char* transa, \
f77_int* m, \
f77_int* k, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* b, fint* ldb, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb, \
ftype_r* beta, \
ftype* c, fint* ldc \
ftype* c, f77_int* ldc \
) \
{ \
uplo_t blis_uploc; \

14
frame/compat/bla_her2k.h
View File

@@ -40,15 +40,15 @@
#define GENTPROTCO( ftype, ftype_r, ch, chr, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploc, \
fchar* transa, \
fint* m, \
fint* k, \
f77_char* uploc, \
f77_char* transa, \
f77_int* m, \
f77_int* k, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* b, fint* ldb, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb, \
ftype_r* beta, \
ftype* c, fint* ldc \
ftype* c, f77_int* ldc \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

12
frame/compat/bla_herk.c
View File

@@ -42,14 +42,14 @@
#define GENTFUNCCO( ftype, ftype_r, ch, chr, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploc, \
fchar* transa, \
fint* m, \
fint* k, \
f77_char* uploc, \
f77_char* transa, \
f77_int* m, \
f77_int* k, \
ftype_r* alpha, \
ftype* a, fint* lda, \
ftype* a, f77_int* lda, \
ftype_r* beta, \
ftype* c, fint* ldc \
ftype* c, f77_int* ldc \
) \
{ \
uplo_t blis_uploc; \

12
frame/compat/bla_herk.h
View File

@@ -40,14 +40,14 @@
#define GENTPROTCO( ftype, ftype_r, ch, chr, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploc, \
fchar* transa, \
fint* m, \
fint* k, \
f77_char* uploc, \
f77_char* transa, \
f77_int* m, \
f77_int* k, \
ftype_r* alpha, \
ftype* a, fint* lda, \
ftype* a, f77_int* lda, \
ftype_r* beta, \
ftype* c, fint* ldc \
ftype* c, f77_int* ldc \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

4
frame/compat/bla_nrm2.c
View File

@@ -42,8 +42,8 @@
#define GENTFUNCR2( ftype_x, ftype_r, chx, chr, blasname, blisname ) \
\
ftype_r PASTEF772(chr,chx,blasname)( \
fint* n, \
ftype_x* x, fint* incx \
f77_int* n, \
ftype_x* x, f77_int* incx \
) \
{ \
dim_t n0; \

4
frame/compat/bla_nrm2.h
View File

@@ -40,8 +40,8 @@
#define GENTPROTR2( ftype_x, ftype_r, chx, chr, blasname ) \
\
ftype_r PASTEF772(chr,chx,blasname)( \
fint* n, \
ftype_x* x, fint* incx \
f77_int* n, \
ftype_x* x, f77_int* incx \
); \
#ifdef BLIS_ENABLE_BLAS2BLIS

6
frame/compat/bla_rot.c
View File

@@ -42,9 +42,9 @@
#define GENTFUNCR2( ftype_xy, ftype_r, chxy, chr, blasname, blisname ) \
\
void PASTEF772(chxy,chr,blasname)( \
fint* n, \
ftype_xy* x, fint* incx, \
ftype_xy* y, fint* incy, \
f77_int* n, \
ftype_xy* x, f77_int* incx, \
ftype_xy* y, f77_int* incy, \
ftype_r* c, \
ftype_r* s \
) \

6
frame/compat/bla_rot.h
View File

@@ -40,9 +40,9 @@
#define GENTPROTR2( ftype_xy, ftype_r, chxy, chr, blasname ) \
\
void PASTEF772(chxy,chr,blasname)( \
fint* n, \
ftype_xy* x, fint* incx, \
ftype_xy* y, fint* incy, \
f77_int* n, \
ftype_xy* x, f77_int* incx, \
ftype_xy* y, f77_int* incy, \
ftype_r* c, \
ftype_r* s \
);

8
frame/compat/bla_rotm.c
View File

@@ -42,10 +42,10 @@
#define GENTFUNCRO( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fint* n, \
ftype* x, fint* incx, \
ftype* y, fint* incy, \
ftype* dparam \
f77_int* n, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy, \
ftype* dparam \
) \
{ \
dim_t n0; \

8
frame/compat/bla_rotm.h
View File

@@ -40,10 +40,10 @@
#define GENTPROTRO( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fint* n, \
ftype* x, fint* incx, \
ftype* y, fint* incy, \
ftype* dparam \
f77_int* n, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy, \
ftype* dparam \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

6
frame/compat/bla_scal.c
View File

@@ -42,9 +42,9 @@
#define GENTFUNCSCAL( ftype_a, ftype_x, cha, chx, blasname, blisname ) \
\
void PASTEF772(chx,cha,blasname)( \
fint* n, \
ftype_a* alpha, \
ftype_x* x, fint* incx \
f77_int* n, \
ftype_a* alpha, \
ftype_x* x, f77_int* incx \
) \
{ \
dim_t n0; \

6
frame/compat/bla_scal.h
View File

@@ -40,9 +40,9 @@
#define GENTPROTSCAL( ftype_a, ftype_x, cha, chx, blasname ) \
\
void PASTEF772(chx,cha,blasname)( \
fint* n, \
ftype_a* alpha, \
ftype_x* x, fint* incx \
f77_int* n, \
ftype_a* alpha, \
ftype_x* x, f77_int* incx \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

6
frame/compat/bla_swap.c
View File

@@ -42,9 +42,9 @@
#define GENTFUNC( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fint* n, \
ftype* x, fint* incx, \
ftype* y, fint* incy \
f77_int* n, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy \
) \
{ \
dim_t n0; \

6
frame/compat/bla_swap.h
View File

@@ -40,9 +40,9 @@
#define GENTPROT( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fint* n, \
ftype* x, fint* incx, \
ftype* y, fint* incy \
f77_int* n, \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

18
frame/compat/bla_symm.c
View File

@@ -42,15 +42,15 @@
#define GENTFUNC( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* side, \
fchar* uploa, \
fint* m, \
fint* n, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* b, fint* ldb, \
ftype* beta, \
ftype* c, fint* ldc \
f77_char* side, \
f77_char* uploa, \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb, \
ftype* beta, \
ftype* c, f77_int* ldc \
) \
{ \
side_t blis_side; \

18
frame/compat/bla_symm.h
View File

@@ -40,15 +40,15 @@
#define GENTPROT( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* side, \
fchar* uploa, \
fint* m, \
fint* n, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* b, fint* ldb, \
ftype* beta, \
ftype* c, fint* ldc \
f77_char* side, \
f77_char* uploa, \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb, \
ftype* beta, \
ftype* c, f77_int* ldc \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

14
frame/compat/bla_symv.c
View File

@@ -42,13 +42,13 @@
#define GENTFUNCRO( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* x, fint* incx, \
ftype* beta, \
ftype* y, fint* incy \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx, \
ftype* beta, \
ftype* y, f77_int* incy \
) \
{ \
uplo_t blis_uploa; \

14
frame/compat/bla_symv.h
View File

@@ -40,13 +40,13 @@
#define GENTPROTRO( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* x, fint* incx, \
ftype* beta, \
ftype* y, fint* incy \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx, \
ftype* beta, \
ftype* y, f77_int* incy \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

10
frame/compat/bla_syr.c
View File

@@ -42,11 +42,11 @@
#define GENTFUNCRO( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
ftype* alpha, \
ftype* x, fint* incx, \
ftype* a, fint* lda \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* x, f77_int* incx, \
ftype* a, f77_int* lda \
) \
{ \
uplo_t blis_uploa; \

10
frame/compat/bla_syr.h
View File

@@ -40,11 +40,11 @@
#define GENTPROTRO( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
ftype* alpha, \
ftype* x, fint* incx, \
ftype* a, fint* lda \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* x, f77_int* incx, \
ftype* a, f77_int* lda \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

10
frame/compat/bla_syr2.c
View File

@@ -42,12 +42,12 @@
#define GENTFUNCRO( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* x, fint* incx, \
ftype* y, fint* incy, \
ftype* a, fint* lda \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy, \
ftype* a, f77_int* lda \
) \
{ \
uplo_t blis_uploa; \

10
frame/compat/bla_syr2.h
View File

@@ -40,12 +40,12 @@
#define GENTPROTRO( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fint* m, \
f77_char* uploa, \
f77_int* m, \
ftype* alpha, \
ftype* x, fint* incx, \
ftype* y, fint* incy, \
ftype* a, fint* lda \
ftype* x, f77_int* incx, \
ftype* y, f77_int* incy, \
ftype* a, f77_int* lda \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

18
frame/compat/bla_syr2k.c
View File

@@ -42,15 +42,15 @@
#define GENTFUNC( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploc, \
fchar* transa, \
fint* m, \
fint* k, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* b, fint* ldb, \
ftype* beta, \
ftype* c, fint* ldc \
f77_char* uploc, \
f77_char* transa, \
f77_int* m, \
f77_int* k, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb, \
ftype* beta, \
ftype* c, f77_int* ldc \
) \
{ \
uplo_t blis_uploc; \

18
frame/compat/bla_syr2k.h
View File

@@ -40,15 +40,15 @@
#define GENTPROT( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploc, \
fchar* transa, \
fint* m, \
fint* k, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* b, fint* ldb, \
ftype* beta, \
ftype* c, fint* ldc \
f77_char* uploc, \
f77_char* transa, \
f77_int* m, \
f77_int* k, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb, \
ftype* beta, \
ftype* c, f77_int* ldc \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

16
frame/compat/bla_syrk.c
View File

@@ -42,14 +42,14 @@
#define GENTFUNC( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploc, \
fchar* transa, \
fint* m, \
fint* k, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* beta, \
ftype* c, fint* ldc \
f77_char* uploc, \
f77_char* transa, \
f77_int* m, \
f77_int* k, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* beta, \
ftype* c, f77_int* ldc \
) \
{ \
uplo_t blis_uploc; \

16
frame/compat/bla_syrk.h
View File

@@ -40,14 +40,14 @@
#define GENTPROT( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploc, \
fchar* transa, \
fint* m, \
fint* k, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* beta, \
ftype* c, fint* ldc \
f77_char* uploc, \
f77_char* transa, \
f77_int* m, \
f77_int* k, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* beta, \
ftype* c, f77_int* ldc \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

18
frame/compat/bla_trmm.c
View File

@@ -42,15 +42,15 @@
#define GENTFUNC( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* side, \
fchar* uploa, \
fchar* transa, \
fchar* diaga, \
fint* m, \
fint* n, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* b, fint* ldb \
f77_char* side, \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb \
) \
{ \
side_t blis_side; \

18
frame/compat/bla_trmm.h
View File

@@ -40,15 +40,15 @@
#define GENTPROT( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* side, \
fchar* uploa, \
fchar* transa, \
fchar* diaga, \
fint* m, \
fint* n, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* b, fint* ldb \
f77_char* side, \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

12
frame/compat/bla_trmv.c
View File

@@ -42,12 +42,12 @@
#define GENTFUNC( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fchar* transa, \
fchar* diaga, \
fint* m, \
ftype* a, fint* lda, \
ftype* x, fint* incx \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx \
) \
{ \
uplo_t blis_uploa; \

12
frame/compat/bla_trmv.h
View File

@@ -40,12 +40,12 @@
#define GENTPROT( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fchar* transa, \
fchar* diaga, \
fint* m, \
ftype* a, fint* lda, \
ftype* x, fint* incx \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

18
frame/compat/bla_trsm.c
View File

@@ -42,15 +42,15 @@
#define GENTFUNC( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* side, \
fchar* uploa, \
fchar* transa, \
fchar* diaga, \
fint* m, \
fint* n, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* b, fint* ldb \
f77_char* side, \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb \
) \
{ \
side_t blis_side; \

18
frame/compat/bla_trsm.h
View File

@@ -40,15 +40,15 @@
#define GENTPROT( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* side, \
fchar* uploa, \
fchar* transa, \
fchar* diaga, \
fint* m, \
fint* n, \
ftype* alpha, \
ftype* a, fint* lda, \
ftype* b, fint* ldb \
f77_char* side, \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
f77_int* n, \
ftype* alpha, \
ftype* a, f77_int* lda, \
ftype* b, f77_int* ldb \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

12
frame/compat/bla_trsv.c
View File

@@ -42,12 +42,12 @@
#define GENTFUNC( ftype, ch, blasname, blisname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fchar* transa, \
fchar* diaga, \
fint* m, \
ftype* a, fint* lda, \
ftype* x, fint* incx \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx \
) \
{ \
uplo_t blis_uploa; \

12
frame/compat/bla_trsv.h
View File

@@ -40,12 +40,12 @@
#define GENTPROT( ftype, ch, blasname ) \
\
void PASTEF77(ch,blasname)( \
fchar* uploa, \
fchar* transa, \
fchar* diaga, \
fint* m, \
ftype* a, fint* lda, \
ftype* x, fint* incx \
f77_char* uploa, \
f77_char* transa, \
f77_char* diaga, \
f77_int* m, \
ftype* a, f77_int* lda, \
ftype* x, f77_int* incx \
);
#ifdef BLIS_ENABLE_BLAS2BLIS

306
frame/compat/f2c/bla_gbmv.c
View File

@@ -43,24 +43,24 @@
-lf2c -lm (in that order)
*/
/* Subroutine */ int PASTEF77(c,gbmv)(char *trans, integer *m, integer *n, integer *kl,
integer *ku, complex *alpha, complex *a, integer *lda, complex *x,
integer *incx, complex *beta, complex *y, integer *incy)
/* Subroutine */ int PASTEF77(c,gbmv)(character *trans, integer *m, integer *n, integer *kl,
integer *ku, singlecomplex *alpha, singlecomplex *a, integer *lda, singlecomplex *x,
integer *incx, singlecomplex *beta, singlecomplex *y, integer *incy)
{
/* System generated locals */
integer a_dim1, a_offset, i__1, i__2, i__3, i__4, i__5, i__6;
complex q__1, q__2, q__3;
singlecomplex q__1, q__2, q__3;
/* Builtin functions */
void r_cnjg(complex *, complex *);
void r_cnjg(singlecomplex *, singlecomplex *);
/* Local variables */
integer info;
complex temp;
singlecomplex temp;
integer lenx, leny, i__, j, k;
extern logical lsame_(char *, char *, ftnlen, ftnlen);
extern logical lsame_(character *, character *, ftnlen, ftnlen);
integer ix, iy, jx, jy, kx, ky;
extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern /* Subroutine */ int xerbla_(character *, integer *, ftnlen);
logical noconj;
integer kup1;
@@ -233,8 +233,8 @@
/* Quick return if possible. */
if (*m == 0 || *n == 0 || (alpha->r == 0.f && alpha->i == 0.f && (beta->r
== 1.f && beta->i == 0.f))) {
if (*m == 0 || *n == 0 || (alpha->real == 0.f && alpha->imag == 0.f && (beta->real
== 1.f && beta->imag == 0.f))) {
return 0;
}
@@ -266,13 +266,13 @@
/* First form y := beta*y. */
if (beta->r != 1.f || beta->i != 0.f) {
if (beta->real != 1.f || beta->imag != 0.f) {
if (*incy == 1) {
if (beta->r == 0.f && beta->i == 0.f) {
if (beta->real == 0.f && beta->imag == 0.f) {
i__1 = leny;
for (i__ = 1; i__ <= i__1; ++i__) {
i__2 = i__;
y[i__2].r = 0.f, y[i__2].i = 0.f;
y[i__2].real = 0.f, y[i__2].imag = 0.f;
/* L10: */
}
} else {
@@ -280,20 +280,20 @@
for (i__ = 1; i__ <= i__1; ++i__) {
i__2 = i__;
i__3 = i__;
q__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,
q__1.i = beta->r * y[i__3].i + beta->i * y[i__3]
.r;
y[i__2].r = q__1.r, y[i__2].i = q__1.i;
q__1.real = beta->real * y[i__3].real - beta->imag * y[i__3].imag,
q__1.imag = beta->real * y[i__3].imag + beta->imag * y[i__3]
.real;
y[i__2].real = q__1.real, y[i__2].imag = q__1.imag;
/* L20: */
}
}
} else {
iy = ky;
if (beta->r == 0.f && beta->i == 0.f) {
if (beta->real == 0.f && beta->imag == 0.f) {
i__1 = leny;
for (i__ = 1; i__ <= i__1; ++i__) {
i__2 = iy;
y[i__2].r = 0.f, y[i__2].i = 0.f;
y[i__2].real = 0.f, y[i__2].imag = 0.f;
iy += *incy;
/* L30: */
}
@@ -302,17 +302,17 @@
for (i__ = 1; i__ <= i__1; ++i__) {
i__2 = iy;
i__3 = iy;
q__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,
q__1.i = beta->r * y[i__3].i + beta->i * y[i__3]
.r;
y[i__2].r = q__1.r, y[i__2].i = q__1.i;
q__1.real = beta->real * y[i__3].real - beta->imag * y[i__3].imag,
q__1.imag = beta->real * y[i__3].imag + beta->imag * y[i__3]
.real;
y[i__2].real = q__1.real, y[i__2].imag = q__1.imag;
iy += *incy;
/* L40: */
}
}
}
}
if (alpha->r == 0.f && alpha->i == 0.f) {
if (alpha->real == 0.f && alpha->imag == 0.f) {
return 0;
}
kup1 = *ku + 1;
@@ -325,12 +325,12 @@
i__1 = *n;
for (j = 1; j <= i__1; ++j) {
i__2 = jx;
if (x[i__2].r != 0.f || x[i__2].i != 0.f) {
if (x[i__2].real != 0.f || x[i__2].imag != 0.f) {
i__2 = jx;
q__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i,
q__1.i = alpha->r * x[i__2].i + alpha->i * x[i__2]
.r;
temp.r = q__1.r, temp.i = q__1.i;
q__1.real = alpha->real * x[i__2].real - alpha->imag * x[i__2].imag,
q__1.imag = alpha->real * x[i__2].imag + alpha->imag * x[i__2]
.real;
temp.real = q__1.real, temp.imag = q__1.imag;
k = kup1 - j;
/* Computing MAX */
i__2 = 1, i__3 = j - *ku;
@@ -341,12 +341,12 @@
i__2 = i__;
i__3 = i__;
i__5 = k + i__ + j * a_dim1;
q__2.r = temp.r * a[i__5].r - temp.i * a[i__5].i,
q__2.i = temp.r * a[i__5].i + temp.i * a[i__5]
.r;
q__1.r = y[i__3].r + q__2.r, q__1.i = y[i__3].i +
q__2.i;
y[i__2].r = q__1.r, y[i__2].i = q__1.i;
q__2.real = temp.real * a[i__5].real - temp.imag * a[i__5].imag,
q__2.imag = temp.real * a[i__5].imag + temp.imag * a[i__5]
.real;
q__1.real = y[i__3].real + q__2.real, q__1.imag = y[i__3].imag +
q__2.imag;
y[i__2].real = q__1.real, y[i__2].imag = q__1.imag;
/* L50: */
}
}
@@ -357,12 +357,12 @@
i__1 = *n;
for (j = 1; j <= i__1; ++j) {
i__4 = jx;
if (x[i__4].r != 0.f || x[i__4].i != 0.f) {
if (x[i__4].real != 0.f || x[i__4].imag != 0.f) {
i__4 = jx;
q__1.r = alpha->r * x[i__4].r - alpha->i * x[i__4].i,
q__1.i = alpha->r * x[i__4].i + alpha->i * x[i__4]
.r;
temp.r = q__1.r, temp.i = q__1.i;
q__1.real = alpha->real * x[i__4].real - alpha->imag * x[i__4].imag,
q__1.imag = alpha->real * x[i__4].imag + alpha->imag * x[i__4]
.real;
temp.real = q__1.real, temp.imag = q__1.imag;
iy = ky;
k = kup1 - j;
/* Computing MAX */
@@ -374,12 +374,12 @@
i__4 = iy;
i__2 = iy;
i__5 = k + i__ + j * a_dim1;
q__2.r = temp.r * a[i__5].r - temp.i * a[i__5].i,
q__2.i = temp.r * a[i__5].i + temp.i * a[i__5]
.r;
q__1.r = y[i__2].r + q__2.r, q__1.i = y[i__2].i +
q__2.i;
y[i__4].r = q__1.r, y[i__4].i = q__1.i;
q__2.real = temp.real * a[i__5].real - temp.imag * a[i__5].imag,
q__2.imag = temp.real * a[i__5].imag + temp.imag * a[i__5]
.real;
q__1.real = y[i__2].real + q__2.real, q__1.imag = y[i__2].imag +
q__2.imag;
y[i__4].real = q__1.real, y[i__4].imag = q__1.imag;
iy += *incy;
/* L70: */
}
@@ -399,7 +399,7 @@
if (*incx == 1) {
i__1 = *n;
for (j = 1; j <= i__1; ++j) {
temp.r = 0.f, temp.i = 0.f;
temp.real = 0.f, temp.imag = 0.f;
k = kup1 - j;
if (noconj) {
/* Computing MAX */
@@ -410,11 +410,11 @@
for (i__ = f2c_max(i__3,i__4); i__ <= i__2; ++i__) {
i__3 = k + i__ + j * a_dim1;
i__4 = i__;
q__2.r = a[i__3].r * x[i__4].r - a[i__3].i * x[i__4]
.i, q__2.i = a[i__3].r * x[i__4].i + a[i__3]
.i * x[i__4].r;
q__1.r = temp.r + q__2.r, q__1.i = temp.i + q__2.i;
temp.r = q__1.r, temp.i = q__1.i;
q__2.real = a[i__3].real * x[i__4].real - a[i__3].imag * x[i__4]
.imag, q__2.imag = a[i__3].real * x[i__4].imag + a[i__3]
.imag * x[i__4].real;
q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + q__2.imag;
temp.real = q__1.real, temp.imag = q__1.imag;
/* L90: */
}
} else {
@@ -426,27 +426,27 @@
for (i__ = f2c_max(i__2,i__3); i__ <= i__4; ++i__) {
r_cnjg(&q__3, &a[k + i__ + j * a_dim1]);
i__2 = i__;
q__2.r = q__3.r * x[i__2].r - q__3.i * x[i__2].i,
q__2.i = q__3.r * x[i__2].i + q__3.i * x[i__2]
.r;
q__1.r = temp.r + q__2.r, q__1.i = temp.i + q__2.i;
temp.r = q__1.r, temp.i = q__1.i;
q__2.real = q__3.real * x[i__2].real - q__3.imag * x[i__2].imag,
q__2.imag = q__3.real * x[i__2].imag + q__3.imag * x[i__2]
.real;
q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + q__2.imag;
temp.real = q__1.real, temp.imag = q__1.imag;
/* L100: */
}
}
i__4 = jy;
i__2 = jy;
q__2.r = alpha->r * temp.r - alpha->i * temp.i, q__2.i =
alpha->r * temp.i + alpha->i * temp.r;
q__1.r = y[i__2].r + q__2.r, q__1.i = y[i__2].i + q__2.i;
y[i__4].r = q__1.r, y[i__4].i = q__1.i;
q__2.real = alpha->real * temp.real - alpha->imag * temp.imag, q__2.imag =
alpha->real * temp.imag + alpha->imag * temp.real;
q__1.real = y[i__2].real + q__2.real, q__1.imag = y[i__2].imag + q__2.imag;
y[i__4].real = q__1.real, y[i__4].imag = q__1.imag;
jy += *incy;
/* L110: */
}
} else {
i__1 = *n;
for (j = 1; j <= i__1; ++j) {
temp.r = 0.f, temp.i = 0.f;
temp.real = 0.f, temp.imag = 0.f;
ix = kx;
k = kup1 - j;
if (noconj) {
@@ -458,11 +458,11 @@
for (i__ = f2c_max(i__4,i__2); i__ <= i__3; ++i__) {
i__4 = k + i__ + j * a_dim1;
i__2 = ix;
q__2.r = a[i__4].r * x[i__2].r - a[i__4].i * x[i__2]
.i, q__2.i = a[i__4].r * x[i__2].i + a[i__4]
.i * x[i__2].r;
q__1.r = temp.r + q__2.r, q__1.i = temp.i + q__2.i;
temp.r = q__1.r, temp.i = q__1.i;
q__2.real = a[i__4].real * x[i__2].real - a[i__4].imag * x[i__2]
.imag, q__2.imag = a[i__4].real * x[i__2].imag + a[i__4]
.imag * x[i__2].real;
q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + q__2.imag;
temp.real = q__1.real, temp.imag = q__1.imag;
ix += *incx;
/* L120: */
}
@@ -475,21 +475,21 @@
for (i__ = f2c_max(i__3,i__4); i__ <= i__2; ++i__) {
r_cnjg(&q__3, &a[k + i__ + j * a_dim1]);
i__3 = ix;
q__2.r = q__3.r * x[i__3].r - q__3.i * x[i__3].i,
q__2.i = q__3.r * x[i__3].i + q__3.i * x[i__3]
.r;
q__1.r = temp.r + q__2.r, q__1.i = temp.i + q__2.i;
temp.r = q__1.r, temp.i = q__1.i;
q__2.real = q__3.real * x[i__3].real - q__3.imag * x[i__3].imag,
q__2.imag = q__3.real * x[i__3].imag + q__3.imag * x[i__3]
.real;
q__1.real = temp.real + q__2.real, q__1.imag = temp.imag + q__2.imag;
temp.real = q__1.real, temp.imag = q__1.imag;
ix += *incx;
/* L130: */
}
}
i__2 = jy;
i__3 = jy;
q__2.r = alpha->r * temp.r - alpha->i * temp.i, q__2.i =
alpha->r * temp.i + alpha->i * temp.r;
q__1.r = y[i__3].r + q__2.r, q__1.i = y[i__3].i + q__2.i;
y[i__2].r = q__1.r, y[i__2].i = q__1.i;
q__2.real = alpha->real * temp.real - alpha->imag * temp.imag, q__2.imag =
alpha->real * temp.imag + alpha->imag * temp.real;
q__1.real = y[i__3].real + q__2.real, q__1.imag = y[i__3].imag + q__2.imag;
y[i__2].real = q__1.real, y[i__2].imag = q__1.imag;
jy += *incy;
if (j > *ku) {
kx += *incx;
@@ -510,7 +510,7 @@
-lf2c -lm (in that order)
*/
/* Subroutine */ int PASTEF77(d,gbmv)(char *trans, integer *m, integer *n, integer *kl,
/* Subroutine */ int PASTEF77(d,gbmv)(character *trans, integer *m, integer *n, integer *kl,
integer *ku, doublereal *alpha, doublereal *a, integer *lda,
doublereal *x, integer *incx, doublereal *beta, doublereal *y,
integer *incy)
@@ -522,9 +522,9 @@
integer info;
doublereal temp;
integer lenx, leny, i__, j, k;
extern logical lsame_(char *, char *, ftnlen, ftnlen);
extern logical lsame_(character *, character *, ftnlen, ftnlen);
integer ix, iy, jx, jy, kx, ky;
extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern /* Subroutine */ int xerbla_(character *, integer *, ftnlen);
integer kup1;
/* .. Scalar Arguments .. */
@@ -869,7 +869,7 @@
-lf2c -lm (in that order)
*/
/* Subroutine */ int PASTEF77(s,gbmv)(char *trans, integer *m, integer *n, integer *kl,
/* Subroutine */ int PASTEF77(s,gbmv)(character *trans, integer *m, integer *n, integer *kl,
integer *ku, real *alpha, real *a, integer *lda, real *x, integer *
incx, real *beta, real *y, integer *incy)
{
@@ -880,9 +880,9 @@
integer info;
real temp;
integer lenx, leny, i__, j, k;
extern logical lsame_(char *, char *, ftnlen, ftnlen);
extern logical lsame_(character *, character *, ftnlen, ftnlen);
integer ix, iy, jx, jy, kx, ky;
extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern /* Subroutine */ int xerbla_(character *, integer *, ftnlen);
integer kup1;
/* .. Scalar Arguments .. */
@@ -1227,7 +1227,7 @@
-lf2c -lm (in that order)
*/
/* Subroutine */ int PASTEF77(z,gbmv)(char *trans, integer *m, integer *n, integer *kl,
/* Subroutine */ int PASTEF77(z,gbmv)(character *trans, integer *m, integer *n, integer *kl,
integer *ku, doublecomplex *alpha, doublecomplex *a, integer *lda,
doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *
y, integer *incy)
@@ -1243,9 +1243,9 @@
integer info;
doublecomplex temp;
integer lenx, leny, i__, j, k;
extern logical lsame_(char *, char *, ftnlen, ftnlen);
extern logical lsame_(character *, character *, ftnlen, ftnlen);
integer ix, iy, jx, jy, kx, ky;
extern /* Subroutine */ int xerbla_(char *, integer *, ftnlen);
extern /* Subroutine */ int xerbla_(character *, integer *, ftnlen);
logical noconj;
integer kup1;
@@ -1418,8 +1418,8 @@
/* Quick return if possible. */
if (*m == 0 || *n == 0 || (alpha->r == 0. && alpha->i == 0. && (beta->r ==
1. && beta->i == 0.))) {
if (*m == 0 || *n == 0 || (alpha->real == 0. && alpha->imag == 0. && (beta->real ==
1. && beta->imag == 0.))) {
return 0;
}
@@ -1451,13 +1451,13 @@
/* First form y := beta*y. */
if (beta->r != 1. || beta->i != 0.) {
if (beta->real != 1. || beta->imag != 0.) {
if (*incy == 1) {
if (beta->r == 0. && beta->i == 0.) {
if (beta->real == 0. && beta->imag == 0.) {
i__1 = leny;
for (i__ = 1; i__ <= i__1; ++i__) {
i__2 = i__;
y[i__2].r = 0., y[i__2].i = 0.;
y[i__2].real = 0., y[i__2].imag = 0.;
/* L10: */
}
} else {
@@ -1465,20 +1465,20 @@
for (i__ = 1; i__ <= i__1; ++i__) {
i__2 = i__;
i__3 = i__;
z__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,
z__1.i = beta->r * y[i__3].i + beta->i * y[i__3]
.r;
y[i__2].r = z__1.r, y[i__2].i = z__1.i;
z__1.real = beta->real * y[i__3].real - beta->imag * y[i__3].imag,
z__1.imag = beta->real * y[i__3].imag + beta->imag * y[i__3]
.real;
y[i__2].real = z__1.real, y[i__2].imag = z__1.imag;
/* L20: */
}
}
} else {
iy = ky;
if (beta->r == 0. && beta->i == 0.) {
if (beta->real == 0. && beta->imag == 0.) {
i__1 = leny;
for (i__ = 1; i__ <= i__1; ++i__) {
i__2 = iy;
y[i__2].r = 0., y[i__2].i = 0.;
y[i__2].real = 0., y[i__2].imag = 0.;
iy += *incy;
/* L30: */
}
@@ -1487,17 +1487,17 @@
for (i__ = 1; i__ <= i__1; ++i__) {
i__2 = iy;
i__3 = iy;
z__1.r = beta->r * y[i__3].r - beta->i * y[i__3].i,
z__1.i = beta->r * y[i__3].i + beta->i * y[i__3]
.r;
y[i__2].r = z__1.r, y[i__2].i = z__1.i;
z__1.real = beta->real * y[i__3].real - beta->imag * y[i__3].imag,
z__1.imag = beta->real * y[i__3].imag + beta->imag * y[i__3]
.real;
y[i__2].real = z__1.real, y[i__2].imag = z__1.imag;
iy += *incy;
/* L40: */
}
}
}
}
if (alpha->r == 0. && alpha->i == 0.) {
if (alpha->real == 0. && alpha->imag == 0.) {
return 0;
}
kup1 = *ku + 1;
@@ -1510,12 +1510,12 @@
i__1 = *n;
for (j = 1; j <= i__1; ++j) {
i__2 = jx;
if (x[i__2].r != 0. || x[i__2].i != 0.) {
if (x[i__2].real != 0. || x[i__2].imag != 0.) {
i__2 = jx;
z__1.r = alpha->r * x[i__2].r - alpha->i * x[i__2].i,
z__1.i = alpha->r * x[i__2].i + alpha->i * x[i__2]
.r;
temp.r = z__1.r, temp.i = z__1.i;
z__1.real = alpha->real * x[i__2].real - alpha->imag * x[i__2].imag,
z__1.imag = alpha->real * x[i__2].imag + alpha->imag * x[i__2]
.real;
temp.real = z__1.real, temp.imag = z__1.imag;
k = kup1 - j;
/* Computing MAX */
i__2 = 1, i__3 = j - *ku;
@@ -1526,12 +1526,12 @@
i__2 = i__;
i__3 = i__;
i__5 = k + i__ + j * a_dim1;
z__2.r = temp.r * a[i__5].r - temp.i * a[i__5].i,
z__2.i = temp.r * a[i__5].i + temp.i * a[i__5]
.r;
z__1.r = y[i__3].r + z__2.r, z__1.i = y[i__3].i +
z__2.i;
y[i__2].r = z__1.r, y[i__2].i = z__1.i;
z__2.real = temp.real * a[i__5].real - temp.imag * a[i__5].imag,
z__2.imag = temp.real * a[i__5].imag + temp.imag * a[i__5]
.real;
z__1.real = y[i__3].real + z__2.real, z__1.imag = y[i__3].imag +
z__2.imag;
y[i__2].real = z__1.real, y[i__2].imag = z__1.imag;
/* L50: */
}
}
@@ -1542,12 +1542,12 @@
i__1 = *n;
for (j = 1; j <= i__1; ++j) {
i__4 = jx;
if (x[i__4].r != 0. || x[i__4].i != 0.) {
if (x[i__4].real != 0. || x[i__4].imag != 0.) {
i__4 = jx;
z__1.r = alpha->r * x[i__4].r - alpha->i * x[i__4].i,
z__1.i = alpha->r * x[i__4].i + alpha->i * x[i__4]
.r;
temp.r = z__1.r, temp.i = z__1.i;
z__1.real = alpha->real * x[i__4].real - alpha->imag * x[i__4].imag,
z__1.imag = alpha->real * x[i__4].imag + alpha->imag * x[i__4]
.real;
temp.real = z__1.real, temp.imag = z__1.imag;
iy = ky;
k = kup1 - j;
/* Computing MAX */
@@ -1559,12 +1559,12 @@
i__4 = iy;
i__2 = iy;
i__5 = k + i__ + j * a_dim1;
z__2.r = temp.r * a[i__5].r - temp.i * a[i__5].i,
z__2.i = temp.r * a[i__5].i + temp.i * a[i__5]
.r;
z__1.r = y[i__2].r + z__2.r, z__1.i = y[i__2].i +
z__2.i;
y[i__4].r = z__1.r, y[i__4].i = z__1.i;
z__2.real = temp.real * a[i__5].real - temp.imag * a[i__5].imag,
z__2.imag = temp.real * a[i__5].imag + temp.imag * a[i__5]
.real;
z__1.real = y[i__2].real + z__2.real, z__1.imag = y[i__2].imag +
z__2.imag;
y[i__4].real = z__1.real, y[i__4].imag = z__1.imag;
iy += *incy;
/* L70: */
}
@@ -1584,7 +1584,7 @@
if (*incx == 1) {
i__1 = *n;
for (j = 1; j <= i__1; ++j) {
temp.r = 0., temp.i = 0.;
temp.real = 0., temp.imag = 0.;
k = kup1 - j;
if (noconj) {
/* Computing MAX */
@@ -1595,11 +1595,11 @@
for (i__ = f2c_max(i__3,i__4); i__ <= i__2; ++i__) {
i__3 = k + i__ + j * a_dim1;
i__4 = i__;
z__2.r = a[i__3].r * x[i__4].r - a[i__3].i * x[i__4]
.i, z__2.i = a[i__3].r * x[i__4].i + a[i__3]
.i * x[i__4].r;
z__1.r = temp.r + z__2.r, z__1.i = temp.i + z__2.i;
temp.r = z__1.r, temp.i = z__1.i;
z__2.real = a[i__3].real * x[i__4].real - a[i__3].imag * x[i__4]
.imag, z__2.imag = a[i__3].real * x[i__4].imag + a[i__3]
.imag * x[i__4].real;
z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + z__2.imag;
temp.real = z__1.real, temp.imag = z__1.imag;
/* L90: */
}
} else {
@@ -1611,27 +1611,27 @@
for (i__ = f2c_max(i__2,i__3); i__ <= i__4; ++i__) {
d_cnjg(&z__3, &a[k + i__ + j * a_dim1]);
i__2 = i__;
z__2.r = z__3.r * x[i__2].r - z__3.i * x[i__2].i,
z__2.i = z__3.r * x[i__2].i + z__3.i * x[i__2]
.r;
z__1.r = temp.r + z__2.r, z__1.i = temp.i + z__2.i;
temp.r = z__1.r, temp.i = z__1.i;
z__2.real = z__3.real * x[i__2].real - z__3.imag * x[i__2].imag,
z__2.imag = z__3.real * x[i__2].imag + z__3.imag * x[i__2]
.real;
z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + z__2.imag;
temp.real = z__1.real, temp.imag = z__1.imag;
/* L100: */
}
}
i__4 = jy;
i__2 = jy;
z__2.r = alpha->r * temp.r - alpha->i * temp.i, z__2.i =
alpha->r * temp.i + alpha->i * temp.r;
z__1.r = y[i__2].r + z__2.r, z__1.i = y[i__2].i + z__2.i;
y[i__4].r = z__1.r, y[i__4].i = z__1.i;
z__2.real = alpha->real * temp.real - alpha->imag * temp.imag, z__2.imag =
alpha->real * temp.imag + alpha->imag * temp.real;
z__1.real = y[i__2].real + z__2.real, z__1.imag = y[i__2].imag + z__2.imag;
y[i__4].real = z__1.real, y[i__4].imag = z__1.imag;
jy += *incy;
/* L110: */
}
} else {
i__1 = *n;
for (j = 1; j <= i__1; ++j) {
temp.r = 0., temp.i = 0.;
temp.real = 0., temp.imag = 0.;
ix = kx;
k = kup1 - j;
if (noconj) {
@@ -1643,11 +1643,11 @@
for (i__ = f2c_max(i__4,i__2); i__ <= i__3; ++i__) {
i__4 = k + i__ + j * a_dim1;
i__2 = ix;
z__2.r = a[i__4].r * x[i__2].r - a[i__4].i * x[i__2]
.i, z__2.i = a[i__4].r * x[i__2].i + a[i__4]
.i * x[i__2].r;
z__1.r = temp.r + z__2.r, z__1.i = temp.i + z__2.i;
temp.r = z__1.r, temp.i = z__1.i;
z__2.real = a[i__4].real * x[i__2].real - a[i__4].imag * x[i__2]
.imag, z__2.imag = a[i__4].real * x[i__2].imag + a[i__4]
.imag * x[i__2].real;
z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + z__2.imag;
temp.real = z__1.real, temp.imag = z__1.imag;
ix += *incx;
/* L120: */
}
@@ -1660,21 +1660,21 @@
for (i__ = f2c_max(i__3,i__4); i__ <= i__2; ++i__) {
d_cnjg(&z__3, &a[k + i__ + j * a_dim1]);
i__3 = ix;
z__2.r = z__3.r * x[i__3].r - z__3.i * x[i__3].i,
z__2.i = z__3.r * x[i__3].i + z__3.i * x[i__3]
.r;
z__1.r = temp.r + z__2.r, z__1.i = temp.i + z__2.i;
temp.r = z__1.r, temp.i = z__1.i;
z__2.real = z__3.real * x[i__3].real - z__3.imag * x[i__3].imag,
z__2.imag = z__3.real * x[i__3].imag + z__3.imag * x[i__3]
.real;
z__1.real = temp.real + z__2.real, z__1.imag = temp.imag + z__2.imag;
temp.real = z__1.real, temp.imag = z__1.imag;
ix += *incx;
/* L130: */
}
}
i__2 = jy;
i__3 = jy;
z__2.r = alpha->r * temp.r - alpha->i * temp.i, z__2.i =
alpha->r * temp.i + alpha->i * temp.r;
z__1.r = y[i__3].r + z__2.r, z__1.i = y[i__3].i + z__2.i;
y[i__2].r = z__1.r, y[i__2].i = z__1.i;
z__2.real = alpha->real * temp.real - alpha->imag * temp.imag, z__2.imag =
alpha->real * temp.imag + alpha->imag * temp.real;
z__1.real = y[i__3].real + z__2.real, z__1.imag = y[i__3].imag + z__2.imag;
y[i__2].real = z__1.real, y[i__2].imag = z__1.imag;
jy += *incy;
if (j > *ku) {
kx += *incx;

Some files were not shown because too many files have changed in this diff Show More