USRINI

Here only the call to HISTIN is added to the dummy code.

*$ CREATE USRINI.FOR
*COPY USRINI
*
*=== usrini ===========================================================*
*
      SUBROUTINE USRINI ( WHAT, SDUM )

      INCLUDE '(DBLPRC)'
      INCLUDE '(DIMPAR)'
      INCLUDE '(IOUNIT)'
*
      DIMENSION WHAT (6)
      CHARACTER SDUM*8
*
      CALL HISTIN      ! Call to HBOOK initialization
      RETURN
      END