Got it. It works.
While you are at it, would you minding adding the binding for PetscOptionsLeft.
I am attaching the patch,
diff --git a/src/sys/objects/ftn-custom/zoptionsf.c
b/src/sys/objects/ftn-custom/zoptionsf.c
index 65d64b1580..9d36bc2d4d 100644
--- a/src/sys/objects/ftn-custom/zoptionsf.c
+++ b/src/sys/objects/ftn-custom/zoptionsf.c
@@ -24,6 +24,7 @@
#define petscoptionsclear_ PETSCOPTIONSCLEAR
#define petscoptionsinsertstring_ PETSCOPTIONSINSERTSTRING
#define petscoptionsview_ PETSCOPTIONSVIEW
+#define petscoptionsleft_ PETSCOPTIONSLEFT
#define petscobjectviewfromoptions_ PETSCOBJECTVIEWFROMOPTIONS
#elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
#define petscoptionsgetenumprivate_ petscoptionsgetenumprivate
@@ -42,6 +43,7 @@
#define petscoptionsclear_ petscoptionsclear
#define petscoptionsinsertstring_ petscoptionsinsertstring
#define petscoptionsview_ petscoptionsview
+#define petscoptionsleft_ petscoptionsleft
#define petscobjectviewfromoptions_ petscobjectviewfromoptions
#endif
@@ -254,6 +256,12 @@ PETSC_EXTERN void PETSC_STDCALL
petscoptionsview_(PetscOptions *options,PetscVie
*ierr = PetscOptionsView(*options,v);
}
+PETSC_EXTERN void PETSC_STDCALL petscoptionsleft_(PetscOptions
*options,PetscErrorCode *ierr)
+{
+ CHKFORTRANNULLOBJECTDEREFERENCE(options);
+ *ierr = PetscOptionsLeft(*options);
+}
+
PETSC_EXTERN void PETSC_STDCALL petscobjectviewfromoptions_(PetscObject
*obj,PetscObject *bobj,char* option PETSC_MIXED_LEN(loption),PetscErrorCode
*ierr PETSC_END_LEN(loption))
{
char *o;
Blaise
On Jul 14, 2017, at 3:54 PM, Satish Balay
<[email protected]<mailto:[email protected]>> wrote:
include/petscsys.h:PETSC_EXTERN PetscErrorCode
PetscDataTypeGetSize(PetscDataType,size_t*);
Looks like this needs a custom stub due to 'size_t' parameter.
I've aded the custom interface to balay/add-ftn-PetscDataTypeGetSize. Can you
give it a try?
You would have to use a datatype that matches 'size_t' on the fortran size -
i.e PetscSizeT.
Satish
On Fri, 14 Jul 2017, Blaise A Bourdin wrote:
Hi,
It looks like the fortran binding for PetscDataTypeGetSize was removed a while
ago. Evidently, auto generated binding won’t work here.
I’m a bit out of sync with the recent fortran changes, but why are
automatically generated binding not working anymore, and what should the proper
binding look like?
Alternatively, is there a new recommended way to query the size of a Petsc type
from fortran?
Blaise
--
Department of Mathematics and Center for Computation & Technology
Louisiana State University, Baton Rouge, LA 70803, USA
Tel. +1 (225) 578 1612, Fax +1 (225) 578 4276 http://www.math.lsu.edu/~bourdin
