Changeset 768


Ignore:
Timestamp:
Oct 1, 2012 2:02:17 PM (9 years ago)
Author:
vondreele
Message:

fix pypowder for gfortran & rebuild binwin2.7

Location:
trunk
Files:
9 edited

Legend:

Unmodified
Added
Removed
  • trunk/fsource/pypowder.for

    r415 r768  
    1515
    1616      REAL*4 DTT(0:NPTS-1),PRFUNC(0:NPTS-1)
     17      REAL*4 TTHETA,SIG,GAM,SPH
     18      INTEGER*4 NPTS,I
    1719      FW = (2.355*SQRT(SIG)+GAM)/100.0
    1820      FMIN = 10.0*(-FW-SPH*COSD(TTHETA))
     
    4951Cf2py depend(NPTS) SLPART
    5052
     53      INTEGER*4 NPTS
     54      REAL*4 TTHETA,SIG,GAM,SPH
    5155      REAL*4 DTT(0:NPTS-1),DPRDT(0:NPTS-1),SIGPART(0:NPTS-1),
    5256     1  GAMPART(0:NPTS-1),SLPART(0:NPTS-1),PRFUNC(0:NPTS-1)
     
    7781Cf2py depend(NPTS) PRFUNC
    7882
     83      INTEGER*4 NPTS
     84      REAL*4 TTHETA,SIG,GAM,SPH
    7985      REAL*4 DTT(0:NPTS-1),PRFUNC(0:NPTS-1)
    8086      FW = (2.355*SQRT(SIG)+GAM)/100.0
     
    112118Cf2py depend(NPTS) SLPART
    113119
     120      INTEGER*4 NPTS
     121      REAL*4 TTHETA,SIG,GAM,SHL
    114122      REAL*4 DTT(0:NPTS-1),DPRDT(0:NPTS-1),SIGPART(0:NPTS-1),
    115123     1  GAMPART(0:NPTS-1),SLPART(0:NPTS-1),PRFUNC(0:NPTS-1)
     
    146154cf2py depend(NOUT) YOUT
    147155
     156      INTEGER NIN,NOUT
    148157      REAL XIN(NIN),YIN(NIN)
    149158      REAL XOUT(NOUT),YOUT(NOUT)
Note: See TracChangeset for help on using the changeset viewer.