Changeset 247


Ignore:
Timestamp:
Feb 15, 2011 10:57:15 AM (11 years ago)
Author:
vondreele
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/fsource/histogram2d.for

    r232 r247  
    22     1  NST,HST,HSTX,HSTY)
    33
    4 Cf2py intent(in) N
    5 Cf2py intent(in) X
    6 Cf2py depend(N) X
    7 Cf2py intent(in) Y
    8 Cf2py depend(N) Y
    9 Cf2py intent(in) Z
    10 Cf2py depend(N) Z
    11 Cf2py intent(in) NXBINS
    12 Cf2py intent(in) NYBINS
    13 Cf2py intent(in) XLIM
    14 Cf2py intent(in) YLIM
    15 Cf2py intent(in,out) NST
    16 Cf2py depend(NXBINS,NYBINS)
    17 Cf2py intent(in,out) HST
    18 Cf2py depend(NXBINS,NYBINS)
    19 Cf2py intent(in,out) HSTX
    20 Cf2py depend(NXBINS)
    21 Cf2py intent(in,out) HSTY
    22 Cf2py depend(NYBINS)
     4Cf2py intent(in) n
     5Cf2py intent(in) x
     6Cf2py depend(n) x
     7Cf2py intent(in) y
     8Cf2py depend(n) y
     9Cf2py intent(in) z
     10Cf2py depend(n) z
     11Cf2py intent(in) nxbins
     12Cf2py intent(in) nybins
     13Cf2py intent(in) xlim       
     14Cf2py intent(in) ylim       
     15Cf2py intent(inout) nst
     16Cf2py depend(nxbins,nybins) nst
     17Cf2py intent(inout) hst
     18Cf2py depend(nxbins,nybins) hst
     19Cf2py intent(inout) hstx
     20Cf2py depend(nxbins) hstx
     21Cf2py intent(inout) hsty
     22Cf2py depend(nybins) hsty
    2323
    2424      IMPLICIT NONE
     
    4343        HSTY(J) = YLIM(0)+FLOAT(J)*DY
    4444      END DO
    45 
     45     
    4646      DO K=0,N
    4747        IF ( ( X(K) .GE. XLIM(0) .AND. X(K) .LE. XLIM(1)) .AND.
Note: See TracChangeset for help on using the changeset viewer.