|
version 1.1, 1994/02/19 06:14:15
|
version 1.2, 1994/04/13 20:38:06
|
|
|
|
| subroutine H_FCNCHISQ(npar,grad,fval,ray,iflag,dummy) |
subroutine H_FCNCHISQ(npar,grad,fval,ray,iflag,dumarg) |
| * This subroutine calculates chi**2 for MINUIT for HMS. The | * This subroutine calculates chi**2 for MINUIT for HMS. The |
| * arguments are determined by MINUIT | * arguments are determined by MINUIT |
| * | * |
| * d.f. geesaman 17 January 1994 | * d.f. geesaman 17 January 1994 |
| * $Log$ | * $Log$ |
| |
* Revision 1.2 1994/04/13 20:38:06 cdaq |
| |
* (SAW) Change name of dummy arg to dumarg |
| |
* |
| * Revision 1.1 1994/02/19 06:14:15 cdaq | * Revision 1.1 1994/02/19 06:14:15 cdaq |
| * Initial revision | * Initial revision |
| * | * |
|
|
|
| include "hms_geometry.cmn" | include "hms_geometry.cmn" |
| * | * |
| * input | * input |
| real*8 ray(*),grad(*),dummy |
real*8 ray(*),grad(*),dumarg |
| integer*4 npar,iflag | integer*4 npar,iflag |
| * output | * output |
| real*8 fval ! value of chi2 | real*8 fval ! value of chi2 |
Return to
h_fcnchisq.f
CVS log
Up to [HallC] / Analyzer / HTRACKING