source: trunk/examples/extended/electromagnetic/TestEm3/geant3/src/ffuser.F @ 1309

Last change on this file since 1309 was 807, checked in by garnier, 16 years ago

update
File size: 351 bytes
Line 
1
2      SUBROUTINE FFUSER(ikey)
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*                                                                               
11      END                                                                       
Note: See TracBrowser for help on using the repository browser.