/usr/lib/petscdir/3.1/include/finclude/ftn-auto/petscmesh.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 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 | subroutine SectionRealDestroy(section ,ierr)
SectionReal section ! SectionReal
integer ierr
end subroutine
subroutine SectionRealComplete(section ,ierr)
SectionReal section ! SectionReal
integer ierr
end subroutine
subroutine SectionRealZero(section ,ierr)
SectionReal section ! SectionReal
integer ierr
end subroutine
subroutine SectionRealGetFiberDimension(section, point, size , &
&ierr)
SectionReal section ! SectionReal
PetscInt point ! PetscInt
PetscInt size ! PetscInt
integer ierr
end subroutine
subroutine SectionRealSetFiberDimension(section, point, size , &
&ierr)
SectionReal section ! SectionReal
PetscInt point ! PetscInt
PetscInt size ! PetscInt
integer ierr
end subroutine
subroutine SectionRealSetFiberDimensionField(section, point, &
&size, field ,ierr)
SectionReal section ! SectionReal
PetscInt point ! PetscInt
PetscInt size ! PetscInt
PetscInt field ! PetscInt
integer ierr
end subroutine
subroutine SectionRealGetSize(section, size ,ierr)
SectionReal section ! SectionReal
PetscInt size ! PetscInt
integer ierr
end subroutine
subroutine SectionRealAllocate(section ,ierr)
SectionReal section ! SectionReal
integer ierr
end subroutine
subroutine SectionRealCreateLocalVector(section, localVec ,ierr)&
&
SectionReal section ! SectionReal
Vec localVec ! Vec
integer ierr
end subroutine
subroutine SectionRealAddSpace(section ,ierr)
SectionReal section ! SectionReal
integer ierr
end subroutine
subroutine SectionRealToVec(section, scatter, mode, vec ,ierr)
SectionReal section ! SectionReal
VecScatter scatter ! VecScatter
ScatterMode mode ! ScatterMode
Vec vec ! Vec
integer ierr
end subroutine
subroutine SectionRealClear(section ,ierr)
SectionReal section ! SectionReal
integer ierr
end subroutine
subroutine SectionRealSet(section, val ,ierr)
SectionReal section ! SectionReal
PetscReal val ! PetscReal
integer ierr
end subroutine
subroutine SectionRealAXPY(section, mesh, alpha, X ,ierr)
SectionReal section ! SectionReal
Mesh mesh ! Mesh
PetscScalar alpha ! PetscScalar
SectionReal X ! SectionReal
integer ierr
end subroutine
subroutine SectionIntDestroy(section ,ierr)
SectionInt section ! SectionInt
integer ierr
end subroutine
subroutine SectionIntComplete(section ,ierr)
SectionInt section ! SectionInt
integer ierr
end subroutine
subroutine SectionIntZero(section ,ierr)
SectionInt section ! SectionInt
integer ierr
end subroutine
subroutine SectionIntGetFiberDimension(section, point, size , &
&ierr)
SectionInt section ! SectionInt
PetscInt point ! PetscInt
PetscInt size ! PetscInt
integer ierr
end subroutine
subroutine SectionIntSetFiberDimension(section, point, size , &
&ierr)
SectionInt section ! SectionInt
PetscInt point ! PetscInt
PetscInt size ! PetscInt
integer ierr
end subroutine
subroutine SectionIntSetFiberDimensionField(section, point, size&
&, field ,ierr)
SectionInt section ! SectionInt
PetscInt point ! PetscInt
PetscInt size ! PetscInt
PetscInt field ! PetscInt
integer ierr
end subroutine
subroutine SectionIntGetSize(section, size ,ierr)
SectionInt section ! SectionInt
PetscInt size ! PetscInt
integer ierr
end subroutine
subroutine SectionIntAllocate(section ,ierr)
SectionInt section ! SectionInt
integer ierr
end subroutine
subroutine SectionIntSet(section, val ,ierr)
SectionInt section ! SectionInt
PetscInt val ! PetscInt
integer ierr
end subroutine
subroutine SectionIntAddSpace(section ,ierr)
SectionInt section ! SectionInt
integer ierr
end subroutine
subroutine MeshDestroy(mesh ,ierr)
Mesh mesh ! Mesh
integer ierr
end subroutine
subroutine MeshCreateVector(mesh, section, vec ,ierr)
Mesh mesh ! Mesh
SectionReal section ! SectionReal
Vec vec ! Vec
integer ierr
end subroutine
subroutine MeshCreateGlobalScatter(mesh, section, scatter ,ierr)&
&
Mesh mesh ! Mesh
SectionReal section ! SectionReal
VecScatter scatter ! VecScatter
integer ierr
end subroutine
subroutine MeshSetMaxDof(mesh, maxDof ,ierr)
Mesh mesh ! Mesh
PetscInt maxDof ! PetscInt
integer ierr
end subroutine
subroutine assembleMatrix(A, mesh, section, e, v, mode ,ierr)
Mat A ! Mat
Mesh mesh ! Mesh
SectionReal section ! SectionReal
PetscInt e ! PetscInt
PetscScalar v (*) ! PetscScalar
InsertMode mode ! InsertMode
integer ierr
end subroutine
|