/usr/lib/petscdir/3.1/include/finclude/ftn-auto/petscis.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 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 | subroutine ISIdentity(is, ident ,ierr)
IS is ! IS
PetscTruth ident ! PetscTruth
integer ierr
end subroutine
subroutine ISSetIdentity(is ,ierr)
IS is ! IS
integer ierr
end subroutine
subroutine ISPermutation(is, perm ,ierr)
IS is ! IS
PetscTruth perm ! PetscTruth
integer ierr
end subroutine
subroutine ISSetPermutation(is ,ierr)
IS is ! IS
integer ierr
end subroutine
subroutine ISDestroy(is ,ierr)
IS is ! IS
integer ierr
end subroutine
subroutine ISInvertPermutation(is, nlocal, isout ,ierr)
IS is ! IS
PetscInt nlocal ! PetscInt
IS isout ! IS
integer ierr
end subroutine
subroutine ISGetSize(is, size ,ierr)
IS is ! IS
PetscInt size ! PetscInt
integer ierr
end subroutine
subroutine ISGetLocalSize(is, size ,ierr)
IS is ! IS
PetscInt size ! PetscInt
integer ierr
end subroutine
subroutine ISSort(is ,ierr)
IS is ! IS
integer ierr
end subroutine
subroutine ISSorted(is, flg ,ierr)
IS is ! IS
PetscTruth flg ! PetscTruth
integer ierr
end subroutine
subroutine ISDuplicate(is, newIS ,ierr)
IS is ! IS
IS newIS ! IS
integer ierr
end subroutine
subroutine ISCopy(is, isy ,ierr)
IS is ! IS
IS isy ! IS
integer ierr
end subroutine
subroutine ISCreateGeneral(comm, n, idx, is ,ierr)
integer comm ! MPI_Comm
PetscInt n ! PetscInt
PetscInt idx (*) ! PetscInt
IS is ! IS
integer ierr
end subroutine
subroutine ISCreateBlock(comm, bs, n, idx, is ,ierr)
integer comm ! MPI_Comm
PetscInt bs ! PetscInt
PetscInt n ! PetscInt
PetscInt idx (*) ! PetscInt
IS is ! IS
integer ierr
end subroutine
subroutine ISBlockGetBlockSize(is, size ,ierr)
IS is ! IS
PetscInt size ! PetscInt
integer ierr
end subroutine
subroutine ISBlock(is, flag ,ierr)
IS is ! IS
PetscTruth flag ! PetscTruth
integer ierr
end subroutine
subroutine ISBlockGetLocalSize(is, size ,ierr)
IS is ! IS
PetscInt size ! PetscInt
integer ierr
end subroutine
subroutine ISBlockGetSize(is, size ,ierr)
IS is ! IS
PetscInt size ! PetscInt
integer ierr
end subroutine
subroutine ISStrideGetInfo(is, first, step ,ierr)
IS is ! IS
PetscInt first ! PetscInt
PetscInt step ! PetscInt
integer ierr
end subroutine
subroutine ISStride(is, flag ,ierr)
IS is ! IS
PetscTruth flag ! PetscTruth
integer ierr
end subroutine
subroutine ISCreateStride(comm, n, first, step, is ,ierr)
integer comm ! MPI_Comm
PetscInt n ! PetscInt
PetscInt first ! PetscInt
PetscInt step ! PetscInt
IS is ! IS
integer ierr
end subroutine
subroutine ISDifference(is1, is2, isout ,ierr)
IS is1 ! IS
IS is2 ! IS
IS isout ! IS
integer ierr
end subroutine
subroutine ISSum(is1, is2, is3 ,ierr)
IS is1 ! IS
IS is2 ! IS
IS is3 ! IS
integer ierr
end subroutine
subroutine ISExpand(is1, is2, isout ,ierr)
IS is1 ! IS
IS is2 ! IS
IS isout ! IS
integer ierr
end subroutine
subroutine ISLocalToGlobalMappingCreateIS(is, mapping ,ierr)
IS is ! IS
ISLocalToGlobalMapping mapping ! ISLocalToGlobalMapping
integer ierr
end subroutine
subroutine ISLocalToGlobalMappingCreate(cm, n, indices, mapping &
&,ierr)
integer cm ! MPI_Comm
PetscInt n ! PetscInt
PetscInt indices (*) ! PetscInt
ISLocalToGlobalMapping mapping ! ISLocalToGlobalMapping
integer ierr
end subroutine
subroutine ISLocalToGlobalMappingBlock(inmap, bs, outmap ,ierr)
ISLocalToGlobalMapping inmap ! ISLocalToGlobalMapping
PetscInt bs ! PetscInt
ISLocalToGlobalMapping outmap ! ISLocalToGlobalMapping
integer ierr
end subroutine
subroutine ISLocalToGlobalMappingDestroy(mapping ,ierr)
ISLocalToGlobalMapping mapping ! ISLocalToGlobalMapping
integer ierr
end subroutine
subroutine ISLocalToGlobalMappingApplyIS(mapping, is, newis , &
&ierr)
ISLocalToGlobalMapping mapping ! ISLocalToGlobalMapping
IS is ! IS
IS newis ! IS
integer ierr
end subroutine
subroutine ISGlobalToLocalMappingApply(mapping, type, n, idx, &
&nout, idxout ,ierr)
ISLocalToGlobalMapping mapping ! ISLocalToGlobalMapping
ISGlobalToLocalMappingType type ! ISGlobalToLocalMappingType
PetscInt n ! PetscInt
PetscInt idx (*) ! PetscInt
PetscInt nout ! PetscInt
PetscInt idxout (*) ! PetscInt
integer ierr
end subroutine
subroutine ISColoringDestroy(iscoloring ,ierr)
ISColoring iscoloring ! ISColoring
integer ierr
end subroutine
subroutine ISPartitioningToNumbering(part, is ,ierr)
IS part ! IS
IS is ! IS
integer ierr
end subroutine
subroutine ISPartitioningCount(part, len, count ,ierr)
IS part ! IS
PetscInt len ! PetscInt
PetscInt count (*) ! PetscInt
integer ierr
end subroutine
subroutine ISAllGather(is, isout ,ierr)
IS is ! IS
IS isout ! IS
integer ierr
end subroutine
subroutine ISComplement(is, nmin, nmax, isout ,ierr)
IS is ! IS
PetscInt nmin ! PetscInt
PetscInt nmax ! PetscInt
IS isout ! IS
integer ierr
end subroutine
subroutine ISEqual(is1, is2, flg ,ierr)
IS is1 ! IS
IS is2 ! IS
PetscTruth flg ! PetscTruth
integer ierr
end subroutine
|