<div dir="ltr"><div class="gmail_extra"><div class="gmail_quote">On Sun, Nov 19, 2017 at 4:43 AM, Jose E. Roman <span dir="ltr"><<a href="mailto:jroman@dsic.upv.es" target="_blank">jroman@dsic.upv.es</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div class="HOEnZb"><div class="h5"><br>
> El 19 nov 2017, a las 10:16, Praveen C <<a href="mailto:cpraveen@gmail.com">cpraveen@gmail.com</a>> escribió:<br>
><br>
> Dear all<br>
><br>
> In the main program, if I have a line like<br>
><br>
>   call PetscInitialize('<a href="http://param.in" rel="noreferrer" target="_blank">param.in</a>', ierr); CHKERRQ(ierr)<br>
><br>
> compiling with mpifort gives<br>
><br>
> main.f95(17): error #6353: A RETURN statement is invalid in the main program.<br>
>   call PetscInitialize('<a href="http://param.in" rel="noreferrer" target="_blank">param.in</a>', ierr); if (ierr .ne. 0) then ; call PetscErrorF(ierr); return; endif<br>
> ——————————————————————————————<wbr>———————————————^<br>
><br>
> It compiles fine with gfortran. What can I do for the ifort case ?<br>
><br>
> Thanks<br>
> praveen<br>
<br>
</div></div>Use CHKERRA(ierr) in the main program and CHKERRQ(ierr) in the subroutines.<br>
<br>
On the other hand, you should not use CHKERRA(ierr) after PetscInitialize </blockquote><div><br></div><div>Do you mean after PetscFinalize()? You should not call any PETSc functions after this.</div><div><br></div><div>  Thanks,</div><div><br></div><div>    Matt</div><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">because it assumes that MPI has been correctly initialized.<br>
<span class="HOEnZb"><font color="#888888"><br>
Jose<br>
<br>
</font></span></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><div dir="ltr"><div>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><br></div><div><a href="http://www.caam.rice.edu/~mk51/" target="_blank">https://www.cse.buffalo.edu/~knepley/</a><br></div></div></div></div></div>
</div></div>