        logical function arkssm(symbol, value)
                                              
c       Sets a DCL global symbol.  Which is not possible in ULTRIX.
                                                                   
        character symbol*(*), value*(*)
                                       
       arkssm=.false.
               
        end
