Re: help: when wrapit comes across allocatable array

It would be good to see a snippet of your f90 code.

As along as the 'allocateable' is not between the
C NCLFORTSTART
C NCLEND

Also, is the f90 code .f or .f90?

C ----------Sample for .f file -----------------------------------
C NCLFORTSTART
       subroutine wgt_runave (x,npts,wgt,nwgt,kopt,xmsg,ier)
       integer npts, nwgt,kopt,ier
       real x(npts), wgt(nwgt), xmsg
C NCLEND
       integer lwork
       real, allocatable, dimension(:) :: work

       nhalf = nwgt/2
       lwork = npts+2*nhalf
       allocate (work(lwork), stat=ier)

       call wrunavx77 (x,npts,wgt,nwgt,kopt,xmsg,work,lwork,ier)

       deallocate (work)

       return ! NCL return (wrunwgt[x])
       end

On 9/29/11 12:19 PM, Sha Feng wrote:
> Hi ncl-talker,
>
> How can I deal with the codes which are related with allocatable arrays when I use WRAPIT to combine Fortran 90 subroutines with NCL scripts?
>
> Any suggestion is very much appreciated.
>
> Sha
> _______________________________________________
> 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 Thu Sep 29 15:10:33 2011