Analyzer/UTILSUBS/g_add_path.f - view

Return to g_add_path.f CVS log

Up to [HallC] / Analyzer / UTILSUBS

File: [HallC] / Analyzer / UTILSUBS / g_add_path.f (download)
Revision: 1.1, Wed Feb 9 14:13:19 1994 UTC (30 years, 7 months ago) by cdaq
Branch: MAIN
CVS Tags: spring03, sep0596, sep-26-2002, sep-25-2002, sep-24-2002, sep-09-2002, sane, pionct, online07, online04, online03, oct1199, oct1194, nov2894, nov2696, mduality, may2495, may1894, mar1495, mar-24-2003, jun1794, jun1594, jun1394, jun0794, jul2895, jul0794, jan2795, jan2496, jan1896, jan1796, gep_online, gep3, fpi2, emc, e01004, dec0694, bigcal, baryon, aug1794, aug0394, aug-12-2003, apr3096, apr1594, apr0695, apr-02-2003, Initial-CVS-Release, HEAD, Extra_Shower_Tubes_on_HMS_not_SOS

Initial revision

      SUBROUTINE G_add_path(where,mss)
*----------------------------------------------------------------------
*- 
*-   Purpose and Methods : Put "where" as a prefix on the message
*- 
*-   Inputs  : where	- location (subroutine name usually)
*-           : mss      - error message
*-   Outputs : mss	- prpended error message
*- 
*-   Created  20-Nov-1993   Kevin B. Beard, Hampton U. 
*-    $Log: g_add_path.f,v $
*-    Revision 1.1  1994/02/09 14:13:19  cdaq
*-    Initial revision
*-
*-
*-note: Taken from hall B package.
*----------------------------------------------------------------------
      IMPLICIT NONE
      SAVE 
      character*(*) where,mss
*
      integer m
      character*1 first,last
      character*1024 msg
      logical marker
*
      INCLUDE 'gen_routines.dec'
*
*----------------------------------------------------------------------
*
	msg= where
	call no_leading_blanks(msg)
	call no_leading_blanks(mss)
	m= G_important_length(msg)
*
	first= mss(1:1)
	last= msg(m:m)
*
        marker= last.EQ.'>' .or. last.EQ.':' .or. 
     &		last.EQ.'<' .or. first.EQ.':' .or.
     &		first.EQ.'>' .or. first.EQ.'<'
*
	If(marker) Then
	   msg(m:)= last//mss
	Else
	   msg(m:)= last//'>'//mss
	EndIf
*
	mss= msg
*
        RETURN 
        END

Analyzer/Replay: Mark Jones, Documents: Stephen Wood