PUMA  219
Portable University Model of the Atmosphere
/Users/home/WC/puma/src/fft991mod.f90 File Reference

Go to the source code of this file.

Data Types

module  fftmod

Functions/Subroutines

subroutine gp2fc (a, n, lot)
subroutine fc2gp (a, n, lot)
subroutine fftini (n)
subroutine FFT991 (A, WORK, TRIGS, IFAX, INC, JUMP, N, LOT, ISIGN)
subroutine SET99 (TRIGS, IFAX, N)
subroutine QPASSM (A, B, C, D, TRIGS, INC1, INC2, INC3, INC4, LOT, N, IFAC, LA, IERR)
subroutine RPASSM (A, B, C, D, TRIGS, INC1, INC2, INC3, INC4, LOT, N, IFAC, LA, IERR)

Function/Subroutine Documentation

subroutine fc2gp ( real, dimension(n,lot)  a,
  n,
  lot 
)

Definition at line 59 of file fft991mod.f90.

subroutine FFT991 ( , dimension(*), dimension  A,
, dimension(*), dimension  WORK,
, dimension(n), dimension  TRIGS,
, dimension(10), dimension  IFAX,
  INC,
  JUMP,
  N,
  LOT,
  ISIGN 
)

Definition at line 116 of file fft991mod.f90.

subroutine fftini (   n)

Definition at line 86 of file fft991mod.f90.

subroutine gp2fc ( real, dimension(n,lot)  a,
  n,
  lot 
)

Definition at line 31 of file fft991mod.f90.

subroutine QPASSM ( , dimension(*), dimension  A,
, dimension(*), dimension  B,
, dimension(*), dimension  C,
, dimension(*), dimension  D,
, dimension(n), dimension  TRIGS,
  INC1,
  INC2,
  INC3,
  INC4,
  LOT,
  N,
  IFAC,
  LA,
  IERR 
)

Definition at line 380 of file fft991mod.f90.

subroutine RPASSM ( , dimension(*), dimension  A,
, dimension(*), dimension  B,
, dimension(*), dimension  C,
, dimension(*), dimension  D,
, dimension(n), dimension  TRIGS,
  INC1,
  INC2,
  INC3,
  INC4,
  LOT,
  N,
  IFAC,
  LA,
  IERR 
)

Definition at line 1130 of file fft991mod.f90.

subroutine SET99 ( , dimension(n), dimension  TRIGS,
, dimension(10), dimension  IFAX,
  N 
)

Definition at line 322 of file fft991mod.f90.