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
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
|
From: Wolfgang Fütterer <debian@wlf-online.de>
Date: Mon, 12 Sep 2022 20:01:18 +0530
Subject: Fixed spelling errors
Forwarded: not-needed
Last-Update: 2016-08-08
---
ccx_2.20/src/cd_bleedtapping.f | 2 +-
ccx_2.20/src/cd_own_albers.f | 2 +-
ccx_2.20/src/cd_pk_albers.f | 2 +-
ccx_2.20/src/characteristic.f | 2 +-
ccx_2.20/src/compfluidfem.c | 2 +-
ccx_2.20/src/gapconductances.f | 2 +-
ccx_2.20/src/initialnet.f | 6 +++---
ccx_2.20/src/intersectionpoint.f | 2 +-
ccx_2.20/src/mafilldmssmain.c | 2 +-
ccx_2.20/src/mafillsmmain.c | 2 +-
ccx_2.20/src/mafillsmmain_se.c | 2 +-
ccx_2.20/src/orifice.f | 4 ++--
ccx_2.20/src/radflowload.c | 2 +-
ccx_2.20/src/readfrd.c | 10 +++++-----
ccx_2.20/src/results.c | 2 +-
ccx_2.20/src/results_se.c | 2 +-
ccx_2.20/src/resultsinduction.c | 2 +-
ccx_2.20/src/resultsstr.c | 2 +-
ccx_2.20/src/rhsmain.c | 2 +-
19 files changed, 26 insertions(+), 26 deletions(-)
diff --git a/ccx_2.20/src/cd_bleedtapping.f b/ccx_2.20/src/cd_bleedtapping.f
index 9eb1675..0e2e3f3 100644
--- a/ccx_2.20/src/cd_bleedtapping.f
+++ b/ccx_2.20/src/cd_bleedtapping.f
@@ -86,7 +86,7 @@
elseif(curve.gt.2) then
write(*,*)
write(*,*) 'no characteristic available under this index'
- write(*,*) 'cd is implicitely assumed equal to 1'
+ write(*,*) 'cd is implicitly assumed equal to 1'
cd=1.d0
return
endif
diff --git a/ccx_2.20/src/cd_own_albers.f b/ccx_2.20/src/cd_own_albers.f
index 1bbee72..24b43d8 100644
--- a/ccx_2.20/src/cd_own_albers.f
+++ b/ccx_2.20/src/cd_own_albers.f
@@ -34,7 +34,7 @@
kappa=Kappa
cd=1.d0
write(*,*) '*WARNING while using subroutine cd_own_albers.f'
- write(*,*) 'cd implicitely taken equal to 1'
+ write(*,*) 'cd implicitly taken equal to 1'
!
return
diff --git a/ccx_2.20/src/cd_pk_albers.f b/ccx_2.20/src/cd_pk_albers.f
index 072be7c..3d89fc6 100644
--- a/ccx_2.20/src/cd_pk_albers.f
+++ b/ccx_2.20/src/cd_pk_albers.f
@@ -42,7 +42,7 @@
cd=1.d0
write(*,*) '*WARNING while using subroutine cd_pk_albers.f'
- write(*,*) 'cd implicitely taken equal to 1'
+ write(*,*) 'cd implicitly taken equal to 1'
!
return
end
diff --git a/ccx_2.20/src/characteristic.f b/ccx_2.20/src/characteristic.f
index 91f6780..d92a4b2 100644
--- a/ccx_2.20/src/characteristic.f
+++ b/ccx_2.20/src/characteristic.f
@@ -27,7 +27,7 @@
! massflow*dsqrt(T1)/Pt1=f((Pt1-Pt2)/Pt1) and T1=T2
! characteristics the subroutine proceeds using
! linear interpolation to estimate the values for the whole characteristic
-! note that the characteristic is implicitely containing the point (0,0)
+! note that the characteristic is implicitly containing the point (0,0)
!
! author: Yannick Muller
!
diff --git a/ccx_2.20/src/compfluidfem.c b/ccx_2.20/src/compfluidfem.c
index ed06836..859c805 100644
--- a/ccx_2.20/src/compfluidfem.c
+++ b/ccx_2.20/src/compfluidfem.c
@@ -198,7 +198,7 @@ void compfluidfem(double **cop,ITG *nk,ITG **ipkonp,ITG **konp,char **lakonp,
}
}
- // next line is to be inserted in a similar way for all other paralell parts
+ // next line is to be inserted in a similar way for all other parallel parts
if(*ne<num_cpus) num_cpus=*ne;
diff --git a/ccx_2.20/src/gapconductances.f b/ccx_2.20/src/gapconductances.f
index d90ed06..951e334 100644
--- a/ccx_2.20/src/gapconductances.f
+++ b/ccx_2.20/src/gapconductances.f
@@ -56,7 +56,7 @@
if(nelcon(1,nmat).eq.0) then
write(*,*) '*ERROR reading *GAP CONDUCTANCE:'
write(*,*) ' *GAP CONDUCTANCE should'
- write(*,*) ' be preceeded by a *SURFACE BEHAVIOR card'
+ write(*,*) ' be preceded by a *SURFACE BEHAVIOR card'
ier=1
return
endif
diff --git a/ccx_2.20/src/initialnet.f b/ccx_2.20/src/initialnet.f
index 34cf9a6..64425f1 100644
--- a/ccx_2.20/src/initialnet.f
+++ b/ccx_2.20/src/initialnet.f
@@ -721,7 +721,7 @@ c call exit(201)
write(*,*) ' node1',node1,' pressure'
& ,v(2,node1)
write(*,*) ' node2',node2,
- & 'given intial pressure',
+ & 'given initial pressure',
& v(2,node2)
v(2,node2)=0.9d0*v(2,node2)
write(*,*) ' node2',node2,
@@ -741,12 +741,12 @@ c call exit(201)
& ' given initial pressure',v(2,node1)
v(2,node1)=1.05d0*v(2,node2)
write(*,*) ' node1',node1,
- & ' new intial pressure',v(2,node1)
+ & ' new initial pressure',v(2,node1)
write(*,*) ' node2',node2,
& ' given initial pressure',v(2,node2)
v(2,node2)=0.95d0*v(2,node2)
write(*,*) ' node2',node2,
- & ' new intial pressure',v(2,node2)
+ & ' new initial pressure',v(2,node2)
endif
endif
!
diff --git a/ccx_2.20/src/intersectionpoint.f b/ccx_2.20/src/intersectionpoint.f
index 55fe0d6..b6809a7 100644
--- a/ccx_2.20/src/intersectionpoint.f
+++ b/ccx_2.20/src/intersectionpoint.f
@@ -34,7 +34,7 @@
!
if(abs(eplane(pab,xcp,tnull)).lt.1.d-13)then
write(*,*) 'SH: IP no intersection point can be found'
- write(*,*) 'SH: IP pab paralell to plane! '
+ write(*,*) 'SH: IP pab parallel to plane! '
call exit(201)
else
diff=-eplane(pa,xcp,t)/eplane(pab,xcp,tnull)
diff --git a/ccx_2.20/src/mafilldmssmain.c b/ccx_2.20/src/mafilldmssmain.c
index 75635ac..4c7768e 100644
--- a/ccx_2.20/src/mafilldmssmain.c
+++ b/ccx_2.20/src/mafilldmssmain.c
@@ -124,7 +124,7 @@ void mafilldmssmain(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
}
}
-// next line is to be inserted in a similar way for all other paralell parts
+// next line is to be inserted in a similar way for all other parallel parts
if(*ne<num_cpus) num_cpus=*ne;
diff --git a/ccx_2.20/src/mafillsmmain.c b/ccx_2.20/src/mafillsmmain.c
index 66a0c6b..d05c02a 100644
--- a/ccx_2.20/src/mafillsmmain.c
+++ b/ccx_2.20/src/mafillsmmain.c
@@ -139,7 +139,7 @@ void mafillsmmain(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
}
}
- // next line is to be inserted in a similar way for all other paralell parts
+ // next line is to be inserted in a similar way for all other parallel parts
if(*ne<num_cpus) num_cpus=*ne;
diff --git a/ccx_2.20/src/mafillsmmain_se.c b/ccx_2.20/src/mafillsmmain_se.c
index ca79b67..c5bd046 100644
--- a/ccx_2.20/src/mafillsmmain_se.c
+++ b/ccx_2.20/src/mafillsmmain_se.c
@@ -137,7 +137,7 @@ void mafillsmmain_se(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
}
}
-// next line is to be inserted in a similar way for all other paralell parts
+// next line is to be inserted in a similar way for all other parallel parts
if(*ne<num_cpus) num_cpus=*ne;
diff --git a/ccx_2.20/src/orifice.f b/ccx_2.20/src/orifice.f
index d45fc53..47d87c3 100644
--- a/ccx_2.20/src/orifice.f
+++ b/ccx_2.20/src/orifice.f
@@ -198,7 +198,7 @@
else
write(*,*) '*ERROR in orifice:'
write(*,*) ' element',nelemswirl
- write(*,*) ' refered by element',nelem
+ write(*,*) ' referred by element',nelem
write(*,*) ' is not a swirl generating element'
endif
endif
@@ -526,7 +526,7 @@ c endif
else
write(*,*) '*ERROR in orifice:'
write(*,*) ' element',nelemswirl
- write(*,*) 'refered by element',nelem
+ write(*,*) 'referred by element',nelem
write(*,*) 'is not a swirl generating element'
endif
endif
diff --git a/ccx_2.20/src/radflowload.c b/ccx_2.20/src/radflowload.c
index 18d28a1..d783ec4 100644
--- a/ccx_2.20/src/radflowload.c
+++ b/ccx_2.20/src/radflowload.c
@@ -455,7 +455,7 @@ void radflowload(ITG *itg,ITG *ieg,ITG *ntg,ITG *ntr,double *adrad,
}
}
- // next line is to be inserted in a similar way for all other paralell parts
+ // next line is to be inserted in a similar way for all other parallel parts
if(*ntr<num_cpus) num_cpus=*ntr;
diff --git a/ccx_2.20/src/readfrd.c b/ccx_2.20/src/readfrd.c
index ff53249..0d7344b 100644
--- a/ccx_2.20/src/readfrd.c
+++ b/ccx_2.20/src/readfrd.c
@@ -776,7 +776,7 @@ int readfrd( char *datin, Summen *anz, Nodes **nptr, Elements **eptr, Datasets *
if( lcase[anz->l].irtype > 2 )
{
- printf(" Found ELEMENT DATA, this is not suported!\n");
+ printf(" Found ELEMENT DATA, this is not supported!\n");
anz->l--;
goto next;
}
@@ -1384,12 +1384,12 @@ int readfrd( char *datin, Summen *anz, Nodes **nptr, Elements **eptr, Datasets *
if ( e_nmax > (anz->nmax) )
{
- printf ("\nWARNING: element requestes a nodename higher than allocated\n\n");
+ printf ("\nWARNING: element requests a nodename higher than allocated\n\n");
printf (" e_nmax=%d e_nmin=%d\n", e_nmax, e_nmin );
}
if ( e_nmin < 1 )
{
- printf ("\nWARNING: element requestes a nodename lower than allocated\n\n");
+ printf ("\nWARNING: element requests a nodename lower than allocated\n\n");
printf (" e_nmax=%d e_nmin=%d\n", e_nmax, e_nmin );
}
@@ -1436,7 +1436,7 @@ int readfrdblock(int lc, Summen *anz, Nodes *node, Datasets *lcase )
if( lcase[lc].irtype > 2 )
{
- printf(" ERROR: Found ELEMENT DATA, this is not suported!\n");
+ printf(" ERROR: Found ELEMENT DATA, this is not supported!\n");
return(-1);
}
@@ -1719,7 +1719,7 @@ int readOneNode( int lc, Summen *anz, Datasets *lcase, int nodenr, double **vptr
if( lcase[lc].irtype > 2 )
{
- printf(" ERROR: Found ELEMENT DATA, this is not suported!\n");
+ printf(" ERROR: Found ELEMENT DATA, this is not supported!\n");
return(-1);
}
diff --git a/ccx_2.20/src/results.c b/ccx_2.20/src/results.c
index 4e0affd..e0e6a0d 100644
--- a/ccx_2.20/src/results.c
+++ b/ccx_2.20/src/results.c
@@ -156,7 +156,7 @@ void results(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
}
}
- // next line is to be inserted in a similar way for all other paralell parts
+ // next line is to be inserted in a similar way for all other parallel parts
if(*ne<num_cpus) num_cpus=*ne;
diff --git a/ccx_2.20/src/results_se.c b/ccx_2.20/src/results_se.c
index 25f89cd..f7f773b 100644
--- a/ccx_2.20/src/results_se.c
+++ b/ccx_2.20/src/results_se.c
@@ -134,7 +134,7 @@ void results_se(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
}
}
-// next line is to be inserted in a similar way for all other paralell parts
+// next line is to be inserted in a similar way for all other parallel parts
if(*ne<num_cpus) num_cpus=*ne;
diff --git a/ccx_2.20/src/resultsinduction.c b/ccx_2.20/src/resultsinduction.c
index addc148..0a32609 100644
--- a/ccx_2.20/src/resultsinduction.c
+++ b/ccx_2.20/src/resultsinduction.c
@@ -150,7 +150,7 @@ void resultsinduction(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,
}
}
-// next line is to be inserted in a similar way for all other paralell parts
+// next line is to be inserted in a similar way for all other parallel parts
if(*ne<num_cpus) num_cpus=*ne;
diff --git a/ccx_2.20/src/resultsstr.c b/ccx_2.20/src/resultsstr.c
index a956751..3dd0fb0 100644
--- a/ccx_2.20/src/resultsstr.c
+++ b/ccx_2.20/src/resultsstr.c
@@ -135,7 +135,7 @@ void resultsstr(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
}
}
- // next line is to be inserted in a similar way for all other paralell parts
+ // next line is to be inserted in a similar way for all other parallel parts
if(*ne<num_cpus) num_cpus=*ne;
diff --git a/ccx_2.20/src/rhsmain.c b/ccx_2.20/src/rhsmain.c
index 986c6c7..196dd64 100644
--- a/ccx_2.20/src/rhsmain.c
+++ b/ccx_2.20/src/rhsmain.c
@@ -104,7 +104,7 @@ void rhsmain(double *co,ITG *nk,ITG *kon,ITG *ipkon,char *lakon,ITG *ne,
}
}
- // next line is to be inserted in a similar way for all other paralell parts
+ // next line is to be inserted in a similar way for all other parallel parts
if(*ne<num_cpus) num_cpus=*ne;
|
