logical phot_dip(0:40)
      common/phot_dip/phot_dip