Gabriele Cosmo
12 lines
351 B
FortranFixed
12 lines
351 B
FortranFixed
|
|
SUBROUTINE FFUSER(ikey)
|
|
*
|
|
* The routine is called when a *key card is read
|
|
*
|
|
CHARACTER*4 keyw
|
|
*
|
|
call UHTOC(ikey,4,keyw,4)
|
|
if (keyw.eq.'HIST') call uhinit
|
|
*
|
|
END
|