Changeset 1970 for trunk/fsource/pypowder.for

Timestamp:

Sep 2, 2015 4:01:41 PM (7 years ago)

Author:

vondreele

Message:

Add pygauleg to pypowder.for - recompile Win2.7 & Win2.7-64
work on SS structure factor

File:

• trunk/fsource/pypowder.for (modified) (1 diff)

trunk/fsource/pypowder.for

@@ -233 +233 @@
       END
       
+C python interface to gauleg
+      SUBROUTINE PYGAULEG(X1,X2,N,GL,WT)
+Cf2py intent(in) X1
+Cf2py intent(in) X2
+Cf2py intent(in) N
+Cf2py intent(out) GL
+Cf2py depend(N) GL
+Cf2py intent(out) WT
+Cf2py depends(N) WT
+
+      INTEGER*4 N
+      REAL*4 X1,X2,GL(0:N-1),WT(0:N-1)
+      CALL GAULEG(X1,X2,GL,WT,N)
+      RETURN
+      END
+
+
 C Fortran (fast) linear interpolation -- B.H. Toby 9/2011
       SUBROUTINE PYFINTERP(NIN,XIN,YIN,NOUT,XOUT,YOUT)