oops ... an ommission on my previous post
>
>[5] NCL strings [is this not what u really mean] passed to
> f77 code. It is basically the reverse of [4]
>
> NCL: sString = new ( 1000, "string")
> : ; fill strings
> fname = "WhatEver"
> asciiwrite (fname, sString)
MYMOD::josh(...,fname,...)
>
> system("/bin/rm "+fname)
>
> f77:
> C NCLFORTSTART
> subroutine josh(...,fname,...)
> character*(*) fname
> character*14 chrstr(1000)
> C NCLEND
> open (11,file=fname)
> do n=1,1000
> read(11,"(a)") chrstr(n)
> end do
_______________________________________________
ncl-talk mailing list
ncl-talk AT ucar.edu
http://mailman.ucar.edu/mailman/listinfo/ncl-talk
This archive was generated by hypermail 2b29 : Fri Jul 30 2004 - 13:13:25 MDT