|
version 1.6, 2004/02/19 16:41:45
|
version 1.6.14.1, 2008/09/25 00:57:53
|
|
|
|
| * | * |
| * Version: 0.1 (In development) | * Version: 0.1 (In development) |
| * $Log$ | * $Log$ |
| |
* Revision 1.6.14.1 2008/09/25 00:57:53 jones |
| |
* Updated for running on Fedora 8 with gfortran |
| |
* |
| |
* Revision 1.7 2008/09/25 00:12:08 jones |
| |
* Updated for gfortran compiler |
| |
* |
| * Revision 1.6 2004/02/19 16:41:45 jones | * Revision 1.6 2004/02/19 16:41:45 jones |
| * Can set filename for the HMS matrix elements using the parameter | * Can set filename for the HMS matrix elements using the parameter |
| * h_recon_coeff_filename . If parameter is not set then uses | * h_recon_coeff_filename . If parameter is not set then uses |
|
|
|
| write(*,*) ' ********' | write(*,*) ' ********' |
| write(*,*) ' Opening HMS matrix element file ',h_recon_coeff_filename | write(*,*) ' Opening HMS matrix element file ',h_recon_coeff_filename |
| write(*,*) ' ********' | write(*,*) ' ********' |
| open (unit=chan,status='old',name=h_recon_coeff_filename,err=92) |
open (unit=chan,status='old',file=h_recon_coeff_filename,err=92) |
| | |
| | |
| * Read header comments. | * Read header comments. |
Return to
h_targ_trans_init.f
CVS log
Up to [HallC] / Analyzer / HTRACKING