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 |