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

Reply via email to