source: trunk/fsource/pytexture.for @ 313

Last change on this file since 313 was 313, checked in by vondreele, 12 years ago

work on texture display & computation

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