<div dir="ltr"><div class="gmail_extra"><div class="gmail_quote">On Wed, Apr 2, 2014 at 5:18 AM, TAY wee-beng <span dir="ltr"><<a href="mailto:zonexo@gmail.com" target="_blank">zonexo@gmail.com</a>></span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">
  

    
  
  <div text="#000000" bgcolor="#FFFFFF">
    Hi,<br>
    <br>
    May I know what's the difference between ex5f, ex5f90 and ex5f90t?<br></div></blockquote><div><br></div><div>This describes the various options:</div><div><br></div><div>  <a href="http://www.mcs.anl.gov/petsc/petsc-current/docs/manualpages/Sys/UsingFortran.html">http://www.mcs.anl.gov/petsc/petsc-current/docs/manualpages/Sys/UsingFortran.html</a></div>
<div><br></div><div>    Matt</div><div> </div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex"><div text="#000000" bgcolor="#FFFFFF">

    I wrote my CFD code in F90, and I would like to create a Poisson
    solver subroutine based on the ex5 example. The solver will be
    placed inside a module.<br>
    <br>
    So which is the preferred format to use?<br>
    <br>
    Btw, my code is something like this:<br>
    <br>
    <i><b>module PETSc_solvers</b></i><i><b><br>
      </b></i><i><b><br>
      </b></i><i><b>use set_matrix</b></i><i><b><br>
      </b></i><i><b><br>
      </b></i><i><b>use ibm</b></i><i><b><br>
      </b></i><i><b><br>
      </b></i><i><b>implicit none</b></i><i><b><br>
      </b></i><i><b><br>
      </b></i><i><b>contains</b></i><i><b><br>
      </b></i><i><b><br>
      </b></i><i><b>subroutine semi_momentum_simple_xyz(du,dv,dw)</b></i><i><b><br>
      </b></i><i><b><br>
      </b></i><i><b>!discretise momentum eqn using semi-implicit mtd</b></i><i><b><br>
      </b></i><i><b><br>
      </b></i><i><b>!simple except east,west</b></i><i><b><br>
      </b></i><i><b><br>
      </b></i><i><b>#include "finclude/petsc.h90"</b></i><i><b><br>
        <br>
        PetscViewer    viewer<br>
        <br>
        PetscScalar, pointer :: xx_v(:)</b></i><i><b><br>
      </b></i><i><b><br>
      </b></i><i><b>integer :: i,j,k,ijk,ierr,JJ,kk,</b></i><br>
    <br>
    ...<span class=""><font color="#888888"><br>
    <pre cols="72">-- 
Thank you

Yours sincerely,

TAY wee-beng</pre>
  </font></span></div>

</blockquote></div><br><br clear="all"><div><br></div>-- <br>What most experimenters take for granted before they begin their experiments is infinitely more interesting than any results to which their experiments lead.<br>
-- Norbert Wiener
</div></div>