SUBROUTINE G_append(prefix,suffix)
*----------------------------------------------------------------------
*- 
*-   Purpose and Methods : Put "suffix" as a suffix on the message
*- 
*-   Inputs  : prefix	- prefix to add onto suffix
*-           : suffix   - suffix to be prepended
*-   Outputs : prefix	- suffixed prefix
*- 
*-   Created  17-May-1994   Kevin B. Beard, Hampton U. 
* $Log: g_append.f,v $
* Revision 1.1  1994/05/27 16:11:41  cdaq
* Initial revision
*
*----------------------------------------------------------------------
      IMPLICIT NONE
      SAVE 
      character*(*) prefix,suffix
*
      integer m
*
      INCLUDE 'gen_routines.dec'
*
*----------------------------------------------------------------------
*
        IF(prefix.EQ.' ') THEN
          prefix= suffix
          RETURN
        ELSEIF(suffix.EQ.' ') THEN
          RETURN
        ENDIF
*
	call no_leading_blanks(prefix)
	m= G_important_length(prefix)
        IF(LEN(prefix).GT.m) prefix(m+1:)= suffix
*
        RETURN 
        END