[ncl-talk] Fwd: about using Fortran90 code in NCL

[zhuxiao li]

Hi Dennis,

Thanks for the slide. I just test it and the codes worked in this way, I
wish I could get it earlier.😃 the NCL documents does need to be updated.

While I still don't quite understand why the prntq_l.f90 and cquad_l.f90
are needed by WRAPIT to produce the right object quad90.so?
What if I had 'real' module includes the many subroutine? I can use that
module directly or I need to make an interface instead of the original
module, or I need to take the third option which is that I need to make an
extra interface inside the original module?

I will give you an example later.

last, I would like to get the link for the whole PPT of this slide and
thanks for your great help again!

Zhuxiao









On Tue, Jun 21, 2016 at 11:30 AM, Dennis Shea <shea at ucar.edu> wrote:

> Attached is a PPT slide from the NCL Workshops that illustrate calling f90
> via WRAPIT.  It is a bit over-the-top with module usage but it gives an
> idea of how to proceed.  To my knowledge, modules *must* be compiled before
> they are used. Hence, the ordering on the WRAIT example.
>
> Since NCL's WRAPIT is f77 aware (*not* f90 aware), any f90 subroutine
> invoked from an NCL script must have an associated 'stub' file which uses
> f77 syntax. It uses this to create the interface between NCL (written in C)
> and the user fortran subroutines.
>
> HTH
>
>
>
> On Tue, Jun 21, 2016 at 9:41 AM, Bill Ladwig <ladwig at ucar.edu> wrote:
>
>> Hi Zhuxiao,
>>
>> Can you also provide us with how you called WRAPIT?  It doesn't look like
>> your mquad routine ever got linked in when you built your .so module.
>>
>> Regards,
>>
>> Bill
>>
>> On Mon, Jun 20, 2016 at 3:02 PM, zhuxiao li <lizhuxiao70 at gmail.com>
>> wrote:
>>
>>> Hi There,
>>>
>>> I have got a problem to use   external F90 code in NCL.
>>> Actually, I just using the simple templet in
>>> http://www.ncl.ucar.edu/Document/Manuals/language_man.pdf
>>> page 36 of Section 7.3 f90 subroutines.
>>>
>>> The problem is that when I use only the subroutine CQUAD to produce the
>>> object file (.so) and then execute the ncl code, it works. Please see the
>>> following attachment:
>>>
>>> quad.f90,
>>> quad90.stub,
>>> ncl_F90_test_temple.ncl.
>>>
>>> While when I include the subroutine in a module structure exactly like
>>> the templet on P36 of the manual, it gave me some very tough error message,
>>> please check the following attachments:
>>>
>>> quad_module.f90,
>>> mquad90.stub,
>>> ncl_F90_test_temple_module.ncl
>>>
>>> error_message_ncl_exe.txt
>>> The NCL I am using is ncl-6.3.0, do you have some idea on what is the
>>> reason of this problem?
>>>
>>> Thanks very much in advance!
>>>
>>> Zhuxiao
>>>
>>>
>>>
>>>
>>>
>>> _______________________________________________
>>> ncl-talk mailing list
>>> ncl-talk at ucar.edu
>>> List instructions, subscriber options, unsubscribe:
>>> http://mailman.ucar.edu/mailman/listinfo/ncl-talk
>>>
>>>
>>
>> _______________________________________________
>> ncl-talk mailing list
>> ncl-talk at ucar.edu
>> List instructions, subscriber options, unsubscribe:
>> http://mailman.ucar.edu/mailman/listinfo/ncl-talk
>>
>>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mailman.ucar.edu/pipermail/ncl-talk/attachments/20160621/a5a22270/attachment.html