|
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 |
| * | * |
Return to
h_chamnum.f
CVS log
Up to [HallC] / Analyzer / HTRACKING