00001 #include "multpvalt.h" 00002 #include "globalt.h" 00003 00004 multpvalt::multpvalt() 00005 { 00006 v = 0.0; 00007 } 00008 00009 multpvalt::~multpvalt() 00010 { 00011 } 00012 00013 long multpvalt::read(FILE *in) 00014 { 00015 if (Tp->tprob == nonstationary_problem || Tp->tprob == nonlinear_nonstationary_problem || Tp->tprob == growing_np_problem || Tp->tprob == growing_np_problem_nonlin) 00016 { 00017 fscanf (in,"%lf",&v); 00018 } 00019 return(0); 00020 } 00021 00022 double multpvalt::getval(void) 00023 { 00024 double ret,t; 00025 00026 switch (Tp->tprob){ 00027 case nonstationary_problem: 00028 case nonlinear_nonstationary_problem: 00029 case growing_np_problem: 00030 case growing_np_problem_nonlin:{ 00031 t=Tp->time; 00032 ret=v*Tb->lc[0].give_fact (t); 00033 return(ret); 00034 } 00035 default:{ 00036 fprintf (stderr,"\n\n"); 00037 } 00038 } 00039 00040 return ret; 00041 } 00042 00043 long multpvalt::read_prop(FILE *in, long lc) 00044 { 00045 /* 00046 fscanf(in, "%ld", &nlc); 00047 if ((nlc < 1) || (nlc > lc)) 00048 return(2); 00049 fscanf(in, "%le", &f); 00050 //fgets(func, 255, in); 00051 xfscanf(in, "%255s", func); 00052 00053 */ 00054 return(0); 00055 00056 }