/*
 *    Copyright (c) Yaron Keren 1994-1996. All rights reserved.
 */
extern "C" {
int dgemm_(char *l_28, char* l_29, int* m, int* n, int* l_30, double* l_31,
double *a, int* l_32, double* l_33, int* l_34, double *l_35, double *c,
int *l_36);
}
void l_37(char *l_28, char* l_29, int* m, int* n, int* l_30, double* l_31,
double *l_38, double *l_39, int* l_32, double* l_40, double *l_41, int* l_34,
double *l_35, double *l_42, double *l_43, int *l_36);
