|
version 1.10, 2015/03/07 07:11:07
|
version 1.11, 2015/03/07 07:12:44
|
| Line 289 c "cut" is "lmt". Note: if cut > lmt, t |
|
| Line 289 c "cut" is "lmt". Note: if cut > lmt, t |
|
| | |
| 40 continue | 40 continue |
| c Find the min and max radii | c Find the min and max radii |
| print*,("at 40") |
|
| rmax=0.0 | rmax=0.0 |
| rmin=100000.0 | rmin=100000.0 |
| do 42 i=1,npts | do 42 i=1,npts |
| Line 324 c Loop to cut points deviating from the |
|
| Line 323 c Loop to cut points deviating from the |
|
| cut=0 ! loop counter | cut=0 ! loop counter |
| ncut=0 ! total points cut | ncut=0 ! total points cut |
| 60 continue | 60 continue |
| print*,("at 60") |
|
| | |
| c Find min and max radii | c Find min and max radii |
| rmax=0.0 | rmax=0.0 |
Return to
limb.f
CVS log
Up to [Development] / JSOC / proj / limbfit / apps