/usr/lib/petscdir/3.4.2/include/finclude/ftn-auto/petscpcmg.h90 is in libpetsc3.4.2-dev 3.4.2.dfsg1-8.1+b1.
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 | subroutine PCMGGetLevels(pc, levels ,ierr)
PC pc ! PC
PetscInt levels ! PetscInt
integer ierr
end subroutine
subroutine PCMGSetType(pc, form ,ierr)
PC pc ! PC
PCMGType form ! PCMGType
integer ierr
end subroutine
subroutine PCMGSetCycleType(pc, n ,ierr)
PC pc ! PC
PCMGCycleType n ! PCMGCycleType
integer ierr
end subroutine
subroutine PCMGMultiplicativeSetCycles(pc, n ,ierr)
PC pc ! PC
PetscInt n ! PetscInt
integer ierr
end subroutine
subroutine PCMGSetGalerkin(pc, use ,ierr)
PC pc ! PC
PetscBool use ! PetscBool
integer ierr
end subroutine
subroutine PCMGGetGalerkin(pc, galerkin ,ierr)
PC pc ! PC
PetscBool galerkin ! PetscBool
integer ierr
end subroutine
subroutine PCMGSetNumberSmoothDown(pc, n ,ierr)
PC pc ! PC
PetscInt n ! PetscInt
integer ierr
end subroutine
subroutine PCMGSetNumberSmoothUp(pc, n ,ierr)
PC pc ! PC
PetscInt n ! PetscInt
integer ierr
end subroutine
subroutine PCMGGetCoarseSolve(pc, ksp ,ierr)
PC pc ! PC
KSP ksp ! KSP
integer ierr
end subroutine
subroutine PCMGSetInterpolation(pc, l, mat ,ierr)
PC pc ! PC
PetscInt l ! PetscInt
Mat mat ! Mat
integer ierr
end subroutine
subroutine PCMGGetInterpolation(pc, l, mat ,ierr)
PC pc ! PC
PetscInt l ! PetscInt
Mat mat ! Mat
integer ierr
end subroutine
subroutine PCMGSetRestriction(pc, l, mat ,ierr)
PC pc ! PC
PetscInt l ! PetscInt
Mat mat ! Mat
integer ierr
end subroutine
subroutine PCMGGetRestriction(pc, l, mat ,ierr)
PC pc ! PC
PetscInt l ! PetscInt
Mat mat ! Mat
integer ierr
end subroutine
subroutine PCMGSetRScale(pc, l, rscale ,ierr)
PC pc ! PC
PetscInt l ! PetscInt
Vec rscale ! Vec
integer ierr
end subroutine
subroutine PCMGGetRScale(pc, l, rscale ,ierr)
PC pc ! PC
PetscInt l ! PetscInt
Vec rscale ! Vec
integer ierr
end subroutine
subroutine PCMGGetSmoother(pc, l, ksp ,ierr)
PC pc ! PC
PetscInt l ! PetscInt
KSP ksp ! KSP
integer ierr
end subroutine
subroutine PCMGGetSmootherUp(pc, l, ksp ,ierr)
PC pc ! PC
PetscInt l ! PetscInt
KSP ksp ! KSP
integer ierr
end subroutine
subroutine PCMGGetSmootherDown(pc, l, ksp ,ierr)
PC pc ! PC
PetscInt l ! PetscInt
KSP ksp ! KSP
integer ierr
end subroutine
subroutine PCMGSetCyclesOnLevel(pc, l, c ,ierr)
PC pc ! PC
PetscInt l ! PetscInt
PetscInt c ! PetscInt
integer ierr
end subroutine
subroutine PCMGSetRhs(pc, l, c ,ierr)
PC pc ! PC
PetscInt l ! PetscInt
Vec c ! Vec
integer ierr
end subroutine
subroutine PCMGSetX(pc, l, c ,ierr)
PC pc ! PC
PetscInt l ! PetscInt
Vec c ! Vec
integer ierr
end subroutine
subroutine PCMGSetR(pc, l, c ,ierr)
PC pc ! PC
PetscInt l ! PetscInt
Vec c ! Vec
integer ierr
end subroutine
|