rad2rad_c.h File Reference

Go to the source code of this file.

Functions
int	readr (int pipe, char *buf, int nbytes)
int	writer (int pipe, char *buf, int nbytes)
void	openfifo_c (int *iroot, int *len, int *fdw, int *fdr, int *sd, int *ispmd, int *nthr, int *ppid)
void _FCALL	OPENFIFO_C (int *iroot, int *len, int *fdw, int *fdr, int *sd, int *ispmd, int *nthr, int *ppid)
void	openfifo_c_ (int *iroot, int *len, int *fdw, int *fdr, int *sd, int *ispmd, int *nthr, int *ppid)
void	openfifo_c__ (int *iroot, int *len, int *fdw, int *fdr, int *sd, int *ispmd, int *nthr, int *ppid)
void	opensem_c (int *iroot, int *len, int *ispmd, int *nthr, int *ppid)
void _FCALL	OPENSEM_C (int *iroot, int *len, int *ispmd, int *nthr, int *ppid)
void	opensem_c_ (int *iroot, int *len, int *ispmd, int *nthr, int *ppid)
void	opensem_c__ (int *iroot, int *len, int *ispmd, int *nthr, int *ppid)
void	openshm_c ()
void	syserr ()
void _FCALL	OPENSHM_C ()
void	openshm_c_ ()
void	openshm_c__ ()
void	r2r_unlock_threads_c (int *nthr)
void _FCALL	R2R_UNLOCK_THREADS_C (int *nthr)
void	r2r_unlock_threads_c_ (int *nthr)
void	r2r_unlock_threads__ (int *nthr)
void	r2r_block_c ()
void _FCALL	R2R_BLOCK_C ()
void	r2r_block_c_ ()
void	r2r_block__ ()
void	r2r_sem_c ()
void _FCALL	R2R_SEM_C ()
void	r2r_sem_c_ ()
void	r2r_sem__ ()
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
void	send_ibuf_c (int *ibuf, int *len)
void _FCALL	SEND_IBUF_C (int *ibuf, int *len)
void _FCALL	send_ibuf_c_ (int *ibuf, int *len)
void _FCALL	send_ibuf_c__ (int *ibuf, int *len)
void	send_fbuf_c (my_real_c *fbuf, int *len)
void _FCALL	SEND_FBUF_C (my_real_c *fbuf, int *len)
void	send_fbuf_c_ (my_real_c *fbuf, int *len)
void	send_fbuf_c__ (my_real_c *fbuf, int *len)
void	send_fbufdp_c (double *fbuf, int *len)
void _FCALL	SEND_FBUFDP_C (double *fbuf, int *len)
void	send_fbufdp_c_ (double *fbuf, int *len)
void	send_fbufdp_c__ (double *fbuf, int *len)
void	get_fbuf_c (my_real_c *fbuf, int *len)
void _FCALL	GET_FBUF_C (my_real_c *fbuf, int *len)
void	get_fbuf_c_ (my_real_c *fbuf, int *len)
void	get_fbuf_c__ (my_real_c *fbuf, int *len)
void	get_fbufdp_c (double *fbuf, int *len)
void _FCALL	GET_FBUFDP_C (double *fbuf, int *len)
void	get_fbufdp_c_ (double *fbuf, int *len)
void	get_fbufdp_c__ (double *fbuf, int *len)
void	get_ibuf_c (int *ibuf, int *len)
void _FCALL	GET_IBUF_C (int *ibuf, int *len)
void	get_ibuf_c_ (int *ibuf, int *len)
void	get_ibuf_c__ (int *ibuf, int *len)
void	send_mass_c (int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in)
void _FCALL	SEND_MASS_C (int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in)
void	send_mass_c_ (int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in)
void	send_mass_c__ (int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in)
void	send_mass_nl_c (int *idp, int *nng, int *iadd_nl, my_real_c *ms)
void _FCALL	SEND_MASS_NL_C (int *idp, int *nng, int *iadd_nl, my_real_c *ms)
void	send_mass_nl_c_ (int *idp, int *nng, int *iadd_nl, my_real_c *ms)
void	send_mass_nl_c__ (int *idp, int *nng, int *iadd_nl, my_real_c *ms)
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)
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)
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)
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)
void	init_activ_c (int *activ)
void _FCALL	INIT_ACTIV_C (int *activ)
void	init_activ_c_ (int *activ)
void	init_activ_c__ (int *activ)
void	send_mass_spmd_c (int *idp, int *nng, my_real_c *buf1, my_real_c *buf2, int *iroddl)
void _FCALL	SEND_MASS_SPMD_C (int *idp, int *nng, my_real_c *buf1, my_real_c *buf2, int *iroddl)
void	send_mass_spmd_c_ (int *idp, int *nng, my_real_c *buf1, my_real_c *buf2, int *iroddl)
void	send_mass_spmd_c__ (int *idp, int *nng, my_real_c *buf1, my_real_c *buf2, int *iroddl)
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)
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)
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)
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)
void	get_mass_c (int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in)
void _FCALL	GET_MASS_C (int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in)
void	get_mass_c_ (int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in)
void	get_mass_c__ (int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in)
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)
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)
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)
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)
void	get_mass_spmd_c (int *idp, int *nng, my_real_c *buf1, my_real_c *buf2)
void _FCALL	GET_MASS_SPMD_C (int *idp, int *nng, my_real_c *buf1, my_real_c *buf2)
void	get_mass_spmd_c_ (int *idp, int *nng, my_real_c *buf1, my_real_c *buf2)
void	get_mass_spmd_c__ (int *idp, int *nng, my_real_c *buf1, my_real_c *buf2)
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)
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)
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)
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)
void	check_dtnoda_c (int *i7kglo)
void	check_dtnoda_c_ (int *i7kglo)
void _FCALL	CHECK_DTNODA_C (int *i7kglo)
void	check_dtnoda_c__ (int *i7kglo)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
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)
void	get_force_nl_c (int *idp, int *nng, int *iadd_nl, my_real_c *fx, my_real_c *ms, int *iex)
void _FCALL	GET_FORCE_NL_C (int *idp, int *nng, int *iadd_nl, my_real_c *fx, my_real_c *ms, int *iex)
void	get_force_nl_c_ (int *idp, int *nng, int *iadd_nl, my_real_c *fx, my_real_c *ms, int *iex)
void	get_force_nl_c__ (int *idp, int *nng, int *iadd_nl, my_real_c *fx, my_real_c *ms, int *iex)
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)
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)
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)
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)
static void	do_activ_c (int *iflg)
void _FCALL	DO_ACTIV_C (int *iflg)
void	do_activ_c_ (int *iflg)
void	do_activ_c__ (int *iflg)
void	send_mass_kine_c (int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, int *iex, int *offset)
void _FCALL	SEND_MASS_KINE_C (int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, int *iex, int *offset)
void	send_mass_kine_c_ (int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, int *iex, int *offset)
void	send_mass_kine_c__ (int *idp, int *nng, int *nodbuf, my_real_c *ms, my_real_c *in, int *iex, int *offset)
void	get_displ_c (int *idp, int *nng, int *nodbuf, my_real_c *x)
void _FCALL	GET_DISPL_C (int *idp, int *nng, int *nodbuf, my_real_c *x)
void	get_displ_c_ (int *idp, int *nng, int *nodbuf, my_real_c *x)
void	get_displ_c__ (int *idp, int *nng, int *nodbuf, my_real_c *x)
void	get_displ_spmd_c (int *idp, int *nng, my_real_c *bufr)
void _FCALL	GET_DISPL_SPMD_C (int *idp, int *nng, my_real_c *bufr)
void	get_displ_spmd_c_ (int *idp, int *nng, my_real_c *bufr)
void	get_displ_spmd_c__ (int *idp, int *nng, my_real_c *bufr)
static void	close_r2r_pipe_c ()
void _FCALL	CLOSE_R2R_PIPE_C ()
void	close_r2r_pipe_c_ ()
void	close_r2r_pipe_c__ ()
void	connection_sock_init_c (int *sd)
void _FCALL	CONNECTION_SOCK_INIT_C (int *sd)
void	connection_sock_init_c_ (int *sd)
void	connection_sock_init_c__ (int *sd)
void	send_sock_init_c (int *iroot, int *len, int *ispmd, int *sd, int *maxproc, int *imach)
void _FCALL	SEND_SOCK_INIT_C (int *iroot, int *len, int *ispmd, int *sd, int *maxproc, int *imach)
void	send_sock_init_c_ (int *iroot, int *len, int *ispmd, int *sd, int *maxproc, int *imach)
void	send_sock_init_c__ (int *iroot, int *len, int *ispmd, int *sd, int *maxproc, int *imach)
void	connection_sock_c (int *ispmd, int *sd, char *addr)
void _FCALL	CONNECTION_SOCK_C (int *ispmd, int *sd, char *addr)
void	connection_sock_c_ (int *ispmd, int *sd, char *addr)
void	connection_sock_c__ (int *ispmd, int *sd, char *addr)
void	mess_sock_c (int *sd)
void _FCALL	MESS_SOCK_C (int *sd)
void	mess_sock_c_ (int *sd)
void	mess_sock_c__ (int *sd)
void	send_sock_c (int *sd)
void _FCALL	SEND_SOCK_C (int *sd)
void	send_sock_c_ (int *sd)
void	send_sock_c__ (int *sd)
void	get_sock_ibuf_c (int *sd, int *ibuf, int *len)
void _FCALL	GET_SOCK_IBUF_C (int *sd, int *ibuf, int *len)
void	get_sock_ibuf_c_ (int *sd, int *ibuf, int *len)
void	get_sock_ibuf_c__ (int *sd, int *ibuf, int *len)
void	send_sock_ibuf_c (int *sd, int *ibuf, int *len)
void _FCALL	SEND_SOCK_IBUF_C (int *sd, int *ibuf, int *len)
void	send_sock_ibuf_c_ (int *sd, int *ibuf, int *len)
void	send_sock_ibuf_c__ (int *sd, int *ibuf, int *len)
void	send_sock_rbuf_c (int *sd, my_real_c *rbuf, int *len)
void _FCALL	SEND_SOCK_RBUF_C (int *sd, my_real_c *rbuf, int *len)
void	send_sock_rbuf_c_ (int *sd, my_real_c *rbuf, int *len)
void	send_sock_rbuf_c__ (int *sd, my_real_c *rbuf, int *len)
void	get_sock_rbuf_c (int *sd, my_real_c *rbuf, int *len)
void _FCALL	GET_SOCK_RBUF_C (int *sd, my_real_c *rbuf, int *len)
void	get_sock_rbuf_c_ (int *sd, my_real_c *rbuf, int *len)
void	get_sock_rbuf_c__ (int *sd, my_real_c *rbuf, int *len)
void	send_sock_mess_c (int *sd, char *mess, int *len)
void _FCALL	SEND_SOCK_MESS_C (int *sd, char *mess, int *len)
void	send_sock_mess_c_ (int *sd, char *mess, int *len)
void	send_sock_mess_c__ (int *sd, char *mess, int *len)
void	get_sock_mess_c (int *sd, char *mess, int *len)
void _FCALL	GET_SOCK_MESS_C (int *sd, char *mess, int *len)
void	get_sock_mess_c_ (int *sd, char *mess, int *len)
void	get_sock_mess_c__ (int *sd, char *mess, int *len)
void	close_sock_c (int *sd)
void _FCALL	CLOSE_SOCK_C (int *sd)
void	close_sock_c_ (int *sd)
void	close_sock_c__ (int *sd)
void	get_name_c (char *name)
void _FCALL	GET_NAME_C (char *name)
void	get_name_c_ (char *name)
void	get_name_c__ (char *name)
void	exch_itag_c (int *idp, int *nng, int *nodbuf, int *itag, int *itag2, int *iex, int *offset, int *flag)
void _FCALL	EXCH_ITAG_C (int *idp, int *nng, int *nodbuf, int *itag, int *itag2, int *iex, int *offset, int *flag)
void	exch_itag_c_ (int *idp, int *nng, int *nodbuf, int *itag, int *itag2, int *iex, int *offset, int *flag)
void	exch_itag_c__ (int *idp, int *nng, int *nodbuf, int *itag, int *itag2, int *iex, int *offset, int *flag)
void	realloc_shmvs_c (int newsize)
void	realloc_shmvr_c (int newsize)
void	exch_tagel_c (int *ntagel, int *tagel, int *flag)
void _FCALL	EXCH_TAGEL_C (int *ntagel, int *tagel, int *flag)
void	exch_tagel_c_ (int *ntagel, int *tagel, int *flag)
void	exch_tagel_c__ (int *ntagel, int *tagel, int *flag)
void	get_shmbuf_c (int *val1, int *val2)
void _FCALL	GET_SHMBUF_C (int *val1, int *val2)
void	get_shmbuf_c_ (int *val1, int *val2)
void	get_shmbuf_c__ (int *val1, int *val2)
void	send_shmbuf_c (int *val1, int *val2)
void _FCALL	SEND_SHMBUF_C (int *val1, int *val2)
void	send_shmbuf_c_ (int *val1, int *val2)
void	send_shmbuf_c__ (int *val1, int *val2)

Function Documentation

CHECK_DTNODA_C()

void _FCALL CHECK_DTNODA_C

(

int *

i7kglo

)

Definition at line 1402 of file rad2rad_c.c.

                                       {
    check_dtnoda_c(i7kglo);
}

check_dtnoda_c()

void check_dtnoda_c

(

int *

i7kglo

)

Definition at line 1389 of file rad2rad_c.c.

                                {
    if(i7flag == 0)
    {
        writer(fidw, (void *)i7kglo, sizeof(int));
        readr (fidr, (void *)i7kglo, sizeof(int));
        i7flag = *i7kglo;
    }
}

check_dtnoda_c_()

void check_dtnoda_c_

(

int *

i7kglo

)

Definition at line 1398 of file rad2rad_c.c.

                                 {
    check_dtnoda_c(i7kglo);
}

check_dtnoda_c__()

void check_dtnoda_c__

(

int *

i7kglo

)

Definition at line 1406 of file rad2rad_c.c.

                                  {
    check_dtnoda_c(i7kglo);
}

CLOSE_R2R_PIPE_C()

void _FCALL CLOSE_R2R_PIPE_C

(

)

Definition at line 2070 of file rad2rad_c.c.

{close_r2r_pipe_c();}

close_r2r_pipe_c()

void close_r2r_pipe_c ( )

static

close_r2r_pipe_c_()

void close_r2r_pipe_c_

(

)

Definition at line 2072 of file rad2rad_c.c.

{close_r2r_pipe_c();}

close_r2r_pipe_c__()

void close_r2r_pipe_c__

(

)

Definition at line 2074 of file rad2rad_c.c.

{close_r2r_pipe_c();}

CLOSE_SOCK_C()

void _FCALL CLOSE_SOCK_C

(

int *

sd

)

Definition at line 2593 of file rad2rad_c.c.

                                 {
    close_sock_c(sd);
}

close_sock_c()

void close_sock_c

(

int *

sd

)

Definition at line 2571 of file rad2rad_c.c.

                          {
 
#ifdef _WIN64
  SOCKET sock;
#else
  int sock;
#endif
                  
     sock=*sd;
     
#ifdef _WIN64
     closesocket(sock);
     UnmapViewOfFile(shmv);
     CloseHandle(shmidv);
     if ((flag_siu == 0)||((flag_siu==1)&&(ispmd_glob==0))) CloseHandle(sem_int);
#else       
     close(sock);
     if (flag_siu == 0) {sem_destroy(&sem_int);}
     else if ((flag_siu==1)&&(ispmd_glob==0))  {sem_close(sem_glob);sem_unlink(semaphore_int);}
#endif    
}

close_sock_c_()

void close_sock_c_

(

int *

sd

)

Definition at line 2597 of file rad2rad_c.c.

                           {
    close_sock_c(sd);
}

close_sock_c__()

void close_sock_c__

(

int *

sd

)

Definition at line 2601 of file rad2rad_c.c.

                            {
    close_sock_c(sd);
}

CONNECTION_SOCK_C()

void _FCALL CONNECTION_SOCK_C	(	int *	ispmd,
		int *	sd,
		char *	addr )

Definition at line 2340 of file rad2rad_c.c.

                                                              {
    connection_sock_c(ispmd,sd,addr);
}

connection_sock_c()

void connection_sock_c	(	int *	ispmd,
		int *	sd,
		char *	addr )

Definition at line 2268 of file rad2rad_c.c.

                                                       {
#ifdef DNC
    int nb, port2, compt, capt;
    struct hostent *hp;
    struct linger so_linger;
 
#ifdef _WIN64
    SOCKET sock;
    SOCKADDR_IN server;
#else
    struct hostent *gethostbyname();
    struct sockaddr_in server;
    int sock;
#endif
 
    char nom[512];
    char PUF[512];
 
    gethostname(PUF, sizeof(PUF));
    hp = gethostbyname(addr);
    nb = *ispmd;
 
    memcpy(&(server.sin_addr.s_addr), hp->h_addr, hp->h_length);
    server.sin_family = AF_INET;
 
    compt = 0;
    capt = -1;
 
/********************Iteration on ports to find a free one***************/
    while ((capt == -1) && compt < 3) {
        port2 = SERV_TCP_PORT1 - compt;
        sock = socket(AF_INET, SOCK_STREAM, 0);
        server.sin_port = htons(port2);
        so_linger.l_onoff = TRUE;
        so_linger.l_linger = 0;
        if (setsockopt(sock, SOL_SOCKET, SO_LINGER, (send_type)&so_linger, sizeof(so_linger)) == -1) {
            perror("setsockopt linger");
            exit(1);
        }
        capt = connect(sock, (struct sockaddr *)&server, sizeof(server));
        if (capt == -1) {
            compt++;
#ifdef _WIN64
            closesocket(sock);
#else
            close(sock);
#endif
        }
    }
 
    if (compt >= 3) {
        perror("Can't connect socket...");
#ifdef _WIN64
        closesocket(sock);
#else
        close(sock);
#endif
        exit(1);
    }
 
/**************************************************************************************/
 
    if (send(sock, (send_type)&nb, sizeof(nb), 0) == -1) {
        perror("send ispmd");
        exit(1);
    }
 
    *sd = sock;
    sock = *sd;
#endif
}

connection_sock_c_()

void connection_sock_c_	(	int *	ispmd,
		int *	sd,
		char *	addr )

Definition at line 2344 of file rad2rad_c.c.

                                                        {
    connection_sock_c(ispmd,sd,addr);
}

connection_sock_c__()

void connection_sock_c__	(	int *	ispmd,
		int *	sd,
		char *	addr )

Definition at line 2348 of file rad2rad_c.c.

                                                         {
    connection_sock_c(ispmd,sd,addr);
}

CONNECTION_SOCK_INIT_C()

void _FCALL CONNECTION_SOCK_INIT_C

(

int *

sd

)

Definition at line 2191 of file rad2rad_c.c.

{connection_sock_init_c(sd);}

connection_sock_init_c()

void connection_sock_init_c

(

int *

sd

)

Definition at line 2079 of file rad2rad_c.c.

                                    {
#ifdef DNC
  int num,i,nb,flags,compt,capt,compt2,port2,finished;
  struct  hostent *hp;
  struct linger so_linger;  
  char str[32];
  
#ifdef _WIN64 
  SOCKET sock;
  SOCKADDR_IN server, *serv;
  
  WSADATA WSAData;
  WSAStartup(MAKEWORD(2,0), &WSAData);
  
  struct addrinfo hints, *res;
  int err;
#else
  struct  hostent *gethostbyname();
  struct sockaddr_in server;
  int sock;
#endif
  char nom[512];
  char PUF[512];
  
  
#ifdef _WIN64 
 
    gethostname(PUF,512);
    hp = gethostbyname(PUF);
    
    memcpy ( &(server.sin_addr.s_addr), hp->h_addr,  hp->h_length);
    server.sin_family = AF_INET;
 
#else
 
    gethostname(PUF,sizeof(PUF));
    hp = gethostbyname(PUF);
    
    memcpy ( &(server.sin_addr.s_addr), hp->h_addr,  hp->h_length);
    server.sin_family = AF_INET;
#endif
 
    sock = socket (AF_INET,SOCK_STREAM,0);
    compt = 0;
    compt2 = 0;
    capt = -1;
    finished = 0;
    
 /********************Iteration on ports to find a free one***************/
 
    while (finished == 0){
 
        while ((capt == -1)&&(compt < 3)){
           port2 = SERV_TCP_PORT1-compt;
           sock = socket (AF_INET,SOCK_STREAM,0);    
           so_linger.l_onoff = TRUE;
           so_linger.l_linger = 0;    
 
 
#ifdef _WIN64
           if (setsockopt(sock, SOL_SOCKET, SO_LINGER,(char *) &so_linger, sizeof(so_linger))==-1) 
                  {perror("setsockopt linger");exit(1);}
 
           printf("port:%i\n",port2);
           fflush(stdout);
           server.sin_port = htons(port2);
           capt = connect(sock, (struct sockaddr *) &server, sizeof(server));
#else
           if (setsockopt(sock, SOL_SOCKET, SO_LINGER, &so_linger, sizeof(so_linger))==-1) 
                  {perror("setsockopt linger");exit(1);}
 
           server.sin_port = htons(port2);
           capt = connect(sock, (struct sockaddr *)&server, sizeof(server));
#endif
 
           if ( capt != -1) finished = 1;
           
           if ( capt == -1) {
               compt++;    
#ifdef _WIN32
               closesocket(sock);
#else       
               close(sock);
#endif
           }
        }
        
        if ( compt >= 3) {
    
            if (compt2 == 0){
                  printf("\n Can't connect to rad2rad : waiting ...\n");}    
#ifdef _WIN32
            closesocket(sock);
            Sleep(700);
#else       
            close(sock);
            sleep(2);
#endif
 
            compt=0;
            compt2++;
 
            if (compt2 >= 10){
                  printf("\n ERROR : Can't connect to rad2rad after 10 naps\n\n");
                  exit(1);}
        }
    }
 
    *sd = sock;     
#endif
}

connection_sock_init_c_()

void connection_sock_init_c_

(

int *

sd

)

Definition at line 2194 of file rad2rad_c.c.

{connection_sock_init_c(sd);}

connection_sock_init_c__()

void connection_sock_init_c__

(

int *

sd

)

Definition at line 2197 of file rad2rad_c.c.

{connection_sock_init_c(sd);}

DO_ACTIV_C()

void _FCALL DO_ACTIV_C

(

int *

iflg

)

Definition at line 1946 of file rad2rad_c.c.

                                 {
    do_activ_c(iflg);
}

do_activ_c()

void do_activ_c ( int * iflg )

static

do_activ_c_()

void do_activ_c_

(

int *

iflg

)

Definition at line 1950 of file rad2rad_c.c.

                           {
    do_activ_c(iflg);
}

do_activ_c__()

void do_activ_c__

(

int *

iflg

)

Definition at line 1954 of file rad2rad_c.c.

                            {
    do_activ_c(iflg);
}

EXCH_ITAG_C()

void _FCALL EXCH_ITAG_C	(	int *	idp,
		int *	nng,
		int *	nodbuf,
		int *	itag,
		int *	itag2,
		int *	iex,
		int *	offset,
		int *	flag )

Definition at line 2651 of file rad2rad_c.c.

                           {
    exch_itag_c(idp, nng, nodbuf, itag, itag2, iex, offset, flag); 
}

exch_itag_c()

void exch_itag_c	(	int *	idp,
		int *	nng,
		int *	nodbuf,
		int *	itag,
		int *	itag2,
		int *	iex,
		int *	offset,
		int *	flag )

Definition at line 2625 of file rad2rad_c.c.

                           {
 
int buflen, lbuf, rest, next;
int i, j, k, nn, nm, chunk,nmods,nmod;
 
    rest = *nng;
    nmod = 0;
      
        /*chunk = rest / nthreads;
        #pragma omp parallel for schedule(static,chunk) if (chunk>350) private(k,i,nm,nn)*/                                
        for (next = 0; next < rest; next++)
          {
                        i = *offset + next;
            nm = nodbuf[next]-1;
            if (*flag == 0) /* *emission* */
                {com->itags[i] =itag[nm];
               com->itags2[i] =itag2[nm];}
            else if (*flag == 1) /* *reception* */
              {itag[nm] += com->itagr[i];
               itag2[nm] += com->itagr2[i];}
            
       }
}

exch_itag_c_()

void exch_itag_c_	(	int *	idp,
		int *	nng,
		int *	nodbuf,
		int *	itag,
		int *	itag2,
		int *	iex,
		int *	offset,
		int *	flag )

Definition at line 2657 of file rad2rad_c.c.

                           {
    exch_itag_c(idp, nng, nodbuf, itag, itag2, iex, offset, flag);
}

exch_itag_c__()

void exch_itag_c__	(	int *	idp,
		int *	nng,
		int *	nodbuf,
		int *	itag,
		int *	itag2,
		int *	iex,
		int *	offset,
		int *	flag )

Definition at line 2663 of file rad2rad_c.c.

                           {
    exch_itag_c(idp, nng, nodbuf, itag, itag2, iex, offset, flag);
}

EXCH_TAGEL_C()

void _FCALL EXCH_TAGEL_C	(	int *	ntagel,
		int *	tagel,
		int *	flag )

Definition at line 2774 of file rad2rad_c.c.

                                                            {
    exch_tagel_c(ntagel,tagel,flag); 
}

exch_tagel_c()

void exch_tagel_c	(	int *	ntagel,
		int *	tagel,
		int *	flag )

Definition at line 2749 of file rad2rad_c.c.

{
    int i;
 
    if (((*ntagel) * 3 > shmvr_size) && (*flag == 1))
        realloc_shmvr_c((*ntagel) * 3);
    if (((*ntagel) * 3 > shmvs_size) && (*flag == 0))
        realloc_shmvs_c((*ntagel) * 3);
 
    for (i = 0; i < (*ntagel) * 3; i++)
    {
        if (*flag == 0) /* *send* */
        {
            com->tagels[com->buf[2] + i] = tagel[i];
        }
        else if (*flag == 1) /* *receive* */
        {
            tagel[i] = com->tagelr[i];
        }
    }
 
    if (*flag == 0)
        com->buf[2] += (*ntagel) * 3;
}

exch_tagel_c_()

void exch_tagel_c_	(	int *	ntagel,
		int *	tagel,
		int *	flag )

Definition at line 2778 of file rad2rad_c.c.

                                                      {
    exch_tagel_c(ntagel,tagel,flag);
}

exch_tagel_c__()

void exch_tagel_c__	(	int *	ntagel,
		int *	tagel,
		int *	flag )

Definition at line 2782 of file rad2rad_c.c.

                                                       {
    exch_tagel_c(ntagel,tagel,flag); 
}

GET_DISPL_C()

void _FCALL GET_DISPL_C	(	int *	idp,
		int *	nng,
		int *	nodbuf,
		my_real_c *	x )

Definition at line 2016 of file rad2rad_c.c.

                                                                      {
    get_displ_c(idp, nng, nodbuf, x); 
}

get_displ_c()

void get_displ_c	(	int *	idp,
		int *	nng,
		int *	nodbuf,
		my_real_c *	x )

Definition at line 1992 of file rad2rad_c.c.

                                                               {
    int buflen, lbuf, rest, next;
    int i, j, k, nn, nm;
 
    writer(fidw, (void *)idp, sizeof(int));
 
    rest = *nng;
    next = 0;
    while (rest > 0) {
        buflen = (rest / nbufvar > 0 ? nbufvar : rest % nbufvar);
        lbuf = buflen * sizeof(my_real_c);
        readr(fidr, (void *)dx_buf, 3 * lbuf);
 
        for (i = 0; i < buflen; i++, next++) {
            k = 3 * i;
            nm = (nodbuf[next] - 1);
            nn = 3 * nm;
            for (j = 0; j < 3; j++)
                x[nn + j] = dx_buf[k + j];
        }
        rest -= buflen;
    }
}

get_displ_c_()

void get_displ_c_	(	int *	idp,
		int *	nng,
		int *	nodbuf,
		my_real_c *	x )

Definition at line 2020 of file rad2rad_c.c.

                                                                {
    get_displ_c(idp, nng, nodbuf, x);
}

get_displ_c__()

void get_displ_c__	(	int *	idp,
		int *	nng,
		int *	nodbuf,
		my_real_c *	x )

Definition at line 2024 of file rad2rad_c.c.

                                                                 {
    get_displ_c(idp, nng, nodbuf, x);
}

GET_DISPL_SPMD_C()

void _FCALL GET_DISPL_SPMD_C	(	int *	idp,
		int *	nng,
		my_real_c *	bufr )

Definition at line 2046 of file rad2rad_c.c.

                                                                 {
    get_displ_spmd_c(idp, nng, bufr);
}

get_displ_spmd_c()

void get_displ_spmd_c	(	int *	idp,
		int *	nng,
		my_real_c *	bufr )

Definition at line 2030 of file rad2rad_c.c.

                                                          {
    int buflen, lbuf, rest, next;
 
    writer(fidw, (void *)idp, sizeof(int));
 
    rest = *nng;
    next = 0;
    while (rest > 0) {
        buflen = (rest / nbufvar > 0 ? nbufvar : rest % nbufvar);
        lbuf = buflen * sizeof(my_real_c);
        readr(fidr, (void *)&bufr[3 * next], 3 * lbuf);
        next += buflen;
        rest -= buflen;
    }
}

get_displ_spmd_c_()

void get_displ_spmd_c_	(	int *	idp,
		int *	nng,
		my_real_c *	bufr )

Definition at line 2050 of file rad2rad_c.c.

                                                           {
    get_displ_spmd_c(idp, nng, bufr);
}

get_displ_spmd_c__()

void get_displ_spmd_c__	(	int *	idp,
		int *	nng,
		my_real_c *	bufr )

Definition at line 2054 of file rad2rad_c.c.

                                                            {
    get_displ_spmd_c(idp, nng, bufr);
}

GET_FBUF_C()

void _FCALL GET_FBUF_C	(	my_real_c *	fbuf,
		int *	len )

Definition at line 999 of file rad2rad_c.c.

                                                 {
    get_fbuf_c(fbuf, len);
}

get_fbuf_c()

void get_fbuf_c	(	my_real_c *	fbuf,
		int *	len )

Definition at line 995 of file rad2rad_c.c.

                                          {
    readr(fidr, (void *) fbuf, *len*sizeof(my_real_c));
}

get_fbuf_c_()

void get_fbuf_c_	(	my_real_c *	fbuf,
		int *	len )

Definition at line 1003 of file rad2rad_c.c.

                                           {
    get_fbuf_c(fbuf, len);
}

get_fbuf_c__()

void get_fbuf_c__	(	my_real_c *	fbuf,
		int *	len )

Definition at line 1007 of file rad2rad_c.c.

                                            {
    get_fbuf_c(fbuf, len);
}

GET_FBUFDP_C()

void _FCALL GET_FBUFDP_C	(	double *	fbuf,
		int *	len )

Definition at line 1017 of file rad2rad_c.c.

                                                {
    get_fbufdp_c(fbuf, len);
}

get_fbufdp_c()

void get_fbufdp_c	(	double *	fbuf,
		int *	len )

Definition at line 1013 of file rad2rad_c.c.

                                         {
    readr(fidr, (void *) fbuf, *len*sizeof(double));
}

get_fbufdp_c_()

void get_fbufdp_c_	(	double *	fbuf,
		int *	len )

Definition at line 1021 of file rad2rad_c.c.

                                          {
    get_fbufdp_c(fbuf, len);
}

get_fbufdp_c__()

void get_fbufdp_c__	(	double *	fbuf,
		int *	len )

Definition at line 1025 of file rad2rad_c.c.

                                           {
    get_fbufdp_c(fbuf, len);
}

GET_FORCE_C()

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 at line 1822 of file rad2rad_c.c.

                                                                                   {
        get_force_c(idp, nng, nodbuf, wf, 
                    wm, wf2, wm2, v, 
                    vr, fx, fr, ms,
                    in, x, xdp, dx,
                    typ, kin, wgt, iex, iresp, tfext);
}

get_force_c()

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 at line 1738 of file rad2rad_c.c.

                                                                                   {
 
    int buflen, lbuf, rest, next, weight;
    int i, j, k, nn, nm, chunk;
    my_real_c df, dm, wfl, wf2l, wml, wm2l;
 
    rest = *nng;
    wfl = 0;
    wf2l = 0;
    wml = 0;
    wm2l = 0;
 
    if (*iex == 1)
        off_link = 0;
 
    if (*typ != 7) {
        chunk = rest / nthreads;
        #pragma omp parallel for schedule(static, chunk) if (chunk > 350) private(i, k, nm, nn, weight, j, dm, df) reduction(+:wfl, wf2l, wml, wm2l)
        for (next = 0; next < rest; next++) {
            i = off_link + next;
            k = 3 * i;
            nm = (nodbuf[next] - 1);
            nn = 3 * nm;
            weight = wgt[nm];
            if ((*typ == 5) && (*kin == 1))
                ms[nm] = com->mass_buf[i];
            if ((*typ == 5) && (*kin == 1))
                in[nm] = com->iner_buf[i];
            for (j = 0; j < 3; j++) {
                if (*typ < 4)
                    v[nn + j] = com->vx_buf[k + j];
                /************ Activation/deactivation of SPH particles ***********/
                if (flg_sphinout == 1) {
                    if (com->iactv[i] == 1) { /* activation of particle */
                        x[nn + j] = com->fx_buf[k + j];
                        if (*iresp == 1) {
                            xdp[nn + j] = com->fx_buf[k + j];
                        }
                        com->fx_buf[k + j] = 0;
                        v[nn + j] = com->vx_buf[k + j];
                        dx[nn + j] = com->dx_buf[k + j];
                        weight = 0;
                    } else {
                        if (com->iactv[i] == -1) { /* deactivation of particle */
                            x[nn + j] = com->fx_buf[k + j];
                            if (*iresp == 1)
                                xdp[nn + j] = com->fx_buf[k + j];
                            com->fx_buf[k + j] = 0;
                            v[nn + j] = 0;
                            dx[nn + j] = 0;
                            weight = 0;
                        }
                    }
                }
                df = weight * (com->fx_buf[k + j] * ms[nm] - fx[nn + j]);
                fx[nn + j] = com->fx_buf[k + j] * ms[nm];
                wfl += df * v[nn + j] / 2.0;
                if (ms[nm] > 0)
                    wf2l += df * fx[nn + j] / (2.0 * ms[nm]);
                if (flagrot[*idp]) {
                    if (*typ < 4)
                        vr[nn + j] = com->vr_buf[k + j];
                    dm = weight * (com->fr_buf[k + j] * in[nm] - fr[nn + j]);
                    fr[nn + j] = com->fr_buf[k + j] * in[nm];
                    wml += dm * vr[nn + j] / 2.0;
                    if (in[nm] > 0)
                        wm2l += dm * fr[nn + j] / (2.0 * in[nm]);
                }
            }
        }
 
        *wf += wfl;
        *wf2 += wf2l;
        *wm += wml;
        *wm2 += wm2l;
        off_link += rest;
    }
}

get_force_c_()

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 at line 1833 of file rad2rad_c.c.

                                                                                   {
        get_force_c(idp, nng, nodbuf, wf, 
                    wm, wf2, wm2, v, 
                    vr, fx, fr, ms,
                    in, x, xdp, dx,
                    typ, kin, wgt, iex, iresp, tfext);
}

get_force_c__()

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 at line 1845 of file rad2rad_c.c.

                                                                                   {
        get_force_c(idp, nng, nodbuf, wf, 
                    wm, wf2, wm2, v, 
                    vr, fx, fr, ms,
                    in, x, xdp, dx,
                    typ, kin, wgt, iex, iresp, tfext);
}

GET_FORCE_NL_C()

void _FCALL GET_FORCE_NL_C	(	int *	idp,
		int *	nng,
		int *	iadd_nl,
		my_real_c *	fx,
		my_real_c *	ms,
		int *	iex )

Definition at line 1878 of file rad2rad_c.c.

                                                                                                    {
    get_force_nl_c(idp, nng, iadd_nl, fx, ms, iex);
}

get_force_nl_c()

void get_force_nl_c	(	int *	idp,
		int *	nng,
		int *	iadd_nl,
		my_real_c *	fx,
		my_real_c *	ms,
		int *	iex )

Definition at line 1859 of file rad2rad_c.c.

                                                                                             {
int rest, next;
int i, chunk;
 
    rest = *nng;
 
    if (*iex == 1) off_link = 0;
                   
    chunk = rest / nthreads;            
    #pragma omp parallel for schedule(static,chunk) if (chunk>350) private(i)
    for (next = 0; next < rest; next++)
      {
       i = next;
       fx[iadd_nl[i]-1] = com->fx_buf[3*(off_link+i)]*ms[iadd_nl[i]-1];    
      }       
 
      off_link += rest;          
}

get_force_nl_c_()

void get_force_nl_c_	(	int *	idp,
		int *	nng,
		int *	iadd_nl,
		my_real_c *	fx,
		my_real_c *	ms,
		int *	iex )

Definition at line 1882 of file rad2rad_c.c.

                                                                                              {
    get_force_nl_c(idp, nng, iadd_nl, fx, ms, iex);
}

get_force_nl_c__()

void get_force_nl_c__	(	int *	idp,
		int *	nng,
		int *	iadd_nl,
		my_real_c *	fx,
		my_real_c *	ms,
		int *	iex )

Definition at line 1886 of file rad2rad_c.c.

                                                                                               {
    get_force_nl_c(idp, nng, iadd_nl, fx, ms, iex);
}

GET_FORCE_SPMD_C()

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 at line 1923 of file rad2rad_c.c.

                                                                              {
        get_force_spmd_c(idp, nng, bufr1, bufr2, bufr3, bufr4, typ, iex, nglob);
}

get_force_spmd_c()

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 at line 1892 of file rad2rad_c.c.

{
    int buflen, lbuf, rest, next, chunk, i, j, k, nn, nm;
 
    rest = *nglob;
    if (*iex == 1) 
        off_link = 0;
 
    if (*typ != 7) {
        chunk = rest / nthreads;
        #pragma omp parallel for schedule(static, chunk) if (chunk > 350) private(i, k, nm, nn)
        for (next = 0; next < rest; next++) {
            i = off_link + masterdb[*iex - 1][next];
            k = 3 * i;
            nm = next;
            nn = 3 * nm;
            for (j = 0; j < 3; j++) {
                if (*typ < 4) 
                    bufr3[nn + j] = com->vx_buf[k + j];
                bufr1[nn + j] = com->fx_buf[k + j];
                if (flagrot[*idp]) {
                    if (*typ < 4) 
                        bufr4[nn + j] = com->vr_buf[k + j];
                    bufr2[nn + j] = com->fr_buf[k + j];
                }
            }
        }
        off_link += *nng;
    }
}

get_force_spmd_c_()

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 at line 1929 of file rad2rad_c.c.

                                                                              {
        get_force_spmd_c(idp, nng, bufr1, bufr2, bufr3, bufr4, typ, iex, nglob);
}

get_force_spmd_c__()

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 at line 1935 of file rad2rad_c.c.

                                                                              {
        get_force_spmd_c(idp, nng, bufr1, bufr2, bufr3, bufr4, typ, iex, nglob);
}

GET_IBUF_C()

void _FCALL GET_IBUF_C	(	int *	ibuf,
		int *	len )

Definition at line 1035 of file rad2rad_c.c.

                                           {
    get_ibuf_c(ibuf, len);
}

get_ibuf_c()

void get_ibuf_c	(	int *	ibuf,
		int *	len )

Definition at line 1031 of file rad2rad_c.c.

                                    {
    readr(fidr, (void *) ibuf, *len*sizeof(int));
}

get_ibuf_c_()

void get_ibuf_c_	(	int *	ibuf,
		int *	len )

Definition at line 1039 of file rad2rad_c.c.

                                     {
    get_ibuf_c(ibuf, len);
}

get_ibuf_c__()

void get_ibuf_c__	(	int *	ibuf,
		int *	len )

Definition at line 1043 of file rad2rad_c.c.

                                      {
    get_ibuf_c(ibuf, len);
}

GET_MASS_C()

void _FCALL GET_MASS_C	(	int *	idp,
		int *	nng,
		int *	nodbuf,
		my_real_c *	ms,
		my_real_c *	in )

Definition at line 1276 of file rad2rad_c.c.

                                                                                     {
    get_mass_c(idp, nng, nodbuf, ms, in);
}

get_mass_c()

void get_mass_c	(	int *	idp,
		int *	nng,
		int *	nodbuf,
		my_real_c *	ms,
		my_real_c *	in )

Definition at line 1253 of file rad2rad_c.c.

                                                                              {
int i, nn, lbuf;
my_real_c *mbuf, *ibuf;
 
    writer(fidw, (void *) idp, sizeof(int));    
 
    lbuf = *nng*sizeof(my_real_c);
    mbuf = (my_real_c *) malloc(lbuf);
    if (flagrot[*idp]) ibuf = (my_real_c *) malloc(lbuf);
    
    readr(fidr, (void *) mbuf, lbuf);    
    if (flagrot[*idp]) readr(fidr, (void *) ibuf, lbuf);    
 
    for (i = 0; i < *nng; i++)
    {
        nn = nodbuf[i]-1;
        ms[nn] = mbuf[i];
        if (flagrot[*idp]) in[nn] = ibuf[i];
    }    
    free(mbuf);
    if (flagrot[*idp]) free(ibuf);
}

get_mass_c_()

void get_mass_c_	(	int *	idp,
		int *	nng,
		int *	nodbuf,
		my_real_c *	ms,
		my_real_c *	in )

Definition at line 1280 of file rad2rad_c.c.

                                                                               {
    get_mass_c(idp, nng, nodbuf, ms, in);
}

get_mass_c__()

void get_mass_c__	(	int *	idp,
		int *	nng,
		int *	nodbuf,
		my_real_c *	ms,
		my_real_c *	in )

Definition at line 1284 of file rad2rad_c.c.

                                                                                {
    get_mass_c(idp, nng, nodbuf, ms, in);
}

GET_MASS_RBY_C()

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 at line 1330 of file rad2rad_c.c.

                                                                                                                                                                      {
    get_mass_rby_c(idp, nng, nodbuf, ms, in, x, npby, nrbody, rby, nnpby, nrby);
}

get_mass_rby_c()

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 at line 1290 of file rad2rad_c.c.

                                                                                                                                                               {
    int i, k, l, nn, lbuf, idrby;
    my_real_c *mbuf, *ibuf, *xbuf, *matrix_buf;
 
    writer(fidw, (void *)idp, sizeof(int));
 
    lbuf = *nng * sizeof(my_real_c);
    mbuf = (my_real_c *)malloc(lbuf);
    xbuf = (my_real_c *)malloc(3 * lbuf);
    if (flagrot[*idp]) {
        ibuf = (my_real_c *)malloc(lbuf);
        matrix_buf = (my_real_c *)malloc(9 * lbuf);
    }
 
    readr(fidr, (void *)mbuf, lbuf);
    if (flagrot[*idp]) readr(fidr, (void *)ibuf, lbuf);
    readr(fidr, (void *)xbuf, 3 * lbuf);
    readr(fidr, (void *)matrix_buf, 9 * lbuf);
 
    for (i = 0; i < *nng; i++) {
        nn = nodbuf[i] - 1;
        ms[nn] = mbuf[i];
        if (flagrot[*idp]) in[nn] = ibuf[i];
        x[3 * nn] = xbuf[3 * i];
        x[3 * nn + 1] = xbuf[3 * i + 1];
        x[3 * nn + 2] = xbuf[3 * i + 2];
        for (k = 0; k < *nrbody; k++) {
            if (npby[*nnpby * k] == nn + 1) {
                for (l = 0; l < 9; l++) {
                    rby[*nrby * k + 16 + l] = matrix_buf[9 * i + l];
                }
            }
        }
    }
 
    free(mbuf);
    if (flagrot[*idp]) free(ibuf);
    free(xbuf);
}

get_mass_rby_c_()

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 at line 1334 of file rad2rad_c.c.

                                                                                                                                                                {
    get_mass_rby_c(idp, nng, nodbuf, ms, in, x, npby, nrbody, rby, nnpby, nrby);
}

get_mass_rby_c__()

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 at line 1337 of file rad2rad_c.c.

                                                                                                                                                                 {
    get_mass_rby_c(idp, nng, nodbuf, ms, in, x, npby, nrbody, rby, nnpby, nrby);
}

GET_MASS_RBY_SPMD_C()

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 at line 1375 of file rad2rad_c.c.

                                                                                                                  {
    get_mass_rby_spmd_c(idp,nng,buf1,buf2,buf3,buf4);
}

get_mass_rby_spmd_c()

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 at line 1364 of file rad2rad_c.c.

                                                                                                           {
int lbuf;
 
    writer(fidw, (void *) idp, sizeof(int));    
    lbuf = *nng*sizeof(my_real_c);
    readr(fidr, (void *) buf1, lbuf);    
    if (flagrot[*idp]) readr(fidr, (void *) buf2, lbuf);
    readr(fidr, (void *) buf3, 3*lbuf);
    readr(fidr, (void *) buf4, 9*lbuf);            
}

get_mass_rby_spmd_c_()

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 at line 1379 of file rad2rad_c.c.

                                                                                                            {
    get_mass_rby_spmd_c(idp,nng,buf1,buf2,buf3,buf4);
}

get_mass_rby_spmd_c__()

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 at line 1383 of file rad2rad_c.c.

                                                                                                             {
    get_mass_rby_spmd_c(idp,nng,buf1,buf2,buf3,buf4);
}

GET_MASS_SPMD_C()

void _FCALL GET_MASS_SPMD_C	(	int *	idp,
		int *	nng,
		my_real_c *	buf1,
		my_real_c *	buf2 )

Definition at line 1351 of file rad2rad_c.c.

                                                                                 {
    get_mass_spmd_c(idp, nng, buf1, buf2);
}

get_mass_spmd_c()

void get_mass_spmd_c	(	int *	idp,
		int *	nng,
		my_real_c *	buf1,
		my_real_c *	buf2 )

Definition at line 1343 of file rad2rad_c.c.

                                                                          {
    int lbuf;
    writer(fidw, (void *) idp, sizeof(int));    
    lbuf = *nng*sizeof(my_real_c);
    readr(fidr, (void *) buf1, lbuf);    
    if (flagrot[*idp]) readr(fidr, (void *) buf2, lbuf);    
}

get_mass_spmd_c_()

void get_mass_spmd_c_	(	int *	idp,
		int *	nng,
		my_real_c *	buf1,
		my_real_c *	buf2 )

Definition at line 1355 of file rad2rad_c.c.

                                                                           {
    get_mass_spmd_c(idp, nng, buf1, buf2);
}

get_mass_spmd_c__()

void get_mass_spmd_c__	(	int *	idp,
		int *	nng,
		my_real_c *	buf1,
		my_real_c *	buf2 )

Definition at line 1359 of file rad2rad_c.c.

                                                                            {
get_mass_spmd_c(idp, nng, buf1, buf2);
}

GET_NAME_C()

void _FCALL GET_NAME_C

(

char *

name

)

Definition at line 2611 of file rad2rad_c.c.

                                  {
    get_name_c(name);
}

get_name_c()

void get_name_c

(

char *

name

)

Definition at line 2607 of file rad2rad_c.c.

                           {   
    gethostname(name,512);   
}

get_name_c_()

void get_name_c_

(

char *

name

)

Definition at line 2615 of file rad2rad_c.c.

                            {
    get_name_c(name);
}

get_name_c__()

void get_name_c__

(

char *

name

)

Definition at line 2619 of file rad2rad_c.c.

                             {
    get_name_c(name);
}

GET_SHMBUF_C()

void _FCALL GET_SHMBUF_C	(	int *	val1,
		int *	val2 )

Definition at line 2791 of file rad2rad_c.c.

                                              {
    get_shmbuf_c(val1,val2);
}

get_shmbuf_c()

void get_shmbuf_c	(	int *	val1,
		int *	val2 )

Definition at line 2787 of file rad2rad_c.c.

                                       {
    *val1 = com->buf[*val2-1];
}

get_shmbuf_c_()

void get_shmbuf_c_	(	int *	val1,
		int *	val2 )

Definition at line 2795 of file rad2rad_c.c.

                                        {
    get_shmbuf_c(val1,val2);
}

get_shmbuf_c__()

void get_shmbuf_c__	(	int *	val1,
		int *	val2 )

Definition at line 2799 of file rad2rad_c.c.

                                         {
    get_shmbuf_c(val1,val2);
}

GET_SOCK_IBUF_C()

void _FCALL GET_SOCK_IBUF_C	(	int *	sd,
		int *	ibuf,
		int *	len )

Definition at line 2423 of file rad2rad_c.c.

                                                         {
 
    get_sock_ibuf_c(sd, ibuf, len);
}

get_sock_ibuf_c()

void get_sock_ibuf_c	(	int *	sd,
		int *	ibuf,
		int *	len )

Definition at line 2412 of file rad2rad_c.c.

                                                  {
#ifdef _WIN64
  SOCKET sock;
#else
  int sock;
#endif
     sock=*sd;
     if (recv(sock,(send_type)ibuf,*len*sizeof(int), 0) == -1){
     perror("send sock ibuf ");
     exit(1);}     
}

get_sock_ibuf_c_()

void get_sock_ibuf_c_	(	int *	sd,
		int *	ibuf,
		int *	len )

Definition at line 2428 of file rad2rad_c.c.

                                                   {
 
    get_sock_ibuf_c(sd, ibuf, len);
}

get_sock_ibuf_c__()

void get_sock_ibuf_c__	(	int *	sd,
		int *	ibuf,
		int *	len )

Definition at line 2433 of file rad2rad_c.c.

                                                    {
     get_sock_ibuf_c(sd, ibuf, len);
}

GET_SOCK_MESS_C()

void _FCALL GET_SOCK_MESS_C	(	int *	sd,
		char *	mess,
		int *	len )

Definition at line 2557 of file rad2rad_c.c.

                                                          {
    get_sock_mess_c(sd, mess, len);
}

get_sock_mess_c()

void get_sock_mess_c	(	int *	sd,
		char *	mess,
		int *	len )

Definition at line 2544 of file rad2rad_c.c.

                                                   {
 
#ifdef _WIN64
  SOCKET sock;
#else
  int sock;
#endif
     sock=*sd;
     if (recv(sock,(send_type)mess,*len*sizeof(char), 0) == -1){
     perror("send sock mess ");
     exit(1);}     
}

get_sock_mess_c_()

void get_sock_mess_c_	(	int *	sd,
		char *	mess,
		int *	len )

Definition at line 2561 of file rad2rad_c.c.

                                                    {
    get_sock_mess_c(sd, mess, len);
}

get_sock_mess_c__()

void get_sock_mess_c__	(	int *	sd,
		char *	mess,
		int *	len )

Definition at line 2565 of file rad2rad_c.c.

                                                     {
    get_sock_mess_c(sd, mess, len);
}

GET_SOCK_RBUF_C()

void _FCALL GET_SOCK_RBUF_C	(	int *	sd,
		my_real_c *	rbuf,
		int *	len )

Definition at line 2503 of file rad2rad_c.c.

                                                               {
    get_sock_rbuf_c(sd, rbuf, len);
}

get_sock_rbuf_c()

void get_sock_rbuf_c	(	int *	sd,
		my_real_c *	rbuf,
		int *	len )

Definition at line 2491 of file rad2rad_c.c.

                                                        {
 
#ifdef _WIN64
  SOCKET sock;
#else
  int sock;
#endif
     sock=*sd;
     if (recv(sock,(send_type)rbuf,*len*sizeof(my_real_c), 0) == -1){
     perror("send sock rbuf ");
     exit(1);}     
}

get_sock_rbuf_c_()

void get_sock_rbuf_c_	(	int *	sd,
		my_real_c *	rbuf,
		int *	len )

Definition at line 2507 of file rad2rad_c.c.

                                                         {
    get_sock_rbuf_c(sd, rbuf, len);
}

get_sock_rbuf_c__()

void get_sock_rbuf_c__	(	int *	sd,
		my_real_c *	rbuf,
		int *	len )

Definition at line 2511 of file rad2rad_c.c.

                                                          {
    get_sock_rbuf_c(sd, rbuf, len);
}

GET_STIFF_C()

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 at line 1665 of file rad2rad_c.c.

                                               {
    get_stiff_c(idp, nng, nodbuf, ms, ir, stx, str, typ, npas, iex);
}

get_stiff_c()

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 at line 1632 of file rad2rad_c.c.

                                               {
    int buflen, lbuf, rest, next;
    int i, j, k, nn, nm, offset, chunk;
    my_real_c df, dm;
 
    rest = *nng;
    if (*iex == 1) 
        off_link = 0;
 
    if (*typ == 5) {
        chunk = rest / nthreads;
        #pragma omp parallel for schedule(static, chunk) if (chunk > 350) private(i, k, nm, nn)
        for (next = 0; next < rest; next++) {
            i = off_link + next;
            k = 3 * i;
            nm = (nodbuf[next] - 1);
            nn = 3 * nm;
            if (*npas == 0) 
                ms[nm] = com->mass_buf[i];
            stx[nm] = com->sx_buf[i];
            if (flagrot[*idp]) {
                if (*npas == 0) 
                    ir[nm] = com->iner_buf[i];
                str[nm] = com->sr_buf[i];
            }
        }
    }
    off_link += rest;
}

get_stiff_c_()

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 at line 1672 of file rad2rad_c.c.

                                               {
    get_stiff_c(idp, nng, nodbuf, ms, ir, stx, str, typ, npas, iex);  
}

get_stiff_c__()

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 at line 1679 of file rad2rad_c.c.

                                               {
    get_stiff_c(idp, nng, nodbuf, ms, ir, stx, str, typ, npas, iex);
}

GET_STIFF_SPMD_C()

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 at line 1719 of file rad2rad_c.c.

                                                                {
    get_stiff_spmd_c(idp, nng, bufr1, bufr2, bufr3, bufr4, typ, npas, iex, nglob);
}

get_stiff_spmd_c()

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 at line 1688 of file rad2rad_c.c.

                                                                {
    int buflen, lbuf, rest, next, nm, nn, i, k, chunk;
    my_real_c df, dm;
 
    rest = *nglob;
    if (*iex == 1) 
        off_link = 0;
 
    if (*typ == 5) {
        chunk = rest / nthreads;
        #pragma omp parallel for schedule(static, chunk) if (chunk > 350) private(i, k, nm, nn)
        for (next = 0; next < rest; next++) {
            i = off_link + masterdb[*iex - 1][next];
            k = 3 * i;
            nm = next;
            nn = 3 * nm;
            if (*npas == 0) 
                bufr1[nm] = com->mass_buf[i];
            bufr2[nm] = com->sx_buf[i];
            if (flagrot[*idp]) {
                if (*npas == 0) 
                    bufr3[nm] = com->iner_buf[i];
                bufr4[nm] = com->sr_buf[i];
            }
        }
    }
    off_link += *nng;
}

get_stiff_spmd_c_()

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 at line 1725 of file rad2rad_c.c.

                                                                {
    get_stiff_spmd_c(idp, nng, bufr1, bufr2, bufr3, bufr4, typ, npas, iex, nglob);  
}

get_stiff_spmd_c__()

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 at line 1731 of file rad2rad_c.c.

                                                                {
    get_stiff_spmd_c(idp, nng, bufr1, bufr2, bufr3, bufr4, typ, npas, iex, nglob);
}

INIT_ACTIV_C()

void _FCALL INIT_ACTIV_C

(

int *

activ

)

Definition at line 1186 of file rad2rad_c.c.

                                     {
    init_activ_c(activ);
}

init_activ_c()

void init_activ_c

(

int *

activ

)

Definition at line 1181 of file rad2rad_c.c.

                             {
    readr(fidr, (void *) activ, sizeof(int));
}

init_activ_c_()

void init_activ_c_

(

int *

activ

)

Definition at line 1190 of file rad2rad_c.c.

                              {
    init_activ_c(activ);
}

init_activ_c__()

void init_activ_c__

(

int *

activ

)

Definition at line 1194 of file rad2rad_c.c.

                               {
    init_activ_c(activ);}

INIT_BUF_SPMD_C()

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 at line 840 of file rad2rad_c.c.

                                                                                                                                                                                                                                                                                                          {
    init_buf_spmd_c(igd, nng, itab, nodbuf, x,addcnel,cnel,ixc,ofc,tlel,lel,lelnb,tleln,leln,nbelem,tcnel,cnelem2,wgt,tcneldb,cnelemdb,info,typ,nglob);
}

init_buf_spmd_c()

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 at line 706 of file rad2rad_c.c.

{
    int i, j, t, nn, lbuf, lbuf1, init_buf[5], lbufa, lbufb, lbufel, dimno, k, capt, g, m, w, nbel, weight, zz, zz2;
    int *nodid, *cnelem, *cnelem3, *listel, *listelnbn, *listel2, *listel2nbn, *listelno, **tabl, nbn, lus;
    my_real_c *crd;
 
    lbuf = *nng * sizeof(my_real_c);
    crd = (my_real_c *)malloc(3 * lbuf);
    lbuf1 = *nng * sizeof(int);
    dimno = 0;
    nbel = 0;
    t = 0;
    k = 0;
    zz = 0;
    zz2 = 0;
    nodid = (int *)malloc(lbuf1);
    cnelem = (int *)malloc(sizeof(int));
    cnelem3 = (int *)malloc(sizeof(int));
    listel2 = (int *)malloc(sizeof(int));
    tabl = (int **)malloc(sizeof(int *));
    listel2nbn = (int *)malloc(sizeof(int));
 
    /********Creation of buffers************/
    for (i = 0; i < *nng; i++) {
        nn = nodbuf[i] - 1;
        crd[3 * i] = x[3 * nn];
        crd[3 * i + 1] = x[3 * nn + 1];
        crd[3 * i + 2] = x[3 * nn + 2];
        nodid[i] = itab[nn];
        weight = wgt[nn];
        nbelem[i] = addcnel[nn + 2] - addcnel[nn + 1];
        cnelem = (int *)realloc(cnelem, (dimno + nbelem[i]) * sizeof(int));
        cnelem3 = (int *)realloc(cnelem3, (dimno + nbelem[i]) * sizeof(int));
 
        for (j = 0; j < nbelem[i]; j++) {
            capt = 0;
            cnelem[dimno + j] = cnel[addcnel[nn + 1] + j];
 
            for (k = 0; k < t; k++) {
                if (cnelem[dimno + j] == listel2[k]) {
                    capt = 1;
                    tabl[k] = (int *)realloc(tabl[k], (listel2nbn[k] + 1) * sizeof(int));
                    tabl[k][listel2nbn[k]] = nodid[i];
                    listel2nbn[k]++;
                    cnelem3[dimno + j] = k;
                }
            }
 
            if (capt == 0) {
                listel2 = (int *)realloc(listel2, (t + 1) * sizeof(int));
                listel2nbn = (int *)realloc(listel2nbn, (t + 1) * sizeof(int));
                tabl = (int **)realloc(tabl, (t + 1) * sizeof(int *));
                tabl[t] = (int *)malloc(sizeof(int));
                listel2[t] = cnelem[dimno + j];
                listel2nbn[t] = 1;
                tabl[t][0] = nodid[i];
                cnelem3[dimno + j] = t;
                t++;
            }
        }
        dimno = dimno + nbelem[i];
    }
 
    /********sorting of element buffer************/
    g = 0;
    w = 0;
    listel = (int *)(malloc(sizeof(int)));
    listelnbn = (int *)(malloc(sizeof(int)));
    listelno = (int *)(malloc(sizeof(int)));
    for (i = 0; i < t; i++) {
        if ((listel2nbn[i] > 1) || ((listel2nbn[i] == 1) && (*nglob == 1))) {
            listel = (int *)realloc(listel, (w + 1) * sizeof(int));
            listelnbn = (int *)realloc(listelnbn, (w + 1) * sizeof(int));
            listel[w] = listel2[i];
            lel[w] = listel[w];
            listelnbn[w] = listel2nbn[i];
            lelnb[w] = listel2nbn[i];
            for (j = 0; j < listel2nbn[i]; j++) {
                listelno = (int *)realloc(listelno, (g + 1) * sizeof(int));
                listelno[g] = tabl[i][j];
                leln[g] = listelno[g];
                g++;
            }
            w++;
        }
    }
 
    *tlel = w;
    *tleln = g;
 
    /*********filtering of buffer of nodes**************/
    t = 0;
    k = 0;
    m = 0;
 
    for (i = 0; i < *nng; i++) {
        nn = nodbuf[i] - 1;
        weight = wgt[nn];
        lus = nbelem[i];
        for (j = 0; j < lus; j++) {
            m = cnelem3[k];
 
            if ((listel2nbn[m] > 1) || ((listel2nbn[m] == 1) && (*nglob == 1))) {
                if (weight == 1) {
                    cnelem2[zz] = cnelem[k];
                    zz++;
                }
                if (weight == 0) {
                    cnelemdb[zz2] = cnelem[k];
                    zz2++;
                }
            } else {
                nbelem[i] = nbelem[i] - 1;
            }
            k++;
        }
    }
 
    dimno = t;
    *tcnel = zz;
    *tcneldb = zz2;
 
    /*********Deallocation****************************/
    free(cnelem);
    free(tabl);
    free(nodid);
    free(crd);
    free(listel2);
    free(listel2nbn);
    free(listel);
    free(listelnbn);
    free(listelno);
}

init_buf_spmd_c_()

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 at line 844 of file rad2rad_c.c.

                                                                                                                                                                                                                                                                                                          {
    init_buf_spmd_c(igd, nng, itab, nodbuf, x,addcnel,cnel,ixc,ofc,tlel,lel,lelnb,tleln,leln,nbelem,tcnel,cnelem2,wgt,tcneldb,cnelemdb,info,typ,nglob);
}

init_buf_spmd_c__()

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 at line 848 of file rad2rad_c.c.

                                                                                                                                                                                                                                                                                                           {
    init_buf_spmd_c(igd, nng, itab, nodbuf, x,addcnel,cnel,ixc,ofc,tlel,lel,lelnb,tleln,leln,nbelem,tcnel,cnelem2,wgt,tcneldb,cnelemdb,info,typ,nglob);
}

INIT_LINK_C()

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 at line 633 of file rad2rad_c.c.

                                                                                                                                                                                                                           {
    init_link_c(igd, nng, itab, nodbuf, x,addcnel,cnel,ixc,ofc,info,typ,cdt,cdr,print,rddl,nlink,dx);
}

init_link_c()

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 at line 451 of file rad2rad_c.c.

{
    int i, j, t, nn, lbuf, lbuf1, init_buf[6], lbufa, lbufb, lbufel, dimno, k, capt, g, m, w, nbel, id, ref, lus;
    int *nodid, *nbelem, *cnelem, *cnelem2, *cnelem3, *listel, *listelnbn, *listel2, *listel2nbn, *listelno, **tabl, nbn, *bcs;
    my_real_c *crd;
 
    lbuf = *nng * sizeof(my_real_c);
    flagrot = (int *)malloc(*nlink * 2 * sizeof(int));
    iroddl = *rddl;
    crd = (my_real_c *)malloc(3 * lbuf);
    lbuf1 = *nng * sizeof(int);
    dimno = 0;
    nbel = 0;
    t = 0;
    k = 0;
    nodid = (int *)malloc(lbuf1);
    bcs = (int *)malloc(lbuf1);
 
    if (*typ > 3) {
        /************************coupling type 4, 5 and 6*****************************/
        /*****************************************************************************/
        for (i = 0; i < *nng; i++) {
            nn = nodbuf[i] - 1;
            crd[3 * i] = x[3 * nn] - dx[3 * nn];
            crd[3 * i + 1] = x[3 * nn + 1] - dx[3 * nn + 1];
            crd[3 * i + 2] = x[3 * nn + 2] - dx[3 * nn + 2];
 
            nodid[i] = itab[nn];
            bcs[i] = 10 * cdt[nn];
            if (*rddl)
                bcs[i] += cdr[nn];
        }
 
        id = *igd;
        init_buf[0] = *igd;
        init_buf[1] = *nng;
        init_buf[2] = dimno;
        init_buf[3] = 0;
        init_buf[4] = 0;
        init_buf[5] = *print;
 
        writer(fidw, (void *)init_buf, 6 * sizeof(int));
        writer(fidw, (void *)nodid, lbuf1);
        writer(fidw, (void *)bcs, lbuf1);
        writer(fidw, (void *)crd, 3 * lbuf);
    } else {
        /************************coupling type 1 and 2********************************/
        /*****************************************************************************/
        nbelem = (int *)malloc(lbuf1);
        cnelem = (int *)malloc(sizeof(int));
        cnelem3 = (int *)malloc(sizeof(int));
        listel2 = (int *)malloc(sizeof(int));
        tabl = (int **)malloc(sizeof(int *));
        listel2nbn = (int *)malloc(sizeof(int));
 
        /********Creation of buffers************/
        for (i = 0; i < *nng; i++) {
            nn = nodbuf[i] - 1;
            crd[3 * i] = x[3 * nn] - dx[3 * nn];
            crd[3 * i + 1] = x[3 * nn + 1] - dx[3 * nn + 1];
            crd[3 * i + 2] = x[3 * nn + 2] - dx[3 * nn + 2];
            nodid[i] = itab[nn];
            bcs[i] = 10 * cdt[nn];
            if (*rddl)
                bcs[i] += cdr[nn];
 
            nbelem[i] = addcnel[nn + 2] - addcnel[nn + 1];
            cnelem = (int *)realloc(cnelem, (dimno + nbelem[i]) * sizeof(int));
            cnelem3 = (int *)realloc(cnelem3, (dimno + nbelem[i]) * sizeof(int));
 
            for (j = 0; j < nbelem[i]; j++) {
                capt = 0;
                cnelem[dimno + j] = cnel[addcnel[nn + 1] + j];
 
                for (k = 0; k < t; k++) {
                    if (cnelem[dimno + j] == listel2[k]) {
                        capt = 1;
                        tabl[k] = (int *)realloc(tabl[k], (listel2nbn[k] + 1) * sizeof(int));
                        tabl[k][listel2nbn[k]] = nodid[i];
                        listel2nbn[k]++;
                        cnelem3[dimno + j] = k;
                    }
                }
                if (capt == 0) {
                    listel2 = (int *)realloc(listel2, (t + 1) * sizeof(int));
                    listel2nbn = (int *)realloc(listel2nbn, (t + 1) * sizeof(int));
                    tabl = (int **)realloc(tabl, (t + 1) * sizeof(int *));
                    tabl[t] = (int *)malloc(sizeof(int));
                    listel2[t] = cnelem[dimno + j];
                    listel2nbn[t] = 1;
                    tabl[t][0] = nodid[i];
                    cnelem3[dimno + j] = t;
                    t++;
                }
            }
            dimno = dimno + nbelem[i];
        }
 
        /********Sorting of element buffer************/
        g = 0;
        w = 0;
        listel = (int *)(malloc(sizeof(int)));
        listelnbn = (int *)(malloc(sizeof(int)));
        listelno = (int *)(malloc(sizeof(int)));
 
        for (i = 0; i < t; i++) {
            if ((listel2nbn[i] > 1) || ((listel2nbn[i] == 1) && (*nng == 1))) {
                listel = (int *)realloc(listel, (w + 1) * sizeof(int));
                listelnbn = (int *)realloc(listelnbn, (w + 1) * sizeof(int));
                listel[w] = listel2[i];
                listelnbn[w] = listel2nbn[i];
                for (j = 0; j < listel2nbn[i]; j++) {
                    listelno = (int *)realloc(listelno, (g + 1) * sizeof(int));
                    listelno[g] = tabl[i][j];
                    g++;
                }
                w++;
            }
        }
 
        /*********filtering of buffer of nodes**************/
        /*----(some elements are removed from buffer:
                 - type 1,2 : elements with only one node on the interface----*/
        t = 0;
        k = 0;
        m = 0;
        cnelem2 = (int *)malloc(sizeof(int));
        for (i = 0; i < *nng; i++) {
            lus = nbelem[i];
            for (j = 0; j < lus; j++) {
                m = cnelem3[k];
 
                if ((listel2nbn[m] > 1) || ((listel2nbn[m] == 1) && (*nng == 1))) {
                    cnelem2 = (int *)realloc(cnelem2, (t + 1) * sizeof(int));
                    cnelem2[t] = cnelem[k];
                    t++;
                } else {
                    nbelem[i] = nbelem[i] - 1;
                }
                k++;
            }
        }
 
        dimno = t;
 
        /********send of buffers to Rad2rad**************/
        id = *igd;
 
        init_buf[0] = *igd;
        init_buf[1] = *nng;
        init_buf[2] = dimno;
        init_buf[3] = w;
        init_buf[4] = g;
        init_buf[5] = *print;
        lbufel = w * sizeof(int);
        lbufa = dimno * sizeof(int);
        lbufb = g * sizeof(int);
 
        writer(fidw, (void *)init_buf, 6 * sizeof(int));
        writer(fidw, (void *)nodid, lbuf1);
        writer(fidw, (void *)bcs, lbuf1);
        writer(fidw, (void *)crd, 3 * lbuf);
        writer(fidw, (void *)nbelem, lbuf1);
        writer(fidw, (void *)cnelem2, lbufa);
        writer(fidw, (void *)listel, lbufel);
        writer(fidw, (void *)listelnbn, lbufel);
        writer(fidw, (void *)listelno, lbufb);
 
        /*********Deallocation****************************/
        free(nbelem);
        free(cnelem);
        free(tabl);
        free(nodid);
        free(crd);
        free(listel2);
        free(listel2nbn);
        free(listel);
        free(listelnbn);
        free(listelno);
    }
}

init_link_c_()

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 at line 637 of file rad2rad_c.c.

                                                                                                                                                                                                                          {
    init_link_c(igd, nng, itab, nodbuf, x,addcnel,cnel,ixc,ofc,info,typ,cdt,cdr,print,rddl,nlink,dx);
}

init_link_c__()

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 at line 641 of file rad2rad_c.c.

                                                                                                                                                                                                                           {
    init_link_c(igd, nng, itab, nodbuf, x,addcnel,cnel,ixc,ofc,info,typ,cdt,cdr,print,rddl,nlink,dx);
}

INIT_LINK_NL_C()

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 at line 693 of file rad2rad_c.c.

                                                                                                                                                           {
    init_link_nl_c(igd, nng, itab, nodbuf, x,print,dx,ndof_nl,nb_tot_dof,nlnk);
}

init_link_nl_c()

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 at line 646 of file rad2rad_c.c.

                                                                                                                                                  {
 
    int i, j, tt, nn, lbuf, lbuf1, init_buf[6], id;
    int *nodid, *bcs;
    my_real_c *crd;
 
    /************************coupling for non local dof***************************/
    /*****************************************************************************/
    flagrot = (int *)malloc(*nlnk * 2 * sizeof(int));
    lbuf = *nb_tot_dof * sizeof(my_real_c);
    crd = (my_real_c *)malloc(3 * lbuf);
    lbuf1 = *nb_tot_dof * sizeof(int);
    nodid = (int *)malloc(lbuf1);
    bcs = (int *)malloc(lbuf1);
 
    tt = 0;
    for (i = 0; i < *nng; i++) {
        nn = nodbuf[i] - 1;
        for (j = 0; j < ndof_nl[i]; j++) {
            crd[3 * tt] = x[3 * nn] - dx[3 * nn];
            crd[3 * tt + 1] = x[3 * nn + 1] - dx[3 * nn + 1];
            crd[3 * tt + 2] = x[3 * nn + 2] - dx[3 * nn + 2];
            nodid[tt] = itab[nn] + 10000 * j;
            bcs[tt] = 0;
            tt++;
        }
    }
 
    id = *igd;
    init_buf[0] = *igd;
    init_buf[1] = *nb_tot_dof;
    init_buf[2] = 0;
    init_buf[3] = 0;
    init_buf[4] = 0;
    init_buf[5] = *print;
 
    writer(fidw, (void *)init_buf, 6 * sizeof(int));
    writer(fidw, (void *)nodid, lbuf1);
    writer(fidw, (void *)bcs, lbuf1);
    writer(fidw, (void *)crd, 3 * lbuf);
 
    /*********Deallocation****************************/
    free(crd);
    free(nodid);
    free(bcs);
}

init_link_nl_c_()

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 at line 697 of file rad2rad_c.c.

                                                                                                                                                           {
    init_link_nl_c(igd, nng, itab, nodbuf, x,print,dx,ndof_nl,nb_tot_dof,nlnk);
}

init_link_nl_c__()

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 at line 701 of file rad2rad_c.c.

                                                                                                                                                            {
    init_link_nl_c(igd, nng, itab, nodbuf, x,print,dx,ndof_nl,nb_tot_dof,nlnk);
}

INIT_LINK_SPMD_C()

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 at line 928 of file rad2rad_c.c.

                                                                                                                                                                                                                                                                                                                                                                              {
  init_link_spmd_c(igd,nng,dbnod,nbproc,ibuf,dbibuf,dbnbuf,ddbuf,rbuf,dim,ibufnb,ibufcnel,nbel,dimel,ibufel,ibufelnbnod,ibufelnod,dimb,ibufcneldb,ibufnbeldb,typ,bcs,print,rddl,nl,nlnk,iex);
}

init_link_spmd_c()

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 at line 853 of file rad2rad_c.c.

                                                                                                                                                                                                                                                                                                                                                                      {
 
    int i, j, lbuf, lbuf1, lbufb, lbufp, init_buf[8], lbufa, lbufel, lbufdimel, lbufc, offset, offsetb, offsett, iproc;
 
    nspmd = *nbproc;
 
    init_buf[0] = *igd;
    init_buf[1] = *nng;
    init_buf[2] = *dim;
    init_buf[3] = *nbel;
    init_buf[4] = *dimel;
    init_buf[5] = *print;
    init_buf[6] = *dbnod;
    init_buf[7] = *dimb;
    flagrot = (int *)malloc((*nl + 1) * sizeof(int));
    iroddl = *rddl;
 
    writer(fidw, (void *)init_buf, 8 * sizeof(int));
    lbuf = *nng * sizeof(my_real_c);
    lbuf1 = *nng * sizeof(int);
    lbufb = *dbnod * sizeof(int);
    lbufp = *nbproc * sizeof(int);
    lbufa = *dim * sizeof(int);
    lbufc = *dimb * sizeof(int);
    lbufel = *nbel * sizeof(int);
    lbufdimel = *dimel * sizeof(int);
 
    /*************determination of the master for db nodes******************************/
    if (*iex == 1)
    {
        masterdb = malloc(*nlnk * sizeof(int *));
    }
 
    offset = 0;
    offsetb = 0;
    offsett = 0;
    masterdb[*iex - 1] = malloc((*nng + (*dbnod)) * sizeof(int));
    for (iproc = 0; iproc < nspmd; iproc++)
    {
        for (i = 0; i < ddbuf[iproc]; i++)
            masterdb[*iex - 1][offset + i] = offsetb + i;
        offset += ddbuf[iproc];
        offsetb += ddbuf[iproc];
        for (i = 0; i < dbnbuf[iproc]; i++)
            for (j = 0; j < *nng; j++)
            {
                if (ibuf[j] == dbibuf[offsett + i])
                    masterdb[*iex - 1][offset + i] = j;
            }
        offset += dbnbuf[iproc];
        offsett += dbnbuf[iproc];
    }
    /*************************************************************************************/
 
    writer(fidw, (void *)ibuf, lbuf1);
    writer(fidw, (void *)bcs, lbuf1);
    writer(fidw, (void *)rbuf, 3 * lbuf);
    writer(fidw, (void *)dbibuf, lbufb);
    writer(fidw, (void *)dbnbuf, lbufp);
    writer(fidw, (void *)ddbuf, lbufp);
 
    /****infos on elements (sent only for coupling type 1 and 2)*********************/
    if (*typ < 4)
    {
        writer(fidw, (void *)ibufnb, lbuf1);
        writer(fidw, (void *)ibufcnel, lbufa);
        writer(fidw, (void *)ibufel, lbufel);
        writer(fidw, (void *)ibufelnbnod, lbufel);
        writer(fidw, (void *)ibufelnod, lbufdimel);
        writer(fidw, (void *)ibufnbeldb, lbufb);
        writer(fidw, (void *)ibufcneldb, lbufc);
    }
    /*********************************************************************************/
}

init_link_spmd_c_()

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 at line 932 of file rad2rad_c.c.

                                                                                                                                                                                                                                                                                                                                                                              {
   init_link_spmd_c(igd,nng,dbnod,nbproc,ibuf,dbibuf,dbnbuf,ddbuf,rbuf,dim,ibufnb,ibufcnel,nbel,dimel,ibufel,ibufelnbnod,ibufelnod,dimb,ibufcneldb,ibufnbeldb,typ,bcs,print,rddl,nl,nlnk,iex);
}

init_link_spmd_c__()

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 at line 936 of file rad2rad_c.c.

                                                                                                                                                                                                                                                                                                                                                                               {
   init_link_spmd_c(igd,nng,dbnod,nbproc,ibuf,dbibuf,dbnbuf,ddbuf,rbuf,dim,ibufnb,ibufcnel,nbel,dimel,ibufel,ibufelnbnod,ibufelnod,dimb,ibufcneldb,ibufnbeldb,typ,bcs,print,rddl,nl,nlnk,iex);
}

MESS_SOCK_C()

void _FCALL MESS_SOCK_C

(

int *

sd

)

Definition at line 2370 of file rad2rad_c.c.

                                {
    mess_sock_c(sd);}

mess_sock_c()

void mess_sock_c

(

int *

sd

)

Definition at line 2354 of file rad2rad_c.c.

                         {
#ifdef _WIN64
    SOCKET sock;
#else
    int sock;
#endif
    char nom[512];
 
    sock = *sd;
 
    if (recv(sock, (send_type)nom, 3 * sizeof(char), 0) == -1) {
        perror("recv norm");
        exit(1);
    }
}

mess_sock_c_()

void mess_sock_c_

(

int *

sd

)

Definition at line 2373 of file rad2rad_c.c.

                          {
    mess_sock_c(sd);
}

mess_sock_c__()

void mess_sock_c__

(

int *

sd

)

Definition at line 2377 of file rad2rad_c.c.

                           {
     mess_sock_c(sd);
}

OPENFIFO_C()

void _FCALL OPENFIFO_C	(	int *	iroot,
		int *	len,
		int *	fdw,
		int *	fdr,
		int *	sd,
		int *	ispmd,
		int *	nthr,
		int *	ppid )

Definition at line 233 of file rad2rad_c.c.

                                                                                                    {
    openfifo_c(iroot,len,fdw,fdr,sd,ispmd,nthr,ppid);
}

openfifo_c()

void openfifo_c	(	int *	iroot,
		int *	len,
		int *	fdw,
		int *	fdr,
		int *	sd,
		int *	ispmd,
		int *	nthr,
		int *	ppid )

Definition at line 158 of file rad2rad_c.c.

{
int i, naps, sock,val;
char messtop[512];
#ifdef DNC
 
        nthreads = *nthr;
        ispmd_glob = *ispmd;
#ifdef _WIN64
        *ppid = _getpid();
#elif 1
        *ppid = getpid();
#endif
 
    for (i = 0; i < *len; i++)
        root[i] = (char) iroot[i];
    root[i] = '\0';
 
#ifdef _WIN64
     sprintf(fifo_1,"\\\\.\\pipe\\Fifo_%d_%s_1",*ispmd,root);
     sprintf(fifo_2,"\\\\.\\pipe\\Fifo_%d_%s_2",*ispmd,root);
#elif 1
     sprintf(fifo_1,"Fifo_%d_%s_1", *ispmd, root);
     sprintf(fifo_2,"Fifo_%d_%s_2", *ispmd, root);             
#endif
 
#ifdef _WIN64
      sock = *sd;
      if (recv(sock,(send_type)messtop,3*sizeof(char), 0) == -1){
                    perror("recv top fifo");
                    exit(1);}        
      fidr = CreateFile((const char*)&fifo_1,GENERIC_READ,0,NULL,OPEN_EXISTING,0,NULL);
      if (fidr == INVALID_HANDLE_VALUE) 
         fatal("Can't open fifo 1");
      fidw = CreateFile((const char*)&fifo_2,GENERIC_WRITE,0,NULL,OPEN_EXISTING,0,NULL);
      if (fidw == INVALID_HANDLE_VALUE) 
         fatal("Can't open fifo 2");
      if (send(sock,(send_type)buftop,3*sizeof(char), 0) == -1){
                    perror("send top fifo");
                    exit(1);}
 
     handler_array[0]=fidw;
     handler_array[1]=fidr;
     *fdw = 0;
     *fdr = 1;
#elif 1            
     for (naps = 0; naps < 15; naps++)
    {
        if ((fidr = open(fifo_1, O_RDONLY)) != -1) break;        
        else if (errno ==  ENOENT) sleep(1);
        else
            fatal("Radioss external link: can't open fifo");
    }
 
    if (fidr == -1)
        fatal("Can't open fifo after 15 naps");
                    
    if ((fidw = open(fifo_2, O_WRONLY)) == -1)
        fatal("Radioss external link: can't open fifo");
    *fdw = (int)fidw;
    *fdr = (int)fidr;
#endif
    if (*ispmd == 0) printf(" MULTIDOMAINS COUPLING-  \n");
      
        /********************opening of semaphore**********************/
#ifdef _WIN64
        sem_int = CreateSemaphore(NULL,0,128,NULL);
    if (sem_int == NULL) {printf("error creation semahpore %lu\n",GetLastError());}
#elif 1                  
        if (flag_siu==0) if (sem_init(&sem_int, 0, 0) == -1) perror("error creation semahpore");
#endif          
#endif
}

openfifo_c_()

void openfifo_c_	(	int *	iroot,
		int *	len,
		int *	fdw,
		int *	fdr,
		int *	sd,
		int *	ispmd,
		int *	nthr,
		int *	ppid )

Definition at line 237 of file rad2rad_c.c.

                                                                                              {
    openfifo_c(iroot,len,fdw,fdr,sd,ispmd,nthr,ppid);
}

openfifo_c__()

void openfifo_c__	(	int *	iroot,
		int *	len,
		int *	fdw,
		int *	fdr,
		int *	sd,
		int *	ispmd,
		int *	nthr,
		int *	ppid )

Definition at line 241 of file rad2rad_c.c.

                                                                                               {
    openfifo_c(iroot,len,fdw,fdr,sd,ispmd,nthr,ppid);}

OPENSEM_C()

void _FCALL OPENSEM_C	(	int *	iroot,
		int *	len,
		int *	ispmd,
		int *	nthr,
		int *	ppid )

Definition at line 272 of file rad2rad_c.c.

                                                                         {
    opensem_c(iroot,len,ispmd,nthr,ppid);
}

opensem_c()

void opensem_c	(	int *	iroot,
		int *	len,
		int *	ispmd,
		int *	nthr,
		int *	ppid )

Definition at line 246 of file rad2rad_c.c.

{
int i, naps, sock,val;
char messtop[512];
 
     flag_siu = 1;
     nthreads = *nthr;
 
     for (i = 0; i < *len; i++) root[i] = (char) iroot[i];
     root[i] = '\0';
 
     val = 0;
     sprintf(semaphore_int,"Sema_int_%d_%s_%d", val, root, *ppid);
     
        /********************opening of semaphore**********************/
#ifdef _WIN64
        sem_int = CreateSemaphore(NULL,0,128,semaphore_int);
    if (sem_int == NULL) {printf("error creation semahpore %lu\n",GetLastError());}        
#elif 1
        if (*ispmd == 0) sem_glob = sem_open(semaphore_int, O_CREAT | O_EXCL, 0644, 0); 
        else sem_glob = sem_open(semaphore_int, 0);        
        if (sem_glob == SEM_FAILED) {perror("error semaphore engine");exit(1);}
#endif
}

opensem_c_()

void opensem_c_	(	int *	iroot,
		int *	len,
		int *	ispmd,
		int *	nthr,
		int *	ppid )

Definition at line 276 of file rad2rad_c.c.

                                                                   {
    opensem_c(iroot,len,ispmd,nthr,ppid);
}

opensem_c__()

void opensem_c__	(	int *	iroot,
		int *	len,
		int *	ispmd,
		int *	nthr,
		int *	ppid )

Definition at line 280 of file rad2rad_c.c.

                                                                    {
    opensem_c(iroot,len,ispmd,nthr,ppid);}

OPENSHM_C()

void _FCALL OPENSHM_C

(

)

Definition at line 356 of file rad2rad_c.c.

{
    openshm_c();
}

openshm_c()

void openshm_c

(

)

Definition at line 284 of file rad2rad_c.c.

{
int global_len,global_leni,local_len,offset,offseti,mclo,bid;
int *shmi;
my_real_c *shm;
char add_shm[NAMESIZE],add_shmi[NAMESIZE];
#ifdef _WIN64
HANDLE shmid,shmidi;
#elif 1
int shmid,shmidi;
#endif
 
#ifdef DNC
 
         shmvr_size = 150;
         shmvs_size = 150;
 
         readr(fidr, (void *) &offset, sizeof(int));
         readr(fidr, (void *) &offseti, sizeof(int));
         readr(fidr, (void *) &global_len, sizeof(int));
         readr(fidr, (void *) &global_leni, sizeof(int));
         readr(fidr, (void *) &local_len, sizeof(int));
         readr(fidr, (void *) &r2r_id, sizeof(int));
         readr(fidr, (void *) &proc_id, sizeof(int));
         readr(fidr, (void *) &flg_sphinout, sizeof(int));
         sprintf(add_shm,"Adress_shm_%d_%d",ispmd_glob,r2r_id);                   
         sprintf(add_shmi,"Adress_shmi_%d_%d",ispmd_glob,r2r_id);
         sprintf(add_shmv,"Adress_shmv_%d_%d_%d",proc_id,ispmd_glob,r2r_id);
     
        /***********************shared memory**************************/
#ifdef _WIN64
         shmid = CreateFileMapping (INVALID_HANDLE_VALUE, NULL, PAGE_READWRITE, 0, global_len*sizeof(my_real_c), add_shm);
         shm = MapViewOfFile(shmid, FILE_MAP_READ | FILE_MAP_WRITE, 0, 0, 0);
         shmidi = CreateFileMapping (INVALID_HANDLE_VALUE, NULL, PAGE_READWRITE, 0, global_leni*sizeof(int), add_shmi);
         shmi = MapViewOfFile(shmidi, FILE_MAP_READ | FILE_MAP_WRITE, 0, 0, 0);
         shmidv = CreateFileMapping (INVALID_HANDLE_VALUE, NULL, PAGE_READWRITE, 0, (shmvr_size+shmvs_size)*sizeof(int), add_shmv);
         shmv = MapViewOfFile(shmidv, FILE_MAP_READ | FILE_MAP_WRITE, 0, 0, 0);     
#elif 1
         shmid = shm_open(add_shm, O_CREAT | O_RDWR, S_IRUSR | S_IWUSR); if (shmid == -1) {perror("shmopen");exit(1);}                  
         shm = mmap(NULL, global_len*sizeof(my_real_c),PROT_WRITE | PROT_READ, MAP_SHARED, shmid, 0); if (shm == MAP_FAILED) {perror("mmap");exit(1);}
         shmidi = shm_open(add_shmi, O_CREAT | O_RDWR, S_IRUSR | S_IWUSR); if (shmid == -1) {perror("shmopen");exit(1);}                  
         shmi = mmap(NULL, global_leni*sizeof(int),PROT_WRITE | PROT_READ, MAP_SHARED, shmidi, 0); if (shmi == MAP_FAILED) {perror("mmap");exit(1);}
         shmidv = shm_open(add_shmv, O_CREAT | O_RDWR, S_IRUSR | S_IWUSR); if (shmidv == -1) {perror("shmopen");exit(1);}                  
         shmv = mmap(NULL, (shmvr_size+shmvs_size)*sizeof(int),PROT_WRITE | PROT_READ, MAP_SHARED, shmidv, 0); if (shmv == MAP_FAILED) {perror("mmap");exit(1);}
#endif
         if((com = (struct region *) malloc(sizeof(struct region))) == NULL) syserr_fatal("Malloc");
         com->mass_buf = shm + offset;     
         com->iner_buf = shm + offset + local_len;
         com->iner_rby_buf = shm + offset + 2*local_len; 
         com->fx_buf = shm + offset + 11*local_len;
         com->fr_buf = shm + offset + 14*local_len;
         com->sx_buf = shm + offset + 17*local_len;
         com->sr_buf = shm + offset + 18*local_len;
         com->vx_buf = shm + offset + 19*local_len;
         com->vr_buf = shm + offset + 22*local_len;
         com->dx_buf = (double*) (shm + offset + 25*local_len);
         com->buf    = shmi + offseti ;
         com->itagr  = shmi + offseti + 10;
         com->itagr2 = shmi + offseti + 10 + local_len;
         com->itags  = shmi + offseti + 10 + 2*local_len;
         com->itags2 = shmi + offseti + 10 + 3*local_len;
         if (flg_sphinout == 1) com->iactv  = shmi + offseti + 10 + 4*local_len; 
     
         com->tagelr = shmv ;
         com->tagels = shmv + shmvr_size;
 
         bid = 0;
         writer(fidw, (void *) &bid, sizeof(int)); 
#endif
}

openshm_c_()

void openshm_c_

(

)

Definition at line 360 of file rad2rad_c.c.

{
    openshm_c();
}

openshm_c__()

void openshm_c__

(

)

Definition at line 364 of file rad2rad_c.c.

{openshm_c();}

r2r_block__()

void r2r_block__

(

)

Definition at line 425 of file rad2rad_c.c.

{r2r_block_c();}

R2R_BLOCK_C()

void _FCALL R2R_BLOCK_C

(

)

Definition at line 417 of file rad2rad_c.c.

{
    r2r_block_c();
}

r2r_block_c()

void r2r_block_c

(

)

Definition at line 406 of file rad2rad_c.c.

{
#ifdef _WIN64
    DWORD dwWaitResult; 
    dwWaitResult = WaitForSingleObject(sem_int,18000);    
#elif 1
    if (flag_siu==0) {if (sem_wait(&sem_int)==-1) {perror("send");exit(1);}}
    else {if (sem_wait(sem_glob)==-1) {perror("send");exit(1);}}
#endif        
}

r2r_block_c_()

void r2r_block_c_

(

)

Definition at line 421 of file rad2rad_c.c.

{
    r2r_block_c();
}

r2r_sem__()

void r2r_sem__

(

)

Definition at line 446 of file rad2rad_c.c.

{r2r_sem_c();}

R2R_SEM_C()

void _FCALL R2R_SEM_C

(

)

Definition at line 438 of file rad2rad_c.c.

{
    r2r_sem_c();
}

r2r_sem_c()

void r2r_sem_c

(

)

Definition at line 430 of file rad2rad_c.c.

{
int bid;
 
      bid = 0;
      writer(fidw, (void *) &bid,sizeof(int));    
}

r2r_sem_c_()

void r2r_sem_c_

(

)

Definition at line 442 of file rad2rad_c.c.

{
    r2r_sem_c();
}

r2r_unlock_threads__()

void r2r_unlock_threads__

(

int *

nthr

)

Definition at line 400 of file rad2rad_c.c.

                                    {
    r2r_unlock_threads_c(nthr);
}

R2R_UNLOCK_THREADS_C()

void _FCALL R2R_UNLOCK_THREADS_C

(

int *

nthr

)

Definition at line 392 of file rad2rad_c.c.

                                           {
    r2r_unlock_threads_c(nthr);
}

r2r_unlock_threads_c()

void r2r_unlock_threads_c

(

int *

nthr

)

Definition at line 369 of file rad2rad_c.c.

                                     {
    int i;
    for (i = 0; i < *nthr; i++) {
#ifdef _WIN64
        if (!ReleaseSemaphore(sem_int, 1, NULL)) {
            printf("release semaphore: %lu\n", GetLastError());
        }
#elif 1
        if (flag_siu == 0) {
            if (sem_post(&sem_int) == -1) {
                perror("send");
                exit(1);
            }
        } else {
            if (sem_post(sem_glob) == -1) {
                perror("send");
                exit(1);
            }
        }
#endif
    }
}

r2r_unlock_threads_c_()

void r2r_unlock_threads_c_

(

int *

nthr

)

Definition at line 396 of file rad2rad_c.c.

                                     {
    r2r_unlock_threads_c(nthr);
}

readr()

int readr	(	int	pipe,
		char *	buf,
		int	nbytes )

Definition at line 86 of file sys_pipes_c.c.

{
int error;
 
#ifdef _WIN64
BOOL fSuccess;
unsigned long ncount,done;
#else
int ncount,done;
#endif
    ncount = nbytes;
    while (ncount > 0)
    {
#ifdef _WIN64
        fSuccess = ReadFile(pipe,buf,ncount*sizeof(TCHAR),&done,NULL);
        if ( ! fSuccess) 
        {error = GetLastError(); done = -1;
         if ((error == 109)||(error == 232)) printf("\nERROR Broken pipe\n\n");}        
#elif 1 
        done = read(pipe, buf, ncount);
#endif
        if (done < 0)
            fatal("Failed reading fifo");    
        else if (done == 0)
            break;
        ncount -= done;
        buf += done;
    }
  return 1;
}

realloc_shmvr_c()

void realloc_shmvr_c

(

int

newsize

)

Definition at line 2715 of file rad2rad_c.c.

                                  {
    int i, new_tot_size, old_tot_size;
 
    old_tot_size = shmvr_size + shmvs_size;
    newsize = my_max(newsize, old_tot_size + 150);
    new_tot_size = shmvs_size + newsize;
 
#ifdef _WIN64
    UnmapViewOfFile(shmv);
    CloseHandle(shmidv);
    compt_resize++;
    sprintf(add_shmv, "Adress_shmv_%d_%d_%d_%d", proc_id, ispmd_glob, r2r_id, compt_resize);
    shmidv = CreateFileMapping(INVALID_HANDLE_VALUE, NULL, PAGE_READWRITE, 0, new_tot_size * sizeof(int), add_shmv);
    shmv = MapViewOfFile(shmidv, FILE_MAP_READ | FILE_MAP_WRITE, 0, 0, 0);
#elif 1
    munmap(shmv, old_tot_size * sizeof(int));
    if (ftruncate(shmidv, new_tot_size * sizeof(int)) == -1) {
        perror("ftruncate");
        exit(1);
    }
    shmv = mmap(NULL, new_tot_size * sizeof(int), PROT_WRITE | PROT_READ, MAP_SHARED, shmidv, 0);
    if (shmv == MAP_FAILED) {
        perror("mmap");
        exit(1);
    }
#endif
 
    shmvr_size = newsize;
    com->tagelr = shmv;
    com->tagels = shmv + shmvr_size;
}

realloc_shmvs_c()

void realloc_shmvs_c

(

int

newsize

)

Definition at line 2671 of file rad2rad_c.c.

{
    int i, *shmloc, new_tot_size, old_tot_size;
 
    old_tot_size = shmvr_size + shmvs_size;
    newsize = my_max(newsize, old_tot_size + 150);
    new_tot_size = shmvr_size + newsize;
 
    shmloc = malloc(old_tot_size * sizeof(int));
    for (i = 0; i < old_tot_size; i++) 
        shmloc[i] = shmv[i];
 
#ifdef _WIN64
    UnmapViewOfFile(shmv);
    CloseHandle(shmidv);
    compt_resize++;
    sprintf(add_shmv, "Adress_shmv_%d_%d_%d_%d", proc_id, ispmd_glob, r2r_id, compt_resize);
    shmidv = CreateFileMapping(INVALID_HANDLE_VALUE, NULL, PAGE_READWRITE, 0, new_tot_size * sizeof(int), add_shmv);
    shmv = MapViewOfFile(shmidv, FILE_MAP_READ | FILE_MAP_WRITE, 0, 0, 0);
#elif 1
    munmap(shmv, old_tot_size * sizeof(int));
    if (ftruncate(shmidv, new_tot_size * sizeof(int)) == -1) {
        perror("ftruncate");
        exit(1);
    }
    shmv = mmap(NULL, new_tot_size * sizeof(int), PROT_WRITE | PROT_READ, MAP_SHARED, shmidv, 0);
    if (shmv == MAP_FAILED) {
        perror("mmap");
        exit(1);
    }
#endif
 
    for (i = 0; i < new_tot_size; i++) 
        shmv[i] = 0;
    for (i = 0; i < old_tot_size; i++) 
        shmv[i] = shmloc[i];
 
    shmvs_size = newsize;
    com->tagelr = shmv;
    com->tagels = shmv + shmvr_size;
    free(shmloc);
}

SEND_DATA_C()

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 at line 1477 of file rad2rad_c.c.

                                                                                    {
    send_data_c(idp, nng, nodbuf, 
                fx, fr, stx, str, 
                vx,  vr,  ms,  in,
                dx, x, typ, npas, rby,
                tag_rby, add_rby, rbylnk, kin, dr,
                dt2, iex, off_sph, numsph_glo, nrby);
}

send_data_c()

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 at line 1411 of file rad2rad_c.c.

                                                                                    {
                    
    int buflen, lbuf, rest, next, chunk;
    int i, j, k, nn, nm, offset;
 
    rest = *nng;
    if (*iex == 1) off_link = 0;
 
    if (*typ != 7) {
        chunk = rest / nthreads;
        #pragma omp parallel for schedule(static, chunk) if (chunk > 350) private(k, i, j, nm, nn)
        for (next = 0; next < rest; next++) {
            i = off_link + next;
            k = 3 * i;
            nm = nodbuf[next] - 1;
            nn = 3 * nm;
            for (j = 0; j < 3; j++) {
                com->fx_buf[k + j] = fx[nn + j];
                com->fr_buf[k + j] = fr[nn + j];
                if ((*typ <= 4) || (*npas == 0)) {
                    com->vx_buf[k + j] = vx[nn + j];
                }
                if (*typ == 5) {
                    if (*kin == 1) {
                        dr[3 * next + j] += *dt2 * vr[nn + j];
                        com->dx_buf[2 * k + j] = dx[nn + j];
                        com->dx_buf[2 * k + j + 3] = dr[3 * next + j];
                    } else {
                        com->dx_buf[k + j] = dx[nn + j];
                    }
                }
            }
            com->mass_buf[i] = ms[nm];
            if (*typ == 5) com->sx_buf[i] = stx[nm];
            if (flagrot[*idp]) {
                if (*typ == 5) com->sr_buf[i] = str[nm];
                com->iner_buf[i] = in[nm];
                if (*rbylnk == 1)
                    for (j = 0; j < 9; j++)
                        com->iner_rby_buf[9 * i + j] = rby[*nrby * tag_rby[*add_rby + next] + j + 16];
                if ((*typ <= 4) || (*npas == 0))
                    for (j = 0; j < 3; j++) com->vr_buf[k + j] = vr[nn + j];
            }
            /************ change of state - activation or deactivation of SPH - coordinates are transmitted instead of forces **************/
            if (flg_sphinout == 1) {
                com->iactv[i] = 0;
                if (*numsph_glo > 0)
                    if (off_sph[nm] != 0) {
                        /* printf("deactivation %d %d - %e %e %e\n",nm,off_sph[nm],x[nn],x[nn+1],x[nn+2]); */
                        for (j = 0; j < 3; j++) {
                            com->fx_buf[k + j] = x[nn + j];
                        }
                        com->iactv[i] = off_sph[nm];
                    }
            }
        }
        off_link += rest;
    }
}

send_data_c_()

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 at line 1491 of file rad2rad_c.c.

                                                                                    {
    send_data_c(idp, nng, nodbuf, 
                fx, fr, stx, str, 
                vx,  vr,  ms,  in,
                dx, x, typ, npas, rby,
                tag_rby, add_rby, rbylnk, kin, dr,
                dt2, iex, off_sph, numsph_glo, nrby);
}

send_data_c__()

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 at line 1505 of file rad2rad_c.c.

                                                                                    {
    send_data_c(idp, nng, nodbuf, 
                fx, fr, stx, str, 
                vx,  vr,  ms,  in,
                dx, x, typ, npas, rby,
                tag_rby, add_rby, rbylnk, kin, dr,
                dt2, iex, off_sph, numsph_glo, nrby);
}

SEND_DATA_NL_C()

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 at line 1546 of file rad2rad_c.c.

                                                                                                                              {
    send_data_nl_c(idp, nng, iadd_nl, fx, vx,  ms, npas, iex);
}

send_data_nl_c()

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 at line 1521 of file rad2rad_c.c.

                                                                                                                       {
    int rest, next, chunk;
    int i;
 
    rest = *nng;
    chunk = rest / nthreads;
 
    #pragma omp parallel for schedule(static, chunk) if (chunk > 350) private(i)
    for (next = 0; next < rest; next++) {
        i = next;
        com->mass_buf[off_link + i] = ms[iadd_nl[i] - 1];
        com->fx_buf[3 * (off_link + i)] = fx[iadd_nl[i] - 1];
    }
 
    if (*npas == 0) {
        #pragma omp parallel for schedule(static, chunk) if (chunk > 350) private(i)
        for (next = 0; next < rest; next++) {
            i = next;
            com->vx_buf[3 * (off_link + i)] = vx[iadd_nl[i] - 1];
        }
    }
 
    off_link += rest;
}

send_data_nl_c_()

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 at line 1550 of file rad2rad_c.c.

                                                                                                                        {
    send_data_nl_c(idp, nng, iadd_nl, fx, vx,  ms, npas, iex);
}

send_data_nl_c__()

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 at line 1554 of file rad2rad_c.c.

                                                                                                                         {
    send_data_nl_c(idp, nng, iadd_nl, fx, vx,  ms, npas, iex);
}

SEND_DATA_SPMD_C()

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 at line 1606 of file rad2rad_c.c.

                                                                                      {
    send_data_spmd_c(idp, nng, bufr1, bufr2, bufr3, bufr4, bufr5, bufr6, bufr7, bufr8, bufr9, buf_rby, flg_rby, typ, npas, iex);
}

send_data_spmd_c()

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 at line 1560 of file rad2rad_c.c.

                                                                                      {
    int buflen, lbuf, rest, next, nn, nm, i, j, k, chunk;
 
    rest = *nng;
    if (*iex == 1) 
        off_link = 0;
 
    if (*typ != 7) {
        chunk = rest / nthreads;
        #pragma omp parallel for schedule(static, chunk) if (chunk > 350) private(k, i, nn, nm)
        for (next = 0; next < rest; next++) {
            i = off_link + next;
            k = 3 * i;
            nm = next;
            nn = 3 * next;
            for (j = 0; j < 3; j++) {
                com->fx_buf[k + j] = bufr1[nn + j];
                com->fr_buf[k + j] = bufr2[nn + j];
                if ((*typ <= 4) || (*npas == 0)) 
                    com->vx_buf[k + j] = bufr5[nn + j];
                com->dx_buf[k + j] = bufr7[nn + j];
            }
            com->mass_buf[i] = bufr8[nm];
            if (*typ == 5) 
                com->sx_buf[i] = bufr3[nm];
            if (flagrot[*idp]) {
                if (*typ == 5) 
                    com->sr_buf[i] = bufr4[nm];
                com->iner_buf[i] = bufr9[nm];
                if (*flg_rby == 1)
                    for (j = 0; j < 9; j++) 
                        com->iner_rby_buf[9 * i + j] = buf_rby[9 * next + j];
                if ((*typ <= 4) || (*npas == 0)) 
                    for (j = 0; j < 3; j++) 
                        com->vr_buf[k + j] = bufr6[nn + j];
            }
        }
        off_link += rest;
    }
}

send_data_spmd_c_()

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 at line 1614 of file rad2rad_c.c.

                                                                                      {
    send_data_spmd_c(idp, nng, bufr1, bufr2, bufr3, bufr4, bufr5, bufr6, bufr7, bufr8, bufr9, buf_rby, flg_rby, typ, npas, iex);
}

send_data_spmd_c__()

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 at line 1622 of file rad2rad_c.c.

                                                                                      {
        send_data_spmd_c(idp, nng, bufr1, bufr2, bufr3, bufr4, bufr5, bufr6, bufr7, bufr8, bufr9, buf_rby, flg_rby, typ, npas, iex);
}

SEND_FBUF_C()

void _FCALL SEND_FBUF_C	(	my_real_c *	fbuf,
		int *	len )

Definition at line 962 of file rad2rad_c.c.

                                                  {
    send_fbuf_c(fbuf, len);
}

send_fbuf_c()

void send_fbuf_c	(	my_real_c *	fbuf,
		int *	len )

Definition at line 958 of file rad2rad_c.c.

                                           {
    writer(fidw, (void *) fbuf, *len*sizeof(my_real_c));
}

send_fbuf_c_()

void send_fbuf_c_	(	my_real_c *	fbuf,
		int *	len )

Definition at line 966 of file rad2rad_c.c.

                                            {
    send_fbuf_c(fbuf, len);
}

send_fbuf_c__()

void send_fbuf_c__	(	my_real_c *	fbuf,
		int *	len )

Definition at line 970 of file rad2rad_c.c.

                                             {
    send_fbuf_c(fbuf, len);
}

SEND_FBUFDP_C()

void _FCALL SEND_FBUFDP_C	(	double *	fbuf,
		int *	len )

Definition at line 981 of file rad2rad_c.c.

                                                 {
    send_fbufdp_c(fbuf, len);
}

send_fbufdp_c()

void send_fbufdp_c	(	double *	fbuf,
		int *	len )

Definition at line 977 of file rad2rad_c.c.

                                          {
    writer(fidw, (void *) fbuf, *len*sizeof(double));
}

send_fbufdp_c_()

void send_fbufdp_c_	(	double *	fbuf,
		int *	len )

Definition at line 985 of file rad2rad_c.c.

                                           {
    send_fbufdp_c(fbuf, len);
}

send_fbufdp_c__()

void send_fbufdp_c__	(	double *	fbuf,
		int *	len )

Definition at line 989 of file rad2rad_c.c.

                                            {
    send_fbufdp_c(fbuf, len);
}

SEND_IBUF_C()

void _FCALL SEND_IBUF_C	(	int *	ibuf,
		int *	len )

Definition at line 944 of file rad2rad_c.c.

                                            {
    send_ibuf_c(ibuf, len);
}

send_ibuf_c()

void send_ibuf_c	(	int *	ibuf,
		int *	len )

Definition at line 940 of file rad2rad_c.c.

                                     {
    writer(fidw, (void *) ibuf, *len*sizeof(int));
}

send_ibuf_c_()

void _FCALL send_ibuf_c_	(	int *	ibuf,
		int *	len )

Definition at line 948 of file rad2rad_c.c.

                                             {
    send_ibuf_c(ibuf, len);
}

send_ibuf_c__()

void _FCALL send_ibuf_c__	(	int *	ibuf,
		int *	len )

Definition at line 952 of file rad2rad_c.c.

                                              {
    send_ibuf_c(ibuf, len);
}

SEND_MASS_C()

void _FCALL SEND_MASS_C	(	int *	idp,
		int *	nng,
		int *	nodbuf,
		my_real_c *	ms,
		my_real_c *	in )

Definition at line 1077 of file rad2rad_c.c.

                                                                                      {
    send_mass_c(idp, nng, nodbuf, ms, in);
}

send_mass_c()

void send_mass_c	(	int *	idp,
		int *	nng,
		int *	nodbuf,
		my_real_c *	ms,
		my_real_c *	in )

Definition at line 1048 of file rad2rad_c.c.

                                                                               {
    int i, nn, lbuf, flag;
    my_real_c *mbuf, *ibuf;
 
    writer(fidw, (void *)idp, sizeof(int));
    readr(fidr, (void *)&flag, sizeof(int));
    flagrot[*idp] = flag;
 
    lbuf = *nng * sizeof(my_real_c);
    mbuf = (my_real_c *)malloc(lbuf);
    if (flagrot[*idp])
        ibuf = (my_real_c *)malloc(lbuf);
 
    for (i = 0; i < *nng; i++)
    {
        nn = nodbuf[i] - 1;
        mbuf[i] = ms[nn];
        if (flagrot[*idp])
            ibuf[i] = in[nn];
    }
    writer(fidw, (void *)mbuf, lbuf);
    if (flagrot[*idp])
        writer(fidw, (void *)ibuf, lbuf);
 
    free(mbuf);
    if (flagrot[*idp])
        free(ibuf);
}

send_mass_c_()

void send_mass_c_	(	int *	idp,
		int *	nng,
		int *	nodbuf,
		my_real_c *	ms,
		my_real_c *	in )

Definition at line 1081 of file rad2rad_c.c.

                                                                                {
    send_mass_c(idp, nng, nodbuf, ms, in);
}

send_mass_c__()

void send_mass_c__	(	int *	idp,
		int *	nng,
		int *	nodbuf,
		my_real_c *	ms,
		my_real_c *	in )

Definition at line 1085 of file rad2rad_c.c.

                                                                                 {
    send_mass_c(idp, nng, nodbuf, ms, in);
}

SEND_MASS_KINE_C()

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 at line 1978 of file rad2rad_c.c.

                                                                                                                  {
    send_mass_kine_c(idp, nng, nodbuf, ms, in, iex, offset); 
}

send_mass_kine_c()

void send_mass_kine_c	(	int *	idp,
		int *	nng,
		int *	nodbuf,
		my_real_c *	ms,
		my_real_c *	in,
		int *	iex,
		int *	offset )

Definition at line 1960 of file rad2rad_c.c.

                                                                                                           {
    int buflen, lbuf, rest, next;
    int i, j, k, nn, nm, chunk;
 
    rest = *nng;
 
    chunk = rest / nthreads;
    #pragma omp parallel for schedule(static, chunk) if (chunk > 350) private(k, i, nm, nn)
    for (next = 0; next < rest; next++) {
        i = *offset + next;
        k = 3 * i;
        nm = nodbuf[next] - 1;
        nn = 3 * nm;
        com->mass_buf[i] = ms[nm];
        if (flagrot[*idp]) com->iner_buf[i] = in[nm];
    }
}

send_mass_kine_c_()

void send_mass_kine_c_	(	int *	idp,
		int *	nng,
		int *	nodbuf,
		my_real_c *	ms,
		my_real_c *	in,
		int *	iex,
		int *	offset )

Definition at line 1982 of file rad2rad_c.c.

                                                                                                            {
    send_mass_kine_c(idp, nng, nodbuf, ms, in, iex, offset); 
}

send_mass_kine_c__()

void send_mass_kine_c__	(	int *	idp,
		int *	nng,
		int *	nodbuf,
		my_real_c *	ms,
		my_real_c *	in,
		int *	iex,
		int *	offset )

Definition at line 1986 of file rad2rad_c.c.

                                                                                                             {
    send_mass_kine_c(idp, nng, nodbuf, ms, in, iex, offset);
}

SEND_MASS_NL_C()

void _FCALL SEND_MASS_NL_C	(	int *	idp,
		int *	nng,
		int *	iadd_nl,
		my_real_c *	ms )

Definition at line 1109 of file rad2rad_c.c.

                                                                           {
    send_mass_nl_c(idp, nng, iadd_nl, ms);
}

send_mass_nl_c()

void send_mass_nl_c	(	int *	idp,
		int *	nng,
		int *	iadd_nl,
		my_real_c *	ms )

Definition at line 1090 of file rad2rad_c.c.

                                                                    {
    int i, j, nn, lbuf, flag;
    my_real_c *mbuf;
 
    writer(fidw, (void *)idp, sizeof(int));
    readr(fidr, (void *)&flag, sizeof(int));
    flagrot[*idp] = 0;
 
    lbuf = *nng * sizeof(my_real_c);
    mbuf = (my_real_c *)malloc(lbuf);
 
    for (i = 0; i < *nng; i++) {
        mbuf[i] = ms[iadd_nl[i] - 1];
    }
 
    writer(fidw, (void *)mbuf, lbuf);
    free(mbuf);
}

send_mass_nl_c_()

void send_mass_nl_c_	(	int *	idp,
		int *	nng,
		int *	iadd_nl,
		my_real_c *	ms )

Definition at line 1113 of file rad2rad_c.c.

                                                                     {
    send_mass_nl_c(idp, nng, iadd_nl, ms);
}

send_mass_nl_c__()

void send_mass_nl_c__	(	int *	idp,
		int *	nng,
		int *	iadd_nl,
		my_real_c *	ms )

Definition at line 1117 of file rad2rad_c.c.

                                                                      {
    send_mass_nl_c(idp, nng, iadd_nl, ms);
}

SEND_MASS_RBY_C()

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 at line 1167 of file rad2rad_c.c.

                                                                                                                                                                                 {
    send_mass_rby_c(idp, nng, nodbuf, ms, in, npby, nrbody, rby, tag, add_rby, nnpby, nrby);
}

send_mass_rby_c()

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 at line 1121 of file rad2rad_c.c.

                                                                                                                                                                          {
    int i, k, l, nn, lbuf, flag, *cbuf;
    my_real_c *mbuf, *ibuf, *m2buf, *matrix_buf;
 
    writer(fidw, (void *)idp, sizeof(int));
    readr(fidr, (void *)&flag, sizeof(int));
    flagrot[*idp] = flag;
 
    lbuf = *nng * sizeof(my_real_c);
    mbuf = (my_real_c *)malloc(lbuf);
    m2buf = (my_real_c *)malloc(lbuf);
    cbuf = (int *)malloc(lbuf);
    if (flagrot[*idp]) {
        ibuf = (my_real_c *)malloc(lbuf);
        matrix_buf = (my_real_c *)malloc(9 * lbuf);
    }
 
    for (i = 0; i < *nng; i++) {
        nn = nodbuf[i] - 1;
        mbuf[i] = ms[nn];
        if (flagrot[*idp]) ibuf[i] = in[nn];
        for (k = 0; k < *nrbody; k++) {
            if (npby[*nnpby * k] == nn + 1) {
                tag[*add_rby + i] = k;
                cbuf[i] = npby[*nnpby * k + 2];
                m2buf[i] = rby[*nrby * k + 14];
                for (l = 0; l < 9; l++) {
                    matrix_buf[9 * i + l] = rby[*nrby * k + 16 + l];
                }
            }
        }
    }
 
    writer(fidw, (void *)mbuf, lbuf);
    if (flagrot[*idp]) writer(fidw, (void *)ibuf, lbuf);
    writer(fidw, (void *)cbuf, lbuf);
    writer(fidw, (void *)m2buf, lbuf);
    writer(fidw, (void *)matrix_buf, 9 * lbuf);
 
    free(mbuf);
    free(m2buf);
    free(matrix_buf);
    if (flagrot[*idp]) free(ibuf);
    free(cbuf);
}

send_mass_rby_c_()

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 at line 1171 of file rad2rad_c.c.

                                                                                                                                                                           {
    send_mass_rby_c(idp, nng, nodbuf, ms, in, npby, nrbody, rby, tag, add_rby, nnpby, nrby);
}

send_mass_rby_c__()

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 at line 1175 of file rad2rad_c.c.

                                                                                                                                                                            {
    send_mass_rby_c(idp, nng, nodbuf, ms, in, npby, nrbody, rby, tag, add_rby, nnpby, nrby);
}

SEND_MASS_RBY_SPMD_C()

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 at line 1239 of file rad2rad_c.c.

                                                                                                                                         {
    send_mass_rby_spmd_c(idp,nng,buf1,buf2,buf3,buf4,buf5,iroddl);
}

send_mass_rby_spmd_c()

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 at line 1223 of file rad2rad_c.c.

                                                                                                                                  {
int lbuf, flag;
 
    writer(fidw, (void *) idp, sizeof(int));;    
    readr(fidr, (void *) &flag, sizeof(int));        
    flagrot[*idp]=flag;
    *iroddl=flag;
    lbuf = *nng*sizeof(my_real_c);
    writer(fidw, (void *) buf1, lbuf);    
    if (flagrot[*idp]) writer(fidw, (void *) buf2, lbuf);    
    writer(fidw, (void *) buf3, lbuf);     
    writer(fidw, (void *) buf4, lbuf);
    writer(fidw, (void *) buf5, 9*lbuf);
    
}

send_mass_rby_spmd_c_()

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 at line 1243 of file rad2rad_c.c.

                                                                                                                                   {
    send_mass_rby_spmd_c(idp,nng,buf1,buf2,buf3,buf4,buf5,iroddl);
}

send_mass_rby_spmd_c__()

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 at line 1247 of file rad2rad_c.c.

                                                                                                                                    {
    send_mass_rby_spmd_c(idp,nng,buf1,buf2,buf3,buf4,buf5,iroddl);
}

SEND_MASS_SPMD_C()

void _FCALL SEND_MASS_SPMD_C	(	int *	idp,
		int *	nng,
		my_real_c *	buf1,
		my_real_c *	buf2,
		int *	iroddl )

Definition at line 1209 of file rad2rad_c.c.

                                                                                               {
    send_mass_spmd_c(idp, nng, buf1, buf2, iroddl);
}

send_mass_spmd_c()

void send_mass_spmd_c	(	int *	idp,
		int *	nng,
		my_real_c *	buf1,
		my_real_c *	buf2,
		int *	iroddl )

Definition at line 1198 of file rad2rad_c.c.

                                                                                        {
int lbuf, flag;
    writer(fidw, (void *) idp, sizeof(int));;    
    readr(fidr, (void *) &flag, sizeof(int));        
    flagrot[*idp]=flag;
    *iroddl=flag;
    lbuf = *nng*sizeof(my_real_c);
    writer(fidw, (void *) buf1, lbuf);    
    if (flagrot[*idp]) writer(fidw, (void *) buf2, lbuf);
}

send_mass_spmd_c_()

void send_mass_spmd_c_	(	int *	idp,
		int *	nng,
		my_real_c *	buf1,
		my_real_c *	buf2,
		int *	iroddl )

Definition at line 1213 of file rad2rad_c.c.

                                                                                         {
    send_mass_spmd_c(idp, nng, buf1, buf2, iroddl);
}

send_mass_spmd_c__()

void send_mass_spmd_c__	(	int *	idp,
		int *	nng,
		my_real_c *	buf1,
		my_real_c *	buf2,
		int *	iroddl )

Definition at line 1217 of file rad2rad_c.c.

                                                                                          {
    send_mass_spmd_c(idp, nng, buf1, buf2, iroddl);
}

SEND_SHMBUF_C()

void _FCALL SEND_SHMBUF_C	(	int *	val1,
		int *	val2 )

Definition at line 2809 of file rad2rad_c.c.

                                              {
    send_shmbuf_c(val1,val2);}

send_shmbuf_c()

void send_shmbuf_c	(	int *	val1,
		int *	val2 )

Definition at line 2805 of file rad2rad_c.c.

                                       {
    com->buf[*val2-1] = *val1;
}

send_shmbuf_c_()

void send_shmbuf_c_	(	int *	val1,
		int *	val2 )

Definition at line 2812 of file rad2rad_c.c.

                                        {
    send_shmbuf_c(val1,val2);
}

send_shmbuf_c__()

void send_shmbuf_c__	(	int *	val1,
		int *	val2 )

Definition at line 2816 of file rad2rad_c.c.

                                         {
    send_shmbuf_c(val1,val2);
}

SEND_SOCK_C()

void _FCALL SEND_SOCK_C

(

int *

sd

)

Definition at line 2399 of file rad2rad_c.c.

                                {
    send_sock_c(sd);}

send_sock_c()

void send_sock_c

(

int *

sd

)

Definition at line 2383 of file rad2rad_c.c.

                         {
 
#ifdef _WIN64
  SOCKET sock;
#else
  int sock;
#endif
  char nom[512];                    
    
     sock=*sd;    
    
     if (send(sock,(send_type)buftop,3*sizeof(char), 0) == -1){
     perror("send norm");
     exit(1);}
}

send_sock_c_()

void send_sock_c_

(

int *

sd

)

Definition at line 2402 of file rad2rad_c.c.

                          {
    send_sock_c(sd);
}

send_sock_c__()

void send_sock_c__

(

int *

sd

)

Definition at line 2406 of file rad2rad_c.c.

                           {
    send_sock_c(sd);
}

SEND_SOCK_IBUF_C()

void _FCALL SEND_SOCK_IBUF_C	(	int *	sd,
		int *	ibuf,
		int *	len )

Definition at line 2450 of file rad2rad_c.c.

                                                          {
    send_sock_ibuf_c(sd, ibuf, len);
}

send_sock_ibuf_c()

void send_sock_ibuf_c	(	int *	sd,
		int *	ibuf,
		int *	len )

Definition at line 2439 of file rad2rad_c.c.

                                                   {
#ifdef _WIN64
  SOCKET sock;
#else
  int sock;
#endif
     sock=*sd;
     if (send(sock,(send_type)ibuf,*len*sizeof(int), 0) == -1){
     perror("send sock ibuf ");
     exit(1);}     
}

send_sock_ibuf_c_()

void send_sock_ibuf_c_	(	int *	sd,
		int *	ibuf,
		int *	len )

Definition at line 2454 of file rad2rad_c.c.

                                                    {
    send_sock_ibuf_c(sd, ibuf, len);
}

send_sock_ibuf_c__()

void send_sock_ibuf_c__	(	int *	sd,
		int *	ibuf,
		int *	len )

Definition at line 2458 of file rad2rad_c.c.

                                                     {
    send_sock_ibuf_c(sd, ibuf, len);
}

SEND_SOCK_INIT_C()

void _FCALL SEND_SOCK_INIT_C	(	int *	iroot,
		int *	len,
		int *	ispmd,
		int *	sd,
		int *	maxproc,
		int *	imach )

Definition at line 2254 of file rad2rad_c.c.

                                                                                                 {
    send_sock_init_c(iroot,len,ispmd,sd,maxproc,imach);
}

send_sock_init_c()

void send_sock_init_c	(	int *	iroot,
		int *	len,
		int *	ispmd,
		int *	sd,
		int *	maxproc,
		int *	imach )

Definition at line 2202 of file rad2rad_c.c.

                                                                                     {
  int num,i,nb,code,spmd,vers,compt2,imachine,flag_error;
#ifdef _WIN64
  SOCKET sock;
#else
  int sock;
#endif
  char nom[512];
  char PUF[512];
#ifdef DNC
                    
    sock=*sd;
    num = *ispmd;
    nb = *maxproc;
    vers = 12180 + R4R8_C;
    imachine = *imach;
            
    for (i = 0; i < *len; i++)
    {
    root[i] = (char) iroot[i];
    }        
     
     if (send(sock,(send_type)root,70*sizeof(char), 0) == -1){
     perror("send name");
     exit(1);}
     
     if (send(sock,(send_type)&nb,sizeof(nb), 0) == -1){
     perror("send nb proc");
     exit(1);}
     
     if (send(sock,(send_type)&vers,sizeof(vers), 0) == -1){
     perror("send version");
     exit(1);}
     
     if (send(sock,(send_type)&imachine,sizeof(vers), 0) == -1){
     perror("send imach");
     exit(1);}                      
    
    if (recv(sock,(send_type)&flag_error,sizeof(flag_error), 0) <= 0){
    perror("recv rad2rad message");
    exit(1);}
    if (flag_error == 1) {printf("\n error message sent by rad2rad\n");exit(1);}    
 
    if (nb != 0){
       if (recv(sock,(send_type)nom,sizeof(nom), 0) <= 0){
           perror("recv top");
           exit(1);
       }
    }
#endif
}

send_sock_init_c_()

void send_sock_init_c_	(	int *	iroot,
		int *	len,
		int *	ispmd,
		int *	sd,
		int *	maxproc,
		int *	imach )

Definition at line 2258 of file rad2rad_c.c.

                                                                                           {
    send_sock_init_c(iroot,len,ispmd,sd,maxproc,imach);
}

send_sock_init_c__()

void send_sock_init_c__	(	int *	iroot,
		int *	len,
		int *	ispmd,
		int *	sd,
		int *	maxproc,
		int *	imach )

Definition at line 2262 of file rad2rad_c.c.

                                                                                            {
    send_sock_init_c(iroot,len,ispmd,sd,maxproc,imach);
}

SEND_SOCK_MESS_C()

void _FCALL SEND_SOCK_MESS_C	(	int *	sd,
		char *	mess,
		int *	len )

Definition at line 2530 of file rad2rad_c.c.

                                                           {
    send_sock_mess_c(sd, mess, len);
}

send_sock_mess_c()

void send_sock_mess_c	(	int *	sd,
		char *	mess,
		int *	len )

Definition at line 2517 of file rad2rad_c.c.

                                                    {
 
#ifdef _WIN64
  SOCKET sock;
#else
  int sock;
#endif
     sock=*sd;
     if (send(sock,(send_type)mess,*len*sizeof(char), 0) == -1){
     perror("send sock mess ");
     exit(1);}     
}

send_sock_mess_c_()

void send_sock_mess_c_	(	int *	sd,
		char *	mess,
		int *	len )

Definition at line 2534 of file rad2rad_c.c.

                                                     {
    send_sock_mess_c(sd, mess, len);
}

send_sock_mess_c__()

void send_sock_mess_c__	(	int *	sd,
		char *	mess,
		int *	len )

Definition at line 2538 of file rad2rad_c.c.

                                                      {
    send_sock_mess_c(sd, mess, len);
}

SEND_SOCK_RBUF_C()

void _FCALL SEND_SOCK_RBUF_C	(	int *	sd,
		my_real_c *	rbuf,
		int *	len )

Definition at line 2477 of file rad2rad_c.c.

                                                                {
    send_sock_rbuf_c(sd, rbuf, len);
}

send_sock_rbuf_c()

void send_sock_rbuf_c	(	int *	sd,
		my_real_c *	rbuf,
		int *	len )

Definition at line 2464 of file rad2rad_c.c.

                                                         {
 
#ifdef _WIN64
  SOCKET sock;
#else
  int sock;
#endif
     sock=*sd;
     if (send(sock,(send_type)rbuf,*len*sizeof(my_real_c), 0) == -1){
     perror("send sock rbuf ");
     exit(1);}     
}

send_sock_rbuf_c_()

void send_sock_rbuf_c_	(	int *	sd,
		my_real_c *	rbuf,
		int *	len )

Definition at line 2481 of file rad2rad_c.c.

                                                          {
    send_sock_rbuf_c(sd, rbuf, len);
}

send_sock_rbuf_c__()

void send_sock_rbuf_c__	(	int *	sd,
		my_real_c *	rbuf,
		int *	len )

Definition at line 2485 of file rad2rad_c.c.

                                                           {
    send_sock_rbuf_c(sd, rbuf, len);
}

syserr()

void syserr

(

)

writer()

int writer	(	int	pipe,
		char *	buf,
		int	nbytes )

Definition at line 122 of file sys_pipes_c.c.

{
int  error;
#ifdef _WIN64
BOOL fSuccess;
unsigned long ncount,done;
#else
int ncount,done;
#endif
 
    ncount = nbytes;
    while (ncount > 0)
    {
#ifdef _WIN64
        fSuccess = WriteFile(pipe,buf,ncount*sizeof(TCHAR),&done,NULL);    
        if ( ! fSuccess) 
        {error = GetLastError(); done = -1;
         if ((error == 109)||(error == 232)) printf("\nERROR Broken pipe\n\n");}        
#elif 1 
        done = write(pipe, buf, ncount);
#endif
        if (done < 0)
            fatal("Failed writing fifo");
        ncount -= done;
        buf += done;
    }
  return 1;
}