*-- Author : S.Burke / J.V. Morris
      SUBROUTINE FKHIST(LUN,ID,PCT,PMAX)
**********************************************************************                                        
*                                                                    *                                        
* Print a simple histogram (a row of stars)                          *                                        
*                                                                    *                                        
* Print 100*PCT/PMAX stars (max 100) to LUN with id # ID             *                                        
*                                                                    *                                        
**********************************************************************                                        
**********************************************************************                                        
*