Return to gen_name.f CVS log

Up to [HallC] / Optics / conversion

Initial revision

	subroutine me_gen_name (target, fpvars, name)

	implicit none

	include 'db.inc'

	integer target			! index of target variable
	integer fpvars(MAX_ORDER)	! focal plane variables
	character*(*) name		! element name we generate

	character*12 target_names(TARG_VAR)
     >              /'x', 'theta', 'y',  'phi', 'p'/
	character*12 fp_names(FP_VAR) /'x', 't', 'y', 'p'/
	integer EXTRA_VAR
	parameter (EXTRA_VAR = 11)
	character*12 extra_names(EXTRA_VAR) /
     >      'x_det', 'y_det', 'theta_det', 'z', 'theta', 'phi',
     >      'drift', 
     >      'ang_slope_x', 'ang_slope_y', 'ang_offset_x', 'ang_offset_y'
     >      /

	integer i
	integer lnblnk			! ret non-blank length

	if (target .lt. 0) then		! not a normal one
	  name = '<' // extra_names(abs(target) - 1)
	else
	  name = '<' // target_names(target)	! put in target name
	  name = name(1:lnblnk(name)) // '|'	! add in seperator
	  do i = 1, MAX_ORDER
	    if ((fpvars(i) .ge. 1) .and. (fpvars(i) .le. FP_VAR)) then
	      name = name(1:lnblnk(name)) // fp_names(fpvars(i))
	    else 
	      name = name(1:lnblnk(name)) 
	    endif
	  enddo
	endif

	name = name(1:lnblnk(name)) // '>'

	end