<div dir="ltr"><div class="gmail_extra"><div class="gmail_quote">On Wed, Feb 11, 2015 at 11:41 AM, Matteo Parsani <span dir="ltr"><<a href="mailto:parsani.matteo@gmail.com" target="_blank">parsani.matteo@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 dir="ltr">Should I use <br><br>PetscScalar, pointer, dimension(:) :: xx_v<br></div></blockquote><div><br></div><div>Yes, but I am not sure that will solve your problem. Do the PETSc F90 examples run with this compiler?</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"><div dir="ltr">?<br></div><div class="gmail_extra"><div><div class="h5"><br><div class="gmail_quote">On Wed, Feb 11, 2015 at 12:39 PM, Matteo Parsani <span dir="ltr"><<a href="mailto:parsani.matteo@gmail.com" target="_blank">parsani.matteo@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 dir="ltr"><div>In this way:<br><br>real(wp), pointer, dimension(:) :: xx_v<br><br></div>where wp is my working precision<br></div><div class="gmail_extra"><div><div><br><div class="gmail_quote">On Wed, Feb 11, 2015 at 12:38 PM, Matthew Knepley <span dir="ltr"><<a href="mailto:knepley@gmail.com" target="_blank">knepley@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 dir="ltr"><div class="gmail_extra"><div class="gmail_quote"><span>On Wed, Feb 11, 2015 at 11:35 AM, Matteo Parsani <span dir="ltr"><<a href="mailto:parsani.matteo@gmail.com" target="_blank">parsani.matteo@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 dir="ltr">I forgot to say that I am using PETSc 3.5</div></blockquote><div><br></div></span><div>How are you declaring xx_v?</div><div><br></div><div>  Matt</div><div><div><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div class="gmail_extra"><div><div><div class="gmail_quote">On Wed, Feb 11, 2015 at 12:32 PM, Matteo Parsani <span dir="ltr"><<a href="mailto:parsani.matteo@gmail.com" target="_blank">parsani.matteo@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 dir="ltr"><div><div><div>Dear Petsc Users and Developers,<br></div>Recently, I have compiled my fortran code using the SGI compiler (mpt-2.11). Previously I was using openmpi 1.7.3 and everything worked fine.<br><br></div>Now, with when I run the code compiled with SGI I get the following error:<br><br>At line 1921 of file mpi_module.F90<br>Fortran runtime error: Array reference out of bounds for array 'xx_v', upper bound of dimension 1 exceeded (349921 > 1)<br><br></div>Precisely the line that gives troubles is the following <br><br>x_ghost(i_dir,i_loc) = xx_v(n_tot+3*(i_loc-1) + i_dir)<br><br><br>The variables xx_v is a fortran pointer which I get using <br><br>call VecGetArrayF90(x_local, xx_v, i_er)<br><br><div><div><div>where i_err is defined as <br><br>PetscErrorCode i_err<br><br></div><div>Do you have any idea what I am doing wrong?<br><br></div><div>Thank you!<span><font color="#888888"><br clear="all"></font></span></div><span><font color="#888888"><div><div><div><div><div><br>-- <br><div><div dir="ltr">Matteo<br></div></div>
</div></div></div></div></div></font></span></div></div></div>
</blockquote></div><br><br clear="all"><br></div></div><span><font color="#888888">-- <br><div><div dir="ltr">Matteo<br></div></div>
</font></span></div>
</blockquote></div></div></div><span><font color="#888888"><br><br clear="all"><div><br></div>-- <br><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>
</font></span></div></div>
</blockquote></div><br><br clear="all"><br></div></div><span><font color="#888888">-- <br><div><div dir="ltr">Matteo<br></div></div>
</font></span></div>
</blockquote></div><br><br clear="all"><br></div></div><span class="HOEnZb"><font color="#888888">-- <br><div><div dir="ltr">Matteo<br></div></div>
</font></span></div>
</blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature">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></div>