fsplit problems with $ and _

[Jim Pflugrath in Hershey]

when I use fsplit on a Fortran source file that has dollar signs and
underscores in the subroutine and function names, the name of the 
output .f file is missing everything from the $ or _ onwards:
      ...
       SUBROUTINE FH_JUMP(...)

becomes FH.f  as a consequence if there is a SUBROUTINE FH_NEXT(...)
it will overwrite the first FH.f.  Has anyone else seen this behavior?  Is
there a workaround?