Geant4  10.02.p03
TestEm14/geant3/src/ffuser.F File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine ffuser (ikey)
 

Function/Subroutine Documentation

◆ ffuser()

subroutine ffuser (   ikey)

Definition at line 3 of file TestEm14/geant3/src/ffuser.F.

3 *
4 * The routine is called when a *key card is read
5 *
6  CHARACTER*4 keyw
7 *
8  call uhtoc(ikey,4,keyw,4)
9  if (keyw.eq.'HIST') call uhinit
10 *
subroutine uhinit
Here is the call graph for this function: