<div dir="ltr">Sure, but that would have to be done explicitly, not via `include` statements, because the include files contain F77-style comments and line continuations.  Then, if one of those common block names changes in the include file, the compiler interprets your common block as being a new declaration and you get a silent bug.  The include files seem to be relatively stable, so just be careful...</div><br><div class="gmail_quote"><div dir="ltr">On Thu, Feb 11, 2016 at 4:07 PM <<a href="mailto:nek5000-users@lists.mcs.anl.gov">nek5000-users@lists.mcs.anl.gov</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">I guess you could just use common blocks also in the Fortran90 code.<br>
<br>
Philipp<br>
<br>
On 2016-02-11 18:00, <a href="mailto:nek5000-users@lists.mcs.anl.gov" target="_blank">nek5000-users@lists.mcs.anl.gov</a> wrote:<br>
> Hi Philipp,<br>
><br>
> You should be able to define subprograms in a separate F90 file and call<br>
> them from the usr file.  Then, just compile your new file and add it to<br>
> the link line using the "USR_LFLAGS" option in makenek. However, it<br>
> could be a bit tricky to access global data stored Nek5000's common<br>
> blocks, so I'd strongly suggest making those routines self-contained<br>
> with all data passing via arguments.  This approach can be used to link<br>
> in C or C++ code as well, as they are all object compatible.<br>
><br>
> The usr file itself needs to be F77, if for no other reason than the<br>
> include files ('SIZE', for example) are in F77 format.<br>
><br>
> Depending on your problem, you may be able to use NekBox, which is<br>
> written in F90 and uses F90 for the usr file.  NekBox is more of a<br>
> prototyping code than a production code, so its functionality is<br>
> limited.  See:<br>
> <a href="https://github.com/Nek5000/NekBox" rel="noreferrer" target="_blank">https://github.com/Nek5000/NekBox</a><br>
><br>
> Max<br>
><br>
> On Thu, Feb 11, 2016 at 8:35 AM <<a href="mailto:nek5000-users@lists.mcs.anl.gov" target="_blank">nek5000-users@lists.mcs.anl.gov</a><br>
> <mailto:<a href="mailto:nek5000-users@lists.mcs.anl.gov" target="_blank">nek5000-users@lists.mcs.anl.gov</a>>> wrote:<br>
><br>
>     Hi Neks,<br>
><br>
>     Is it possible to link Fortran90 code via the Fortran Interface<br>
>     (b3d.usr).<br>
><br>
>     Best regards, Philipp Weiss<br>
>     _______________________________________________<br>
>     Nek5000-users mailing list<br>
>     <a href="mailto:Nek5000-users@lists.mcs.anl.gov" target="_blank">Nek5000-users@lists.mcs.anl.gov</a> <mailto:<a href="mailto:Nek5000-users@lists.mcs.anl.gov" target="_blank">Nek5000-users@lists.mcs.anl.gov</a>><br>
>     <a href="https://lists.mcs.anl.gov/mailman/listinfo/nek5000-users" rel="noreferrer" target="_blank">https://lists.mcs.anl.gov/mailman/listinfo/nek5000-users</a><br>
><br>
><br>
><br>
> _______________________________________________<br>
> Nek5000-users mailing list<br>
> <a href="mailto:Nek5000-users@lists.mcs.anl.gov" target="_blank">Nek5000-users@lists.mcs.anl.gov</a><br>
> <a href="https://lists.mcs.anl.gov/mailman/listinfo/nek5000-users" rel="noreferrer" target="_blank">https://lists.mcs.anl.gov/mailman/listinfo/nek5000-users</a><br>
><br>
_______________________________________________<br>
Nek5000-users mailing list<br>
<a href="mailto:Nek5000-users@lists.mcs.anl.gov" target="_blank">Nek5000-users@lists.mcs.anl.gov</a><br>
<a href="https://lists.mcs.anl.gov/mailman/listinfo/nek5000-users" rel="noreferrer" target="_blank">https://lists.mcs.anl.gov/mailman/listinfo/nek5000-users</a><br>
</blockquote></div>