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
