source: trunk/fsource/pytexture.for @ 379

Last change on this file since 379 was 379, checked in by vondreele, 11 years ago

finish spherical harmonics preferred orientation

File size: 573 bytes
Line 
1      SUBROUTINE PYQLMNINIT()
2      CALL QLMNINIT
3      RETURN
4      END
5
6      SUBROUTINE PYPLMPSI(L,I,NPHI,PHI,PCRS,DPDPS)
7Cf2py intent(in) L
8Cf2Py intent(in) I
9Cf2py intent(in) NPHI
10Cf2py intent(in) PHI
11Cf2py intent(out) PCRS
12Cf2py intent(out) DPDPS
13Cf2py depend(NPHI) PHI,PCRS,DPDPS
14
15      INTEGER*4     L
16      INTEGER*4     I
17      REAL*4        PHI(0:NPHI-1)
18      REAL*4        PCRS(0:NPHI-1)
19      REAL*4        DPDPS(0:NPHI-1)
20
21      DO K = 0,NPHI-1
22         CALL PLMPSI(L,I,PHI(K),PCRS(K),DPDPS(K))
23      END DO
24      RETURN
25      END
26
Note: See TracBrowser for help on using the repository browser.