<div dir="ltr">How about just including petsc.h90 so you get everything.<div><br></div><div>  Thanks,</div><div><br></div><div>     Matt</div></div><div class="gmail_extra"><br><br><div class="gmail_quote">On Mon, Apr 7, 2014 at 5:19 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:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
  
    
  
  <div text="#000000" bgcolor="#FFFFFF">
    <div>Sorry I realised that <br>
      <br>
      <b>#include "finclude/petscdmda.h90"</b><br>
      <b>#include "finclude/petscksp.h90"</b><br>
      <br>
      also gave errors:<br>
      <br>
      <b><i>/home/wtay/Lib/petsc-3.4.4_shared_rel/include/finclude/ftn-custom/petscdmda.h90(10):
          error #5082: Syntax error, found ',' when expecting one of: (
          % [ : . = =></i></b><b><i><br>
        </i></b><b><i>          PetscInt, pointer :: array(:)</i></b><b><i><br>
        </i></b><b><i>------------------^</i></b><b><i><br>
        </i></b><b><i>/home/wtay/Lib/petsc-3.4.4_shared_rel/include/finclude/ftn-custom/petscdmda.h90(10):
          error #5082: Syntax error, found END-OF-STATEMENT when
          expecting one of: ) ,</i></b><b><i><br>
        </i></b><b><i>          PetscInt, pointer :: array(:)</i></b><b><i><br>
        </i></b><b><i>---------------------------------------^</i></b><b><i><br>
        </i></b><b><i>/home/wtay/Lib/petsc-3.4.4_shared_rel/include/finclude/ftn-custom/petscdmda.h90(11):
          error #5082: Syntax error, found IDENTIFIER 'N' when expecting
          one of: ( % [ : . = =></i></b><b><i><br>
        </i></b><b><i>          PetscInt  n</i></b><b><i><br>
        </i></b><b><i>--------------------^</i></b><b><i><br>
        </i></b><b><i>/home/wtay/Lib/petsc-3.4.4_shared_rel/include/finclude/ftn-custom/petscdmda.h90(12):
          error #5082: Syntax error, found IDENTIFIER 'IERR' when
          expecting one of: ( % [ : . = =></i></b><b><i><br>
        </i></b><b><i>          PetscErrorCode ierr</i></b><b><i><br>
        </i></b><b><i>-------------------------^</i></b><b><i><br>
        </i></b><b><i>/home/wtay/Lib/petsc-3.4.4_shared_rel/include/finclude/ftn-custom/petscdmda.h90(13):
          error #5082: Syntax error, found IDENTIFIER 'V' when expecting
          one of: ( % [ : . = =></i></b><div class=""><br>
      <pre cols="72">Thank you

Yours sincerely,

TAY wee-beng</pre></div><div><div class="h5">
      On 7/4/2014 6:16 PM, TAY wee-beng wrote:<br>
    </div></div></div><div><div class="h5">
    <blockquote type="cite">
      
      Hi,<br>
      <br>
      I encountered the error below when compiling my code using intel
      fortran:<br>
      <br>
      /tmp/ifortlPEDlK.i90: catastrophic error: **Internal compiler
      error: segmentation violation signal raised** Please report this
      error along with the circumstances in which it occurred in a
      Software Problem Report.  Note: File and line given may not be
      explicit cause of this error.<br>
      <br>
      In the end, I realised that it is due to using <b>petsc.h90</b>:<br>
      <br>
      module PETSc_solvers<br>
      <br>
      use set_matrix<br>
      <br>
      ...<br>
      <br>
      implicit none<br>
      <br>
      contains<br>
      <br>
      subroutine semi_momentum_simple_xyz(du,dv,dw)<br>
      <br>
      <b>#include "finclude/petsc.h90"</b><br>
      <br>
      integer :: i,j,k,ijk,ierr,II !,ro...<br>
      <br>
      If I use :<br>
      <br>
      <b>#include "finclude/petsc.h"<br>
        <br>
        or<br>
      </b><br>
      <b>#include "finclude/petscdmda.h90"</b><br>
      <b>#include "finclude/petscksp.h90"</b><br>
      <br>
      Then there is no problem.<br>
      <br>
      May I know why this is happening?<br>
      <br>
      Although I can now compile and build successfully, is this the
      right way to go?<br>
      <br>
      <pre cols="72">-- 
Thank you

Yours sincerely,

TAY wee-beng</pre>
    </blockquote>
    <br>
  </div></div></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>