version 1.2, 1995/05/22 19:39:07
|
version 1.3, 1996/04/30 12:32:51
|
|
|
* This function returns the chamber number of a space point | * This function returns the chamber number of a space point |
* d.f. geesaman 17 January 1994 | * d.f. geesaman 17 January 1994 |
* $Log$ | * $Log$ |
|
* Revision 1.3 1996/04/30 12:32:51 saw |
|
* (JRA) Remove (unneeded?) check on plane range |
|
* |
* Revision 1.2 1995/05/22 19:39:07 cdaq | * Revision 1.2 1995/05/22 19:39:07 cdaq |
* (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts" | * (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts" |
* | * |
|
|
integer*4 ispace_point | integer*4 ispace_point |
* local variables | * local variables |
integer*4 plane | integer*4 plane |
h_chamnum=0 |
|
|
|
plane=HDC_PLANE_NUM(hspace_point_hits(ispace_point,3)) | plane=HDC_PLANE_NUM(hspace_point_hits(ispace_point,3)) |
if(plane.gt.0 .and. plane.le. hdc_num_planes) then |
|
h_chamnum=hdc_chamber_planes(plane) | h_chamnum=hdc_chamber_planes(plane) |
endif |
|
return | return |
end | end |
* | * |