/usr/lib/petscdir/3.1/include/finclude/ftn-auto/petscmatfd.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 | subroutine MatFDColoringSetParameters(matfd, error, umin ,ierr)
MatFDColoring matfd ! MatFDColoring
PetscReal error ! PetscReal
PetscReal umin ! PetscReal
integer ierr
end subroutine
subroutine MatFDColoringSetFromOptions(matfd ,ierr)
MatFDColoring matfd ! MatFDColoring
integer ierr
end subroutine
subroutine MatFDColoringCreate(mat, iscoloring, color ,ierr)
Mat mat ! Mat
ISColoring iscoloring ! ISColoring
MatFDColoring color ! MatFDColoring
integer ierr
end subroutine
subroutine MatFDColoringDestroy(c ,ierr)
MatFDColoring c ! MatFDColoring
integer ierr
end subroutine
subroutine MatFDColoringApply(J, coloring, x1, flag, sctx ,ierr)&
&
Mat J ! Mat
MatFDColoring coloring ! MatFDColoring
Vec x1 ! Vec
MatStructure flag ! MatStructure
PetscVoid sctx ! void
integer ierr
end subroutine
subroutine MatFDColoringApplyTS(J, coloring, t, x1, flag, sctx ,&
&ierr)
Mat J ! Mat
MatFDColoring coloring ! MatFDColoring
PetscReal t ! PetscReal
Vec x1 ! Vec
MatStructure flag ! MatStructure
PetscVoid sctx ! void
integer ierr
end subroutine
|