*
*
*
*
*
*
*
*
*
*
      $include SYSCOM KEYS.H

      if cc$nul4 = '0' then
         call ccall.init
      end

      locate(fnname,c.fnnames;l) then
         fn.handle = c.fns[(l*4)-3,4]
      end else
         fn.handle = ccall.getfn2(libname,fnname)
      end
