Ignore:
Timestamp:
Jan 9, 2012 1:01:20 PM (10 years ago)
Author:
vondreele
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/fsource/histogram2d.for

    r274 r450  
    2121
    2222      IMPLICIT NONE
    23       INTEGER*4   N
     23      INTEGER*8   N
    2424      REAL*4      X(0:N-1),Y(0:N-1),Z(0:N-1)
    2525      INTEGER*8   NXBINS,NYBINS
     
    3333        I = INT((X(K)-XLIM(0))/DX)
    3434        J = INT((Y(K)-YLIM(0))/DY)
     35C        if ( j.ge.500 )
     36C     1    print *,k,x(k),y(k),i,j,xlim(0),dx,ylim(0),dy,nxbins,nybins
    3537        IF ( (I .GE. 0 .AND. I .LT. NXBINS) .AND.
    3638     1     (J .GE. 0 .AND. J .LT. NYBINS) ) THEN
     39C          if ( j.ge.500 )
     40C     1      print *,i,j,nst(i,j),hst(i,j),z(k)
    3741          NST(I,J) = NST(I,J)+1.0
    3842          HST(I,J) = HST(I,J)+Z(K)
Note: See TracChangeset for help on using the changeset viewer.