16dd63270SBarry Smith 26dd63270SBarry Smith 36dd63270SBarry Smith Interface 46dd63270SBarry Smith Subroutine MatFDColoringRestorePerturbedColumns(i,len,array,ierr) 5fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 66dd63270SBarry Smith import tMatFDColoring 76dd63270SBarry Smith PetscInt, pointer :: array(:) 86dd63270SBarry Smith PetscInt len 96dd63270SBarry Smith PetscErrorCode ierr 106dd63270SBarry Smith MatFDColoring i 116dd63270SBarry Smith End Subroutine 126dd63270SBarry Smith End Interface 136dd63270SBarry Smith 146dd63270SBarry Smith interface MatDenseGetArray 156dd63270SBarry Smith Subroutine MatDenseGetArray1d(v,array,ierr) 16fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 176dd63270SBarry Smith import tMat 186dd63270SBarry Smith PetscScalar, pointer :: array(:) 196dd63270SBarry Smith PetscErrorCode ierr 206dd63270SBarry Smith Mat v 216dd63270SBarry Smith End Subroutine 226dd63270SBarry Smith Subroutine MatDenseGetArray2d(v,array,ierr) 23fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 246dd63270SBarry Smith import tMat 256dd63270SBarry Smith PetscScalar, pointer :: array(:,:) 266dd63270SBarry Smith PetscErrorCode ierr 276dd63270SBarry Smith Mat v 286dd63270SBarry Smith End Subroutine 296dd63270SBarry Smith end interface 306dd63270SBarry Smith 316dd63270SBarry Smith interface MatDenseRestoreArray 326dd63270SBarry Smith Subroutine MatDenseRestoreArray1d(v,array,ierr) 33fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 346dd63270SBarry Smith import tMat 356dd63270SBarry Smith PetscScalar, pointer :: array(:) 366dd63270SBarry Smith PetscErrorCode ierr 376dd63270SBarry Smith Mat v 386dd63270SBarry Smith End Subroutine 396dd63270SBarry Smith Subroutine MatDenseRestoreArray2d(v,array,ierr) 40fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 416dd63270SBarry Smith import tMat 426dd63270SBarry Smith PetscScalar, pointer :: array(:,:) 436dd63270SBarry Smith PetscErrorCode ierr 446dd63270SBarry Smith Mat v 456dd63270SBarry Smith End Subroutine 466dd63270SBarry Smith end interface 476dd63270SBarry Smith 486dd63270SBarry Smith interface MatDenseGetArrayRead 496dd63270SBarry Smith Subroutine MatDenseGetArrayRead1d(v,array,ierr) 50fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 516dd63270SBarry Smith import tMat 526dd63270SBarry Smith PetscScalar, pointer :: array(:) 536dd63270SBarry Smith PetscErrorCode ierr 546dd63270SBarry Smith Mat v 556dd63270SBarry Smith End Subroutine 566dd63270SBarry Smith Subroutine MatDenseGetArrayRead2d(v,array,ierr) 57fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 586dd63270SBarry Smith import tMat 596dd63270SBarry Smith PetscScalar, pointer :: array(:,:) 606dd63270SBarry Smith PetscErrorCode ierr 616dd63270SBarry Smith Mat v 626dd63270SBarry Smith End Subroutine 636dd63270SBarry Smith end interface 646dd63270SBarry Smith 656dd63270SBarry Smith interface MatDenseRestoreArrayRead 666dd63270SBarry Smith Subroutine MatDenseRestoreArrayRead1d(v,array,ierr) 67fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 686dd63270SBarry Smith import tMat 696dd63270SBarry Smith PetscScalar, pointer :: array(:) 706dd63270SBarry Smith PetscErrorCode ierr 716dd63270SBarry Smith Mat v 726dd63270SBarry Smith End Subroutine 736dd63270SBarry Smith Subroutine MatDenseRestoreArrayRead2d(v,array,ierr) 74fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 756dd63270SBarry Smith import tMat 766dd63270SBarry Smith PetscScalar, pointer :: array(:,:) 776dd63270SBarry Smith PetscErrorCode ierr 786dd63270SBarry Smith Mat v 796dd63270SBarry Smith End Subroutine 806dd63270SBarry Smith end interface 816dd63270SBarry Smith 826dd63270SBarry Smith interface MatDenseGetArrayWrite 836dd63270SBarry Smith Subroutine MatDenseGetArrayWrite1d(v,array,ierr) 84fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 856dd63270SBarry Smith import tMat 866dd63270SBarry Smith PetscScalar, pointer :: array(:) 876dd63270SBarry Smith PetscErrorCode ierr 886dd63270SBarry Smith Mat v 896dd63270SBarry Smith End Subroutine 906dd63270SBarry Smith Subroutine MatDenseGetArrayWrite2d(v,array,ierr) 91fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 926dd63270SBarry Smith import tMat 936dd63270SBarry Smith PetscScalar, pointer :: array(:,:) 946dd63270SBarry Smith PetscErrorCode ierr 956dd63270SBarry Smith Mat v 966dd63270SBarry Smith End Subroutine 976dd63270SBarry Smith end interface 986dd63270SBarry Smith 996dd63270SBarry Smith interface MatDenseRestoreArrayWrite 1006dd63270SBarry Smith Subroutine MatDenseRestoreArrayWrite1d(v,array,ierr) 101fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 1026dd63270SBarry Smith import tMat 1036dd63270SBarry Smith PetscScalar, pointer :: array(:) 1046dd63270SBarry Smith PetscErrorCode ierr 1056dd63270SBarry Smith Mat v 1066dd63270SBarry Smith End Subroutine 1076dd63270SBarry Smith Subroutine MatDenseRestoreArrayWrite2d(v,array,ierr) 108fe66ebccSMartin Diehl use, intrinsic :: ISO_C_binding 1096dd63270SBarry Smith import tMat 1106dd63270SBarry Smith PetscScalar, pointer :: array(:,:) 1116dd63270SBarry Smith PetscErrorCode ierr 1126dd63270SBarry Smith Mat v 1136dd63270SBarry Smith End Subroutine 1146dd63270SBarry Smith end interface 115*8c31b630SBarry Smith 116*8c31b630SBarry Smith interface 117*8c31b630SBarry Smith subroutine MatNullSpaceRestoreVecs(a,b,c,d, z) 118*8c31b630SBarry Smith use, intrinsic :: ISO_C_binding 119*8c31b630SBarry Smith import tMatNullSpace,tVec 120*8c31b630SBarry Smith MatNullSpace :: a 121*8c31b630SBarry Smith PetscBool :: b 122*8c31b630SBarry Smith PetscInt :: c 123*8c31b630SBarry Smith Vec, pointer :: d(:) 124*8c31b630SBarry Smith PetscErrorCode z 125*8c31b630SBarry Smith end subroutine 126*8c31b630SBarry Smith end interface 127*8c31b630SBarry Smith#if defined(_WIN32) && defined(PETSC_USE_SHARED_LIBRARIES) 128*8c31b630SBarry Smith!DEC$ ATTRIBUTES DLLEXPORT::MatNullSpaceRestoreVecs 129*8c31b630SBarry Smith#endif 130