diff options
Diffstat (limited to 'Boxit.f')
| -rwxr-xr-x | Boxit.f | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -15,16 +15,16 @@ c****************************************************************************** c*****if only a synthetic spectrum is being plotted, use beginning and c end points of the synthetic spectrum instead of those of the observed c spectrum - if (plotopt .lt. 2) then + if (plotopt < 2) then do i=1,kount - if (xlo .le. xsyn(i)) then + if (xlo <= xsyn(i)) then lim1obs = i go to 10 endif enddo lim1obs = kount 10 do i=lim1obs,kount - if (xhi .lt. xsyn(i)) then + if (xhi < xsyn(i)) then lim2obs = i -1 return endif @@ -36,14 +36,14 @@ c spectrum c*****and here is the same logic when an observed spectrum exists else do i=1,lount - if (xlo .le. xobs(i)) then + if (xlo <= xobs(i)) then lim1obs = i go to 20 endif enddo lim1obs = lount 20 do i=lim1obs,lount - if (xhi .lt. xobs(i)) then + if (xhi < xobs(i)) then lim2obs = i -1 return endif |