diff -r 08fd964326b1 src/sys/objects/ftn-custom/zoptionsf.c
--- a/src/sys/objects/ftn-custom/zoptionsf.c	Thu Jul 12 22:16:33 2012 -0500
+++ b/src/sys/objects/ftn-custom/zoptionsf.c	Fri Jul 13 07:43:39 2012 -0500
@@ -21,6 +21,7 @@
 #define petscoptionsinsertfile_            PETSCOPTIONSINSERTFILE
 #define petscoptionsclear_                 PETSCOPTIONSCLEAR
 #define petscoptionsinsertstring_          PETSCOPTIONSINSERTSTRING
+#define petscoptionsview_                  PETSCOPTIONSVIEW
 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
 #define petscoptionsgetenumprivate_        petscoptionsgetenumprivate
 #define petscoptionsgetbool_               petscoptionsgetbool
@@ -36,6 +37,7 @@
 #define petscoptionsinsertfile_            petscoptionsinsertfile
 #define petscoptionsclear_                 petscoptionsclear
 #define petscoptionsinsertstring_          petscoptionsinsertstring
+#define petscoptionsview_                  petscoptionsview
 #endif
 
 EXTERN_C_BEGIN
@@ -212,5 +214,13 @@ void PETSC_STDCALL petscgetprogramname_(
   FIXRETURNCHAR(PETSC_TRUE,name,len_in);
 }
 
+void PETSC_STDCALL petscoptionsview_(PetscViewer *vin,PetscErrorCode *ierr)
+{
+  PetscViewer v;
+
+  PetscPatchDefaultViewers_Fortran(vin,v);
+  *ierr = PetscOptionsView(v);
+}
+
 EXTERN_C_END