source:
trunk/examples/extended/electromagnetic/TestEm14/geant3/src/ffuser.F
@
1187
Last change on this file since 1187 was 807, checked in by , 16 years ago | |
---|---|
File size: 351 bytes |
Rev | Line | |
---|---|---|
[807] | 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.