Skip to content

Commit a926c93

Browse files
ACSimon33ACSimon33
committed
Fixed wrong F77 C declarations for complex BLAS routines. Some complex arrays were declared as float* or double* instead of void*.
1 parent 50a943d commit a926c93

File tree

1 file changed

+20
-20
lines changed

1 file changed

+20
-20
lines changed

‎CBLAS/include/cblas_f77.h

Lines changed: 20 additions & 20 deletions
Original file line numberDiff line numberDiff line change
@@ -884,7 +884,7 @@ void F77_chpr_base(FCHAR, FINT, const float *, const void *, FINT, void *
884884
, FORTRAN_STRLEN
885885
#endif
886886
);
887-
void F77_chpr2_base(FCHAR, FINT, const float *, const void *, FINT, const void *, FINT, void *
887+
void F77_chpr2_base(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *
888888
#ifdef BLAS_FORTRAN_STRLEN_END
889889
, FORTRAN_STRLEN
890890
#endif
@@ -964,7 +964,7 @@ void F77_zhpr_base(FCHAR, FINT, const double *, const void *, FINT, void *
964964
, FORTRAN_STRLEN
965965
#endif
966966
);
967-
void F77_zhpr2_base(FCHAR, FINT, const double *, const void *, FINT, const void *, FINT, void *
967+
void F77_zhpr2_base(FCHAR, FINT, const void *, const void *, FINT, const void *, FINT, void *
968968
#ifdef BLAS_FORTRAN_STRLEN_END
969969
, FORTRAN_STRLEN
970970
#endif
@@ -1042,95 +1042,95 @@ void F77_dtrsm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, cons
10421042

10431043
/* Single Complex Precision */
10441044

1045-
void F77_cgemm_base(FCHAR, FCHAR, FINT, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT
1045+
void F77_cgemm_base(FCHAR, FCHAR, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
10461046
#ifdef BLAS_FORTRAN_STRLEN_END
10471047
, FORTRAN_STRLEN, FORTRAN_STRLEN
10481048
#endif
10491049
);
1050-
void F77_csymm_base(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT
1050+
void F77_csymm_base(FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
10511051
#ifdef BLAS_FORTRAN_STRLEN_END
10521052
, FORTRAN_STRLEN, FORTRAN_STRLEN
10531053
#endif
10541054
);
1055-
void F77_chemm_base(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT
1055+
void F77_chemm_base(FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
10561056
#ifdef BLAS_FORTRAN_STRLEN_END
10571057
, FORTRAN_STRLEN, FORTRAN_STRLEN
10581058
#endif
10591059
);
1060-
void F77_csyrk_base(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT
1060+
void F77_csyrk_base(FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, void *, FINT
10611061
#ifdef BLAS_FORTRAN_STRLEN_END
10621062
, FORTRAN_STRLEN, FORTRAN_STRLEN
10631063
#endif
10641064
);
1065-
void F77_cherk_base(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, float *, FINT
1065+
void F77_cherk_base(FCHAR, FCHAR, FINT, FINT, const float *, const void *, FINT, const float *, void *, FINT
10661066
#ifdef BLAS_FORTRAN_STRLEN_END
10671067
, FORTRAN_STRLEN, FORTRAN_STRLEN
10681068
#endif
10691069
);
1070-
void F77_csyr2k_base(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT
1070+
void F77_csyr2k_base(FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
10711071
#ifdef BLAS_FORTRAN_STRLEN_END
10721072
, FORTRAN_STRLEN, FORTRAN_STRLEN
10731073
#endif
10741074
);
1075-
void F77_cher2k_base(FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, const float *, FINT, const float *, float *, FINT
1075+
void F77_cher2k_base(FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const float *, void *, FINT
10761076
#ifdef BLAS_FORTRAN_STRLEN_END
10771077
, FORTRAN_STRLEN, FORTRAN_STRLEN
10781078
#endif
10791079
);
1080-
void F77_ctrmm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT
1080+
void F77_ctrmm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, void *, FINT
10811081
#ifdef BLAS_FORTRAN_STRLEN_END
10821082
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
10831083
#endif
10841084
);
1085-
void F77_ctrsm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const float *, const float *, FINT, float *, FINT
1085+
void F77_ctrsm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, void *, FINT
10861086
#ifdef BLAS_FORTRAN_STRLEN_END
10871087
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
10881088
#endif
10891089
);
10901090

10911091
/* Double Complex Precision */
10921092

1093-
void F77_zgemm_base(FCHAR, FCHAR, FINT, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT
1093+
void F77_zgemm_base(FCHAR, FCHAR, FINT, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
10941094
#ifdef BLAS_FORTRAN_STRLEN_END
10951095
, FORTRAN_STRLEN, FORTRAN_STRLEN
10961096
#endif
10971097
);
1098-
void F77_zsymm_base(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT
1098+
void F77_zsymm_base(FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
10991099
#ifdef BLAS_FORTRAN_STRLEN_END
11001100
, FORTRAN_STRLEN, FORTRAN_STRLEN
11011101
#endif
11021102
);
1103-
void F77_zhemm_base(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT
1103+
void F77_zhemm_base(FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
11041104
#ifdef BLAS_FORTRAN_STRLEN_END
11051105
, FORTRAN_STRLEN, FORTRAN_STRLEN
11061106
#endif
11071107
);
1108-
void F77_zsyrk_base(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT
1108+
void F77_zsyrk_base(FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, void *, FINT
11091109
#ifdef BLAS_FORTRAN_STRLEN_END
11101110
, FORTRAN_STRLEN, FORTRAN_STRLEN
11111111
#endif
11121112
);
1113-
void F77_zherk_base(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, double *, FINT
1113+
void F77_zherk_base(FCHAR, FCHAR, FINT, FINT, const double *, const void *, FINT, const double *, void *, FINT
11141114
#ifdef BLAS_FORTRAN_STRLEN_END
11151115
, FORTRAN_STRLEN, FORTRAN_STRLEN
11161116
#endif
11171117
);
1118-
void F77_zsyr2k_base(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT
1118+
void F77_zsyr2k_base(FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const void *, void *, FINT
11191119
#ifdef BLAS_FORTRAN_STRLEN_END
11201120
, FORTRAN_STRLEN, FORTRAN_STRLEN
11211121
#endif
11221122
);
1123-
void F77_zher2k_base(FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, const double *, FINT, const double *, double *, FINT
1123+
void F77_zher2k_base(FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, const void *, FINT, const double *, void *, FINT
11241124
#ifdef BLAS_FORTRAN_STRLEN_END
11251125
, FORTRAN_STRLEN, FORTRAN_STRLEN
11261126
#endif
11271127
);
1128-
void F77_ztrmm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT
1128+
void F77_ztrmm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, void *, FINT
11291129
#ifdef BLAS_FORTRAN_STRLEN_END
11301130
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
11311131
#endif
11321132
);
1133-
void F77_ztrsm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const double *, const double *, FINT, double *, FINT
1133+
void F77_ztrsm_base(FCHAR, FCHAR, FCHAR, FCHAR, FINT, FINT, const void *, const void *, FINT, void *, FINT
11341134
#ifdef BLAS_FORTRAN_STRLEN_END
11351135
, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN, FORTRAN_STRLEN
11361136
#endif

0 commit comments

Comments
 (0)