OpenRadioss 2025.1.11
OpenRadioss project
Loading...
Searching...
No Matches
rad2rad_c.h
Go to the documentation of this file.
1//Copyright> OpenRadioss
2//Copyright> Copyright (C) 1986-2025 Altair Engineering Inc.
3//Copyright>
4//Copyright> This program is free software: you can redistribute it and/or modify
5//Copyright> it under the terms of the GNU Affero General Public License as published by
6//Copyright> the Free Software Foundation, either version 3 of the License, or
7//Copyright> (at your option) any later version.
8//Copyright>
9//Copyright> This program is distributed in the hope that it will be useful,
10//Copyright> but WITHOUT ANY WARRANTY; without even the implied warranty of
11//Copyright> MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12//Copyright> GNU Affero General Public License for more details.
13//Copyright>
14//Copyright> You should have received a copy of the GNU Affero General Public License
15//Copyright> along with this program. If not, see <https://www.gnu.org/licenses/>.
16//Copyright>
17//Copyright>
18//Copyright> Commercial Alternative: Altair Radioss Software
19//Copyright>
20//Copyright> As an alternative to this open-source version, Altair also offers Altair Radioss
21//Copyright> software under a commercial license. Contact Altair to discuss further if the
22//Copyright> commercial version may interest you: https://www.altair.com/radioss/.
23
24#ifdef _WIN64
25int readr(HANDLE pipe, char *buf, int nbytes);
26int writer(HANDLE pipe, char*buf, int nbytes);
27#else
28int readr(int pipe, char *buf, int nbytes);
29int writer(int pipe , char *buf, int nbytes);
30#endif
31
32#ifdef DNC
33extern void syserr_fatal(char *msg);
34extern void fatal(char *msg);
35extern void catch_sig_c(int *pid);
36#endif
37
38void openfifo_c(int *iroot,int *len,int *fdw,int *fdr,int *sd,int *ispmd,int *nthr,int *ppid);
39void _FCALL OPENFIFO_C(int *iroot,int *len,int *fdw,int *fdr,int *sd,int *ispmd,int *nthr,int *ppid);
40void openfifo_c_(int *iroot,int *len,int *fdw,int *fdr,int *sd,int *ispmd,int *nthr,int *ppid);
41void openfifo_c__(int *iroot,int *len,int *fdw,int *fdr,int *sd,int *ispmd,int *nthr,int *ppid);
42// -------------------------------------------------------------
43void opensem_c(int *iroot,int *len,int *ispmd,int *nthr,int *ppid);
44void _FCALL OPENSEM_C(int *iroot,int *len,int *ispmd,int *nthr,int *ppid);
45void opensem_c_(int *iroot,int *len,int *ispmd,int *nthr,int *ppid);
46void opensem_c__(int *iroot,int *len,int *ispmd,int *nthr,int *ppid);
47// -------------------------------------------------------------
48void openshm_c();
49void syserr();
50// -------------------------------------------------------------
51void _FCALL OPENSHM_C();
52void openshm_c_();
53void openshm_c__();
54// -------------------------------------------------------------
55void r2r_unlock_threads_c(int *nthr);
56void _FCALL R2R_UNLOCK_THREADS_C(int *nthr);
57void r2r_unlock_threads_c_(int *nthr);
58void r2r_unlock_threads__(int *nthr);
59// -------------------------------------------------------------
60void r2r_block_c();
61void _FCALL R2R_BLOCK_C();
62void r2r_block_c_();
63void r2r_block__();
64// -------------------------------------------------------------
65void r2r_sem_c();
66void _FCALL R2R_SEM_C();
67void r2r_sem_c_();
68void r2r_sem__();
69// -------------------------------------------------------------
70void init_link_c(int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *addcnel, int *cnel,
71 int *ixc, int *ofc, int *info, int *typ, int *cdt, int *cdr, int *print, int *rddl,
72 int *nlink, my_real_c *dx);
73void _FCALL INIT_LINK_C (int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *addcnel, int *cnel,
74 int *ixc, int *ofc, int *info, int *typ, int *cdt, int *cdr, int *print, int *rddl,
75 int *nlink, my_real_c *dx);
76void _FCALL init_link_c_(int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *addcnel, int *cnel,
77 int *ixc, int *ofc, int *info, int *typ, int *cdt, int *cdr, int *print, int *rddl,
78 int *nlink, my_real_c *dx);
79void _FCALL init_link_c__(int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *addcnel, int *cnel,
80 int *ixc, int *ofc, int *info, int *typ, int *cdt, int *cdr, int *print, int *rddl,
81 int *nlink, my_real_c *dx);
82// -------------------------------------------------------------
83void init_link_nl_c(int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *print,
84 my_real_c *dx, int *ndof_nl, int *nb_tot_dof, int *nlnk);
85void _FCALL INIT_LINK_NL_C (int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *print,
86 my_real_c *dx, int *ndof_nl, int *nb_tot_dof, int *nlnk);
87void _FCALL init_link_nl_c_ (int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *print,
88 my_real_c *dx, int *ndof_nl, int *nb_tot_dof, int *nlnk);
89void _FCALL init_link_nl_c__ (int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *print,
90 my_real_c *dx, int *ndof_nl, int *nb_tot_dof, int *nlnk);
91void init_buf_spmd_c(int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *addcnel, int *cnel, int *ixc,
92 int *ofc, int *tlel, int *lel, int *lelnb, int *tleln, int *leln, int *nbelem, int *tcnel,
93 int *cnelem2, int *wgt, int *tcneldb, int *cnelemdb, int *info, int *typ, int *nglob);
94void _FCALL INIT_BUF_SPMD_C(int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *addcnel, int *cnel, int *ixc,
95 int *ofc, int *tlel, int *lel, int *lelnb, int *tleln, int *leln, int *nbelem, int *tcnel,
96 int *cnelem2, int *wgt, int *tcneldb, int *cnelemdb, int *info, int *typ, int *nglob);
97void _FCALL init_buf_spmd_c_(int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *addcnel, int *cnel, int *ixc,
98 int *ofc, int *tlel, int *lel, int *lelnb, int *tleln, int *leln, int *nbelem, int *tcnel,
99 int *cnelem2, int *wgt, int *tcneldb, int *cnelemdb, int *info, int *typ, int *nglob);
100void _FCALL init_buf_spmd_c__(int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *addcnel, int *cnel, int *ixc,
101 int *ofc, int *tlel, int *lel, int *lelnb, int *tleln, int *leln, int *nbelem, int *tcnel,
102 int *cnelem2, int *wgt, int *tcneldb, int *cnelemdb, int *info, int *typ, int *nglob);
103//-------------------------------------------------------------
104void init_link_spmd_c(int *igd, int *nng, int *dbnod, int *nbproc, int *ibuf, int *dbibuf,
105 int *dbnbuf, int *ddbuf, my_real_c *rbuf, int *dim, int *ibufnb,
106 int *ibufcnel, int *nbel, int *dimel, int *ibufel, int *ibufelnbnod,
107 int *ibufelnod, int *dimb, int *ibufcneldb, int *ibufnbeldb, int *typ,
108 int *bcs, int *print, int *rddl, int *nl, int *nlnk, int *iex);
109void _FCALL INIT_LINK_SPMD_C(int *igd, int *nng, int *dbnod, int *nbproc, int *ibuf, int *dbibuf,
110 int *dbnbuf, int *ddbuf, my_real_c *rbuf, int *dim, int *ibufnb,
111 int *ibufcnel, int *nbel, int *dimel, int *ibufel, int *ibufelnbnod,
112 int *ibufelnod, int *dimb, int *ibufcneldb, int *ibufnbeldb, int *typ,
113 int *bcs, int *print, int *rddl, int *nl, int *nlnk, int *iex);
114void _FCALL init_link_spmd_c_(int *igd, int *nng, int *dbnod, int *nbproc, int *ibuf, int *dbibuf,
115 int *dbnbuf, int *ddbuf, my_real_c *rbuf, int *dim, int *ibufnb,
116 int *ibufcnel, int *nbel, int *dimel, int *ibufel, int *ibufelnbnod,
117 int *ibufelnod, int *dimb, int *ibufcneldb, int *ibufnbeldb, int *typ,
118 int *bcs, int *print, int *rddl, int *nl, int *nlnk, int *iex);
119void _FCALL init_link_spmd_c__(int *igd, int *nng, int *dbnod, int *nbproc, int *ibuf, int *dbibuf,
120 int *dbnbuf, int *ddbuf, my_real_c *rbuf, int *dim, int *ibufnb,
121 int *ibufcnel, int *nbel, int *dimel, int *ibufel, int *ibufelnbnod,
122 int *ibufelnod, int *dimb, int *ibufcneldb, int *ibufnbeldb, int *typ,
123 int *bcs, int *print, int *rddl, int *nl, int *nlnk, int *iex);
124//-------------------------------------------------------------
125void send_ibuf_c(int *ibuf, int *len);
126void _FCALL SEND_IBUF_C(int *ibuf, int *len);
127void _FCALL send_ibuf_c_(int *ibuf, int *len);
128void _FCALL send_ibuf_c__(int *ibuf, int *len);
129//-------------------------------------------------------------
130void send_fbuf_c(my_real_c *fbuf, int *len);
131void _FCALL SEND_FBUF_C(my_real_c *fbuf, int *len);
132void send_fbuf_c_(my_real_c *fbuf, int *len);
133void send_fbuf_c__(my_real_c *fbuf, int *len);
134//-------------------------------------------------------------
135void send_fbufdp_c(double *fbuf, int *len);
136void _FCALL SEND_FBUFDP_C(double *fbuf, int *len);
137void send_fbufdp_c_(double *fbuf, int *len);
138void send_fbufdp_c__(double *fbuf, int *len);
139//-------------------------------------------------------------
140void get_fbuf_c(my_real_c *fbuf, int *len);
141void _FCALL GET_FBUF_C(my_real_c *fbuf, int *len);
142void get_fbuf_c_(my_real_c *fbuf, int *len);
143void get_fbuf_c__(my_real_c *fbuf, int *len);
144//-------------------------------------------------------------
145
146void get_fbufdp_c(double *fbuf, int *len);
147void _FCALL GET_FBUFDP_C(double *fbuf, int *len);
148void get_fbufdp_c_(double *fbuf, int *len);
149void get_fbufdp_c__(double *fbuf, int *len);
150//-------------------------------------------------------------
151void get_ibuf_c(int *ibuf, int *len);
152void _FCALL GET_IBUF_C(int *ibuf, int *len);
153void get_ibuf_c_(int *ibuf, int *len);
154void get_ibuf_c__(int *ibuf, int *len);
155//-------------------------------------------------------------
156void send_mass_c(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in);
157void _FCALL SEND_MASS_C(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in);
158void send_mass_c_(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in);
159void send_mass_c__(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in);
160//-------------------------------------------------------------
161void send_mass_nl_c(int *idp, int *nng, int *iadd_nl, my_real_c *ms);
162void _FCALL SEND_MASS_NL_C(int *idp, int *nng, int *iadd_nl, my_real_c *ms);
163void send_mass_nl_c_(int *idp, int *nng, int *iadd_nl, my_real_c *ms);
164void send_mass_nl_c__(int *idp, int *nng, int *iadd_nl, my_real_c *ms);
165void send_mass_rby_c(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, int *npby,
166 int *nrbody, my_real_c *rby, int *tag, int *add_rby, int *nnpby, int *nrby);
167void _FCALL SEND_MASS_RBY_C(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, int *npby,
168 int *nrbody, my_real_c *rby, int *tag, int *add_rby, int *nnpby, int *nrby);
169void send_mass_rby_c_(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, int *npby,
170 int *nrbody, my_real_c *rby, int *tag, int *add_rby, int *nnpby, int *nrby);
171void send_mass_rby_c__(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, int *npby,
172 int *nrbody, my_real_c *rby, int *tag, int *add_rby, int *nnpby, int *nrby);
173//-------------------------------------------------------------
174void init_activ_c(int *activ);
175void _FCALL INIT_ACTIV_C(int *activ);
176void init_activ_c_(int *activ);
177void init_activ_c__(int *activ);
178//-------------------------------------------------------------
179void send_mass_spmd_c(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2, int *iroddl);
180void _FCALL SEND_MASS_SPMD_C(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2, int *iroddl);
181void send_mass_spmd_c_(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2, int *iroddl);
182void send_mass_spmd_c__(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2, int *iroddl);
183//-------------------------------------------------------------
184void send_mass_rby_spmd_c(int *idp,int *nng,my_real_c *buf1,my_real_c *buf2,int *buf3,
185 my_real_c *buf4,my_real_c *buf5,int *iroddl);
186void _FCALL SEND_MASS_RBY_SPMD_C(int *idp,int *nng,my_real_c *buf1,my_real_c *buf2,int *buf3,
187 my_real_c *buf4,my_real_c *buf5,int *iroddl);
188void send_mass_rby_spmd_c_(int *idp,int *nng,my_real_c *buf1,my_real_c *buf2,int *buf3,
189 my_real_c *buf4,my_real_c *buf5,int *iroddl);
190void send_mass_rby_spmd_c__(int *idp,int *nng,my_real_c *buf1,my_real_c *buf2,int *buf3,
191 my_real_c *buf4,my_real_c *buf5,int *iroddl);
192//-------------------------------------------------------------
193void get_mass_c(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in);
194void _FCALL GET_MASS_C(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in);
195void get_mass_c_(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in);
196void get_mass_c__(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in);
197//-------------------------------------------------------------
198void get_mass_rby_c(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, my_real_c *x, int *npby,
199 int *nrbody, my_real_c *rby, int *nnpby, int *nrby);
200void _FCALL GET_MASS_RBY_C(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, my_real_c *x, int *npby,
201 int *nrbody, my_real_c *rby, int *nnpby, int *nrby);
202void get_mass_rby_c_(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, my_real_c *x, int *npby,
203 int *nrbody, my_real_c *rby, int *nnpby, int *nrby);
204void get_mass_rby_c__(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, my_real_c *x, int *npby,
205 int *nrbody, my_real_c *rby, int *nnpby, int *nrby);
206//-------------------------------------------------------------
207void get_mass_spmd_c(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2);
208void _FCALL GET_MASS_SPMD_C(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2);
209void get_mass_spmd_c_(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2);
210void get_mass_spmd_c__(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2);
211//-------------------------------------------------------------
212void get_mass_rby_spmd_c(int *idp,int *nng,my_real_c *buf1,my_real_c *buf2,my_real_c *buf3,my_real_c *buf4);
213void _FCALL GET_MASS_RBY_SPMD_C(int *idp,int *nng,my_real_c *buf1,my_real_c *buf2,my_real_c *buf3,my_real_c *buf4);
214void get_mass_rby_spmd_c_(int *idp,int *nng,my_real_c *buf1,my_real_c *buf2,my_real_c *buf3,my_real_c *buf4);
215void get_mass_rby_spmd_c__(int *idp,int *nng,my_real_c *buf1,my_real_c *buf2,my_real_c *buf3,my_real_c *buf4);
216//-------------------------------------------------------------
217void check_dtnoda_c(int *i7kglo);
218void check_dtnoda_c_(int *i7kglo);
219void _FCALL CHECK_DTNODA_C(int *i7kglo);
220void check_dtnoda_c__(int *i7kglo);
221//-------------------------------------------------------------
222void send_data_c(int *idp, int *nng, int *nodbuf,
223 my_real_c *fx, my_real_c *fr, my_real_c *stx, my_real_c *str,
224 my_real_c *vx, my_real_c *vr, my_real_c *ms, my_real_c *in,
225 double *dx, my_real_c *x, int *typ, int *npas, my_real_c *rby,
226 int *tag_rby, int *add_rby, int *rbylnk, int *kin, double *dr,
227 my_real_c *dt2, int *iex, int *off_sph, int *numsph_glo, int *nrby);
228void _FCALL SEND_DATA_C(int *idp, int *nng, int *nodbuf,
229 my_real_c *fx, my_real_c *fr, my_real_c *stx, my_real_c *str,
230 my_real_c *vx, my_real_c *vr, my_real_c *ms, my_real_c *in,
231 double *dx, my_real_c *x, int *typ, int *npas, my_real_c *rby,
232 int *tag_rby, int *add_rby, int *rbylnk, int *kin, double *dr,
233 my_real_c *dt2, int *iex, int *off_sph, int *numsph_glo, int *nrby);
234void send_data_c_(int *idp, int *nng, int *nodbuf,
235 my_real_c *fx, my_real_c *fr, my_real_c *stx, my_real_c *str,
236 my_real_c *vx, my_real_c *vr, my_real_c *ms, my_real_c *in,
237 double *dx, my_real_c *x, int *typ, int *npas, my_real_c *rby,
238 int *tag_rby, int *add_rby, int *rbylnk, int *kin, double *dr,
239 my_real_c *dt2, int *iex, int *off_sph, int *numsph_glo, int *nrby);
240void send_data_c__(int *idp, int *nng, int *nodbuf,
241 my_real_c *fx, my_real_c *fr, my_real_c *stx, my_real_c *str,
242 my_real_c *vx, my_real_c *vr, my_real_c *ms, my_real_c *in,
243 double *dx, my_real_c *x, int *typ, int *npas, my_real_c *rby,
244 int *tag_rby, int *add_rby, int *rbylnk, int *kin, double *dr,
245 my_real_c *dt2, int *iex, int *off_sph, int *numsph_glo, int *nrby);
246//-------------------------------------------------------------
247void send_data_nl_c(int *idp, int *nng, int *iadd_nl, my_real_c *fx, my_real_c *vx, my_real_c *ms, int *npas, int *iex);
248void _FCALL SEND_DATA_NL_C(int *idp, int *nng, int *iadd_nl, my_real_c *fx, my_real_c *vx, my_real_c *ms, int *npas, int *iex);
249void send_data_nl_c_(int *idp, int *nng, int *iadd_nl, my_real_c *fx, my_real_c *vx, my_real_c *ms, int *npas, int *iex);
250void send_data_nl_c__(int *idp, int *nng, int *iadd_nl, my_real_c *fx, my_real_c *vx, my_real_c *ms, int *npas, int *iex);
251//-------------------------------------------------------------
252void send_data_spmd_c(int *idp, int *nng,
253 my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3,
254 my_real_c *bufr4, my_real_c *bufr5, my_real_c *bufr6,
255 double *bufr7, my_real_c *bufr8, my_real_c *bufr9,
256 my_real_c *buf_rby, int *flg_rby, int *typ, int *npas, int *iex);
257void _FCALL SEND_DATA_SPMD_C(int *idp, int *nng,
258 my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3,
259 my_real_c *bufr4, my_real_c *bufr5, my_real_c *bufr6,
260 double *bufr7, my_real_c *bufr8, my_real_c *bufr9,
261 my_real_c *buf_rby, int *flg_rby, int *typ, int *npas, int *iex);
262void send_data_spmd_c_(int *idp, int *nng,
263 my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3,
264 my_real_c *bufr4, my_real_c *bufr5, my_real_c *bufr6,
265 double *bufr7, my_real_c *bufr8, my_real_c *bufr9,
266 my_real_c *buf_rby, int *flg_rby, int *typ, int *npas, int *iex);
267void send_data_spmd_c__(int *idp, int *nng,
268 my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3,
269 my_real_c *bufr4, my_real_c *bufr5, my_real_c *bufr6,
270 double *bufr7, my_real_c *bufr8, my_real_c *bufr9,
271 my_real_c *buf_rby, int *flg_rby, int *typ, int *npas, int *iex);
272//-------------------------------------------------------------
273void get_stiff_c(int *idp, int *nng, int *nodbuf,
274 my_real_c *ms, my_real_c *ir,
275 my_real_c *stx, my_real_c *str,
276 int *typ, int *npas, int *iex);
277void _FCALL GET_STIFF_C(int *idp, int *nng, int *nodbuf,
278 my_real_c *ms, my_real_c *ir,
279 my_real_c *stx, my_real_c *str,
280 int *typ, int *npas, int *iex);
281void get_stiff_c_(int *idp, int *nng, int *nodbuf,
282 my_real_c *ms, my_real_c *ir,
283 my_real_c *stx, my_real_c *str,
284 int *typ, int *npas, int *iex);
285void get_stiff_c__(int *idp, int *nng, int *nodbuf,
286 my_real_c *ms, my_real_c *ir,
287 my_real_c *stx, my_real_c *str,
288 int *typ, int *npas, int *iex);
289//-------------------------------------------------------------
290void get_stiff_spmd_c(int *idp, int *nng,
291 my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3, my_real_c *bufr4,
292 int *typ, int *npas, int *iex, int *nglob);
293void _FCALL GET_STIFF_SPMD_C(int *idp, int *nng,
294 my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3, my_real_c *bufr4,
295 int *typ, int *npas, int *iex, int *nglob);
296void get_stiff_spmd_c_(int *idp, int *nng,
297 my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3, my_real_c *bufr4,
298 int *typ, int *npas, int *iex, int *nglob);
299void get_stiff_spmd_c__(int *idp, int *nng,
300 my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3, my_real_c *bufr4,
301 int *typ, int *npas, int *iex, int *nglob);
302//-------------------------------------------------------------
303void get_force_c(int *idp, int *nng, int *nodbuf, my_real_c *wf,
304 my_real_c *wm, my_real_c *wf2, my_real_c *wm2, my_real_c *v,
305 my_real_c *vr, my_real_c *fx, my_real_c *fr, my_real_c *ms,
306 my_real_c *in, my_real_c *x, double *xdp, my_real_c *dx,
307 int *typ, int *kin, int *wgt, int *iex, int *iresp, double *tfext);
308//-----------------------------------------------------
309void _FCALL GET_FORCE_C(int *idp, int *nng, int *nodbuf, my_real_c *wf,
310 my_real_c *wm, my_real_c *wf2, my_real_c *wm2, my_real_c *v,
311 my_real_c *vr, my_real_c *fx, my_real_c *fr, my_real_c *ms,
312 my_real_c *in, my_real_c *x, double *xdp, my_real_c *dx,
313 int *typ, int *kin, int *wgt, int *iex, int *iresp, double *tfext);
314void get_force_c_(int *idp, int *nng, int *nodbuf, my_real_c *wf,
315 my_real_c *wm, my_real_c *wf2, my_real_c *wm2, my_real_c *v,
316 my_real_c *vr, my_real_c *fx, my_real_c *fr, my_real_c *ms,
317 my_real_c *in, my_real_c *x, double *xdp, my_real_c *dx,
318 int *typ, int *kin, int *wgt, int *iex, int *iresp, double *tfext);
319void get_force_c__(int *idp, int *nng, int *nodbuf, my_real_c *wf,
320 my_real_c *wm, my_real_c *wf2, my_real_c *wm2, my_real_c *v,
321 my_real_c *vr, my_real_c *fx, my_real_c *fr, my_real_c *ms,
322 my_real_c *in, my_real_c *x, double *xdp, my_real_c *dx,
323 int *typ, int *kin, int *wgt, int *iex, int *iresp, double *tfext);
324//-----------------------------------------------------
325void get_force_nl_c(int *idp, int *nng, int *iadd_nl, my_real_c *fx, my_real_c *ms, int *iex);
326void _FCALL GET_FORCE_NL_C(int *idp, int *nng, int *iadd_nl, my_real_c *fx, my_real_c *ms, int *iex);
327void get_force_nl_c_(int *idp, int *nng, int *iadd_nl, my_real_c *fx, my_real_c *ms, int *iex);
328void get_force_nl_c__(int *idp, int *nng, int *iadd_nl, my_real_c *fx, my_real_c *ms, int *iex);
329//-----------------------------------------------------
330void get_force_spmd_c(int *idp, int *nng,
331 my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3,
332 my_real_c *bufr4, int *typ, int *iex, int *nglob);
333void _FCALL GET_FORCE_SPMD_C(int *idp, int *nng,
334 my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3,
335 my_real_c *bufr4, int *typ, int *iex, int *nglob);
336void get_force_spmd_c_(int *idp, int *nng,
337 my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3,
338 my_real_c *bufr4, int *typ, int *iex, int *nglob);
339void get_force_spmd_c__(int *idp, int *nng,
340 my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3,
341 my_real_c *bufr4, int *typ, int *iex, int *nglob);
342//-----------------------------------------------------
343static void do_activ_c(int *iflg);
344void _FCALL DO_ACTIV_C(int *iflg);
345void do_activ_c_(int *iflg);
346void do_activ_c__(int *iflg);
347//-----------------------------------------------------
348void send_mass_kine_c(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, int *iex, int *offset);
349void _FCALL SEND_MASS_KINE_C(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, int *iex, int *offset);
350void send_mass_kine_c_(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, int *iex, int *offset);
351void send_mass_kine_c__(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, int *iex, int *offset);
352//---------------------------------------------
353void get_displ_c(int *idp, int *nng, int *nodbuf, my_real_c *x);
354void _FCALL GET_DISPL_C(int *idp, int *nng, int *nodbuf, my_real_c *x);
355void get_displ_c_(int *idp, int *nng, int *nodbuf, my_real_c *x);
356void get_displ_c__(int *idp, int *nng, int *nodbuf, my_real_c *x);
357//---------------------------------------------
358void get_displ_spmd_c(int *idp, int *nng, my_real_c *bufr);
359void _FCALL GET_DISPL_SPMD_C(int *idp, int *nng, my_real_c *bufr);
360void get_displ_spmd_c_(int *idp, int *nng, my_real_c *bufr);
361void get_displ_spmd_c__(int *idp, int *nng, my_real_c *bufr);
362//-------------------------------------------------------------
363static void close_r2r_pipe_c();
365void close_r2r_pipe_c_();
366void close_r2r_pipe_c__();
367/***************Routines for socket communication***********************/
368
369void connection_sock_init_c(int *sd);
370void _FCALL CONNECTION_SOCK_INIT_C(int *sd);
371void connection_sock_init_c_(int *sd);
372void connection_sock_init_c__(int *sd);
373//-------------------------------------------------------------
374void send_sock_init_c(int *iroot,int *len,int *ispmd,int *sd,int *maxproc,int *imach);
375void _FCALL SEND_SOCK_INIT_C(int *iroot, int *len, int *ispmd, int *sd, int *maxproc, int *imach);
376void send_sock_init_c_(int *iroot, int *len, int *ispmd, int *sd, int *maxproc, int *imach);
377void send_sock_init_c__(int *iroot, int *len, int *ispmd, int *sd, int *maxproc, int *imach);
378//-------------------------------------------------------------
379void connection_sock_c(int *ispmd, int *sd, char *addr);
380void _FCALL CONNECTION_SOCK_C(int *ispmd, int *sd, char *addr);
381void connection_sock_c_(int *ispmd, int *sd, char *addr);
382void connection_sock_c__(int *ispmd, int *sd, char *addr);
383//-------------------------------------------------------------
384void mess_sock_c(int *sd);
385void _FCALL MESS_SOCK_C(int *sd);
386void mess_sock_c_(int *sd);
387void mess_sock_c__(int *sd);
388//-------------------------------------------------------------
389void send_sock_c(int *sd);
390void _FCALL SEND_SOCK_C(int *sd);
391void send_sock_c_(int *sd);
392void send_sock_c__(int *sd);
393//--------------------------------------------------------------
394void get_sock_ibuf_c(int *sd, int *ibuf, int *len);
395void _FCALL GET_SOCK_IBUF_C(int *sd, int *ibuf, int *len);
396void get_sock_ibuf_c_(int *sd, int *ibuf, int *len);
397void get_sock_ibuf_c__(int *sd, int *ibuf, int *len);
398//--------------------------------------------------------------
399void send_sock_ibuf_c(int *sd, int *ibuf, int *len);
400void _FCALL SEND_SOCK_IBUF_C(int *sd, int *ibuf, int *len);
401void send_sock_ibuf_c_(int *sd, int *ibuf, int *len);
402void send_sock_ibuf_c__(int *sd, int *ibuf, int *len);
403//---------------------------------------------
404void send_sock_rbuf_c(int *sd, my_real_c *rbuf, int *len);
405void _FCALL SEND_SOCK_RBUF_C(int *sd, my_real_c *rbuf, int *len);
406void send_sock_rbuf_c_(int *sd, my_real_c *rbuf, int *len);
407void send_sock_rbuf_c__(int *sd, my_real_c *rbuf, int *len);
408//---------------------------------------------
409void get_sock_rbuf_c(int *sd, my_real_c *rbuf, int *len);
410void _FCALL GET_SOCK_RBUF_C(int *sd, my_real_c *rbuf, int *len);
411void get_sock_rbuf_c_(int *sd, my_real_c *rbuf, int *len);
412void get_sock_rbuf_c__(int *sd, my_real_c *rbuf, int *len);
413//---------------------------------------------
414void send_sock_mess_c(int *sd, char *mess, int *len);
415void _FCALL SEND_SOCK_MESS_C(int *sd, char *mess, int *len);
416void send_sock_mess_c_(int *sd, char *mess, int *len);
417void send_sock_mess_c__(int *sd, char *mess, int *len);
418//-------------------------------------
419void get_sock_mess_c(int *sd, char *mess, int *len);
420void _FCALL GET_SOCK_MESS_C(int *sd, char *mess, int *len);
421void get_sock_mess_c_(int *sd, char *mess, int *len);
422void get_sock_mess_c__(int *sd, char *mess, int *len);
423//------------------------------------------------è
424void close_sock_c(int *sd);
425void _FCALL CLOSE_SOCK_C(int *sd);
426void close_sock_c_(int *sd);
427void close_sock_c__(int *sd);
428//-------------------------------------------------------------
429void get_name_c(char *name);
430void _FCALL GET_NAME_C(char *name);
431void get_name_c_(char *name);
432void get_name_c__(char *name);
433//-------------------------------------------------------------
434void exch_itag_c(int *idp, int *nng, int *nodbuf,
435 int *itag, int *itag2, int *iex, int *offset,
436 int *flag);
437void _FCALL EXCH_ITAG_C(int *idp, int *nng, int *nodbuf,
438 int *itag, int *itag2, int *iex, int *offset,
439 int *flag);
440void exch_itag_c_(int *idp, int *nng, int *nodbuf,
441 int *itag, int *itag2, int *iex, int *offset,
442 int *flag);
443void exch_itag_c__(int *idp, int *nng, int *nodbuf,
444 int *itag, int *itag2, int *iex, int *offset,
445 int *flag);
446//-------------------------------------------------------------
447void realloc_shmvs_c(int newsize);
448//----------------------------------------
449void realloc_shmvr_c(int newsize);
450//------------------------------------------------
451void exch_tagel_c(int *ntagel, int *tagel, int *flag);
452void _FCALL EXCH_TAGEL_C(int *ntagel, int *tagel, int *flag);
453void exch_tagel_c_(int *ntagel, int *tagel, int *flag);
454void exch_tagel_c__(int *ntagel, int *tagel, int *flag);
455//---------------------------------------------------------------
456void get_shmbuf_c(int *val1, int *val2);
457void _FCALL GET_SHMBUF_C(int *val1, int *val2);
458void get_shmbuf_c_(int *val1, int *val2);
459void get_shmbuf_c__(int *val1, int *val2);
460void send_shmbuf_c(int *val1,int *val2);
461void _FCALL SEND_SHMBUF_C(int *val1,int *val2);
462void send_shmbuf_c_(int *val1,int *val2);
463void send_shmbuf_c__(int *val1,int *val2);
464
#define _FCALL
static int iroddl
Definition rad2rad_c.c:126
void send_sock_mess_c(int *sd, char *mess, int *len)
Definition rad2rad_c.c:2517
void init_link_c(int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *addcnel, int *cnel, int *ixc, int *ofc, int *info, int *typ, int *cdt, int *cdr, int *print, int *rddl, int *nlink, my_real_c *dx)
Definition rad2rad_c.c:451
void send_mass_kine_c(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, int *iex, int *offset)
Definition rad2rad_c.c:1960
void _FCALL CONNECTION_SOCK_INIT_C(int *sd)
Definition rad2rad_c.c:2191
void opensem_c(int *iroot, int *len, int *ispmd, int *nthr, int *ppid)
Definition rad2rad_c.c:246
void get_displ_c_(int *idp, int *nng, int *nodbuf, my_real_c *x)
Definition rad2rad_c.c:2020
void get_name_c__(char *name)
Definition rad2rad_c.c:2619
void send_sock_ibuf_c__(int *sd, int *ibuf, int *len)
Definition rad2rad_c.c:2458
void connection_sock_init_c(int *sd)
Definition rad2rad_c.c:2079
void r2r_unlock_threads__(int *nthr)
Definition rad2rad_c.c:400
void send_mass_rby_spmd_c__(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2, int *buf3, my_real_c *buf4, my_real_c *buf5, int *iroddl)
Definition rad2rad_c.c:1247
void r2r_sem__()
Definition rad2rad_c.c:446
void openshm_c_()
Definition rad2rad_c.c:360
void send_sock_rbuf_c__(int *sd, my_real_c *rbuf, int *len)
Definition rad2rad_c.c:2485
void get_force_c(int *idp, int *nng, int *nodbuf, my_real_c *wf, my_real_c *wm, my_real_c *wf2, my_real_c *wm2, my_real_c *v, my_real_c *vr, my_real_c *fx, my_real_c *fr, my_real_c *ms, my_real_c *in, my_real_c *x, double *xdp, my_real_c *dx, int *typ, int *kin, int *wgt, int *iex, int *iresp, double *tfext)
Definition rad2rad_c.c:1738
void send_mass_nl_c__(int *idp, int *nng, int *iadd_nl, my_real_c *ms)
Definition rad2rad_c.c:1117
void exch_itag_c__(int *idp, int *nng, int *nodbuf, int *itag, int *itag2, int *iex, int *offset, int *flag)
Definition rad2rad_c.c:2663
void get_sock_rbuf_c(int *sd, my_real_c *rbuf, int *len)
Definition rad2rad_c.c:2491
void send_mass_rby_c__(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, int *npby, int *nrbody, my_real_c *rby, int *tag, int *add_rby, int *nnpby, int *nrby)
Definition rad2rad_c.c:1175
void _FCALL init_buf_spmd_c__(int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *addcnel, int *cnel, int *ixc, int *ofc, int *tlel, int *lel, int *lelnb, int *tleln, int *leln, int *nbelem, int *tcnel, int *cnelem2, int *wgt, int *tcneldb, int *cnelemdb, int *info, int *typ, int *nglob)
Definition rad2rad_c.c:848
void _FCALL OPENSHM_C()
Definition rad2rad_c.c:356
void get_fbuf_c__(my_real_c *fbuf, int *len)
Definition rad2rad_c.c:1007
void get_shmbuf_c(int *val1, int *val2)
Definition rad2rad_c.c:2787
void get_shmbuf_c_(int *val1, int *val2)
Definition rad2rad_c.c:2795
void get_ibuf_c_(int *ibuf, int *len)
Definition rad2rad_c.c:1039
void send_fbuf_c__(my_real_c *fbuf, int *len)
Definition rad2rad_c.c:970
void close_sock_c_(int *sd)
Definition rad2rad_c.c:2597
void mess_sock_c(int *sd)
Definition rad2rad_c.c:2354
void send_mass_c__(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in)
Definition rad2rad_c.c:1085
void _FCALL SEND_IBUF_C(int *ibuf, int *len)
Definition rad2rad_c.c:944
void send_sock_c__(int *sd)
Definition rad2rad_c.c:2406
void r2r_block__()
Definition rad2rad_c.c:425
void _FCALL MESS_SOCK_C(int *sd)
Definition rad2rad_c.c:2370
void get_name_c(char *name)
Definition rad2rad_c.c:2607
void get_fbuf_c(my_real_c *fbuf, int *len)
Definition rad2rad_c.c:995
void _FCALL GET_STIFF_C(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *ir, my_real_c *stx, my_real_c *str, int *typ, int *npas, int *iex)
Definition rad2rad_c.c:1665
void send_shmbuf_c_(int *val1, int *val2)
Definition rad2rad_c.c:2812
void _FCALL GET_NAME_C(char *name)
Definition rad2rad_c.c:2611
void init_link_nl_c(int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *print, my_real_c *dx, int *ndof_nl, int *nb_tot_dof, int *nlnk)
Definition rad2rad_c.c:646
void _FCALL GET_MASS_RBY_C(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, my_real_c *x, int *npby, int *nrbody, my_real_c *rby, int *nnpby, int *nrby)
Definition rad2rad_c.c:1330
void mess_sock_c_(int *sd)
Definition rad2rad_c.c:2373
void get_stiff_c_(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *ir, my_real_c *stx, my_real_c *str, int *typ, int *npas, int *iex)
Definition rad2rad_c.c:1672
void _FCALL send_ibuf_c_(int *ibuf, int *len)
Definition rad2rad_c.c:948
void opensem_c__(int *iroot, int *len, int *ispmd, int *nthr, int *ppid)
Definition rad2rad_c.c:280
void get_mass_rby_c(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, my_real_c *x, int *npby, int *nrbody, my_real_c *rby, int *nnpby, int *nrby)
Definition rad2rad_c.c:1290
void get_mass_c(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in)
Definition rad2rad_c.c:1253
void r2r_unlock_threads_c(int *nthr)
Definition rad2rad_c.c:369
void exch_tagel_c_(int *ntagel, int *tagel, int *flag)
Definition rad2rad_c.c:2778
void do_activ_c_(int *iflg)
Definition rad2rad_c.c:1950
void _FCALL SEND_DATA_NL_C(int *idp, int *nng, int *iadd_nl, my_real_c *fx, my_real_c *vx, my_real_c *ms, int *npas, int *iex)
Definition rad2rad_c.c:1546
void _FCALL SEND_SOCK_IBUF_C(int *sd, int *ibuf, int *len)
Definition rad2rad_c.c:2450
void get_displ_c(int *idp, int *nng, int *nodbuf, my_real_c *x)
Definition rad2rad_c.c:1992
void get_ibuf_c__(int *ibuf, int *len)
Definition rad2rad_c.c:1043
void _FCALL GET_FBUF_C(my_real_c *fbuf, int *len)
Definition rad2rad_c.c:999
void close_r2r_pipe_c__()
Definition rad2rad_c.c:2074
void send_data_c_(int *idp, int *nng, int *nodbuf, my_real_c *fx, my_real_c *fr, my_real_c *stx, my_real_c *str, my_real_c *vx, my_real_c *vr, my_real_c *ms, my_real_c *in, double *dx, my_real_c *x, int *typ, int *npas, my_real_c *rby, int *tag_rby, int *add_rby, int *rbylnk, int *kin, double *dr, my_real_c *dt2, int *iex, int *off_sph, int *numsph_glo, int *nrby)
Definition rad2rad_c.c:1491
void _FCALL DO_ACTIV_C(int *iflg)
Definition rad2rad_c.c:1946
void check_dtnoda_c_(int *i7kglo)
Definition rad2rad_c.c:1398
void _FCALL GET_SOCK_IBUF_C(int *sd, int *ibuf, int *len)
Definition rad2rad_c.c:2423
void _FCALL init_link_c__(int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *addcnel, int *cnel, int *ixc, int *ofc, int *info, int *typ, int *cdt, int *cdr, int *print, int *rddl, int *nlink, my_real_c *dx)
Definition rad2rad_c.c:641
void send_mass_spmd_c(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2, int *iroddl)
Definition rad2rad_c.c:1198
void get_sock_ibuf_c(int *sd, int *ibuf, int *len)
Definition rad2rad_c.c:2412
void close_r2r_pipe_c_()
Definition rad2rad_c.c:2072
void do_activ_c__(int *iflg)
Definition rad2rad_c.c:1954
void _FCALL OPENFIFO_C(int *iroot, int *len, int *fdw, int *fdr, int *sd, int *ispmd, int *nthr, int *ppid)
Definition rad2rad_c.c:233
void get_force_spmd_c__(int *idp, int *nng, my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3, my_real_c *bufr4, int *typ, int *iex, int *nglob)
Definition rad2rad_c.c:1935
void get_displ_c__(int *idp, int *nng, int *nodbuf, my_real_c *x)
Definition rad2rad_c.c:2024
void openshm_c__()
Definition rad2rad_c.c:364
void _FCALL INIT_LINK_SPMD_C(int *igd, int *nng, int *dbnod, int *nbproc, int *ibuf, int *dbibuf, int *dbnbuf, int *ddbuf, my_real_c *rbuf, int *dim, int *ibufnb, int *ibufcnel, int *nbel, int *dimel, int *ibufel, int *ibufelnbnod, int *ibufelnod, int *dimb, int *ibufcneldb, int *ibufnbeldb, int *typ, int *bcs, int *print, int *rddl, int *nl, int *nlnk, int *iex)
Definition rad2rad_c.c:928
void _FCALL CLOSE_SOCK_C(int *sd)
Definition rad2rad_c.c:2593
void send_sock_rbuf_c_(int *sd, my_real_c *rbuf, int *len)
Definition rad2rad_c.c:2481
void get_force_nl_c__(int *idp, int *nng, int *iadd_nl, my_real_c *fx, my_real_c *ms, int *iex)
Definition rad2rad_c.c:1886
static void do_activ_c(int *iflg)
void realloc_shmvs_c(int newsize)
Definition rad2rad_c.c:2671
void send_mass_rby_spmd_c_(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2, int *buf3, my_real_c *buf4, my_real_c *buf5, int *iroddl)
Definition rad2rad_c.c:1243
void get_displ_spmd_c__(int *idp, int *nng, my_real_c *bufr)
Definition rad2rad_c.c:2054
void get_fbufdp_c_(double *fbuf, int *len)
Definition rad2rad_c.c:1021
void send_mass_rby_c_(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, int *npby, int *nrbody, my_real_c *rby, int *tag, int *add_rby, int *nnpby, int *nrby)
Definition rad2rad_c.c:1171
void _FCALL init_link_c_(int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *addcnel, int *cnel, int *ixc, int *ofc, int *info, int *typ, int *cdt, int *cdr, int *print, int *rddl, int *nlink, my_real_c *dx)
Definition rad2rad_c.c:637
void send_sock_ibuf_c_(int *sd, int *ibuf, int *len)
Definition rad2rad_c.c:2454
void get_displ_spmd_c_(int *idp, int *nng, my_real_c *bufr)
Definition rad2rad_c.c:2050
void _FCALL SEND_MASS_KINE_C(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, int *iex, int *offset)
Definition rad2rad_c.c:1978
void r2r_block_c()
Definition rad2rad_c.c:406
void mess_sock_c__(int *sd)
Definition rad2rad_c.c:2377
void exch_itag_c(int *idp, int *nng, int *nodbuf, int *itag, int *itag2, int *iex, int *offset, int *flag)
Definition rad2rad_c.c:2625
void r2r_unlock_threads_c_(int *nthr)
Definition rad2rad_c.c:396
void _FCALL GET_DISPL_C(int *idp, int *nng, int *nodbuf, my_real_c *x)
Definition rad2rad_c.c:2016
void get_sock_rbuf_c__(int *sd, my_real_c *rbuf, int *len)
Definition rad2rad_c.c:2511
void connection_sock_c_(int *ispmd, int *sd, char *addr)
Definition rad2rad_c.c:2344
void get_mass_rby_spmd_c(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2, my_real_c *buf3, my_real_c *buf4)
Definition rad2rad_c.c:1364
void _FCALL init_buf_spmd_c_(int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *addcnel, int *cnel, int *ixc, int *ofc, int *tlel, int *lel, int *lelnb, int *tleln, int *leln, int *nbelem, int *tcnel, int *cnelem2, int *wgt, int *tcneldb, int *cnelemdb, int *info, int *typ, int *nglob)
Definition rad2rad_c.c:844
void get_force_c__(int *idp, int *nng, int *nodbuf, my_real_c *wf, my_real_c *wm, my_real_c *wf2, my_real_c *wm2, my_real_c *v, my_real_c *vr, my_real_c *fx, my_real_c *fr, my_real_c *ms, my_real_c *in, my_real_c *x, double *xdp, my_real_c *dx, int *typ, int *kin, int *wgt, int *iex, int *iresp, double *tfext)
Definition rad2rad_c.c:1845
void send_mass_spmd_c_(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2, int *iroddl)
Definition rad2rad_c.c:1213
void openfifo_c_(int *iroot, int *len, int *fdw, int *fdr, int *sd, int *ispmd, int *nthr, int *ppid)
Definition rad2rad_c.c:237
void get_mass_c__(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in)
Definition rad2rad_c.c:1284
void check_dtnoda_c(int *i7kglo)
Definition rad2rad_c.c:1389
void _FCALL GET_MASS_SPMD_C(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2)
Definition rad2rad_c.c:1351
void close_sock_c__(int *sd)
Definition rad2rad_c.c:2601
void _FCALL SEND_FBUFDP_C(double *fbuf, int *len)
Definition rad2rad_c.c:981
void _FCALL INIT_ACTIV_C(int *activ)
Definition rad2rad_c.c:1186
void openshm_c()
Definition rad2rad_c.c:284
void get_mass_rby_spmd_c_(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2, my_real_c *buf3, my_real_c *buf4)
Definition rad2rad_c.c:1379
void _FCALL SEND_MASS_NL_C(int *idp, int *nng, int *iadd_nl, my_real_c *ms)
Definition rad2rad_c.c:1109
void _FCALL SEND_FBUF_C(my_real_c *fbuf, int *len)
Definition rad2rad_c.c:962
void get_stiff_c(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *ir, my_real_c *stx, my_real_c *str, int *typ, int *npas, int *iex)
Definition rad2rad_c.c:1632
void init_link_spmd_c(int *igd, int *nng, int *dbnod, int *nbproc, int *ibuf, int *dbibuf, int *dbnbuf, int *ddbuf, my_real_c *rbuf, int *dim, int *ibufnb, int *ibufcnel, int *nbel, int *dimel, int *ibufel, int *ibufelnbnod, int *ibufelnod, int *dimb, int *ibufcneldb, int *ibufnbeldb, int *typ, int *bcs, int *print, int *rddl, int *nl, int *nlnk, int *iex)
Definition rad2rad_c.c:853
void get_sock_ibuf_c_(int *sd, int *ibuf, int *len)
Definition rad2rad_c.c:2428
void connection_sock_init_c_(int *sd)
Definition rad2rad_c.c:2194
void send_sock_ibuf_c(int *sd, int *ibuf, int *len)
Definition rad2rad_c.c:2439
void r2r_sem_c_()
Definition rad2rad_c.c:442
void openfifo_c__(int *iroot, int *len, int *fdw, int *fdr, int *sd, int *ispmd, int *nthr, int *ppid)
Definition rad2rad_c.c:241
void send_fbufdp_c_(double *fbuf, int *len)
Definition rad2rad_c.c:985
void send_mass_spmd_c__(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2, int *iroddl)
Definition rad2rad_c.c:1217
void _FCALL GET_MASS_C(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in)
Definition rad2rad_c.c:1276
void send_sock_c_(int *sd)
Definition rad2rad_c.c:2402
void _FCALL INIT_LINK_C(int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *addcnel, int *cnel, int *ixc, int *ofc, int *info, int *typ, int *cdt, int *cdr, int *print, int *rddl, int *nlink, my_real_c *dx)
Definition rad2rad_c.c:633
void get_fbuf_c_(my_real_c *fbuf, int *len)
Definition rad2rad_c.c:1003
void r2r_sem_c()
Definition rad2rad_c.c:430
void _FCALL SEND_MASS_RBY_C(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, int *npby, int *nrbody, my_real_c *rby, int *tag, int *add_rby, int *nnpby, int *nrby)
Definition rad2rad_c.c:1167
void get_displ_spmd_c(int *idp, int *nng, my_real_c *bufr)
Definition rad2rad_c.c:2030
void get_sock_mess_c__(int *sd, char *mess, int *len)
Definition rad2rad_c.c:2565
void send_data_c(int *idp, int *nng, int *nodbuf, my_real_c *fx, my_real_c *fr, my_real_c *stx, my_real_c *str, my_real_c *vx, my_real_c *vr, my_real_c *ms, my_real_c *in, double *dx, my_real_c *x, int *typ, int *npas, my_real_c *rby, int *tag_rby, int *add_rby, int *rbylnk, int *kin, double *dr, my_real_c *dt2, int *iex, int *off_sph, int *numsph_glo, int *nrby)
Definition rad2rad_c.c:1411
void send_mass_kine_c_(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, int *iex, int *offset)
Definition rad2rad_c.c:1982
void _FCALL GET_MASS_RBY_SPMD_C(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2, my_real_c *buf3, my_real_c *buf4)
Definition rad2rad_c.c:1375
void get_stiff_spmd_c_(int *idp, int *nng, my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3, my_real_c *bufr4, int *typ, int *npas, int *iex, int *nglob)
Definition rad2rad_c.c:1725
void _FCALL GET_STIFF_SPMD_C(int *idp, int *nng, my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3, my_real_c *bufr4, int *typ, int *npas, int *iex, int *nglob)
Definition rad2rad_c.c:1719
void send_mass_kine_c__(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, int *iex, int *offset)
Definition rad2rad_c.c:1986
void get_stiff_spmd_c__(int *idp, int *nng, my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3, my_real_c *bufr4, int *typ, int *npas, int *iex, int *nglob)
Definition rad2rad_c.c:1731
void send_sock_mess_c__(int *sd, char *mess, int *len)
Definition rad2rad_c.c:2538
void _FCALL GET_FBUFDP_C(double *fbuf, int *len)
Definition rad2rad_c.c:1017
void send_mass_rby_spmd_c(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2, int *buf3, my_real_c *buf4, my_real_c *buf5, int *iroddl)
Definition rad2rad_c.c:1223
void _FCALL init_link_nl_c_(int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *print, my_real_c *dx, int *ndof_nl, int *nb_tot_dof, int *nlnk)
Definition rad2rad_c.c:697
void connection_sock_c__(int *ispmd, int *sd, char *addr)
Definition rad2rad_c.c:2348
void _FCALL R2R_BLOCK_C()
Definition rad2rad_c.c:417
void get_force_spmd_c(int *idp, int *nng, my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3, my_real_c *bufr4, int *typ, int *iex, int *nglob)
Definition rad2rad_c.c:1892
void _FCALL INIT_LINK_NL_C(int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *print, my_real_c *dx, int *ndof_nl, int *nb_tot_dof, int *nlnk)
Definition rad2rad_c.c:693
int writer(int pipe, char *buf, int nbytes)
void _FCALL CLOSE_R2R_PIPE_C()
Definition rad2rad_c.c:2070
void get_force_spmd_c_(int *idp, int *nng, my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3, my_real_c *bufr4, int *typ, int *iex, int *nglob)
Definition rad2rad_c.c:1929
void _FCALL SEND_SHMBUF_C(int *val1, int *val2)
Definition rad2rad_c.c:2809
void _FCALL OPENSEM_C(int *iroot, int *len, int *ispmd, int *nthr, int *ppid)
Definition rad2rad_c.c:272
void init_buf_spmd_c(int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *addcnel, int *cnel, int *ixc, int *ofc, int *tlel, int *lel, int *lelnb, int *tleln, int *leln, int *nbelem, int *tcnel, int *cnelem2, int *wgt, int *tcneldb, int *cnelemdb, int *info, int *typ, int *nglob)
Definition rad2rad_c.c:706
void send_sock_init_c__(int *iroot, int *len, int *ispmd, int *sd, int *maxproc, int *imach)
Definition rad2rad_c.c:2262
void get_fbufdp_c(double *fbuf, int *len)
Definition rad2rad_c.c:1013
void send_sock_rbuf_c(int *sd, my_real_c *rbuf, int *len)
Definition rad2rad_c.c:2464
void init_activ_c(int *activ)
Definition rad2rad_c.c:1181
void send_sock_c(int *sd)
Definition rad2rad_c.c:2383
void send_data_nl_c_(int *idp, int *nng, int *iadd_nl, my_real_c *fx, my_real_c *vx, my_real_c *ms, int *npas, int *iex)
Definition rad2rad_c.c:1550
void send_fbuf_c_(my_real_c *fbuf, int *len)
Definition rad2rad_c.c:966
void send_fbuf_c(my_real_c *fbuf, int *len)
Definition rad2rad_c.c:958
void get_mass_spmd_c_(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2)
Definition rad2rad_c.c:1355
void close_sock_c(int *sd)
Definition rad2rad_c.c:2571
void _FCALL send_ibuf_c__(int *ibuf, int *len)
Definition rad2rad_c.c:952
void _FCALL SEND_DATA_C(int *idp, int *nng, int *nodbuf, my_real_c *fx, my_real_c *fr, my_real_c *stx, my_real_c *str, my_real_c *vx, my_real_c *vr, my_real_c *ms, my_real_c *in, double *dx, my_real_c *x, int *typ, int *npas, my_real_c *rby, int *tag_rby, int *add_rby, int *rbylnk, int *kin, double *dr, my_real_c *dt2, int *iex, int *off_sph, int *numsph_glo, int *nrby)
Definition rad2rad_c.c:1477
void connection_sock_init_c__(int *sd)
Definition rad2rad_c.c:2197
void get_sock_mess_c(int *sd, char *mess, int *len)
Definition rad2rad_c.c:2544
void _FCALL GET_DISPL_SPMD_C(int *idp, int *nng, my_real_c *bufr)
Definition rad2rad_c.c:2046
void get_fbufdp_c__(double *fbuf, int *len)
Definition rad2rad_c.c:1025
void _FCALL SEND_MASS_SPMD_C(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2, int *iroddl)
Definition rad2rad_c.c:1209
void _FCALL GET_IBUF_C(int *ibuf, int *len)
Definition rad2rad_c.c:1035
void r2r_block_c_()
Definition rad2rad_c.c:421
void send_data_spmd_c__(int *idp, int *nng, my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3, my_real_c *bufr4, my_real_c *bufr5, my_real_c *bufr6, double *bufr7, my_real_c *bufr8, my_real_c *bufr9, my_real_c *buf_rby, int *flg_rby, int *typ, int *npas, int *iex)
Definition rad2rad_c.c:1622
void _FCALL SEND_SOCK_RBUF_C(int *sd, my_real_c *rbuf, int *len)
Definition rad2rad_c.c:2477
void send_data_nl_c(int *idp, int *nng, int *iadd_nl, my_real_c *fx, my_real_c *vx, my_real_c *ms, int *npas, int *iex)
Definition rad2rad_c.c:1521
void send_fbufdp_c__(double *fbuf, int *len)
Definition rad2rad_c.c:989
void send_mass_nl_c_(int *idp, int *nng, int *iadd_nl, my_real_c *ms)
Definition rad2rad_c.c:1113
void _FCALL CONNECTION_SOCK_C(int *ispmd, int *sd, char *addr)
Definition rad2rad_c.c:2340
void _FCALL SEND_DATA_SPMD_C(int *idp, int *nng, my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3, my_real_c *bufr4, my_real_c *bufr5, my_real_c *bufr6, double *bufr7, my_real_c *bufr8, my_real_c *bufr9, my_real_c *buf_rby, int *flg_rby, int *typ, int *npas, int *iex)
Definition rad2rad_c.c:1606
void get_force_nl_c(int *idp, int *nng, int *iadd_nl, my_real_c *fx, my_real_c *ms, int *iex)
Definition rad2rad_c.c:1859
void _FCALL GET_FORCE_C(int *idp, int *nng, int *nodbuf, my_real_c *wf, my_real_c *wm, my_real_c *wf2, my_real_c *wm2, my_real_c *v, my_real_c *vr, my_real_c *fx, my_real_c *fr, my_real_c *ms, my_real_c *in, my_real_c *x, double *xdp, my_real_c *dx, int *typ, int *kin, int *wgt, int *iex, int *iresp, double *tfext)
Definition rad2rad_c.c:1822
void exch_itag_c_(int *idp, int *nng, int *nodbuf, int *itag, int *itag2, int *iex, int *offset, int *flag)
Definition rad2rad_c.c:2657
void get_mass_spmd_c__(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2)
Definition rad2rad_c.c:1359
void _FCALL EXCH_ITAG_C(int *idp, int *nng, int *nodbuf, int *itag, int *itag2, int *iex, int *offset, int *flag)
Definition rad2rad_c.c:2651
void get_stiff_c__(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *ir, my_real_c *stx, my_real_c *str, int *typ, int *npas, int *iex)
Definition rad2rad_c.c:1679
void send_mass_c_(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in)
Definition rad2rad_c.c:1081
void _FCALL init_link_spmd_c_(int *igd, int *nng, int *dbnod, int *nbproc, int *ibuf, int *dbibuf, int *dbnbuf, int *ddbuf, my_real_c *rbuf, int *dim, int *ibufnb, int *ibufcnel, int *nbel, int *dimel, int *ibufel, int *ibufelnbnod, int *ibufelnod, int *dimb, int *ibufcneldb, int *ibufnbeldb, int *typ, int *bcs, int *print, int *rddl, int *nl, int *nlnk, int *iex)
Definition rad2rad_c.c:932
static void close_r2r_pipe_c()
void get_shmbuf_c__(int *val1, int *val2)
Definition rad2rad_c.c:2799
void exch_tagel_c(int *ntagel, int *tagel, int *flag)
Definition rad2rad_c.c:2749
void send_shmbuf_c__(int *val1, int *val2)
Definition rad2rad_c.c:2816
void get_mass_spmd_c(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2)
Definition rad2rad_c.c:1343
void send_sock_init_c(int *iroot, int *len, int *ispmd, int *sd, int *maxproc, int *imach)
Definition rad2rad_c.c:2202
void get_sock_mess_c_(int *sd, char *mess, int *len)
Definition rad2rad_c.c:2561
void get_stiff_spmd_c(int *idp, int *nng, my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3, my_real_c *bufr4, int *typ, int *npas, int *iex, int *nglob)
Definition rad2rad_c.c:1688
void send_ibuf_c(int *ibuf, int *len)
Definition rad2rad_c.c:940
void get_sock_ibuf_c__(int *sd, int *ibuf, int *len)
Definition rad2rad_c.c:2433
void _FCALL SEND_MASS_C(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in)
Definition rad2rad_c.c:1077
void _FCALL SEND_SOCK_MESS_C(int *sd, char *mess, int *len)
Definition rad2rad_c.c:2530
void send_data_spmd_c(int *idp, int *nng, my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3, my_real_c *bufr4, my_real_c *bufr5, my_real_c *bufr6, double *bufr7, my_real_c *bufr8, my_real_c *bufr9, my_real_c *buf_rby, int *flg_rby, int *typ, int *npas, int *iex)
Definition rad2rad_c.c:1560
void send_shmbuf_c(int *val1, int *val2)
Definition rad2rad_c.c:2805
void send_sock_mess_c_(int *sd, char *mess, int *len)
Definition rad2rad_c.c:2534
void _FCALL GET_FORCE_NL_C(int *idp, int *nng, int *iadd_nl, my_real_c *fx, my_real_c *ms, int *iex)
Definition rad2rad_c.c:1878
void _FCALL R2R_SEM_C()
Definition rad2rad_c.c:438
void get_sock_rbuf_c_(int *sd, my_real_c *rbuf, int *len)
Definition rad2rad_c.c:2507
void _FCALL GET_SOCK_MESS_C(int *sd, char *mess, int *len)
Definition rad2rad_c.c:2557
void send_data_spmd_c_(int *idp, int *nng, my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3, my_real_c *bufr4, my_real_c *bufr5, my_real_c *bufr6, double *bufr7, my_real_c *bufr8, my_real_c *bufr9, my_real_c *buf_rby, int *flg_rby, int *typ, int *npas, int *iex)
Definition rad2rad_c.c:1614
void init_activ_c__(int *activ)
Definition rad2rad_c.c:1194
void realloc_shmvr_c(int newsize)
Definition rad2rad_c.c:2715
void _FCALL SEND_SOCK_C(int *sd)
Definition rad2rad_c.c:2399
void get_mass_rby_spmd_c__(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2, my_real_c *buf3, my_real_c *buf4)
Definition rad2rad_c.c:1383
void _FCALL GET_SOCK_RBUF_C(int *sd, my_real_c *rbuf, int *len)
Definition rad2rad_c.c:2503
void _FCALL init_link_nl_c__(int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *print, my_real_c *dx, int *ndof_nl, int *nb_tot_dof, int *nlnk)
Definition rad2rad_c.c:701
void opensem_c_(int *iroot, int *len, int *ispmd, int *nthr, int *ppid)
Definition rad2rad_c.c:276
void send_data_c__(int *idp, int *nng, int *nodbuf, my_real_c *fx, my_real_c *fr, my_real_c *stx, my_real_c *str, my_real_c *vx, my_real_c *vr, my_real_c *ms, my_real_c *in, double *dx, my_real_c *x, int *typ, int *npas, my_real_c *rby, int *tag_rby, int *add_rby, int *rbylnk, int *kin, double *dr, my_real_c *dt2, int *iex, int *off_sph, int *numsph_glo, int *nrby)
Definition rad2rad_c.c:1505
void get_ibuf_c(int *ibuf, int *len)
Definition rad2rad_c.c:1031
void _FCALL CHECK_DTNODA_C(int *i7kglo)
Definition rad2rad_c.c:1402
void _FCALL SEND_MASS_RBY_SPMD_C(int *idp, int *nng, my_real_c *buf1, my_real_c *buf2, int *buf3, my_real_c *buf4, my_real_c *buf5, int *iroddl)
Definition rad2rad_c.c:1239
void syserr()
void send_data_nl_c__(int *idp, int *nng, int *iadd_nl, my_real_c *fx, my_real_c *vx, my_real_c *ms, int *npas, int *iex)
Definition rad2rad_c.c:1554
void send_mass_rby_c(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, int *npby, int *nrbody, my_real_c *rby, int *tag, int *add_rby, int *nnpby, int *nrby)
Definition rad2rad_c.c:1121
void get_mass_rby_c__(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, my_real_c *x, int *npby, int *nrbody, my_real_c *rby, int *nnpby, int *nrby)
Definition rad2rad_c.c:1337
void _FCALL GET_SHMBUF_C(int *val1, int *val2)
Definition rad2rad_c.c:2791
void _FCALL INIT_BUF_SPMD_C(int *igd, int *nng, int *itab, int *nodbuf, my_real_c *x, int *addcnel, int *cnel, int *ixc, int *ofc, int *tlel, int *lel, int *lelnb, int *tleln, int *leln, int *nbelem, int *tcnel, int *cnelem2, int *wgt, int *tcneldb, int *cnelemdb, int *info, int *typ, int *nglob)
Definition rad2rad_c.c:840
void send_fbufdp_c(double *fbuf, int *len)
Definition rad2rad_c.c:977
void _FCALL GET_FORCE_SPMD_C(int *idp, int *nng, my_real_c *bufr1, my_real_c *bufr2, my_real_c *bufr3, my_real_c *bufr4, int *typ, int *iex, int *nglob)
Definition rad2rad_c.c:1923
void check_dtnoda_c__(int *i7kglo)
Definition rad2rad_c.c:1406
void get_force_nl_c_(int *idp, int *nng, int *iadd_nl, my_real_c *fx, my_real_c *ms, int *iex)
Definition rad2rad_c.c:1882
void exch_tagel_c__(int *ntagel, int *tagel, int *flag)
Definition rad2rad_c.c:2782
void _FCALL R2R_UNLOCK_THREADS_C(int *nthr)
Definition rad2rad_c.c:392
void _FCALL init_link_spmd_c__(int *igd, int *nng, int *dbnod, int *nbproc, int *ibuf, int *dbibuf, int *dbnbuf, int *ddbuf, my_real_c *rbuf, int *dim, int *ibufnb, int *ibufcnel, int *nbel, int *dimel, int *ibufel, int *ibufelnbnod, int *ibufelnod, int *dimb, int *ibufcneldb, int *ibufnbeldb, int *typ, int *bcs, int *print, int *rddl, int *nl, int *nlnk, int *iex)
Definition rad2rad_c.c:936
void send_mass_nl_c(int *idp, int *nng, int *iadd_nl, my_real_c *ms)
Definition rad2rad_c.c:1090
void init_activ_c_(int *activ)
Definition rad2rad_c.c:1190
int readr(int pipe, char *buf, int nbytes)
Definition sys_pipes_c.c:86
void send_sock_init_c_(int *iroot, int *len, int *ispmd, int *sd, int *maxproc, int *imach)
Definition rad2rad_c.c:2258
void _FCALL SEND_SOCK_INIT_C(int *iroot, int *len, int *ispmd, int *sd, int *maxproc, int *imach)
Definition rad2rad_c.c:2254
void connection_sock_c(int *ispmd, int *sd, char *addr)
Definition rad2rad_c.c:2268
void get_mass_c_(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in)
Definition rad2rad_c.c:1280
void get_name_c_(char *name)
Definition rad2rad_c.c:2615
void send_mass_c(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in)
Definition rad2rad_c.c:1048
void get_mass_rby_c_(int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, my_real_c *x, int *npby, int *nrbody, my_real_c *rby, int *nnpby, int *nrby)
Definition rad2rad_c.c:1334
void get_force_c_(int *idp, int *nng, int *nodbuf, my_real_c *wf, my_real_c *wm, my_real_c *wf2, my_real_c *wm2, my_real_c *v, my_real_c *vr, my_real_c *fx, my_real_c *fr, my_real_c *ms, my_real_c *in, my_real_c *x, double *xdp, my_real_c *dx, int *typ, int *kin, int *wgt, int *iex, int *iresp, double *tfext)
Definition rad2rad_c.c:1833
void _FCALL EXCH_TAGEL_C(int *ntagel, int *tagel, int *flag)
Definition rad2rad_c.c:2774
void openfifo_c(int *iroot, int *len, int *fdw, int *fdr, int *sd, int *ispmd, int *nthr, int *ppid)
Definition rad2rad_c.c:158
*fortran !University of Stuttgart All rights reserved Inc All rights reserved ! $COPYRIGHT$ !Additional copyrights may follow ! $HEADER$ !WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING WARNING !Do ***not ***copy this file to the directory where your Fortran !fortran application is compiled unless it is absolutely necessary !Most !modern Fortran compilers now support the I command line flag
Definition mpif.h:26
character *2 function nl()
Definition message.F:2354
void fatal(char *msg)
Definition sys_pipes_c.c:76
void syserr_fatal(char *msg)
Definition sys_pipes_c.c:69