| |
| | [No title] |
 | | purpose c c test program for the MUDPACK solver mud2 c c... |
 | | required MUDPACK files c c mud2.f, mudcom.f c c ********************************************************* c ********************************************************* c c sample program/test driver for mud2 c c ********************************************************** c ********************************************************** c c a sample program/test driver for mud2 is below. |
 | | y=yd boundary y = yd x = xory call exact(x,y,pxx,pyy,px,py,pe) alfa = x gbdy = py + alfa*pe return end if end subroutine exact(x,y,pxx,pyy,px,py,pe) c c this subroutine is used to set an exact solution for testing mud2 c implicit none real x,y,pxx,pyy,px,py,pe pe = x**5+y**5+1. |
| www.cisl.ucar.edu /css/software/mudpack/tmud2.txt (276 words) |
|