Re: problem of WRAPIT

Thanks for catching this Rick! I was not aware of this restriction.

I've added this to the "special considerations" section of the WRAPIT
documentation, which is a good document to read if you are having
problems with WRAPIT:

    http://www.ncl.ucar.edu/Document/Tools/WRAPIT.shtml

--Mary

On Jan 25, 2010, at 9:43 AM, Rick Brownrigg wrote:

> Hi,
>
> The root of this error is that you declare the types of your two
> embedded functions as:
>
> FUNCTION TONPSADIABAT(THTE,PRS,...
> DOUBLE PRECISION TONPSADIABAT
> ...
>
> FUNCTION VIRTUAL(TEMP,RATMIX)
> DOUBLE PRECISION VIRTUAL
> ...
>
> While this is legitimate fortran code, its causing an error in the
> WRAPIT parsing code. Try declaring the types of the functions with
> one statement, as:
>
> DOUBLE PRECISION FUNCTION TONPSADIABAT(THTE,PRS,...
> ...
> DOUBLE PRECISION FUNCTION VIRTUAL(TEMP,RATMIX)
>
>
> Rick
>
>
> On Jan 25, 2010, at 3:12 AM, Yuhua Yang wrote:
>
>> Hi,
>>
>> When I WRAPIT the attachment file(rip_cape.f) which coming from
>> Mary, I got the following problem:
>> ______________________________________________________
>> WRAPIT rip_cape.f
>>
>> WRAPIT Version: 090115
>> A syntax error occurred while parsing: TONPSADIABAT
>> COMPILING rip_cape.f
>> LINKING
>> END WRAPIT
>> ________________________________________________________
>>
>> The rip_cape.so file is created, but when I try to call the
>> routine by my NCL script , I get the warning:
>> Could not find Init() in external file ./rip_cape.so, file not
>> loaded .
>>
>> the enviroment of my machine is linux,64-bit.
>>
>> Could you give me some hint to solve this problem? Thanks very much!
>>
>> Yuhua
>>
>>
>> <rip_cape.f>
>> _______________________________________________
>> 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 Mon Jan 25 10:10:27 2010