Re: Problems with WRAPIT

From: Andrew Dawson <andrew.dawson_at_nyahnyahspammersnyahnyah>
Date: Tue Aug 03 2010 - 09:35:58 MDT

I think this will produce correct results if you change the name of your
function 'GAMMA' to something else, I used 'MYGAMMA' for convenience. I
assume this is some kind of conflict with a fortran built in function gamma.
Perhaps some one else can expand...

Andrew

On 3 August 2010 15:59, Andrea Hahmann <ahah@risoe.dtu.dk> wrote:

> Thanks Guangshan
>
> I was hopping somebody had had the same problem before...
> Attached are the gamma function and a test NCL script to call it.
>
> Andrea
> --
>
> *Andrea N. Hahmann
> *Senior Scientist
> Wind Energy Division
> Risø DTU
>
> *Technical University of Denmark
> *Risø National Laboratory for Sustainable Energy
> Frederikborgvej 399, P.O. Box 49
> 4000 Roskilde, Denmark
>
> Direct +45 4677 5471
> Mobil: +45 2133 0550
> ahah@risoe.dtu.dk
> www.risoe.dtu.dk
>
>
>
> ------------------------------
> *From: *guangshan chen <gchen9@gmail.com>
> *Date: *Tue, 03 Aug 2010 09:45:09 -0500
> *To: *"Andrea N. Hahmann" <ahah@risoe.dtu.dk>
> *Cc: *ncl forum <ncl-talk@ucar.edu>
> *Subject: *Re: [ncl-talk] Problems with WRAPIT
>
>
> Hi Andrea,
>
> I think it is better for you to attache your NCL script and the gamma
> function with the email. It is easy for others to help you.
>
> Guangshan
>
> On Aug 3, 2010, at 9:31 AM, Andrea Hahmann wrote:
>
> Good afternoon.
>
> I am having some problems when running WRAPIT. I have programmed a gamma
> function in Fortran and incorporated it into NCL using WRAPIT. When I call
> the function using regular Fortran I get its value. When I called within NCL
> I get “inf”. The Fortran code that contains the gamma function also
> contains other functions that work fine in NCL. Any ideas?
>
> Regards,
> Andrea
> --
>
> *Andrea N. Hahmann
> *Senior Scientist
> Wind Energy Division
> Risø DTU
>
> *Technical University of Denmark
> *Risø National Laboratory for Sustainable Energy
> Frederikborgvej 399, P.O. Box 49
> 4000 Roskilde, Denmark
>
> Direct +45 4677 5471
> Mobil: +45 2133 0550
> ahah_at_risoe.dtu.dk <x-msg://241/ahah_at_risoe.dtu.dk>
> www.risoe.dtu.dk <http://www.risoe.dtu.dk>
>
> _______________________________________________
> ncl-talk mailing list
> List instructions, subscriber options, unsubscribe:
> http://mailman.ucar.edu/mailman/listinfo/ncl-talk
>
>
>
>
> _______________________________________________
> ncl-talk mailing list
> List instructions, subscriber options, unsubscribe:
> http://mailman.ucar.edu/mailman/listinfo/ncl-talk
>
>

_______________________________________________
ncl-talk mailing list
List instructions, subscriber options, unsubscribe:
http://mailman.ucar.edu/mailman/listinfo/ncl-talk
Received on Tue Aug 3 09:36:08 2010

This archive was generated by hypermail 2.1.8 : Tue Aug 03 2010 - 15:09:38 MDT