00001 #ifndef PPCSOLVER_H 00002 #define PPCSOLVER_H 00003 00004 #include <stdio.h> 00005 struct np_glob_vec; 00006 struct mt_glob_vec; 00007 struct nonlinman; 00008 00009 void par_solve_pcouplprob (); 00010 00011 void par_newton_raphson_parcoupl_comp (long lcid); 00012 void par_nonstat_trfel_init (long lcid, np_glob_vec &np_gv); 00013 void par_visco_mefel_init(long lcid, mt_glob_vec &mt_gv); 00014 long par_one_step_trfel_linear (long lcid,double time, double dt, long istep, long li, np_glob_vec &np_gv); 00015 long par_one_step_trfel_nonlinear (long lcid,double time, double dt, long istep, long li, np_glob_vec &np_gv); 00016 long par_one_step_mefel (long lcid,double time, double dt, long istep, long li, mt_glob_vec &mt_gv); 00017 double par_gnewton_raphson_one_step_mefel(long lcid, nonlinman *nlman, double *fa, double *ra, double *fb, double *dr, 00018 double *fi,long istep, long &j, long li, long ini, double ierr); 00019 00020 void par_newton_raphson_parcoupl (long lcid); 00021 void par_newton_raphson_parcoupl_lin (long lcid); 00022 void par_newton_raphson_parcoupl_nonlin (long lcid); 00023 00024 00025 #endif