bad_sparse.idl

Go to the documentation of this file.

SUBROUTINE sparsetest(
  IN int dnnzi, IN int dindi[dnnzi], IN int dptri[k],
  IN double dmat_i[k][l]{dnnzi_u, dindi_u, dptri_u},
  IN int dnnzio, INOUT int dindio[dnnzio], INOUT int dptrio[k],
  INOUT double dmat_io[k][l]{dnnzio, dindio, dptrio},  
  IN int dnnzo, OUT int dindo[dnnzo], OUT int dptro[k],
  WORKSPACE double dmat_o[k][l]{dnnzo, dindo, dptro},

  IN float fnnzi, IN int findi, IN int fptri,
  IN float fmat_i[k][l]{fnnzi, findi, fptri},
  IN int fnnzio, INOUT int findio[fnnzio], INOUT int fptrio[k],
  INOUT float fmat_io[k][l]{fnnzio, findio, fptrio},
  IN int fnnzo, OUT int findo[fnnzo], OUT int fptro[k],
  VAROUT float fmat_o[k][l]{fnnzo, findo, fptro},

  IN int innzi, IN int iindi[innzi], IN int iptri[k],
  IN int imat_i[k][l]{innzi, iindi, iptri},
  IN int innzio, INOUT int iindio[innzio], INOUT int iptrio[k],
  INOUT int imat_io[k][l]{innzio, iindio, iptrio},
  IN int innzo, IN int iindo[innzo], IN int iptro[k],
  OUT int imat_o[k][l]{innzo, iindo, iptro},

  IN int cnnzi, IN int cindi[cnnzi], IN int cptri[k],
  IN char cmat_i[k][l]{cnnzi, cindi, cptri},
  IN int cnnzio, INOUT int cindio[cnnzio], INOUT int cptrio[k],
  INOUT char cmat_io[k][l]{cnnzio, cindio, cptrio},
  IN int cnnzo, OUT int cindo[cnnzo], OUT int cptro[k],
  OUT char cmat_o[k][l]{cnnzo, cindo, cptro},

  IN int k, IN int l)
"test of various sparse matrix types"
LANGUAGE = "C"
LIBS = "-L$(top_builddir)/problems/totaltest -ltotaltest_c"
COMPLEXITY = "1.0"
MAJOR="ROW"