&DIACTL
  lgpshort=.false.
  lgplong=.false.
  /