program random_matrix use spral_matrix_util, only : SPRAL_MATRIX_UNSPECIFIED, & SPRAL_MATRIX_REAL_RECT, & SPRAL_MATRIX_REAL_SYM_PSDEF, & SPRAL_MATRIX_REAL_SYM_INDEF, & SPRAL_MATRIX_REAL_SKEW, & SPRAL_MATRIX_CPLX_RECT use spral_random, only : random_state, random_integer, random_logical use spral_random_matrix, only : random_matrix_generate implicit none integer, parameter :: wp = kind(0d0) integer, parameter :: ERROR_ALLOCATION = -1, & ! Allocation failed ERROR_MATRIX_TYPE= -2, & ! Bad matrix type ERROR_ARG = -3, & ! m, n or nnz < 1 ERROR_NONSQUARE = -4, & ! m!=n contradicts matrix_type ERROR_SINGULAR = -5 ! request non-singular ! but nnz