Add environment variable to display coretype for dynamic arch.

This commit is contained in:
Chip Kerchner 2024-02-08 12:17:18 -06:00
parent ac6b4b7aa4
commit d408ecedba
1 changed files with 3 additions and 0 deletions

View File

@ -339,6 +339,9 @@ void gotoblas_dynamic_init(void) {
if (gotoblas && gotoblas -> init) { if (gotoblas && gotoblas -> init) {
strncpy(coren,gotoblas_corename(),20); strncpy(coren,gotoblas_corename(),20);
sprintf(coremsg, "Core: %s\n",coren); sprintf(coremsg, "Core: %s\n",coren);
if (getenv("GET_OPENBLAS_CORETYPE")) {
fprintf(stderr, "%s", coremsg);
}
openblas_warning(2, coremsg); openblas_warning(2, coremsg);
gotoblas -> init(); gotoblas -> init();
} else { } else {