Date: 2022-08-02T03:14:22+00:00

Actual source code: petscdmda.h90

      3:       type DMDALocalInfof90
      4:         PetscInt ::       dim,dof,sw
      5:         PetscInt ::       mx,my,mz
      6:         PetscInt ::       xs,ys,zs
      7:         PetscInt ::       xm,ym,zm
      8:         PetscInt ::       gxs,gys,gzs
      9:         PetscInt ::       gxm,gym,gzm
     10:         DMBoundaryType :: pt
     11:         DMDAStencilType  :: st
     12:         DM ::        da
     13:       end type DMDALocalInfof90

     15:       Interface DMDAVecGetArrayF90
     16:         Subroutine DMDAVecGetArrayF901(da1, v,d1,ierr)
     17:           import tDM,tVec
     18:           DM da1
     19:           Vec v
     20:           PetscScalar,pointer :: d1(:)
     21:           PetscErrorCode ierr
     22:         End Subroutine
     23:         Subroutine DMDAVecGetArrayF902(da1, v,d1,ierr)
     24:           import tDM,tVec
     25:           DM da1
     26:           Vec v
     27:           PetscScalar,pointer :: d1(:,:)
     28:           PetscErrorCode ierr
     29:         End Subroutine
     30:         Subroutine DMDAVecGetArrayF903(da1, v,d1,ierr)
     31:           import tDM,tVec
     32:           DM da1
     33:           Vec v
     34:           PetscScalar,pointer :: d1(:,:,:)
     35:           PetscErrorCode ierr
     36:         End Subroutine
     37:         Subroutine DMDAVecGetArrayF904(da1, v,d1,ierr)
     38:           import tDM,tVec
     39:           DM da1
     40:           Vec v
     41:           PetscScalar,pointer :: d1(:,:,:,:)
     42:           PetscErrorCode ierr
     43:         End Subroutine
     44:       End Interface DMDAVecGetArrayF90

     46:       Interface DMDAVecRestoreArrayF90
     47:         Subroutine DMDAVecRestoreArrayF901(da1, v,d1,ierr)
     48:           import tDM,tVec
     49:           DM da1
     50:           Vec v
     51:           PetscScalar,pointer :: d1(:)
     52:           PetscErrorCode ierr
     53:         End Subroutine
     54:         Subroutine DMDAVecRestoreArrayF902(da1, v,d1,ierr)
     55:           import tDM,tVec
     56:           DM da1
     57:           Vec v
     58:           PetscScalar,pointer :: d1(:,:)
     59:           PetscErrorCode ierr
     60:         End Subroutine
     61:         Subroutine DMDAVecRestoreArrayF903(da1, v,d1,ierr)
     62:           import tDM,tVec
     63:           DM da1
     64:           Vec v
     65:           PetscScalar,pointer :: d1(:,:,:)
     66:           PetscErrorCode ierr
     67:         End Subroutine
     68:         Subroutine DMDAVecRestoreArrayF904(da1, v,d1,ierr)
     69:           import tDM,tVec
     70:           DM da1
     71:           Vec v
     72:           PetscScalar,pointer :: d1(:,:,:,:)
     73:           PetscErrorCode ierr
     74:         End Subroutine
     75:       End Interface DMDAVecRestoreArrayF90

     77:       Interface DMDAVecGetArrayReadF90
     78:         Subroutine DMDAVecGetArrayReadF901(da1, v,d1,ierr)
     79:           import tDM,tVec
     80:           DM da1
     81:           Vec v
     82:           PetscScalar,pointer :: d1(:)
     83:           PetscErrorCode ierr
     84:         End Subroutine
     85:         Subroutine DMDAVecGetArrayReadF902(da1, v,d1,ierr)
     86:           import tDM,tVec
     87:           DM da1
     88:           Vec v
     89:           PetscScalar,pointer :: d1(:,:)
     90:           PetscErrorCode ierr
     91:         End Subroutine
     92:         Subroutine DMDAVecGetArrayReadF903(da1, v,d1,ierr)
     93:           import tDM,tVec
     94:           DM da1
     95:           Vec v
     96:           PetscScalar,pointer :: d1(:,:,:)
     97:           PetscErrorCode ierr
     98:         End Subroutine
     99:         Subroutine DMDAVecGetArrayReadF904(da1, v,d1,ierr)
    100:           import tDM,tVec
    101:           DM da1
    102:           Vec v
    103:           PetscScalar,pointer :: d1(:,:,:,:)
    104:           PetscErrorCode ierr
    105:         End Subroutine
    106:       End Interface DMDAVecGetArrayReadF90

    108:       Interface DMDAVecRestoreArrayReadF90
    109:         Subroutine DMDAVecRestoreArrayReadF901(da1, v,d1,ierr)
    110:           import tDM,tVec
    111:           DM da1
    112:           Vec v
    113:           PetscScalar,pointer :: d1(:)
    114:           PetscErrorCode ierr
    115:         End Subroutine
    116:         Subroutine DMDAVecRestoreArrayReadF902(da1, v,d1,ierr)
    117:           import tDM,tVec
    118:           DM da1
    119:           Vec v
    120:           PetscScalar,pointer :: d1(:,:)
    121:           PetscErrorCode ierr
    122:         End Subroutine
    123:         Subroutine DMDAVecRestoreArrayReadF903(da1, v,d1,ierr)
    124:           import tDM,tVec
    125:           DM da1
    126:           Vec v
    127:           PetscScalar,pointer :: d1(:,:,:)
    128:           PetscErrorCode ierr
    129:         End Subroutine
    130:         Subroutine DMDAVecRestoreArrayReadF904(da1, v,d1,ierr)
    131:           import tDM,tVec
    132:           DM da1
    133:           Vec v
    134:           PetscScalar,pointer :: d1(:,:,:,:)
    135:           PetscErrorCode ierr
    136:         End Subroutine
    137:       End Interface DMDAVecRestoreArrayReadF90

    139:       Interface DMDACreate1d
    140:         Subroutine DMDACreate1d(a,b,c,d,e,f,g,z)
    141:           import tDM
    142:           MPI_Comm a
    143:           DMBoundaryType b
    144:           PetscInt c,d,e,f(*)
    145:           DM g
    146:           PetscErrorCode z
    147:         End Subroutine
    148:       End Interface DMDACreate1d

    150:       Interface DMDACreate2d
    151:         Subroutine DMDACreate2d(a,b,c,d,e,f,g,h,i,j,k,l,m,z)
    152:           import tDM
    153:           MPI_Comm a
    154:           DMBoundaryType b,c
    155:           DMDAStencilType d
    156:           PetscInt e,f,g,h,i,j,k(*),l(*)
    157:           DM m
    158:           PetscErrorCode z
    159:         End Subroutine
    160:       End Interface DMDACreate2d

    162:       Interface DMDACreate3d
    163:       Subroutine DMDACreate3d(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,z)
    164:           import tDM
    165:           MPI_Comm a
    166:           DMBoundaryType b,c,d
    167:           DMDAStencilType e
    168:           PetscInt f,g,h,i,j,k,l,m,n(*)
    169:           PetscInt o(*),p(*)
    170:           DM q
    171:           PetscErrorCode z
    172:         End Subroutine
    173:       End Interface DMDACreate3d

    175:       Interface DMDAGetNeighbors
    176:         Subroutine DMDAGetNeighbors(a,b,z)
    177:           import tDM
    178:           DM a
    179:           PetscMPIInt b(*)
    180:           PetscErrorCode z
    181:         End Subroutine
    182:       End Interface DMDAGetNeighbors

    184:       Interface DMDAGetOwnershipRange
    185:         Subroutine DMDAGetOwnershipRange(a,b,c,d,z)
    186:           import tDM
    187:           DM a
    188:           PetscInt b(*), c(*), d(*)
    189:           PetscErrorCode z
    190:         End Subroutine
    191:       End Interface DMDAGetOwnershipRange

    193:       Interface DMDAGetRefinementFactor
    194:         Subroutine DMDAGetRefinementFactor(a,b,c,d,z)
    195:           import tDM
    196:           DM a
    197:           PetscInt b(*), c(*), d(*)
    198:           PetscErrorCode z
    199:         End Subroutine
    200:       End Interface DMDAGetRefinementFactor

    202:       Interface DMDASetFieldName
    203:         Subroutine DMDASetFieldName(a,b,c,z)
    204:           import tDM
    205:           DM a
    206:           PetscInt b
    207:           character(*) c
    208:           PetscErrorCode z
    209:         End Subroutine
    210:       End Interface DMDASetFieldName

    212:       Interface DMDAGetFieldName
    213:         Subroutine DMDAGetFieldName(a,b,c,z)
    214:           import tDM
    215:           DM a
    216:           PetscInt b
    217:           character(*) c
    218:           PetscErrorCode z
    219:         End Subroutine
    220:       End Interface DMDAGetFieldName

    222:       Interface DMDASetAOType
    223:         Subroutine DMDASetAOType(a,b,z)
    224:           import tDM
    225:           DM a
    226:           character(*) b
    227:           PetscErrorCode z
    228:         End Subroutine
    229:       End Interface DMDASetAOType

    231:       Interface DMDAGetScatter
    232:         Subroutine DMDAGetScatter(a,b,c,z)
    233:           import tDM,tVecScatter
    234:           DM a
    235:           VecScatter b,c
    236:           PetscErrorCode z
    237:         End Subroutine
    238:       End Interface DMDAGetScatter

    240:       Interface DMDAGetCorners
    241:         Subroutine DMDAGetCorners000000(a,x,y,z,m,n,p,ierr)
    242:          import tDM
    243:          DM a
    244:          PetscInt, intent(out) :: x,y,z
    245:          PetscInt, intent(out) :: m,n,p
    246:          PetscErrorCode, intent(out) :: ierr
    247:         End Subroutine DMDAGetCorners000000

    249:         Subroutine DMDAGetCorners001001(a,x,y,z,m,n,p,ierr)
    250:          import tDM
    251:          DM a
    252:          PetscInt, intent(out) :: x,y
    253:          PetscInt              :: m,n
    254:          PetscInt              :: z(*),p(*)
    255:          PetscErrorCode, intent(out) :: ierr
    256:         End Subroutine DMDAGetCorners001001

    258:         Subroutine DMDAGetCorners011011(a,x,y,z,m,n,p,ierr)
    259:          import tDM
    260:          DM a
    261:          PetscInt, intent(out) :: x
    262:          PetscInt, intent(out) :: m
    263:          PetscInt              :: z(*),y(*)
    264:          PetscInt              :: p(*),n(*)
    265:          PetscErrorCode, intent(out) :: ierr
    266:          End Subroutine DMDAGetCorners011011
    267:       End Interface DMDAGetCorners

    269:       Interface DMDAGetGhostCorners
    270:         Subroutine DMDAGetGhostCorners000000(a,x,y,z,m,n,p,ierr)
    271:          import tDM
    272:          DM a
    273:          PetscInt, intent(out) :: x,y,z
    274:          PetscInt, intent(out) :: m,n,p
    275:          PetscErrorCode, intent(out) :: ierr
    276:         End Subroutine DMDAGetGhostCorners000000

    278:         Subroutine DMDAGetGhostCorners001001(a,x,y,z,m,n,p,ierr)
    279:          import tDM
    280:          DM a
    281:          PetscInt, intent(out) :: x,y
    282:          PetscInt              :: m,n
    283:          PetscInt              :: z(*),p(*)
    284:          PetscErrorCode, intent(out) :: ierr
    285:         End Subroutine DMDAGetGhostCorners001001

    287:         Subroutine DMDAGetGhostCorners011011(a,x,y,z,m,n,p,ierr)
    288:          import tDM
    289:          DM a
    290:          PetscInt, intent(out) :: x
    291:          PetscInt, intent(out) :: m
    292:          PetscInt              :: z(*),y(*)
    293:          PetscInt              :: p(*),n(*)
    294:          PetscErrorCode, intent(out) :: ierr
    295:          End Subroutine DMDAGetGhostCorners011011
    296:       End Interface DMDAGetGhostCorners