Re: C to FTN90 conversion



In article <ILlnf.3015$3Z.2205@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx>,
dave_frank@xxxxxxxxxxx says...
>
>Below is the translation output for your simple C source processed by
>C2F.EXE
>
>! --------------------------------------------------
>MODULE SIMPLE_1 ! global declarations
>! --------------------------------------------------
>INCLUDE 'C2F.FD'
>INCLUDE 'C2F.FI'
> INTEGER :: i=0
> IF (x <= xtab(0+1)) THEN
> i = 0
> ELSE IF (x >= xtab(ntab-1+1)) THEN
> i = ntab-2
> ELSE
> DO WHILE (x > xtab(i+1))
> i = i+1
> END DO
> i = i-1
> END IF
>
>END MODULE
>INCLUDE 'C2F_LIB.F90'
>! 0 Errors detected
>
>>
>>
>> http://home.earthlink.net/~dave_gemini/c2f.zip
>>

Many thanks for this, Frank. It is exactly what I was looking for. I
realise there are a lot of things that will have to be checked manually
(especially array indices, etc.), but it takes care of the routine syntax
changes . . . seems to be a pretty good implementation as well. This will save
me a lot of work.

Hopefully one of these days I can return the favour!

- Paul (in Nova Scotia, Canada)

.