logical         coflg
      common /codat/  coflg