1 jones 1.1 	subroutine me_parse_final (string, index, line_number)
 2           *
 3           * This routine will parse string into a variable name
 4           * It should look something like, x, y, theta, phi, p
 5           *
 6           * 22-May-94, Pat Welch, Oregon State University (tpw@physics.orst.edu)
 7           *
 8           	implicit none
 9           
10           	character*(*) string			! ME name
11           	integer index				! index of x, y, theta, phi
12           	integer line_number
13           
14           	integer length
15           	integer lnblnk				! func ret non-blank length
16           
17           	index = -1				! initial value
18           	length = lnblnk(string)			! length of non-blank string
19           
20           	if (string(1:length) .eq. 'x') then
21           	  index = 1
22 jones 1.1 	else if (string(1:length) .eq. 'y') then
23           	  index = 3
24           	else if (string(1:length) .eq. 'theta') then
25           	  index = 2
26           	else if (string(1:length) .eq. 'phi') then
27           	  index = 4
28           	else if (string(1:length) .eq. 'p')  then
29           	  index = 5
30           	else
31           	  write (*,*) ' Unrecognized matrix element name, ', string
32           	  if (line_number .gt. 0) write (*,*) ' Line #', line_number
33           	endif
34           
35           	end