| 1 |
pam-fi |
1.1 |
* maximum numb. of doublets and troplets |
| 2 |
|
|
* to fill DEBUG nt-uple |
| 3 |
mocchiut |
1.3 |
integer ndblt_max_nt,ntrpt_max_nt ! EM GCC 4.7 |
| 4 |
|
|
parameter (ndblt_max_nt=NINT(0.2*ndblt_max)) !maximum number of doublets EM sorry but ndblt_max_nt must be an integer, how can you do 0.2 * another integer??? |
| 5 |
|
|
parameter (ntrpt_max_nt=NINT(0.2*ntrpt_max)) !maximum number of triplets |
| 6 |
pam-fi |
1.1 |
integer ndblt_nt,ntrpt_nt |
| 7 |
|
|
real |
| 8 |
|
|
$ alfayz1_nt(ndblt_max_nt), !Y0 |
| 9 |
|
|
$ alfayz2_nt(ndblt_max_nt) !tg theta-yz |
| 10 |
|
|
real |
| 11 |
|
|
$ alfaxz1_nt(ntrpt_max_nt), !X0 |
| 12 |
|
|
$ alfaxz2_nt(ntrpt_max_nt), !tg theta-xz |
| 13 |
|
|
$ alfaxz3_nt(ntrpt_max_nt) !1/r |
| 14 |
|
|
|
| 15 |
|
|
* ----------------------------------------------------------- |
| 16 |
|
|
* Number of YZ and XZ clouds |
| 17 |
|
|
integer nclouds_yz_nt,nclouds_xz_nt |
| 18 |
|
|
* ----------------------------------------------------------- |
| 19 |
|
|
* doublet and triplet ID in the selected clouds |
| 20 |
|
|
integer db_cloud_nt(ndblt_max_nt) |
| 21 |
|
|
integer tr_cloud_nt(ntrpt_max_nt) |
| 22 |
|
|
* ----------------------------------------------------------- |
| 23 |
|
|
* number of points in the cloud |
| 24 |
|
|
integer ptcloud_yz_nt(ncloyz_max) |
| 25 |
|
|
integer ptcloud_xz_nt(ncloxz_max) |
| 26 |
|
|
* ----------------------------------------------------------- |
| 27 |
|
|
* average parameters |
| 28 |
|
|
real alfayz1_av_nt(ncloyz_max),alfayz2_av_nt(ncloyz_max) |
| 29 |
|
|
real alfaxz1_av_nt(ncloxz_max),alfaxz2_av_nt(ncloxz_max) |
| 30 |
|
|
$ ,alfaxz3_av_nt(ncloxz_max) |
| 31 |
|
|
* ----------------------------------------------------------- |
| 32 |
|
|
|
| 33 |
|
|
c------------------------------------------------------------------------ |
| 34 |
|
|
c Added by David Fedele |
| 35 |
|
|
c |
| 36 |
|
|
c variable related to timing the software |
| 37 |
|
|
c------------------------------------------------------------------------ |
| 38 |
|
|
integer nclstr |
| 39 |
|
|
real totaltime |
| 40 |
|
|
real houghtime |
| 41 |
|
|
real fittime |
| 42 |
|
|
|
| 43 |
|
|
|
| 44 |
|
|
!commons for DEBUG nt-uple ! |
| 45 |
pam-fi |
1.2 |
common/houghevent/ ! / / / / / / ! |
| 46 |
pam-fi |
1.1 |
$ ndblt_nt ! / / / / / / ! |
| 47 |
|
|
$ ,alfayz1_nt,alfayz2_nt ! / / / / / / /! |
| 48 |
|
|
$ ,db_cloud_nt, !/ / / / / / / ! |
| 49 |
|
|
$ ntrpt_nt, ! / / / / / / ! |
| 50 |
|
|
$ alfaxz1_nt,alfaxz2_nt,alfaxz3_nt ! / / / / / / ! |
| 51 |
|
|
$ ,tr_cloud_nt ! / / / / / / /! |
| 52 |
|
|
$ ,nclouds_yz_nt !/ / / / / / / ! |
| 53 |
|
|
$ ,alfayz1_av_nt,alfayz2_av_nt ! / / / / / / ! |
| 54 |
|
|
$ ,ptcloud_yz_nt, ! / / / / / / ! |
| 55 |
|
|
$ nclouds_xz_nt ! / / / / / / /! |
| 56 |
|
|
$ ,alfaxz1_av_nt,alfaxz2_av_nt,alfaxz3_av_nt !/ / / / / / / ! |
| 57 |
|
|
$ ,ptcloud_xz_nt ! / / / / / / ! |
| 58 |
|
|
$ ,nclstr,totaltime,houghtime,fittime ! / / / / / / ! |
Parent Directory
| 
Revision Log