dashln.f « portlib « nspp « gio « sys - bb_mirror/jhunkeler/iraf-linux.git -

about summary refs log tree commit diff

path: root/sys/gio/nspp/portlib/dashln.f

blob: 35ac68517c0f12dccc3e1e56a0bf8ac953852823 (plain) (blame)

subroutine dashln (ipat)
      jpat = ior(ishift(ipat,6),ishift(ipat,-4))
      call optn (4hdpat,jpat)
      return
      end