View Single Post
  #4  
Old 02-26-2013, 08:00 AM
AxleIke's Avatar
AxleIke AxleIke is online now
Rising Sun Member
 
Join Date: Apr 2006
Location: Arvada, CO
Posts: 3,320
Default

LOL. My brain too.

I use this so I can try to model the storm track of Sandy in two weeks time. My prof. thinks its fun.

I hear ya on wanting to get out and get the truck dirty.

Quote:
PERFORMS MULTIPLE FAST FOURIER TRANSFORMS. THIS PACKAGE
C WILL PERFORM A NUMBER OF SIMULTANEOUS REAL/HALF-COMPLEX
C PERIODIC FOURIER TRANSFORMS OR CORRESPONDING INVERSE
C TRANSFORMS, I.E. GIVEN A SET OF REAL DATA VECTORS, THE
C PACKAGE RETURNS A SET OF 'HALF-COMPLEX' FOURIER
C COEFFICIENT VECTORS, OR VICE VERSA. THE LENGTH OF THE
C TRANSFORMS MUST BE AN EVEN NUMBER GREATER THAN 4 THAT HAS
C NO OTHER FACTORS EXCEPT POSSIBLY POWERS OF 2, 3, AND 5.
C THIS IS AN ALL FORTRAN VERSION OF THE CRAYLIB PACKAGE
C THAT IS MOSTLY WRITTEN IN CAL.
C
C THE PACKAGE FFT99F CONTAINS SEVERAL USER-LEVEL ROUTINES:
C
C SUBROUTINE SET99
C AN INITIALIZATION ROUTINE THAT MUST BE CALLED ONCE
C BEFORE A SEQUENCE OF CALLS TO THE FFT ROUTINES
C (PROVIDED THAT N IS NOT CHANGED).
C
C SUBROUTINES FFT99 AND FFT991
C TWO FFT ROUTINES THAT RETURN SLIGHTLY DIFFERENT
C ARRANGEMENTS OF THE DATA IN GRIDPOINT SPACE.
C
C
C ACCESS THIS FORTRAN VERSION MAY BE ACCESSED WITH
C
C *FORTRAN,P=XLIB,SN=FFT99F
C
C TO ACCESS THE CRAY OBJECT CODE, CALLING THE USER ENTRY
C POINTS FROM A CRAY PROGRAM IS SUFFICIENT. THE SOURCE
C FORTRAN AND CAL CODE FOR THE CRAYLIB VERSION MAY BE
C ACCESSED USING
C
C FETCH P=CRAYLIB,SN=FFT99
C FETCH P=CRAYLIB,SN=CAL99
C
C USAGE LET N BE OF THE FORM 2**P * 3**Q * 5**R, WHERE P .GE. 1,
C Q .GE. 0, AND R .GE. 0. THEN A TYPICAL SEQUENCE OF
C CALLS TO TRANSFORM A GIVEN SET OF REAL VECTORS OF LENGTH
C N TO A SET OF 'HALF-COMPLEX' FOURIER COEFFICIENT VECTORS
C OF LENGTH N IS
C
C DIMENSION IFAX(13),TRIGS(3*N/2+1),A(M*(N+2)),
C + WORK(M*(N+1))
C
C CALL SET99 (TRIGS, IFAX, N)
C CALL FFT99 (A,WORK,TRIGS,IFAX,INC,JUMP,N,M,ISIGN)
__________________
Isaac

Baby Beast 2- 1999 4Runner SR5

Baby Beast -1987 4Runner SR5-Gone, but not forgotten

Generation Dead
Reply With Quote