Re: wrapit with xlf

Dear Mary,

Thanks for your advice. Now I got success. The follows are the steps
what I did.

Guangshan

On Jan 11, 2007, at 10:10 AM, Mary Haley wrote:

>> The command I used as below:
>> Step 1 - define the wrapit interface block.
>>
>> Create a file ex01.stub that contains the following two wrapit
>> interface blocks:
>>
>> C NCLFORTSTART
>> SUBROUTINE CQUAD (A,B,C,NQ,X,QUAD)
>> REAL X(NQ),QUAD(NQ)
>> C NCLEND
>>
>> C NCLFORTSTART
>> FUNCTION ARCLN (NUMPNT,POINTX,POINTY)
>> DIMENSION POINTX(NUMPNT),POINTY(NUMPNT)
>> C NCLEND
>> Step 2 - create an NCL wrapper function.
>>
>> Execute the following:
>>
>> wrapit77 < ex01.stub >! ex01_W.c
>> to create the NCL wrapper function ex01_W.c.
>>
>> Step 3 - create the object modules (the ".o" files).
>>
>> Execute the following:
>>
>> cc -c -I${NCARG_ROOT}/include ex01_W.c
>>
>> xlf -c ex01.f
change to
        xlf -qextname -c ex01.f
>>
>> Step 4 - create a dynamic shared object module.
>> cc -bundle -flat_namespace -undefined suppress ex01_W.o ex01.o -o
>> ex01.so -L/sw/lib -lg2c -lm -L/opt/ibmcmp/xlf/8.1/lib -lxlf90 -lc -
>> lxl -lxlopt

**************************************
Guangshan Chen
Center for Climatic Research
University of Wisconsin-Madison
1225 W.Dayton Street
Madison, WI 53706 USA

phone : 608/890-0907
fax : 608/263-4190
email : gchen9_at_wisc.edu
Received on Thu Jan 11 2007 - 10:04:37 MST