[Scilab-Dev] use basout in fortran program

[Collette Yann]

Yes, BUT:

I found some code in n1q1.f which shows how to use basout,
include 'stack.h' in the right place (just after the keywork SUBROUTINE)
add  a CHARACTER BUFFER*(4096) + INTEGER IO
replace the WRITE(6,950) by WRITE(BUFFER,950)
and just after this, call BASOUT (I hate upper case fortran)
CALL BASOUT(IO,WTE,BUFFER(1:LNKBLK(BUFFER))
I have digged into basout and saw that IO is initialized after the first 
call (if IO = 0)
But I don't know how to get WTE. I think the problem come from here.

YC

And it doesn't work.

Sylvestre Ledru a écrit :
> Le mardi 05 mai 2009 à 16:21 +0200, ycollet at freesurf.fr a écrit :
>   
>> I included a small test in my fortran code:
>>
>>       WRITE(6,666) IO
>>       WRITE(6,666) WTE
>>
>>  666  FORMAT (5X,'PARAM =',I5)
>>
>> And, when I launch the good scilab command, it hangs at WRITE(6,666) WTE
>> The WTE variable is defined in the stack.h iop common.
>> It seems that I can't access wte ?
>> This is certainly a link problem. How do I link to the iop.wte common
>> variable ?
>>     
> Nice monologue Yann ;)
>
> My best friend when I have to write some fortran is grep and then
> copy/paste! :p
>
> Sylvestre
>
>
>
>
>