1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
|
/*@@
@file Startup.c
@date Wed Feb 3 23:10:19 1999
@author Tom Goodale
@desc
Startup routines for pugh.
@enddesc
@version $Header$
@@*/
#include "cctk.h"
#include "cctk_Parameters.h"
#include "pugh.h"
#include "pugh_extension.h"
#include "pugh_Comm.h"
static const char *rcsid="$Header$";
CCTK_FILEVERSION(CactusPUGH_PUGH_Startup_c);
int PUGH_Startup(void);
/*@@
@routine PUGH_Startup
@date Wed Feb 3 23:14:38 1999
@author Tom Goodale
@desc
The startup registration routine for PUGH.
@enddesc
@calls
@calledby
@history
@endhistory
@@*/
int PUGH_Startup(void)
{
int pugh_GHExtension;
DECLARE_CCTK_PARAMETERS
/* Register the stuff in the GH extension. */
pugh_GHExtension = CCTK_RegisterGHExtension("PUGH");
CCTK_RegisterGHExtensionSetupGH(pugh_GHExtension, PUGH_SetupGH);
CCTK_RegisterGHExtensionInitGH(pugh_GHExtension, PUGH_InitGH);
CCTK_RegisterGHExtensionScheduleTraverseGH(pugh_GHExtension, PUGH_ScheduleTraverseGH);
/* Overload some functions */
if (overloadevolve)
{
CCTK_OverloadEvolve(PUGH_Evolve);
}
if (overloadsyncgroup)
{
CCTK_OverloadSyncGroup(PUGH_SyncGroup);
}
if (overloadsyncgroupsbydiri)
{
CCTK_OverloadSyncGroupsByDirI(PUGH_SyncGroupsByDirI);
}
if (overloadenablegroupstorage)
{
CCTK_OverloadGroupStorageIncrease(PUGH_GroupStorageIncrease);
}
if (overloaddisablegroupstorage)
{
CCTK_OverloadGroupStorageDecrease(PUGH_GroupStorageDecrease);
}
if (overloadenablegroupcomm)
{
CCTK_OverloadEnableGroupComm(PUGH_EnableGroupComm);
}
if (overloaddisablegroupcomm)
{
CCTK_OverloadDisableGroupComm(PUGH_DisableGroupComm);
}
if (overloadbarrier)
{
CCTK_OverloadBarrier(PUGH_Barrier);
}
if (overloadparallelinit)
{
CCTK_OverloadParallelInit(PUGH_ParallelInit);
}
if (overloadexit)
{
CCTK_OverloadExit(PUGH_Exit);
}
if (overloadabort)
{
CCTK_OverloadAbort(PUGH_Abort);
}
if (overloadmyproc)
{
CCTK_OverloadMyProc(PUGH_MyProc);
}
if (overloadnprocs)
{
CCTK_OverloadnProcs(PUGH_nProcs);
}
if (overloadarraygroupsizeb)
{
CCTK_OverloadArrayGroupSizeB(PUGH_ArrayGroupSize);
}
if (overloadquerygroupstorageb)
{
CCTK_OverloadQueryGroupStorageB(PUGH_QueryGroupStorage);
}
if (overloadgroupdynamicdata)
{
CCTK_OverloadGroupDynamicData(PUGH_GroupDynamicData);
}
/* Register the PUGH banner */
CCTK_RegisterBanner("Driver provided by PUGH");
return 0;
}
#if 0
/*@@
@routine WhatIsPugh
@date Mon Apr 14 22:13:12 1997
@author Paul Walker... with some by Joan...
@desc
Returns a quasi-random saying which describes exactly what
pugh stands for. It doesn't have the REAL answer in the
list though ... but it is hidden somewhere in the source
code ...
@enddesc
@calledby main
@@*/
static int npn=18;
static char pughnames[18][70] =
{"Peculiar Unwieldy Green Hairball",
"Paranoid Upity Gorilla Hater",
"Pathetic Ugly Game Hall",
"Position Under Gargantuan Hills",
"Pair Up Gangly Hyacinths",
"Pickles? Ungodly Green Hors d'ouvres",
"POW!!!!!! (Ugh......)",
"Practically Unusable Gross Hack (Thanks to MT)",
"Pluck Unpleasant Growing Hairs",
"Artichoke Inversion Subsystem Manager",
"Piles 'uv Guava Hoops",
"Perl Ueber Goober Hoover",
"Paul's Un-Thesis with Good HotPeppers!",
"Purple Unwearable Garish Horror",
"Parsiminious Unbearable Gazelle Hunter",
"Pedos Ululeantes Gorgojeando Hostias",
"Paridas Urdidas Gracias a Hijos de...",
"Putes Untades de Greix i Homides"
};
static char *WhatIsPugh(void)
{
int somerand = 0; /* A # between 1 and 1000 */
int which;
which = (int)(somerand * npn / 1000);
if (which > npn-1) which = npn-1;
return (pughnames[which]);
}
#endif
|
