source: trunk/fsource/mcsasubs/setupsintab.for @ 971

Last change on this file since 971 was 971, checked in by vondreele, 9 years ago

update binwin2.7 with new G77 pyd files.
add mcsasubs to fsource directory
some mods to GSASIImath.py to accommodate them

File size: 245 bytes
Line 
1      SUBROUTINE SETUPSINTAB
2       
3      REAL*4 SINTAB
4      COMMON /SINTAB/SINTAB(0:24999)
5     
6      TWOPI = 8.0*ATAN(1.0)
7      DO I=0,24999
8        SINTAB(I) = SIN(TWOPI*I/10000.)
9      END DO
10       
11      RETURN
12      END
Note: See TracBrowser for help on using the repository browser.