xref: /petsc/src/mat/ftn-mod/petscmat.h90 (revision fe66ebcc023cb303106674d426ee542bea707d38) 
16dd63270SBarry Smith
26dd63270SBarry Smith
36dd63270SBarry Smith      Interface
46dd63270SBarry Smith        Subroutine MatFDColoringRestorePerturbedColumns(i,len,array,ierr)
5*fe66ebccSMartin 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)
16*fe66ebccSMartin 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)
23*fe66ebccSMartin 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)
33*fe66ebccSMartin 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)
40*fe66ebccSMartin 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)
50*fe66ebccSMartin 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)
57*fe66ebccSMartin 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)
67*fe66ebccSMartin 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)
74*fe66ebccSMartin 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)
84*fe66ebccSMartin 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)
91*fe66ebccSMartin 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)
101*fe66ebccSMartin 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)
108*fe66ebccSMartin 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