*$pragma aux (__stdcall) execute parm (\
*       reference nodescriptor , \
*       reference nodescriptor )
       integer*4 icond
       character*6 HELLO
       parameter ( HELLO = 'Hello'//char(0) )
       call execute( HELLO, icond )
       print *, icond
       stop
       end