xref: /petsc/src/dm/ftn-mod/petscdmda.h90 (revision fe66ebcc023cb303106674d426ee542bea707d38)
16dd63270SBarry Smith
26dd63270SBarry Smith      Interface DMDAVecGetArray
36dd63270SBarry Smith        Subroutine DMDAVecGetArrayF901(da1, v,d1,ierr)
4*fe66ebccSMartin Diehl      use, intrinsic :: ISO_C_binding
56dd63270SBarry Smith          import tDM,tVec
66dd63270SBarry Smith          DM da1
76dd63270SBarry Smith          Vec v
86dd63270SBarry Smith          PetscScalar,pointer :: d1(:)
96dd63270SBarry Smith          PetscErrorCode ierr
106dd63270SBarry Smith        End Subroutine
116dd63270SBarry Smith        Subroutine DMDAVecGetArrayF902(da1, v,d1,ierr)
12*fe66ebccSMartin Diehl      use, intrinsic :: ISO_C_binding
136dd63270SBarry Smith          import tDM,tVec
146dd63270SBarry Smith          DM da1
156dd63270SBarry Smith          Vec v
166dd63270SBarry Smith          PetscScalar,pointer :: d1(:,:)
176dd63270SBarry Smith          PetscErrorCode ierr
186dd63270SBarry Smith        End Subroutine
196dd63270SBarry Smith        Subroutine DMDAVecGetArrayF903(da1, v,d1,ierr)
20*fe66ebccSMartin Diehl      use, intrinsic :: ISO_C_binding
216dd63270SBarry Smith          import tDM,tVec
226dd63270SBarry Smith          DM da1
236dd63270SBarry Smith          Vec v
246dd63270SBarry Smith          PetscScalar,pointer :: d1(:,:,:)
256dd63270SBarry Smith          PetscErrorCode ierr
266dd63270SBarry Smith        End Subroutine
276dd63270SBarry Smith        Subroutine DMDAVecGetArrayF904(da1, v,d1,ierr)
28*fe66ebccSMartin Diehl      use, intrinsic :: ISO_C_binding
296dd63270SBarry Smith          import tDM,tVec
306dd63270SBarry Smith          DM da1
316dd63270SBarry Smith          Vec v
326dd63270SBarry Smith          PetscScalar,pointer :: d1(:,:,:,:)
336dd63270SBarry Smith          PetscErrorCode ierr
346dd63270SBarry Smith        End Subroutine
356dd63270SBarry Smith      End Interface DMDAVecGetArray
366dd63270SBarry Smith
376dd63270SBarry Smith      Interface DMDAVecRestoreArray
386dd63270SBarry Smith        Subroutine DMDAVecRestoreArrayF901(da1, v,d1,ierr)
39*fe66ebccSMartin Diehl      use, intrinsic :: ISO_C_binding
406dd63270SBarry Smith          import tDM,tVec
416dd63270SBarry Smith          DM da1
426dd63270SBarry Smith          Vec v
436dd63270SBarry Smith          PetscScalar,pointer :: d1(:)
446dd63270SBarry Smith          PetscErrorCode ierr
456dd63270SBarry Smith        End Subroutine
466dd63270SBarry Smith        Subroutine DMDAVecRestoreArrayF902(da1, v,d1,ierr)
47*fe66ebccSMartin Diehl      use, intrinsic :: ISO_C_binding
486dd63270SBarry Smith          import tDM,tVec
496dd63270SBarry Smith          DM da1
506dd63270SBarry Smith          Vec v
516dd63270SBarry Smith          PetscScalar,pointer :: d1(:,:)
526dd63270SBarry Smith          PetscErrorCode ierr
536dd63270SBarry Smith        End Subroutine
546dd63270SBarry Smith        Subroutine DMDAVecRestoreArrayF903(da1, v,d1,ierr)
55*fe66ebccSMartin Diehl      use, intrinsic :: ISO_C_binding
566dd63270SBarry Smith          import tDM,tVec
576dd63270SBarry Smith          DM da1
586dd63270SBarry Smith          Vec v
596dd63270SBarry Smith          PetscScalar,pointer :: d1(:,:,:)
606dd63270SBarry Smith          PetscErrorCode ierr
616dd63270SBarry Smith        End Subroutine
626dd63270SBarry Smith        Subroutine DMDAVecRestoreArrayF904(da1, v,d1,ierr)
63*fe66ebccSMartin Diehl      use, intrinsic :: ISO_C_binding
646dd63270SBarry Smith          import tDM,tVec
656dd63270SBarry Smith          DM da1
666dd63270SBarry Smith          Vec v
676dd63270SBarry Smith          PetscScalar,pointer :: d1(:,:,:,:)
686dd63270SBarry Smith          PetscErrorCode ierr
696dd63270SBarry Smith        End Subroutine
706dd63270SBarry Smith      End Interface DMDAVecRestoreArray
716dd63270SBarry Smith
726dd63270SBarry Smith      Interface DMDAVecGetArrayRead
736dd63270SBarry Smith        Subroutine DMDAVecGetArrayReadF901(da1, v,d1,ierr)
74*fe66ebccSMartin Diehl      use, intrinsic :: ISO_C_binding
756dd63270SBarry Smith          import tDM,tVec
766dd63270SBarry Smith          DM da1
776dd63270SBarry Smith          Vec v
786dd63270SBarry Smith          PetscScalar,pointer :: d1(:)
796dd63270SBarry Smith          PetscErrorCode ierr
806dd63270SBarry Smith        End Subroutine
816dd63270SBarry Smith        Subroutine DMDAVecGetArrayReadF902(da1, v,d1,ierr)
82*fe66ebccSMartin Diehl      use, intrinsic :: ISO_C_binding
836dd63270SBarry Smith          import tDM,tVec
846dd63270SBarry Smith          DM da1
856dd63270SBarry Smith          Vec v
866dd63270SBarry Smith          PetscScalar,pointer :: d1(:,:)
876dd63270SBarry Smith          PetscErrorCode ierr
886dd63270SBarry Smith        End Subroutine
896dd63270SBarry Smith        Subroutine DMDAVecGetArrayReadF903(da1, v,d1,ierr)
90*fe66ebccSMartin Diehl      use, intrinsic :: ISO_C_binding
916dd63270SBarry Smith          import tDM,tVec
926dd63270SBarry Smith          DM da1
936dd63270SBarry Smith          Vec v
946dd63270SBarry Smith          PetscScalar,pointer :: d1(:,:,:)
956dd63270SBarry Smith          PetscErrorCode ierr
966dd63270SBarry Smith        End Subroutine
976dd63270SBarry Smith        Subroutine DMDAVecGetArrayReadF904(da1, v,d1,ierr)
98*fe66ebccSMartin Diehl      use, intrinsic :: ISO_C_binding
996dd63270SBarry Smith          import tDM,tVec
1006dd63270SBarry Smith          DM da1
1016dd63270SBarry Smith          Vec v
1026dd63270SBarry Smith          PetscScalar,pointer :: d1(:,:,:,:)
1036dd63270SBarry Smith          PetscErrorCode ierr
1046dd63270SBarry Smith        End Subroutine
1056dd63270SBarry Smith      End Interface DMDAVecGetArrayRead
1066dd63270SBarry Smith
1076dd63270SBarry Smith      Interface DMDAVecRestoreArrayRead
1086dd63270SBarry Smith        Subroutine DMDAVecRestoreArrayReadF901(da1, v,d1,ierr)
109*fe66ebccSMartin Diehl      use, intrinsic :: ISO_C_binding
1106dd63270SBarry Smith          import tDM,tVec
1116dd63270SBarry Smith          DM da1
1126dd63270SBarry Smith          Vec v
1136dd63270SBarry Smith          PetscScalar,pointer :: d1(:)
1146dd63270SBarry Smith          PetscErrorCode ierr
1156dd63270SBarry Smith        End Subroutine
1166dd63270SBarry Smith        Subroutine DMDAVecRestoreArrayReadF902(da1, v,d1,ierr)
117*fe66ebccSMartin Diehl      use, intrinsic :: ISO_C_binding
1186dd63270SBarry Smith          import tDM,tVec
1196dd63270SBarry Smith          DM da1
1206dd63270SBarry Smith          Vec v
1216dd63270SBarry Smith          PetscScalar,pointer :: d1(:,:)
1226dd63270SBarry Smith          PetscErrorCode ierr
1236dd63270SBarry Smith        End Subroutine
1246dd63270SBarry Smith        Subroutine DMDAVecRestoreArrayReadF903(da1, v,d1,ierr)
125*fe66ebccSMartin Diehl      use, intrinsic :: ISO_C_binding
1266dd63270SBarry Smith          import tDM,tVec
1276dd63270SBarry Smith          DM da1
1286dd63270SBarry Smith          Vec v
1296dd63270SBarry Smith          PetscScalar,pointer :: d1(:,:,:)
1306dd63270SBarry Smith          PetscErrorCode ierr
1316dd63270SBarry Smith        End Subroutine
1326dd63270SBarry Smith        Subroutine DMDAVecRestoreArrayReadF904(da1, v,d1,ierr)
133*fe66ebccSMartin Diehl      use, intrinsic :: ISO_C_binding
1346dd63270SBarry Smith          import tDM,tVec
1356dd63270SBarry Smith          DM da1
1366dd63270SBarry Smith          Vec v
1376dd63270SBarry Smith          PetscScalar,pointer :: d1(:,:,:,:)
1386dd63270SBarry Smith          PetscErrorCode ierr
1396dd63270SBarry Smith        End Subroutine
1406dd63270SBarry Smith      End Interface DMDAVecRestoreArrayRead
1416dd63270SBarry Smith
1426dd63270SBarry Smith      Interface DMDARestoreNeighbors
1436dd63270SBarry Smith        Subroutine DMDARestoreNeighbors(a,b,z)
144*fe66ebccSMartin Diehl      use, intrinsic :: ISO_C_binding
1456dd63270SBarry Smith          import tDM
1466dd63270SBarry Smith          DM a
1476dd63270SBarry Smith          PetscMPIInt, pointer :: b(:)
1486dd63270SBarry Smith          PetscErrorCode z
1496dd63270SBarry Smith        End Subroutine
1506dd63270SBarry Smith      End Interface DMDARestoreNeighbors
1516dd63270SBarry Smith
1526dd63270SBarry Smith      interface
1536dd63270SBarry Smith        Subroutine DMDARestoreOwnershipRanges(a,lx,ly,lz,z)
154*fe66ebccSMartin Diehl      use, intrinsic :: ISO_C_binding
1556dd63270SBarry Smith          import tDM
1566dd63270SBarry Smith          DM a
1576dd63270SBarry Smith          PetscInt, pointer :: lx(:), ly(:), lz(:)
1586dd63270SBarry Smith          PetscErrorCode z
1596dd63270SBarry Smith        End Subroutine
1606dd63270SBarry Smith        End Interface
161