60   subroutine MatDenseGetArrayF901d(v, array, ierr)  argument
61     PetscScalar, pointer :: array(:)
64     call MatDenseGetArray(v, array, ierr)
70   subroutine MatDenseRestoreArrayF901d(v, array, ierr)  argument
71     PetscScalar, pointer :: array(:)
74     call MatDenseRestoreArray(v, array, ierr)
80   subroutine MatDenseGetArrayReadF901d(v, array, ierr)  argument
81     PetscScalar, pointer :: array(:)
84     call MatDenseGetArrayRead(v, array, ierr)
90   subroutine MatDenseRestoreArrayReadF901d(v, array, ierr)  argument
91     PetscScalar, pointer :: array(:)
94     call MatDenseRestoreArrayRead(v, array, ierr)
100   subroutine MatDenseGetArrayWriteF901d(v, array, ierr)  argument
101     PetscScalar, pointer :: array(:)
104     call MatDenseGetArrayWrite(v, array, ierr)
110   subroutine MatDenseRestoreArrayWriteF901d(v, array, ierr)  argument
111     PetscScalar, pointer :: array(:)
114     call MatDenseRestoreArrayWrite(v, array, ierr)
120   subroutine MatDenseGetArrayF902d(v, array, ierr)  argument
121     PetscScalar, pointer :: array(:, :)
124     call MatDenseGetArray(v, array, ierr)
130   subroutine MatDenseRestoreArrayF902d(v, array, ierr)  argument
131     PetscScalar, pointer :: array(:, :)
134     call MatDenseRestoreArray(v, array, ierr)
140   subroutine MatDenseGetArrayReadF902d(v, array, ierr)  argument
141     PetscScalar, pointer :: array(:, :)
144     call MatDenseGetArrayRead(v, array, ierr)
150   subroutine MatDenseRestoreArrayReadF902d(v, array, ierr)  argument
151     PetscScalar, pointer :: array(:, :)
154     call MatDenseRestoreArrayRead(v, array, ierr)
160   subroutine MatDenseGetArrayWriteF902d(v, array, ierr)  argument
161     PetscScalar, pointer :: array(:, :)
164     call MatDenseGetArrayWrite(v, array, ierr)
170   subroutine MatDenseRestoreArrayWriteF902d(v, array, ierr)  argument
171     PetscScalar, pointer :: array(:, :)
174     call MatDenseRestoreArrayWrite(v, array, ierr)