1 #ifndef lint 2 static char vcid[] = "$Id: exnonlin.c,v 1.1 1996/01/05 23:27:00 bsmith Exp bsmith $"; 3 #endif 4 /* 5 Code for Time Stepping for explict non-linear problems. 6 */ 7 #include <math.h> 8 #include "tsimpl.h" /*I "ts.h" I*/ 9 #include "pinclude/pviewer.h" 10 11 12 static int TSSetUp_ExNonLin(TS ts) 13 { 14 Vec sol = ts->vec_sol; 15 int ierr; 16 17 /* form initial functions */ 18 ierr = (*ts->computeinitial)(ts,sol,ts->gusP); CHKERRQ(ierr); 19 20 21 22 23 return 0; 24 } 25 26 static int TSStep_ExNonLin(TS ts,int *steps) 27 { 28 Vec sol = ts->vec_sol; 29 int ierr; 30 31 32 33 34 return 0; 35 } 36 /*------------------------------------------------------------*/ 37 static int TSDestroy_ExNonLin(PetscObject obj ) 38 { 39 TS ts = (TS) ts; 40 41 return 0; 42 } 43 /*------------------------------------------------------------*/ 44 45 static int TSSetFromOptions_ExNonLin(TS ts) 46 { 47 48 return 0; 49 } 50 51 static int TSPrintHelp_ExNonLin(TS ts) 52 { 53 54 return 0; 55 } 56 57 static int TSView_ExNonLin(PetscObject obj,Viewer viewer) 58 { 59 TS ts = (TS)obj; 60 61 return 0; 62 } 63 64 /* ------------------------------------------------------------ */ 65 int TSCreate_ExNonLin(TS ts ) 66 { 67 ts->type = 0; 68 ts->setup = TSSetUp_ExNonLin; 69 ts->step = TSStep_ExNonLin; 70 ts->destroy = TSDestroy_ExNonLin; 71 ts->printhelp = TSPrintHelp_ExNonLin; 72 ts->setfromoptions = TSSetFromOptions_ExNonLin; 73 ts->view = TSView_ExNonLin; 74 75 return 0; 76 } 77