source:
trunk/examples/extended/electromagnetic/TestEm3/geant3/src/ffuser.F@
1230
| Last change on this file since 1230 was 807, checked in by , 17 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.
