libpetsc3.1-dev 3.1.dfsg-11ubuntu1 / usr / lib / petscdir / 3.1 / include / finclude / ftn-custom / petscda.h90

This file is indexed.

/usr/lib/petscdir/3.1/include/finclude/ftn-custom/petscda.h90 is in libpetsc3.1-dev 3.1.dfsg-11ubuntu1.

This file is owned by root:root, with mode 0o644.

The actual contents of the file can be viewed below. 

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
#if !defined(PETSC_USE_FORTRAN_MODULES) 
#include "finclude/ftn-custom/petscdadef.h90"
#endif
#include "finclude/ftn-custom/petscvechide.h90"
#include "finclude/ftn-custom/petscdahide.h90"

      Interface 
        Subroutine DAGetGlobalIndicesF90(v,n,array,ierr)
          USE_DA_HIDE
          PetscInt, pointer :: array(:)
          PetscInt  n
          PetscErrorCode ierr
          DA_HIDE   v
        End Subroutine
      End Interface


      type DALocalInfof90
        PetscInt ::       dim,dof,sw
        PetscInt ::       mx,my,mz
        PetscInt ::       xs,ys,zs
        PetscInt ::       xm,ym,zm
        PetscInt ::       gxs,gys,gzs
        PetscInt ::       gxm,gym,gzm
        DAPeriodicType :: pt
        DAStencilType  :: st
        DA_HIDE ::        da
      end type DALocalInfof90


      Interface DMCompositeGetEntries
        Subroutine DMCompositeGetEntries1(dm1, d1,ierr)
          USE_DA_HIDE
          DM_HIDE dm1
          PetscErrorCode ierr
        End Subroutine

        Subroutine DMCompositeGetEntries2(dm1, d1,d2,ierr)
          USE_DA_HIDE
          DM_HIDE dm1
          DM_HIDE d1,d2
          PetscErrorCode ierr
        End Subroutine

        Subroutine DMCompositeGetEntries3(dm1, d1,d2,d3,ierr)
          USE_DA_HIDE
          DM_HIDE dm1
          DM_HIDE d1,d2,d3
          PetscErrorCode ierr
        End Subroutine

        Subroutine DMCompositeGetEntries4(dm1, d1,d2,d3,d4,ierr)
          USE_DA_HIDE
          DM_HIDE dm1
          PetscInt d2,d4
          DM_HIDE d1,d3
          PetscErrorCode ierr
        End Subroutine
      End Interface

      Interface DMCompositeGetAccess
        Subroutine DMCompositeGetAccessvpvp(dm1, v,d1,d2,d3,d4,ierr)
          USE_DA_HIDE
          DM_HIDE dm1
          VEC_HIDE v,d1,d3
          PetscScalar,pointer :: d2(:)
          PetscScalar,pointer :: d4(:)
          PetscErrorCode ierr
        End Subroutine
      End Interface

      Interface DMCompositeRestoreAccess
        Subroutine DMCompositeRestoreAccessvpvp(dm1, v,d1,d2,d3,d4,ierr)
          USE_DA_HIDE
          DM_HIDE dm1
          VEC_HIDE v,d1,d3
          PetscScalar,pointer :: d2(:)
          PetscScalar,pointer :: d4(:)
          PetscErrorCode ierr
        End Subroutine
      End Interface

      Interface DAVecGetArrayF90
        Subroutine DAVecGetArrayF901(da1, v,d1,ierr)
          USE_DA_HIDE
          DA_HIDE da1
          VEC_HIDE v
          PetscScalar,pointer :: d1(:)
          PetscErrorCode ierr
        End Subroutine
      End Interface DAVecGetArrayF90

      Interface DAVecRestoreArrayF90
        Subroutine DAVecRestoreArrayF901(da1, v,d1,ierr)
          USE_DA_HIDE
          DA_HIDE da1
          VEC_HIDE v
          PetscScalar,pointer :: d1(:)
          PetscErrorCode ierr
        End Subroutine
      End Interface DAVecRestoreArrayF90

APT Browse - Built by Thomas Orozco.