Parent Directory
| 
Revision Log
| 
Patch
| revision 1.6 by pam-fi, Thu Oct 26 16:22:37 2006 UTC | revision 1.7 by pam-fi, Thu May 24 16:45:48 2007 UTC | |
|---|---|---|
| # | Line 187 c--------------------------------------- | Line 187 c--------------------------------------- |
| 187 | cnrms(i,j)= SQRT( cnrms(i,j)/DBLE(ncn) - cn(i,j)**2 ) | cnrms(i,j)= SQRT( cnrms(i,j)/DBLE(ncn) - cn(i,j)**2 ) |
| 188 | cnn(i,j) = ncn | cnn(i,j) = ncn |
| 189 | gulp=0 | gulp=0 |
| 190 | c$$$ print*,'Event ',eventn(1) | |
| 191 | c$$$ $ ,': cn(',i,',',j,')= ',cn(i,j),' ncn ',ncn | |
| 192 | ||
| 193 | if(debug.and.ABS(cn(i,j)).gt.1000) | if(debug.and.ABS(cn(i,j)).gt.1000) |
| 194 | $ print*,'Event ',eventn(1) | $ print*,'Event ',eventn(1) |
| 195 | $ ,': cn(',i,',',j,')= ',cn(i,j),' ncn ',ncn | $ ,': cn(',i,',',j,')= ',cn(i,j),' ncn ',ncn |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.23 |