関数を作成する。 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…