/* -*- Mode: C; tab-width: 4 -*- */
/* euler2d --- 2 Dimensional Incompressible Inviscid Fluid Flow */
-#if !defined( lint ) && !defined( SABER )
+#if 0
static const char sccsid[] = "@(#)euler2d.c 5.00 2000/11/01 xlockmore";
-
#endif
/*
};
static argtype vars[] =
{
- {(caddr_t *) &tail_len, (char *) "eulertail",
+ {&tail_len, "eulertail",
(char *) "EulerTail", (char *) DEF_EULERTAIL, t_Int},
- {(caddr_t *) &power, (char *) "eulerpower",
+ {&power, "eulerpower",
(char *) "EulerPower", (char *) "1", t_Float},
};
static OptionStruct desc[] =