   subroutine ccall.init
*
*
*
*
*
*
*
*
*
$catalog local
*
      $include ccall.common
*
      if cc$nul4 = '0' then
         cc$nul4 = str(char(0),4)
         cc$nul8 = str(char(0),8)
         cc$0  = str(char(0),4)
         cc$4  = char(4) : str(char(0),3)
         cc$8  = char(8) : str(char(0),3)
         cc$12 = char(12) : str(char(0),3)
         cc$16 = char(16) : str(char(0),3)
         cc$20 = char(20) : str(char(0),3)
         cc$24 = char(24) : str(char(0),3)
         cc$28 = char(28) : str(char(0),3)
         cc$32 = char(32) : str(char(0),3)

         c.libnames = ''
         c.libs     = ''
         c.fnnames  = ''
         c.fns      = ''
      end

      return
   end
