Parent Directory | Revision Log | Patch
revision 1.29 by pam-fi, Tue Aug 21 15:21:52 2007 UTC | revision 1.30 by pam-fi, Tue Aug 28 13:25:50 2007 UTC | |
---|---|---|
# | Line 2243 c $ (i | Line 2243 c $ (i |
2243 | ym3=yPAM | ym3=yPAM |
2244 | zm3=zPAM | zm3=zPAM |
2245 | * find the circle passing through the three points | * find the circle passing through the three points |
2246 | c$$$ call tricircle(3,xp,zp,angp,resp,chi | |
2247 | c$$$ $ ,xc,zc,radius,iflag) | |
2248 | iflag = DEBUG | |
2249 | call tricircle(3,xp,zp,angp,resp,chi | call tricircle(3,xp,zp,angp,resp,chi |
2250 | $ ,xc,zc,radius,iflag) | $ ,xc,zc,radius,iflag) |
2251 | c print*,xc,zc,radius | c print*,xc,zc,radius |
|
ViewVC Help | |
Powered by ViewVC 1.1.23 |