Describe PICINPT here.

      SUBROUTINE PICINPT(PICNM,Z0,KK,DN,ESZ)