1 interface 2 subroutine MatFDColoringRestorePerturbedColumns(i, len, array, ierr) 3 use, intrinsic :: ISO_C_binding 4 import tMatFDColoring 5 PetscInt, pointer :: array(:) 6 PetscInt len 7 PetscErrorCode ierr 8 MatFDColoring i 9 end subroutine 10 end interface 11 12 interface MatDenseGetArray 13 subroutine MatDenseGetArray1d(v, array, ierr) 14 use, intrinsic :: ISO_C_binding 15 import tMat 16 PetscScalar, pointer :: array(:) 17 PetscErrorCode ierr 18 Mat v 19 end subroutine 20 subroutine MatDenseGetArray2d(v, array, ierr) 21 use, intrinsic :: ISO_C_binding 22 import tMat 23 PetscScalar, pointer :: array(:, :) 24 PetscErrorCode ierr 25 Mat v 26 end subroutine 27 end interface 28 29 interface MatDenseRestoreArray 30 subroutine MatDenseRestoreArray1d(v, array, ierr) 31 use, intrinsic :: ISO_C_binding 32 import tMat 33 PetscScalar, pointer :: array(:) 34 PetscErrorCode ierr 35 Mat v 36 end subroutine 37 subroutine MatDenseRestoreArray2d(v, array, ierr) 38 use, intrinsic :: ISO_C_binding 39 import tMat 40 PetscScalar, pointer :: array(:, :) 41 PetscErrorCode ierr 42 Mat v 43 end subroutine 44 end interface 45 46 interface MatDenseGetArrayRead 47 subroutine MatDenseGetArrayRead1d(v, array, ierr) 48 use, intrinsic :: ISO_C_binding 49 import tMat 50 PetscScalar, pointer :: array(:) 51 PetscErrorCode ierr 52 Mat v 53 end subroutine 54 subroutine MatDenseGetArrayRead2d(v, array, ierr) 55 use, intrinsic :: ISO_C_binding 56 import tMat 57 PetscScalar, pointer :: array(:, :) 58 PetscErrorCode ierr 59 Mat v 60 end subroutine 61 end interface 62 63 interface MatDenseRestoreArrayRead 64 subroutine MatDenseRestoreArrayRead1d(v, array, ierr) 65 use, intrinsic :: ISO_C_binding 66 import tMat 67 PetscScalar, pointer :: array(:) 68 PetscErrorCode ierr 69 Mat v 70 end subroutine 71 subroutine MatDenseRestoreArrayRead2d(v, array, ierr) 72 use, intrinsic :: ISO_C_binding 73 import tMat 74 PetscScalar, pointer :: array(:, :) 75 PetscErrorCode ierr 76 Mat v 77 end subroutine 78 end interface 79 80 interface MatDenseGetArrayWrite 81 subroutine MatDenseGetArrayWrite1d(v, array, ierr) 82 use, intrinsic :: ISO_C_binding 83 import tMat 84 PetscScalar, pointer :: array(:) 85 PetscErrorCode ierr 86 Mat v 87 end subroutine 88 subroutine MatDenseGetArrayWrite2d(v, array, ierr) 89 use, intrinsic :: ISO_C_binding 90 import tMat 91 PetscScalar, pointer :: array(:, :) 92 PetscErrorCode ierr 93 Mat v 94 end subroutine 95 end interface 96 97 interface MatDenseRestoreArrayWrite 98 subroutine MatDenseRestoreArrayWrite1d(v, array, ierr) 99 use, intrinsic :: ISO_C_binding 100 import tMat 101 PetscScalar, pointer :: array(:) 102 PetscErrorCode ierr 103 Mat v 104 end subroutine 105 subroutine MatDenseRestoreArrayWrite2d(v, array, ierr) 106 use, intrinsic :: ISO_C_binding 107 import tMat 108 PetscScalar, pointer :: array(:, :) 109 PetscErrorCode ierr 110 Mat v 111 end subroutine 112 end interface 113 114 interface 115 subroutine MatNullSpaceRestoreVecs(a, b, c, d, z) 116 use, intrinsic :: ISO_C_binding 117 import tMatNullSpace, tVec 118 MatNullSpace :: a 119 PetscBool :: b 120 PetscInt :: c 121 Vec, pointer :: d(:) 122 PetscErrorCode z 123 end subroutine 124 end interface 125#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 126!DEC$ ATTRIBUTES DLLEXPORT::MatNullSpaceRestoreVecs 127#endif 128