Hi John,

You might want to try the work-around I created in r4614.  Presumably 
the same thing could be done with the import, as well.

        -- Joe

On 11/20/2014 5:52 PM, John Nelson wrote:
> Hi,
>
> I get a Fortran runtime error on line 1 of f77_wisdom.f90:
>
> subroutine write_char(c, iunit)
>   character c
>   integer iunit
>   ! if (len(c).eq.1) write(iunit,1000) c
> 1000 format(a,$)
> end subroutine write_char
>
> with an error:  Actual string length is shorter than the declared one for 
> dummy argument 'c'
>
> This routine is called internally by sfftw_export_wisdom.    The pointer to 
> 'c' is not valid when presented to the write_char routine.
>
> Question:   fftw is compiled in single-precision so arguments are 32-bit.   
> f77_wisdom is compiled in 64-bit and argument passing between 32-bit routines 
> and 64-bit routines is not straight-forward.   Is this a reason why this 
> problem is occuring?
>
> It is present with 3 different OSX and with three different Fortran 
> compilers....
>
> I cannot find a solution...all suggestions are welcome.
>
> --- John G4KLA
> ------------------------------------------------------------------------------
> Download BIRT iHub F-Type - The Free Enterprise-Grade BIRT Server
> from Actuate! Instantly Supercharge Your Business Reports and Dashboards
> with Interactivity, Sharing, Native Excel Exports, App Integration&  more
> Get technology previously reserved for billion-dollar corporations, FREE
> http://pubads.g.doubleclick.net/gampad/clk?id=157005751&iu=/4140/ostg.clktrk
> _______________________________________________
> wsjt-devel mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/wsjt-devel

------------------------------------------------------------------------------
Download BIRT iHub F-Type - The Free Enterprise-Grade BIRT Server
from Actuate! Instantly Supercharge Your Business Reports and Dashboards
with Interactivity, Sharing, Native Excel Exports, App Integration & more
Get technology previously reserved for billion-dollar corporations, FREE
http://pubads.g.doubleclick.net/gampad/clk?id=157005751&iu=/4140/ostg.clktrk
_______________________________________________
wsjt-devel mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/wsjt-devel

Reply via email to