PARAMETER (NWPAWC=50000)
      COMMON/PAWC/H(NWPAWC)

*     RUN test
      CALL RUNTST
*     HBOOK output---
      CALL HLIMIT(NWPAWC)
      CALL RHBOOK
      CALL THBOOK
C     CALL HISTDO
*     output
      LREC=1024 
      CALL HROPEN(27,'RUNPLOT','RUN.HIST','N',LREC,ISTAT)
      WRITE(*,*) ' ISTAT = ',ISTAT
      CALL HROUT(0,ICYCLE,'N')
      CALL HREND('RUNPLOT')
      END
      FUNCTION XFUNCT(X)
      XFUNCT=0.0  
      END