pointer_init-BCGS.inc

      ipd = 0
      iph = 0
      ipq = 0
      ipr = 0
      ipu = 0
      ipg = 0
      ipv = 0
      ipw = 0
      ipwork = 0
      ipxold = 0