Changeset 768

Timestamp:

Oct 1, 2012 2:02:17 PM (11 years ago)

Author:

vondreele

Message:

fix pypowder for gfortran & rebuild binwin2.7

Location:

trunk

Files:

• binwin2.7/fellipse.pyd (modified) (previous)
• binwin2.7/histogram2d.pyd (modified) (previous)
• binwin2.7/histosigma2d.pyd (modified) (previous)
• binwin2.7/pack_f.pyd (modified) (previous)
• binwin2.7/polymask.pyd (modified) (previous)
• binwin2.7/pypowder.pyd (modified) (previous)
• binwin2.7/pyspg.pyd (modified) (previous)
• binwin2.7/pytexture.pyd (modified) (previous)
• fsource/pypowder.for (modified) (5 diffs)

trunk/fsource/pypowder.for

@@ -15 +15 @@
 
       REAL*4 DTT(0:NPTS-1),PRFUNC(0:NPTS-1)
+      REAL*4 TTHETA,SIG,GAM,SPH
+      INTEGER*4 NPTS,I
       FW = (2.355*SQRT(SIG)+GAM)/100.0
       FMIN = 10.0*(-FW-SPH*COSD(TTHETA))
@@ -49 +51 @@
 Cf2py depend(NPTS) SLPART
 
+      INTEGER*4 NPTS
+      REAL*4 TTHETA,SIG,GAM,SPH
       REAL*4 DTT(0:NPTS-1),DPRDT(0:NPTS-1),SIGPART(0:NPTS-1),
      1  GAMPART(0:NPTS-1),SLPART(0:NPTS-1),PRFUNC(0:NPTS-1)
@@ -77 +81 @@
 Cf2py depend(NPTS) PRFUNC
 
+      INTEGER*4 NPTS
+      REAL*4 TTHETA,SIG,GAM,SPH
       REAL*4 DTT(0:NPTS-1),PRFUNC(0:NPTS-1)
       FW = (2.355*SQRT(SIG)+GAM)/100.0
@@ -112 +118 @@
 Cf2py depend(NPTS) SLPART
 
+      INTEGER*4 NPTS
+      REAL*4 TTHETA,SIG,GAM,SHL
       REAL*4 DTT(0:NPTS-1),DPRDT(0:NPTS-1),SIGPART(0:NPTS-1),
      1  GAMPART(0:NPTS-1),SLPART(0:NPTS-1),PRFUNC(0:NPTS-1)
@@ -146 +154 @@
 cf2py depend(NOUT) YOUT
 
+      INTEGER NIN,NOUT
       REAL XIN(NIN),YIN(NIN)
       REAL XOUT(NOUT),YOUT(NOUT)