<div dir="ltr">Hi Barry,<div><br></div><div>I made some tests with your code that allows to use struct in Fortran90. It compiles and does not complain with the struct with 2 components but...it exhibits some strange behaviour. Here are the behaviours I observed. To make it simple, I used n=10.</div>

<div><br></div><div>- After using call VecSet(x,one,ierr), I checked the values of each component of the vector using</div><div><br></div><div><div>      call VecGetArrayMyStruct(x,xarray,ierr)</div><div>      do i = 0 , n</div>

<div>       write(*,*) i , xarray(i)%a, xarray(i)%b</div><div>      end do</div><div>      call VecRestoreArrayMyStruct(x,xarray,ierr)</div><div><br></div></div><div>I checked the values from i= 0 to n since I was not sure what was the convention (0- or 1-based). I obtained:</div>
<div><br></div><div><div><div>           0  0.000000000000000E+000   1.00000000000000     </div><div>           1   1.00000000000000        1.00000000000000     </div><div>           2   1.00000000000000        1.00000000000000     </div>
<div>           3   1.00000000000000        1.00000000000000     </div><div>           4   1.00000000000000        1.00000000000000     </div><div>           5   1.00000000000000        1.00000000000000     </div><div>           6   1.00000000000000        1.00000000000000     </div>
<div>           7   1.00000000000000        1.00000000000000     </div><div>           8   1.00000000000000        1.00000000000000     </div><div>           9   1.00000000000000        1.00000000000000     </div><div>          10   1.00000000000000       1.996650376645798E-314</div>
</div><div><br></div><div><br></div></div><div>As you can see, for component a, there is a 0 for i=0, then the values are correct. For component b, correct values go from i=1 to 9.There is garbage in second component for i=10 . I checked that if you define a third component c, its values go from i=-1 to n-2. It's like if values of second component started at the end of first component, and same thing for third component.</div>

<div><br></div><div>Then, instead of using VecSet(), I tried to assign values directly to each component of the vector with</div><div><br></div><div><div>      call VecGetArrayMyStruct(x,xarray,ierr)</div><div>      do i = 0 , n-1</div>

<div>       xarray(i)%a = 2.0</div><div>       xarray(i)%b = 3.0</div><div>      end do</div><div>      call VecRestoreArrayMyStruct(x,xarray,ierr)</div></div><div><br></div><div>Here I checked that indices actually start at 0 and not at 1. With a loop from i=1 to n I got a Memory corruption message.<br>
</div><div><br></div><div>and I checked that the values are correctly assigned with</div>
<div><br></div><div><div>      call VecGetArrayMyStruct(x,xarray,ierr)</div><div>       do i = 0 , n-1</div><div>        write(*,*) i, xarray(i)%a, xarray(i)%b</div><div>       end do</div><div>      call VecRestoreArrayMyStruct(x,xarray,ierr)</div>

</div><div><br></div><div><br></div><div><br></div><div>Then, I obtained:</div><div><br></div><div><div><div>           0   2.00000000000000        2.00000000000000     </div><div>           1   2.00000000000000        2.00000000000000     </div>
<div>           2   2.00000000000000        2.00000000000000     </div><div>           3   2.00000000000000        2.00000000000000     </div><div>           4   2.00000000000000        2.00000000000000     </div><div>           5   2.00000000000000        2.00000000000000     </div>
<div>           6   2.00000000000000        2.00000000000000     </div><div>           7   2.00000000000000        2.00000000000000     </div><div>           8   2.00000000000000        2.00000000000000     </div><div>           9   2.00000000000000        3.00000000000000     </div>
</div></div><div><br></div><div><br></div><div>Here the problem seems more severe. Values are not correctly assigned to the second component. There should be 3.0 in the second column. It seems values of the first component are copied to the second one. Only for i=10 the value of xarray(i)%b is correct (3.0).</div>

<div><br></div><div>Any idea where it could come from ?</div><div>I guess it needs some fixes here and there but I think your idea is good and that it could work.<br></div><div><br></div><div>Christophe</div><div><br></div>

<div><br><div class="gmail_extra"><br><div class="gmail_quote">On Thu, Sep 26, 2013 at 5:45 PM, Barry Smith <span dir="ltr"><<a href="mailto:bsmith@mcs.anl.gov" target="_blank">bsmith@mcs.anl.gov</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"><br>
   I just put it with the Fortran source code and compile it with the rest of the application code; here is the makefile I used<br>
<br>
<br>
<br><br>
On Sep 26, 2013, at 10:14 AM, Christophe Ortiz <<a href="mailto:christophe.ortiz@ciemat.es" target="_blank">christophe.ortiz@ciemat.es</a>> wrote:<br>
<br>
> By the way, what should I do with the small .c code ? Where should I put it ?<br>
><br>
> Christophe<br>
><br>
><br>
><br>
> On Thu, Sep 26, 2013 at 4:09 PM, Barry Smith <<a href="mailto:bsmith@mcs.anl.gov" target="_blank">bsmith@mcs.anl.gov</a>> wrote:<br>
><br>
>    Christophe,<br>
><br>
>      Despite my LinkIn Endorsement for expertise in Fortran :-) I cannot pretend to be an expert in FortranXX but I have cooked up an example demonstrating accessing the Vec entries as if they are in an array of derived types. I've attached the example code; there needs to be a small C stub that defines the functions for your specific derived type name.<br>


> Note that it will only work I think if your N is a compile time constant.<br>
><br>
><br>
><br>
><br>
>     It worked with<br>
> ~/Downloads$ gfortran --version<br>
> GNU Fortran (GCC) 4.8.1 20130404 (prerelease)<br>
><br>
><br>
>     I do not understand exactly why it works since it uses F90Array1dCreate(fa,PETSC_SCALAR,1,len,ptr PETSC_F90_2PTR_PARAM(ptrd)); which has a single PETSC_SCALAR as a building block but … I hope it works for you. If it doesn't, let us know the compiler you are using and we may be able to get it working for that compiler.<br>


><br>
>    Barry<br>
><br>
><br>
><br>
><br>
> On Sep 26, 2013, at 4:41 AM, Christophe Ortiz <<a href="mailto:christophe.ortiz@ciemat.es" target="_blank">christophe.ortiz@ciemat.es</a>> wrote:<br>
><br>
> > Hi all,<br>
> ><br>
> > Me again !<br>
> ><br>
> > I have read in previous posts that it is hard in Fortran to declare something similar to a typedef struct in C to manage a multicomponent problem.<br>
> ><br>
> > Is it still the case ? Has the problem been solved ?<br>
> ><br>
> > I am asking because my plan is to implement a multicomponent problem (in 1D), with many components that will be organized in arrays of two dimensions. In C I could define<br>
> ><br>
> > typedef struct{<br>
> > PetscScalar U;<br>
> > PetscScalar V;<br>
> > PetscScalar A[N][N];<br>
> > } Field;<br>
> ><br>
> > and then I could calculate the residual function with<br>
> ><br>
> > F[i].U = ...<br>
> > F[i].V = ...<br>
> > F[i].A[k][n] = ...<br>
> ><br>
> > which is quite convenient.<br>
> ><br>
> > If in Fortran it is not possible to use a struct as in C, I am afraid I'll have to deal with<br>
> ><br>
> > F(jdof,i) = ...<br>
> ><br>
> > where I will have only jdof to address U, V and A[ ][ ], which can be difficult and not very convenient I guess. Before I move all my code to C, does anyone have an alternative idea to manage this multi(many)component problem in Fortran ?<br>


> ><br>
> > Many thanks in advance for your help and suggestion !<br>
> ><br>
> > Christophe<br>
><br>
><br>
><br>
><br>
<br>
<br></blockquote></div><br></div></div></div>