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 | |
| 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.
