EIC code displayed by LXR |
|
|
|
|||
Warning, file /geant4/examples/extended/electromagnetic/TestEm3/geant3/src/ffuser.F was not indexed or was modified since last indexation (in which case cross-reference links may be missing, inaccurate or erroneous).
0001 0002 SUBROUTINE FFUSER(ikey) 0003 * 0004 * The routine is called when a *key card is read 0005 * 0006 CHARACTER*4 keyw 0007 * 0008 call UHTOC(ikey,4,keyw,4) 0009 if (keyw.eq.'HIST') call uhinit 0010 * 0011 END
| [ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
|
This page was automatically generated by the 2.3.7 LXR engine. The LXR team |
|