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

subroutine z8zpbd
c
c kpno: only obvious constants are initialized in this block data.
c all other initialization occurs in z8zpii.
c
      end