subroutine wrtstr(header,label,text)
c
c=======================================================================
c                                                                    ===
c  This routine concadenates the string LABEL and TEXT into the      ===
c  HEADER string. Leading and trailing blank spaces in TEXT are      ===
c  eliminated.                                                       ===
c                                                                    ===
c=======================================================================
c
c-----------------------------------------------------------------------
c  Define local data.
c-----------------------------------------------------------------------
c
      integer endtxt,notxt,strtxt
      character*(*) header,label,text
c
c=======================================================================
c  Begin executable code.
c=======================================================================
c
c  Eliminate leading and trailing blank spaces.
c
      call length (text,notxt,strtxt,endtxt)
c
c  Eliminate an unnecessary "comma" at the end of the string.
c
      if(text(endtxt:endtxt).eq.',') endtxt=endtxt-1
c
c  Concadenate HEADER string.
c
      header=label//text(strtxt:endtxt)
      return
      end