eng_callback_c.c File Reference

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <my_real_c.inc>

Go to the source code of this file.

Macros
#define	_FCALL

Functions
void	ARRET (int *n)
void	arret_ (int *n)
void	arret_c (int n)
void	VINTER2DP (double *tf, int *jad, int *jpos, int *jlen, int *llt, double *xx, double *dydx, double *yy)
void	vinter2dp_ (double *tf, int *jad, int *jpos, int *jlen, int *llt, double *xx, double *dydx, double *yy)
void	VINTER2 (my_real_c *tf, int *jad, int *jpos, int *jlen, int *llt, my_real_c *xx, my_real_c *dydx, my_real_c *yy)
void	vinter2_ (my_real_c *tf, int *jad, int *jpos, int *jlen, int *llt, my_real_c *xx, my_real_c *dydx, my_real_c *yy)
void	sav_buf_point_ (int *buf, int *i)
void _FCALL	SAV_BUF_POINT (int *buf, int *i)
void	sav_buf_point (int *buf, int *i)
void	sav_buf_point__ (int *buf, int *i)
void	get_buf_point_ (int *loca, int *ish, int *i)
void _FCALL	GET_BUF_POINT (int *loca, int *ish, int *i)
void	get_buf_point (int *loca, int *ish, int *i)
void	get_buf_point__ (int *loca, int *ish, int *i)
void	get_var_user_f_ (int *buf, int *decalage, double *resultat)
void	get_var_user_f (int *buf, int *decalage, double *resultat)
void _FCALL	GET_VAR_USER_F (int *buf, int *decalage, double *resultat)
void	get_var_user_f__ (int *buf, int *decalage, double *resultat)
void	get_var_user_f_sp_ (int *buf, int *decalage, float *resultat)
void	get_var_user_f_sp (int *buf, int *decalage, float *resultat)
void _FCALL	GET_VAR_USER_F_SP (int *buf, int *decalage, float *resultat)
void	get_var_user_f_sp__ (int *buf, int *decalage, float *resultat)
void	set_var_user_f_ (int *buf, int *decalage, double *variable)
void	set_var_user_f (int *buf, int *decalage, double *variable)
void _FCALL	SET_VAR_USER_F (int *buf, int *decalage, double *variable)
void	set_var_user_f__ (int *buf, int *decalage, double *variable)
void	set_var_user_f_sp_ (int *buf, int *decalage, float *variable)
void	set_var_user_f_sp (int *buf, int *decalage, float *variable)
void _FCALL	SET_VAR_USER_F_SP (int *buf, int *decalage, float *variable)
void	set_var_user_f_sp__ (int *buf, int *decalage, float *variable)
void	get_var_user_i_ (int *buf, int *decalage, int *resultat)
void	get_var_user_i (int *buf, int *decalage, int *resultat)
void _FCALL	GET_VAR_USER_I (int *buf, int *decalage, int *resultat)
void	get_var_user_i__ (int *buf, int *decalage, int *resultat)
void	set_var_user_i_ (int *buf, int *decalage, int *variable)
void	set_var_user_i (int *buf, int *decalage, int *variable)
void _FCALL	SET_VAR_USER_I (int *buf, int *decalage, int *variable)
void	set_var_user_i__ (int *buf, int *decalage, int *variable)
void	get_array_user_f_ (int *buf, int *decalage, double *array, int *array_lenght)
void	get_array_user_f (int *buf, int *decalage, double *array, int *array_lenght)
void _FCALL	GET_ARRAY_USER_F (int *buf, int *decalage, double *array, int *array_lenght)
void	get_array_user_f__ (int *buf, int *decalage, double *array, int *array_lenght)
void	set_array_user_f_ (int *buf, int *decalage, double *array, int *array_lenght)
void	set_array_user_f (int *buf, int *decalage, double *array, int *array_lenght)
void _FCALL	SET_ARRAY_USER_F (int *buf, int *decalage, double *array, int *array_lenght)
void	set_array_user_f__ (int *buf, int *decalage, double *array, int *array_lenght)
void	get_array_user_f_sp_ (int *buf, int *decalage, float *array, int *array_lenght)
void	get_array_user_f_sp (int *buf, int *decalage, float *array, int *array_lenght)
void _FCALL	GET_ARRAY_USER_F_SP (int *buf, int *decalage, float *array, int *array_lenght)
void	get_array_user_f_sp__ (int *buf, int *decalage, float *array, int *array_lenght)
void	set_array_user_f_sp_ (int *buf, int *decalage, float *array, int *array_lenght)
void	set_array_user_f_sp (int *buf, int *decalage, float *array, int *array_lenght)
void _FCALL	SET_ARRAY_USER_F_SP (int *buf, int *decalage, float *array, int *array_lenght)
void	set_array_user_f_sp__ (int *buf, int *decalage, float *array, int *array_lenght)
void	get_array_user_i_ (int *buf, int *decalage, int *array, int *array_lenght)
void	get_array_user_i (int *buf, int *decalage, int *array, int *array_lenght)
void _FCALL	GET_ARRAY_USER_I (int *buf, int *decalage, int *array, int *array_lenght)
void	get_array_user_i__ (int *buf, int *decalage, int *array, int *array_lenght)
void	set_array_user_i_ (int *buf, int *decalage, int *array, int *array_lenght)
void	set_array_user_i (int *buf, int *decalage, int *array, int *array_lenght)
void _FCALL	SET_ARRAY_USER_I (int *buf, int *decalage, int *array, int *array_lenght)
void	set_array_user_i__ (int *buf, int *decalage, int *array, int *array_lenght)
void	get_user_pointer_ (int *buf, int *decalage, int **ptr)
void	get_user_pointer (int *buf, int *decalage, int **ptr)
void _FCALL	GET_USER_POINTER (int *buf, int *decalage, int **ptr)
void	get_user_pointer__ (int *buf, int *decalage, int **ptr)
void	u_vinter2_ (int *jad, int *jpos, int *jlen, int *llt, my_real_c *xx, my_real_c *dydx, my_real_c *yy)
void	u_vinter2 (int *jad, int *jpos, int *jlen, int *llt, my_real_c *xx, my_real_c *dydx, my_real_c *yy)
void _FCALL	U_VINTER2 (int *jad, int *jpos, int *jlen, int *llt, my_real_c *xx, my_real_c *dydx, my_real_c *yy)
void	u_vinter2__ (int *jad, int *jpos, int *jlen, int *llt, my_real_c *xx, my_real_c *dydx, my_real_c *yy)
void	u_vinter2dp_ (int *jad, int *jpos, int *jlen, int *llt, double *xx, double *dydx, double *yy)
void	u_vinter2dp (int *jad, int *jpos, int *jlen, int *llt, double *xx, double *dydx, double *yy)
void _FCALL	U_VINTER2DP (int *jad, int *jpos, int *jlen, int *llt, double *xx, double *dydx, double *yy)
void	u_vinter2dp__ (int *jad, int *jpos, int *jlen, int *llt, double *xx, double *dydx, double *yy)
void	get_var_user_vfunc_ (int *buf, int *llt, int *ifunc, int *jpos, int *jad, int *jlen)
void _FCALL	GET_VAR_USER_VFUNC (int *buf, int *llt, int *ifunc, int *jpos, int *jad, int *jlen)
void	get_var_user_vfunc__ (int *buf, int *llt, int *ifunc, int *jpos, int *jad, int *jlen)
void	get_var_user_vfunc (int *buf, int *llt, int *ifunc, int *jpos, int *jad, int *jlen)

Variables
int *	sav_buf [1000]

Macro Definition Documentation

_FCALL

#define _FCALL

Definition at line 28 of file eng_callback_c.c.

Function Documentation

ARRET()

void ARRET

(

int *

n

)

arret_()

void arret_

(

int *

n

)

arret_c()

void arret_c

(

int

n

)

---

Calls the Fortran Arret routine for termination

n is the error termination

Definition at line 132 of file write_routtines.c.

{
/*Appel a une routine Fortran */
#ifdef _WIN64
 ARRET(&n);
#else
 arret_(&n);
#endif
}

GET_ARRAY_USER_F()

void _FCALL GET_ARRAY_USER_F	(	int *	buf,
		int *	decalage,
		double *	array,
		int *	array_lenght )

Definition at line 207 of file eng_callback_c.c.

{get_array_user_f_(buf,decalage,array,array_lenght);}

get_array_user_f()

void get_array_user_f	(	int *	buf,
		int *	decalage,
		double *	array,
		int *	array_lenght )

Definition at line 203 of file eng_callback_c.c.

{get_array_user_f_(buf,decalage,array,array_lenght);}

get_array_user_f_()

void get_array_user_f_	(	int *	buf,
		int *	decalage,
		double *	array,
		int *	array_lenght )

Definition at line 193 of file eng_callback_c.c.

{
 int i;
 double *ar;
 ar = ((double *) (sav_buf[*buf]))+ (*decalage) -1;
 for (i=0;i<(*array_lenght);i++) 
  { *(array+i)= *(ar+i); }
}

get_array_user_f__()

void get_array_user_f__	(	int *	buf,
		int *	decalage,
		double *	array,
		int *	array_lenght )

Definition at line 211 of file eng_callback_c.c.

{get_array_user_f_(buf,decalage,array,array_lenght);}

GET_ARRAY_USER_F_SP()

void _FCALL GET_ARRAY_USER_F_SP	(	int *	buf,
		int *	decalage,
		float *	array,
		int *	array_lenght )

Definition at line 251 of file eng_callback_c.c.

{get_array_user_f_sp_(buf,decalage,array,array_lenght);}

get_array_user_f_sp()

void get_array_user_f_sp	(	int *	buf,
		int *	decalage,
		float *	array,
		int *	array_lenght )

Definition at line 247 of file eng_callback_c.c.

{get_array_user_f_sp_(buf,decalage,array,array_lenght);}

get_array_user_f_sp_()

void get_array_user_f_sp_	(	int *	buf,
		int *	decalage,
		float *	array,
		int *	array_lenght )

Definition at line 237 of file eng_callback_c.c.

{
 int i;
 float *ar;
 ar = ((float *) (sav_buf[*buf]))+ (*decalage) -1;
 for (i=0;i<(*array_lenght);i++) 
  { *(array+i)= *(ar+i); }
}

get_array_user_f_sp__()

void get_array_user_f_sp__	(	int *	buf,
		int *	decalage,
		float *	array,
		int *	array_lenght )

Definition at line 255 of file eng_callback_c.c.

{get_array_user_f_sp_(buf,decalage,array,array_lenght);}

GET_ARRAY_USER_I()

void _FCALL GET_ARRAY_USER_I	(	int *	buf,
		int *	decalage,
		int *	array,
		int *	array_lenght )

Definition at line 295 of file eng_callback_c.c.

{get_array_user_i_(buf,decalage,array,array_lenght);}

get_array_user_i()

void get_array_user_i	(	int *	buf,
		int *	decalage,
		int *	array,
		int *	array_lenght )

Definition at line 291 of file eng_callback_c.c.

{get_array_user_i_(buf,decalage,array,array_lenght);}

get_array_user_i_()

void get_array_user_i_	(	int *	buf,
		int *	decalage,
		int *	array,
		int *	array_lenght )

Definition at line 281 of file eng_callback_c.c.

{
 int i;
 int *ar;
 ar = ((int *) (sav_buf[*buf]))+ (*decalage) -1;
 for (i=0;i<(*array_lenght);i++) 
  { *(array+i)= *(ar+i); }
}

get_array_user_i__()

void get_array_user_i__	(	int *	buf,
		int *	decalage,
		int *	array,
		int *	array_lenght )

Definition at line 299 of file eng_callback_c.c.

{get_array_user_i_(buf,decalage,array,array_lenght);}

GET_BUF_POINT()

void _FCALL GET_BUF_POINT	(	int *	loca,
		int *	ish,
		int *	i )

Definition at line 69 of file eng_callback_c.c.

{*ish = (sav_buf[*i] - loca);}

get_buf_point()

void get_buf_point	(	int *	loca,
		int *	ish,
		int *	i )

Definition at line 72 of file eng_callback_c.c.

{*ish = (sav_buf[*i] - loca);}

get_buf_point_()

void get_buf_point_	(	int *	loca,
		int *	ish,
		int *	i )

Definition at line 66 of file eng_callback_c.c.

{*ish = (sav_buf[*i] - loca);}

get_buf_point__()

void get_buf_point__	(	int *	loca,
		int *	ish,
		int *	i )

Definition at line 76 of file eng_callback_c.c.

{*ish = (sav_buf[*i] - loca);}

GET_USER_POINTER()

void _FCALL GET_USER_POINTER	(	int *	buf,
		int *	decalage,
		int **	ptr )

Definition at line 336 of file eng_callback_c.c.

{get_user_pointer_(buf,decalage,ptr);}

get_user_pointer()

void get_user_pointer	(	int *	buf,
		int *	decalage,
		int **	ptr )

Definition at line 332 of file eng_callback_c.c.

{get_user_pointer_(buf,decalage,ptr);}

get_user_pointer_()

void get_user_pointer_	(	int *	buf,
		int *	decalage,
		int **	ptr )

Definition at line 326 of file eng_callback_c.c.

{
 *ptr = sav_buf[*buf]+ (*decalage)-1;
}

get_user_pointer__()

void get_user_pointer__	(	int *	buf,
		int *	decalage,
		int **	ptr )

Definition at line 340 of file eng_callback_c.c.

{get_user_pointer_(buf,decalage,ptr);}

GET_VAR_USER_F()

void _FCALL GET_VAR_USER_F	(	int *	buf,
		int *	decalage,
		double *	resultat )

Definition at line 92 of file eng_callback_c.c.

{get_var_user_f_(buf,decalage,resultat);}

get_var_user_f()

void get_var_user_f	(	int *	buf,
		int *	decalage,
		double *	resultat )

Definition at line 88 of file eng_callback_c.c.

{get_var_user_f_(buf,decalage,resultat);}

get_var_user_f_()

void get_var_user_f_	(	int *	buf,
		int *	decalage,
		double *	resultat )

Definition at line 80 of file eng_callback_c.c.

{
 double *res;
   res= ((double*) (sav_buf[*buf]) )+ (*decalage -1);
   *resultat = *res;
}

get_var_user_f__()

void get_var_user_f__	(	int *	buf,
		int *	decalage,
		double *	resultat )

Definition at line 96 of file eng_callback_c.c.

{get_var_user_f_(buf,decalage,resultat);}

GET_VAR_USER_F_SP()

void _FCALL GET_VAR_USER_F_SP	(	int *	buf,
		int *	decalage,
		float *	resultat )

Definition at line 112 of file eng_callback_c.c.

{get_var_user_f_sp_(buf,decalage,resultat);}

get_var_user_f_sp()

void get_var_user_f_sp	(	int *	buf,
		int *	decalage,
		float *	resultat )

Definition at line 108 of file eng_callback_c.c.

{get_var_user_f_sp_(buf,decalage,resultat);}

get_var_user_f_sp_()

void get_var_user_f_sp_	(	int *	buf,
		int *	decalage,
		float *	resultat )

Definition at line 100 of file eng_callback_c.c.

{
 float *res;
   res= ((float*) (sav_buf[*buf]) )+ (*decalage -1);
   *resultat = *res;
}

get_var_user_f_sp__()

void get_var_user_f_sp__	(	int *	buf,
		int *	decalage,
		float *	resultat )

Definition at line 116 of file eng_callback_c.c.

{get_var_user_f_sp_(buf,decalage,resultat);}

GET_VAR_USER_I()

void _FCALL GET_VAR_USER_I	(	int *	buf,
		int *	decalage,
		int *	resultat )

Definition at line 166 of file eng_callback_c.c.

{get_var_user_i_(buf,decalage,resultat);}

get_var_user_i()

void get_var_user_i	(	int *	buf,
		int *	decalage,
		int *	resultat )

Definition at line 163 of file eng_callback_c.c.

{get_var_user_i_(buf,decalage,resultat);}

get_var_user_i_()

void get_var_user_i_	(	int *	buf,
		int *	decalage,
		int *	resultat )

Definition at line 156 of file eng_callback_c.c.

{
 int *res;
 res= (int*) (sav_buf[*buf]+ (*decalage) -1);
 *resultat = *res;
}

get_var_user_i__()

void get_var_user_i__	(	int *	buf,
		int *	decalage,
		int *	resultat )

Definition at line 169 of file eng_callback_c.c.

{get_var_user_i_(buf,decalage,resultat);}

GET_VAR_USER_VFUNC()

void _FCALL GET_VAR_USER_VFUNC	(	int *	buf,
		int *	llt,
		int *	ifunc,
		int *	jpos,
		int *	jad,
		int *	jlen )

Definition at line 410 of file eng_callback_c.c.

{ get_var_user_vfunc_(buf,llt,ifunc,jpos,jad,jlen);}

get_var_user_vfunc()

void get_var_user_vfunc	(	int *	buf,
		int *	llt,
		int *	ifunc,
		int *	jpos,
		int *	jad,
		int *	jlen )

Definition at line 418 of file eng_callback_c.c.

{  get_var_user_vfunc_(buf,llt,ifunc,jpos,jad,jlen); }

get_var_user_vfunc_()

void get_var_user_vfunc_	(	int *	buf,
		int *	llt,
		int *	ifunc,
		int *	jpos,
		int *	jad,
		int *	jlen )

Definition at line 395 of file eng_callback_c.c.

{
 int i,fin;
 int *ar;
 fin = *llt;
 ar = (int *) sav_buf[*buf];
 
 for(i=0;i<fin;i++)
    {
     jad[i]  = 0.5* ar[ifunc[i]-1  ] +1 ;
     jlen[i] = 0.5* ar[ifunc[i]] - jad[i] - jpos[i] ;
    }
}

get_var_user_vfunc__()

void get_var_user_vfunc__	(	int *	buf,
		int *	llt,
		int *	ifunc,
		int *	jpos,
		int *	jad,
		int *	jlen )

Definition at line 414 of file eng_callback_c.c.

{ get_var_user_vfunc_(buf,llt,ifunc,jpos,jad,jlen);}

SAV_BUF_POINT()

void _FCALL SAV_BUF_POINT	(	int *	buf,
		int *	i )

Definition at line 55 of file eng_callback_c.c.

{sav_buf_point_(buf,i);}

sav_buf_point()

void sav_buf_point	(	int *	buf,
		int *	i )

Definition at line 58 of file eng_callback_c.c.

{sav_buf_point_(buf,i);}

sav_buf_point_()

void sav_buf_point_	(	int *	buf,
		int *	i )

Definition at line 45 of file eng_callback_c.c.

{
  if(*i<0||*i>=1000){
       fprintf(stderr,"ERROR in SAV_BUF: table overflow\n");
       arret_c(2);
  }
  sav_buf[*i] = buf;
}

sav_buf_point__()

void sav_buf_point__	(	int *	buf,
		int *	i )

Definition at line 62 of file eng_callback_c.c.

{sav_buf_point_(buf,i);}

SET_ARRAY_USER_F()

void _FCALL SET_ARRAY_USER_F	(	int *	buf,
		int *	decalage,
		double *	array,
		int *	array_lenght )

Definition at line 229 of file eng_callback_c.c.

{set_array_user_f_(buf,decalage,array,array_lenght);}

set_array_user_f()

void set_array_user_f	(	int *	buf,
		int *	decalage,
		double *	array,
		int *	array_lenght )

Definition at line 225 of file eng_callback_c.c.

{set_array_user_f_(buf,decalage,array,array_lenght);}

set_array_user_f_()

void set_array_user_f_	(	int *	buf,
		int *	decalage,
		double *	array,
		int *	array_lenght )

Definition at line 215 of file eng_callback_c.c.

{
 int i;
 double *ar;
 ar = ((double *) (sav_buf[*buf]))+ (*decalage) -1;
 for (i=0;i<(*array_lenght);i++)
  { *(ar+1) = *(array+i);}
}

set_array_user_f__()

void set_array_user_f__	(	int *	buf,
		int *	decalage,
		double *	array,
		int *	array_lenght )

Definition at line 233 of file eng_callback_c.c.

{set_array_user_f_(buf,decalage,array,array_lenght);}

SET_ARRAY_USER_F_SP()

void _FCALL SET_ARRAY_USER_F_SP	(	int *	buf,
		int *	decalage,
		float *	array,
		int *	array_lenght )

Definition at line 273 of file eng_callback_c.c.

{set_array_user_f_sp_(buf,decalage,array,array_lenght);}

set_array_user_f_sp()

void set_array_user_f_sp	(	int *	buf,
		int *	decalage,
		float *	array,
		int *	array_lenght )

Definition at line 269 of file eng_callback_c.c.

{set_array_user_f_sp_(buf,decalage,array,array_lenght);}

set_array_user_f_sp_()

void set_array_user_f_sp_	(	int *	buf,
		int *	decalage,
		float *	array,
		int *	array_lenght )

Definition at line 259 of file eng_callback_c.c.

{
 int i;
 float *ar;
 ar = ((float *) (sav_buf[*buf]))+ (*decalage) -1;
 for (i=0;i<(*array_lenght);i++) 
  { *(ar+i) = *(array+i);}
}

set_array_user_f_sp__()

void set_array_user_f_sp__	(	int *	buf,
		int *	decalage,
		float *	array,
		int *	array_lenght )

Definition at line 277 of file eng_callback_c.c.

{set_array_user_f_sp_(buf,decalage,array,array_lenght);}

SET_ARRAY_USER_I()

void _FCALL SET_ARRAY_USER_I	(	int *	buf,
		int *	decalage,
		int *	array,
		int *	array_lenght )

Definition at line 318 of file eng_callback_c.c.

{set_array_user_i_(buf,decalage,array,array_lenght);}

set_array_user_i()

void set_array_user_i	(	int *	buf,
		int *	decalage,
		int *	array,
		int *	array_lenght )

Definition at line 314 of file eng_callback_c.c.

{set_array_user_i_(buf,decalage,array,array_lenght);}

set_array_user_i_()

void set_array_user_i_	(	int *	buf,
		int *	decalage,
		int *	array,
		int *	array_lenght )

Definition at line 304 of file eng_callback_c.c.

{
 int i;
 int *ar;
 ar = ((int *) (sav_buf[*buf]))+ (*decalage) -1;
 for (i=0;i<(*array_lenght);i++) 
  { *(ar+i) = *(array+i); }
}

set_array_user_i__()

void set_array_user_i__	(	int *	buf,
		int *	decalage,
		int *	array,
		int *	array_lenght )

Definition at line 322 of file eng_callback_c.c.

{set_array_user_i_(buf,decalage,array,array_lenght);}

SET_VAR_USER_F()

void _FCALL SET_VAR_USER_F	(	int *	buf,
		int *	decalage,
		double *	variable )

Definition at line 130 of file eng_callback_c.c.

{set_var_user_f_(buf,decalage,variable);}

set_var_user_f()

void set_var_user_f	(	int *	buf,
		int *	decalage,
		double *	variable )

Definition at line 127 of file eng_callback_c.c.

{set_var_user_f_(buf,decalage,variable);}

set_var_user_f_()

void set_var_user_f_	(	int *	buf,
		int *	decalage,
		double *	variable )

Definition at line 120 of file eng_callback_c.c.

{
 double *res;
   res= ((double*)(sav_buf[*buf])) +(*decalage -1);
   *res = *variable;
}

set_var_user_f__()

void set_var_user_f__	(	int *	buf,
		int *	decalage,
		double *	variable )

Definition at line 134 of file eng_callback_c.c.

{set_var_user_f_(buf,decalage,variable);}

SET_VAR_USER_F_SP()

void _FCALL SET_VAR_USER_F_SP	(	int *	buf,
		int *	decalage,
		float *	variable )

Definition at line 148 of file eng_callback_c.c.

{set_var_user_f_sp_(buf,decalage,variable);}

set_var_user_f_sp()

void set_var_user_f_sp	(	int *	buf,
		int *	decalage,
		float *	variable )

Definition at line 145 of file eng_callback_c.c.

{set_var_user_f_sp_(buf,decalage,variable);}

set_var_user_f_sp_()

void set_var_user_f_sp_	(	int *	buf,
		int *	decalage,
		float *	variable )

Definition at line 138 of file eng_callback_c.c.

{
 float *res;
   res= ((float*) (sav_buf[*buf]))+ (*decalage -1);
   *res = *variable;
}

set_var_user_f_sp__()

void set_var_user_f_sp__	(	int *	buf,
		int *	decalage,
		float *	variable )

Definition at line 152 of file eng_callback_c.c.

{set_var_user_f_sp_(buf,decalage,variable);}

SET_VAR_USER_I()

void _FCALL SET_VAR_USER_I	(	int *	buf,
		int *	decalage,
		int *	variable )

Definition at line 185 of file eng_callback_c.c.

{set_var_user_i_(buf,decalage,variable);}

set_var_user_i()

void set_var_user_i	(	int *	buf,
		int *	decalage,
		int *	variable )

Definition at line 181 of file eng_callback_c.c.

{set_var_user_i_(buf,decalage,variable);}

set_var_user_i_()

void set_var_user_i_	(	int *	buf,
		int *	decalage,
		int *	variable )

Definition at line 173 of file eng_callback_c.c.

{
 int *res;
 res= (int*) (sav_buf[*buf]+ (*decalage) -1);
 *res = *variable;
}

set_var_user_i__()

void set_var_user_i__	(	int *	buf,
		int *	decalage,
		int *	variable )

Definition at line 189 of file eng_callback_c.c.

{set_var_user_i_(buf,decalage,variable);}

U_VINTER2()

void _FCALL U_VINTER2	(	int *	jad,
		int *	jpos,
		int *	jlen,
		int *	llt,
		my_real_c *	xx,
		my_real_c *	dydx,
		my_real_c *	yy )

Definition at line 362 of file eng_callback_c.c.

{u_vinter2_(jad,jpos,jlen,llt,xx,dydx,yy);}

u_vinter2()

void u_vinter2	(	int *	jad,
		int *	jpos,
		int *	jlen,
		int *	llt,
		my_real_c *	xx,
		my_real_c *	dydx,
		my_real_c *	yy )

Definition at line 358 of file eng_callback_c.c.

{u_vinter2_(jad,jpos,jlen,llt,xx,dydx,yy);}

u_vinter2_()

void u_vinter2_	(	int *	jad,
		int *	jpos,
		int *	jlen,
		int *	llt,
		my_real_c *	xx,
		my_real_c *	dydx,
		my_real_c *	yy )

Definition at line 345 of file eng_callback_c.c.

{
 my_real_c *tf;
 tf = (my_real_c *)sav_buf[6];
 
// Calling a Fortran Routine 
#ifdef _WIN64
 VINTER2(tf,jad,jpos,jlen,llt,xx,dydx,yy);
#else
 vinter2_(tf,jad,jpos,jlen,llt,xx,dydx,yy);
#endif
}

u_vinter2__()

void u_vinter2__	(	int *	jad,
		int *	jpos,
		int *	jlen,
		int *	llt,
		my_real_c *	xx,
		my_real_c *	dydx,
		my_real_c *	yy )

Definition at line 366 of file eng_callback_c.c.

{u_vinter2_(jad,jpos,jlen,llt,xx,dydx,yy);}

U_VINTER2DP()

void _FCALL U_VINTER2DP	(	int *	jad,
		int *	jpos,
		int *	jlen,
		int *	llt,
		double *	xx,
		double *	dydx,
		double *	yy )

Definition at line 387 of file eng_callback_c.c.

{u_vinter2dp_(jad,jpos,jlen,llt,xx,dydx,yy);}

u_vinter2dp()

void u_vinter2dp	(	int *	jad,
		int *	jpos,
		int *	jlen,
		int *	llt,
		double *	xx,
		double *	dydx,
		double *	yy )

Definition at line 383 of file eng_callback_c.c.

{u_vinter2dp_(jad,jpos,jlen,llt,xx,dydx,yy);}

u_vinter2dp_()

void u_vinter2dp_	(	int *	jad,
		int *	jpos,
		int *	jlen,
		int *	llt,
		double *	xx,
		double *	dydx,
		double *	yy )

Definition at line 370 of file eng_callback_c.c.

{
 double *tf;
 tf= (double*)sav_buf[6];
 
/*Appel a une routine Fortran */
#ifdef _WIN64
 VINTER2DP(tf,jad,jpos,jlen,llt,xx,dydx,yy);
#else
 vinter2dp_(tf,jad,jpos,jlen,llt,xx,dydx,yy);
#endif
}

u_vinter2dp__()

void u_vinter2dp__	(	int *	jad,
		int *	jpos,
		int *	jlen,
		int *	llt,
		double *	xx,
		double *	dydx,
		double *	yy )

Definition at line 391 of file eng_callback_c.c.

{u_vinter2dp_(jad,jpos,jlen,llt,xx,dydx,yy);}

VINTER2()

void VINTER2	(	my_real_c *	tf,
		int *	jad,
		int *	jpos,
		int *	jlen,
		int *	llt,
		my_real_c *	xx,
		my_real_c *	dydx,
		my_real_c *	yy )

vinter2_()

void vinter2_	(	my_real_c *	tf,
		int *	jad,
		int *	jpos,
		int *	jlen,
		int *	llt,
		my_real_c *	xx,
		my_real_c *	dydx,
		my_real_c *	yy )

VINTER2DP()

void VINTER2DP	(	double *	tf,
		int *	jad,
		int *	jpos,
		int *	jlen,
		int *	llt,
		double *	xx,
		double *	dydx,
		double *	yy )

vinter2dp_()

void vinter2dp_	(	double *	tf,
		int *	jad,
		int *	jpos,
		int *	jlen,
		int *	llt,
		double *	xx,
		double *	dydx,
		double *	yy )

Variable Documentation

sav_buf

int* sav_buf[1000]

Definition at line 31 of file eng_callback_c.c.