<html><head><meta http-equiv="Content-Type" content="text/html charset=us-ascii"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space; ">I have <div><br></div><div><div> program main</div><div>#include <finclude/petscdmdef.h></div><div>#include <finclude/petscsnesdef.h></div><div> use petscdm</div><div> use petscsnes</div><div> use petsc_kkt_solver_module</div><div> use petsc_kkt_solver_moduleinterfaces</div><div><br></div><div><br></div><div><div>On Jan 25, 2013, at 11:43 AM, Jed Brown <<a href="mailto:jedbrown@mcs.anl.gov">jedbrown@mcs.anl.gov</a>> wrote:</div><br class="Apple-interchange-newline"><blockquote type="cite"><div dir="ltr"><div>Are you missing an include?<br><br>$ git grep DMDA_BOUNDARY_ include/finclude</div><div>include/finclude/petscdmda.h: PetscEnum DMDA_BOUNDARY_NONE</div><div>include/finclude/petscdmda.h: PetscEnum DMDA_BOUNDARY_GHOSTED</div>
<div>include/finclude/petscdmda.h: PetscEnum DMDA_BOUNDARY_MIRROR</div><div>include/finclude/petscdmda.h: PetscEnum DMDA_BOUNDARY_PERIODIC</div><div>include/finclude/petscdmda.h: parameter (DMDA_BOUNDARY_NONE = 0)</div>
<div>include/finclude/petscdmda.h: parameter (DMDA_BOUNDARY_GHOSTED = 1)</div><div>include/finclude/petscdmda.h: parameter (DMDA_BOUNDARY_MIRROR = 2)</div><div>include/finclude/petscdmda.h: parameter (DMDA_BOUNDARY_PERIODIC = 3)</div>
<div class="gmail_extra"><br><br><div class="gmail_quote">On Fri, Jan 25, 2013 at 10:41 AM, Mark F. Adams <span dir="ltr"><<a href="mailto:mark.adams@columbia.edu" target="_blank">mark.adams@columbia.edu</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">I get some errors when using 'implicit none':<br>
<br>
& DMDA_BOUNDARY_NONE, DMDA_BOUNDARY_NONE, &<br>
1<br>
Error: Symbol 'dmda_boundary_none' at (1) has no IMPLICIT type<br>
petsc_kkt_solver.F90:144.27:<br>
<br>
& DMDA_STENCIL_BOX,nfour,nfour,PETSC_DECIDE,PETSC_DECIDE, &<br>
1<br>
Error: Symbol 'dmda_stencil_box' at (1) has no IMPLICIT type<br>
petsc_kkt_solver.F90:207.61:<br>
<br>
call MatSetOption(Bmat,MAT_IGNORE_OFF_PROCESSOR_ENTRIES,PETSC_TRUE);<br>
1<br>
Error: Symbol 'mat_ignore_off_processor_entries' at (1) has no IMPLICIT type<br>
petsc_kkt_solver.F90:177.38:<br>
<br>
call DMCreateMatrix(daphi,MPIAIJ,Amat,ierr)<br>
1<br>
Error: Symbol 'mpiaij' at (1) has no IMPLICIT type<br>
<br>
And, when I link I get some missing stuff:<br>
<br>
Undefined symbols for architecture x86_64:<br>
"_dmsetoptionsprefix_", referenced from:<br>
_MAIN__ in petsc_kkt_solver.o<br>
"_matnestgetsubmat_", referenced from:<br>
_formjacobian_ in petsc_kkt_solver.o<br>
"_vecnestgetsubvec_", referenced from:<br>
_formjacobian_ in petsc_kkt_solver.o<br>
_formfunction_ in petsc_kkt_solver.o<br>
<br>
Are these missing fortran wrappers?<br>
</blockquote></div><br></div></div>
</blockquote></div><br></div></body></html>