vecd.sa

 
---------------------------> Sather 1.1 source file <--------------------------
-- Copyright (C) 1995, International Computer Science Institute
-- $Id: vecd.sa,v 1.3 1996/07/13 05:43:38 gomes Exp $
--
-- COPYRIGHT NOTICE: This code is provided WITHOUT ANY WARRANTY
-- and is subject to the terms of the SATHER LIBRARY GENERAL PUBLIC
-- LICENSE contained in the file: Sather/Doc/License of the
-- Sather distribution. The license is also available from ICSI,
-- 1947 Center St., Suite 600, Berkeley CA 94704, USA.


class VECD < $VEC{FLTD,VECD,FLTD} 
class VECD < $VEC{FLTD,VECD,FLTD} is

   include VEC_LENGTH_MIXIN{FLTD,SAME};

   const element_zero:FLTD := 0.0d;
   const element_one:FLTD := 1.0d;   
   const length_zero:FLTD := 0.0d;
   const length_one:FLTD := 1.0d;   
end;