116   PetscInt     m, N, lda;  in matdensegetarray2d_()  local
123   *ierr = MatDenseGetLDA(*mat, &lda);  in matdensegetarray2d_()
125   if (m != lda) { // TODO: add F90Array2dLDACreate()  in matdensegetarray2d_()
126 …ROR_INITIAL, "Array lda %" PetscInt_FMT " must match number of local rows %" PetscInt_FMT, lda, m);  in matdensegetarray2d_()
143   PetscInt           m, N, lda;  in matdensegetarrayread2d_()  local
150   *ierr = MatDenseGetLDA(*mat, &lda);  in matdensegetarrayread2d_()
152   if (m != lda) { // TODO: add F90Array2dLDACreate()  in matdensegetarrayread2d_()
153 …ROR_INITIAL, "Array lda %" PetscInt_FMT " must match number of local rows %" PetscInt_FMT, lda, m);  in matdensegetarrayread2d_()
170   PetscInt     m, N, lda;  in matdensegetarraywrite2d_()  local
177   *ierr = MatDenseGetLDA(*mat, &lda);  in matdensegetarraywrite2d_()
179   if (m != lda) { // TODO: add F90Array2dLDACreate()  in matdensegetarraywrite2d_()
180 …ROR_INITIAL, "Array lda %" PetscInt_FMT " must match number of local rows %" PetscInt_FMT, lda, m);  in matdensegetarraywrite2d_()
197   PetscInt     m, N, lda;  in matdensegetarray1d_()  local
204   *ierr = MatDenseGetLDA(*mat, &lda);  in matdensegetarray1d_()
206   if (m != lda) { // TODO: add F90Array1dLDACreate()  in matdensegetarray1d_()
207 …ROR_INITIAL, "Array lda %" PetscInt_FMT " must match number of local rows %" PetscInt_FMT, lda, m);  in matdensegetarray1d_()
224   PetscInt           m, N, lda;  in matdensegetarrayread1d_()  local
231   *ierr = MatDenseGetLDA(*mat, &lda);  in matdensegetarrayread1d_()
233   if (m != lda) { // TODO: add F90Array1dLDACreate()  in matdensegetarrayread1d_()
234 …ROR_INITIAL, "Array lda %" PetscInt_FMT " must match number of local rows %" PetscInt_FMT, lda, m);  in matdensegetarrayread1d_()
251   PetscInt     m, N, lda;  in matdensegetarraywrite1d_()  local
258   *ierr = MatDenseGetLDA(*mat, &lda);  in matdensegetarraywrite1d_()
260   if (m != lda) { // TODO: add F90Array1dLDACreate()  in matdensegetarraywrite1d_()
261 …ROR_INITIAL, "Array lda %" PetscInt_FMT " must match number of local rows %" PetscInt_FMT, lda, m);  in matdensegetarraywrite1d_()