Analyzer/ONEEV/g_ugsvolu.f - view

Return to g_ugsvolu.f CVS log

Up to [HallC] / Analyzer / ONEEV

File: [HallC] / Analyzer / ONEEV / g_ugsvolu.f (download)
Revision: 1.1, Tue Mar 14 21:27:25 1995 UTC (29 years, 6 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, nov2696, mduality, may2495, mar-24-2003, jul2895, jan2496, jan1896, jan1796, gep_online, gep3, fpi2, emc, e01004, dec0198, bigcal, baryon, aug-12-2003, apr3096, apr0695, apr-02-2003, Initial-CVS-Release, HEAD, Extra_Shower_Tubes_on_HMS_not_SOS

Initial revision

	subroutine g_ugsvolu (name, shape, nmed, par, npar, ivolu)
*
* Simple interface to gsvolu which checks for error conditions on return
* See page GEOM 100-1 in GEANT manual
*
* 1992, Pat Welch, Oregon State University, tpw@physics.orst.edu
*
* $Log: g_ugsvolu.f,v $
* Revision 1.1  1995/03/14 21:27:25  cdaq
* Initial revision
*

	implicit none

	character*4 name	! Unique name for this volume
	character*4 shape	! Geometric shape for this volume
	integer*4 nmed		! Tracking medium
	integer*4 npar		! Number of user parameters for this vol
	real*4 par(npar)	! User parameters for this volume
	integer*4 ivolu		! system volume number returned

	call gsvolu (name, shape, nmed, par, npar, ivolu)

	if (ivolu .le. 0) then
	  write (*,*) ' ERROR: gsvolu returned an error!'
	  write (*,*) '        name ', name, ' shape ', shape
	  write (*,*) '        nmed ', nmed, ' npar ', npar, ' ivolu ', ivolu
	  if (npar .gt. 0) then
	    write (*,*)'         par(i) ', par
	  endif
	endif

	end

Analyzer/Replay: Mark Jones, Documents: Stephen Wood