1 cdaq  1.1       SUBROUTINE G_add_path(where,mss)
 2           *----------------------------------------------------------------------
 3           *- 
 4           *-   Purpose and Methods : Put "where" as a prefix on the message
 5           *- 
 6           *-   Inputs  : where	- location (subroutine name usually)
 7           *-           : mss      - error message
 8           *-   Outputs : mss	- prpended error message
 9           *- 
10           *-   Created  20-Nov-1993   Kevin B. Beard, Hampton U. 
11           *-    $Log:$
12           *-
13           *-note: Taken from hall B package.
14           *----------------------------------------------------------------------
15                 IMPLICIT NONE
16                 SAVE 
17                 character*(*) where,mss
18           *
19                 integer m
20                 character*1 first,last
21                 character*1024 msg
22 cdaq  1.1       logical marker
23           *
24                 INCLUDE 'gen_routines.dec'
25           *
26           *----------------------------------------------------------------------
27           *
28           	msg= where
29           	call no_leading_blanks(msg)
30           	call no_leading_blanks(mss)
31           	m= G_important_length(msg)
32           *
33           	first= mss(1:1)
34           	last= msg(m:m)
35           *
36                   marker= last.EQ.'>' .or. last.EQ.':' .or. 
37                &		last.EQ.'<' .or. first.EQ.':' .or.
38                &		first.EQ.'>' .or. first.EQ.'<'
39           *
40           	If(marker) Then
41           	   msg(m:)= last//mss
42           	Else
43 cdaq  1.1 	   msg(m:)= last//'>'//mss
44           	EndIf
45           *
46           	mss= msg
47           *
48                   RETURN 
49                   END