関数を作成する。
Binのレンジを与える⇒Zの最大、BB_TOP,BB_BOT、BB_HEIを得る。
real function height(int)
!convert binnumber 2 height
integer :: int
logical :: ldeg=.true.
if(int>0)then
height=int*d_range +sheight -d_range/2.
else
height=-99.9
endif
end function height
Contains内に記述しているのでMainのパラメータは引き継ぐことができる。
★BB検出の関数★
IN:探査範囲、OUT:BB_TOP、BB_BOT、BB_HEI
★