|
version 1.1, 1994/02/19 06:13:14
|
version 1.2, 1995/05/22 19:39:07
|
|
|
|
| * 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.2 1995/05/22 19:39:07 cdaq |
| |
* (SAW) Split gen_data_data_structures into gen, hms, sos, and coin parts" |
| |
* |
| * Revision 1.1 1994/02/19 06:13:14 cdaq | * Revision 1.1 1994/02/19 06:13:14 cdaq |
| * Initial revision | * Initial revision |
| * | * |
| implicit none | implicit none |
| include "gen_data_structures.cmn" |
include "hms_data_structures.cmn" |
| include "hms_tracking.cmn" | include "hms_tracking.cmn" |
| include "hms_geometry.cmn" | include "hms_geometry.cmn" |
| * output | * output |
Return to
h_chamnum.f
CVS log
Up to [HallC] / Analyzer / HTRACKING