blob: 62fa63a1600b314d702c77c1c05fd939a4c39654 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
subroutine boxit
c******************************************************************************
c This subroutine figures out the point numbers of the wavelength
c boundaries for synthetic spectrum plots
c******************************************************************************
implicit real*8 (a-h,o-z)
include 'Atmos.com'
include 'Pstuff.com'
include 'Linex.com'
include 'Equivs.com'
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 < 2) then
do i=1,kount
if (xlo <= xsyn(i)) then
lim1obs = i
go to 10
endif
enddo
lim1obs = kount
10 do i=lim1obs,kount
if (xhi < xsyn(i)) then
lim2obs = i -1
return
endif
enddo
lim2obs = kount
return
c*****and here is the same logic when an observed spectrum exists
else
do i=1,lount
if (xlo <= xobs(i)) then
lim1obs = i
go to 20
endif
enddo
lim1obs = lount
20 do i=lim1obs,lount
if (xhi < xobs(i)) then
lim2obs = i -1
return
endif
enddo
lim2obs = lount
return
endif
end
|
