On Wed, 16 Jul 2008, Peter W. Draper wrote:
> On Wed, 16 Jul 2008, Tim Jenness wrote:
>
>> On Wed, Jul 16, 2008 at 7:03 AM, Gavin Ramsay <[log in to unmask]> wrote:
>>
>>> hi
>>>
>>> i've found what appears to be a bug in daophot in the 'sort' routine.
>>> i get:
>>>
>>> Which do you want? 4
>>> Input file name: stars.ap
>>> Output file name (default stars.srt):
>>> Do you want the stars renumbered? y
>>>
>>> STAR X Y MAG.(1)
>>> At line 198 of file sort.f
>>> Traceback: not available, compile with -ftrace=frame or -ftrace=full
>>> Fortran runtime error: Expected CHARACTER for item 1 in formatted transfer,
>>> got REAL. If you want to make character descriptors typeless, compile with
>>> -fsloppy-char
>>> (33A4)
>>> ^
>>>
>>> this is on a linux 32-bit machine running fedora. i also get the same error
>>> on my mac intel processor.
>>>
>>> any idea? i get the same using different images.
>>>
>>
>> This is g95 being picky (and since we use the same compiler on Mac and Linux
>> you get the same run time error). The lines in question are:
>>
>> 198 READ (TEXT(2:N),66) (WORK(J), J=LOW(I),NLO)
>> 199 66 FORMAT (33A4)
>>
>> WORK is a _REAL but it is being formatted as A4 so it looks like a real bug
>> to me.
>
> Or a bit of old dodgy Fortran. It's an old trick for using an array of any
> type for storing a string (in this case all the lines from the file to be
> sorted, which are then re-addressed using an indexing vector). The only
> thing to do is recompile using the -fsloppy-char flag. I'll need to work
> out how to do this in the configure script.
Hi Gavin,
I've done that, so the question becomes what operating system are you
using?
Cheers,
Peter.
|