Changeset 3522 for trunk/fsource/histogram2d.for
- Timestamp:
- Aug 1, 2018 12:36:58 PM (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/fsource/histogram2d.for
r451 r3522 37 37 1 ( Y(K).GE.YLIM(0) .AND. Y(K).LT.YLIM(1) )) THEN 38 38 DDX = (X(K)-XLIM(0))/DX 39 I = INT(DDX)39 I = MIN(MAX(0,INT(DDX)),NXBINS-1) 40 40 DDY = (Y(K)-YLIM(0))/DY 41 J = INT(DDY)41 J = MIN(MAX(0,INT(DDY)),NYBINS-1) 42 42 NST(I,J) = NST(I,J)+1.0 43 43 HST(I,J) = HST(I,J)+Z(K)
Note: See TracChangeset
for help on using the changeset viewer.