11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
+
+
+
|
# Copyright (c) P.J.Gawthrop 1998
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.35 1999/11/15 22:47:17 peterg
## Generates method-specific code for the ode2odeso rep.
##
## Revision 1.34 1999/10/28 05:08:48 peterg
## Added elseif
##
## Revision 1.33 1999/09/17 04:25:01 peterg
## END --> END; in translation
##
## Revision 1.32 1999/08/29 06:54:42 peterg
|
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
|
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
|
-
+
|
if (kk==width){printf("\n"); kk=0}
}
}
BEGIN{
comment_regexp = "{"
doing_header = 0
doing_globals = 0
Nt = 9
Nt = 99
inc ="$I"
}
{
if ($1=="global")
doing_globals = 1
else{
if (doing_globals==1){
|