ffuser.F

Go to the documentation of this file.

      SUBROUTINE ffuser(ikey)
*
*     The routine is called when a *key card is read
*
      CHARACTER*4  keyw
*
      call uhtoc(ikey,4,keyw,4)
      if (keyw.eq.'HIST') call uhinit          
*                                                                               
      END