Help with the front-end

[Steve Kargl]

On Tue, Jun 28, 2005 at 05:06:54PM +0200, Fran?ois-Xavier Coudert wrote:
> Hi all,
> 
> With my current front-end patch for large real kinds, I have a small
> problem with large complex kinds. The following code:
> 
>   complex(10) :: w
>   w = sin (w)
> 
> gives the correct parse tree: "ASSIGN w __sin_c8[[((w))]]" but an
> incorrect tree-original: "w = csin (w);" (instead of csinl).
> 
> I don't really know where to look. Where do this transformation from
> the __sin_c8 form to the libm function occurs? Grepping didn't help me
> on this...
> 

I think you need to edit mtype.m4 to have it generate
__sin_c10 for real*10 and _sin_c16 for real*16.  m4
is black magic to me, so Paul B or Thomas Koenig may
be of help.

-- 
Steve