1 2 3 Interface 4 Subroutine MatFDColoringRestorePerturbedColumns(i,len,array,ierr) 5 import tMatFDColoring 6 PetscInt, pointer :: array(:) 7 PetscInt len 8 PetscErrorCode ierr 9 MatFDColoring i 10 End Subroutine 11 End Interface 12 13 interface MatDenseGetArray 14 Subroutine MatDenseGetArray1d(v,array,ierr) 15 import tMat 16 PetscScalar, pointer :: array(:) 17 PetscErrorCode ierr 18 Mat v 19 End Subroutine 20 Subroutine MatDenseGetArray2d(v,array,ierr) 21 import tMat 22 PetscScalar, pointer :: array(:,:) 23 PetscErrorCode ierr 24 Mat v 25 End Subroutine 26 end interface 27 28 interface MatDenseRestoreArray 29 Subroutine MatDenseRestoreArray1d(v,array,ierr) 30 import tMat 31 PetscScalar, pointer :: array(:) 32 PetscErrorCode ierr 33 Mat v 34 End Subroutine 35 Subroutine MatDenseRestoreArray2d(v,array,ierr) 36 import tMat 37 PetscScalar, pointer :: array(:,:) 38 PetscErrorCode ierr 39 Mat v 40 End Subroutine 41 end interface 42 43 interface MatDenseGetArrayRead 44 Subroutine MatDenseGetArrayRead1d(v,array,ierr) 45 import tMat 46 PetscScalar, pointer :: array(:) 47 PetscErrorCode ierr 48 Mat v 49 End Subroutine 50 Subroutine MatDenseGetArrayRead2d(v,array,ierr) 51 import tMat 52 PetscScalar, pointer :: array(:,:) 53 PetscErrorCode ierr 54 Mat v 55 End Subroutine 56 end interface 57 58 interface MatDenseRestoreArrayRead 59 Subroutine MatDenseRestoreArrayRead1d(v,array,ierr) 60 import tMat 61 PetscScalar, pointer :: array(:) 62 PetscErrorCode ierr 63 Mat v 64 End Subroutine 65 Subroutine MatDenseRestoreArrayRead2d(v,array,ierr) 66 import tMat 67 PetscScalar, pointer :: array(:,:) 68 PetscErrorCode ierr 69 Mat v 70 End Subroutine 71 end interface 72 73 interface MatDenseGetArrayWrite 74 Subroutine MatDenseGetArrayWrite1d(v,array,ierr) 75 import tMat 76 PetscScalar, pointer :: array(:) 77 PetscErrorCode ierr 78 Mat v 79 End Subroutine 80 Subroutine MatDenseGetArrayWrite2d(v,array,ierr) 81 import tMat 82 PetscScalar, pointer :: array(:,:) 83 PetscErrorCode ierr 84 Mat v 85 End Subroutine 86 end interface 87 88 interface MatDenseRestoreArrayWrite 89 Subroutine MatDenseRestoreArrayWrite1d(v,array,ierr) 90 import tMat 91 PetscScalar, pointer :: array(:) 92 PetscErrorCode ierr 93 Mat v 94 End Subroutine 95 Subroutine MatDenseRestoreArrayWrite2d(v,array,ierr) 96 import tMat 97 PetscScalar, pointer :: array(:,:) 98 PetscErrorCode ierr 99 Mat v 100 End Subroutine 101 end interface 102