logical poiflag
      common/flags/poiflag
      common/flag1/ifld,ifoclal,imatlab