Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/fsource/pypowder.for

    r1274 r1970  
    233233      END
    234234     
     235C python interface to gauleg
     236      SUBROUTINE PYGAULEG(X1,X2,N,GL,WT)
     237Cf2py intent(in) X1
     238Cf2py intent(in) X2
     239Cf2py intent(in) N
     240Cf2py intent(out) GL
     241Cf2py depend(N) GL
     242Cf2py intent(out) WT
     243Cf2py depends(N) WT
     244
     245      INTEGER*4 N
     246      REAL*4 X1,X2,GL(0:N-1),WT(0:N-1)
     247      CALL GAULEG(X1,X2,GL,WT,N)
     248      RETURN
     249      END
     250
     251
    235252C Fortran (fast) linear interpolation -- B.H. Toby 9/2011
    236253      SUBROUTINE PYFINTERP(NIN,XIN,YIN,NOUT,XOUT,YOUT)
Note: See TracChangeset for help on using the changeset viewer.