ERROR on WRAPIT "Could not find Init() in external file "

Hi all

I want use a external fortran code in NCL using the WRAPIT tools.
This is the information during compiling:

WRAPIT -pg -fPIC ex_for.f
 
WRAPIT Version: 090115
...../pgi/linux86-64/7.1-6/bin/pgf90
A syntax error occurred while parsing:
COMPILING ex_for.f
LINKING
END WRAPIT

I have got the ex_for.so.

And when I run the .ncl file using the subroutine in ex_for.f, error appears as:

warning:Could not find Init() in external file ./ex_for.so, file not loaded
warning:error at line 4 in file ex_wave.ncl

fatal:syntax error: line 23 in file ex_wave.ncl before or near :
expa_hf :
--------^

Here is the head of subroutine in ex_for.f:

C NCLFORTSTART
        subroutine expansion(input, output,ntime)
        
        integer ntime,nlon,nlat
        parameter ( nlon=144,nlat=60)
        real input(nlon,nlat,ntime,3), output(6,nlon,nlat,ntime,3)
C NCLEND

And I use the subroutine in .ncl script as:

external expa_hf "./ex_for.so"
......
expa_hf :: expansion(input,output,nt)

Anyone have suggestion?

Thanks

Huang Ping

_______________________________________________
ncl-talk mailing list
List instructions, subscriber options, unsubscribe:
http://mailman.ucar.edu/mailman/listinfo/ncl-talk
Received on Mon Dec 21 08:10:58 2009