#include float *imsls_f_random_orthogonal_matrix(int n, …, 0) The type double function is imsls_d_random_orthogonal_matrix