(* Copyright (C) 1992, Digital Equipment Corporation                         *)
(* All rights reserved.                                                      *)
(* See the file COPYRIGHT for a full description.                            *)
(*                                                                           *)
(* Last modified on Tue Jun 16 12:55:37 PDT 1992 by muller                   *)
(*      modified on Fri Nov  1 11:45:40 PST 1991 by mhb      *)
(* by Marc H. Brown and Ken Brooks                           *)

MODULE FlexShape;

PROCEDURE Rigid (natural: REAL): SizeRange =
  BEGIN
    RETURN SizeRange{natural, 0.0, 0.0}
  END Rigid;

BEGIN
END FlexShape.