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
This archive was generated by hypermail 2.1.8 : Sun Oct 09 2011 - 13:05:26 MDT