This website is no longer maintained. Its content may be obsolete. Please visit http://home.cern/ for current CERN information.

**K.S. Kölbig and J. Shiers CN/ASD**

`D705 RFSTFT:` **Real Fast Fourier Transform**

A new subroutine subprogram `D705 RFSTFT` (Real fast Fourier
transform) written in Fortran, which calculates the finite Fourier
transform of a periodic sequence (with a period equal to a power of two)
of *real* numbers and its inverse, has been submitted to MATHLIB.
This subroutine subprogram replaces `D703 RFFT` in KERNLIB,
which thus becomes obsolete. The old routine will be left in
KERNLIB for a few months and will then be deleted.

`D706 CFSTFT:` **Complex Fast Fourier Transform**

A new subroutine subprogram `D706 CFSTFT` (Complex fast Fourier
transform) written in Fortran, which calculates the finite Fourier
transform of a periodic sequence (with a period equal to a power of two)
of *complex* numbers and its inverse, has been submitted to MATHLIB.
This subroutine subprogram replaces `D704 CFFT` in KERNLIB,
which thus becomes obsolete. The old routine will be left in
KERNLIB for a few months and will then be deleted.

`V131 RN3DIM:` **Random Two- and Three-Dimensional Vectors**

A new subroutine subprogram `V131 RN3DIM` (Random two- and
three-dimensional vectors) written in Fortran, has been submitted to
MATHLIB. It is called by

CALL RN2DIM(X,Y,XLONG)for two-dimensional, and by

CALL RN3DIM(X,Y,Z,XLONG)for three-dimensional vectors. Thus

A new subroutine subprogram

CALL RNHPRE(Y,N)where

CALL RNHRAN(Y,N,XLO,XWID,XRAN)where

A new subroutine subprogram

DIMENSION FSPACE(200) DIMENSION XRAN(L) EXTERNAL F CALL FUNLXP(F,FSPACE,XLOW,XHIGH) !to prepare FSPACE CALL FUNLUX(FSPACE,XRAN,L) !to generate L numbers XRANSubprograms

The following packages are declared obsolete and scheduled for eventual deletion:

Code | Package | Library | Last Revision |
Notes | |

A105 | MPA | MATHLIB | 1985 | Use, e.g., Mathematica | |

D114 | RIWIAD | MATHLIB | 1986 | Use D120 RADMUL
(in part) | |

D151 | DIVON4 | MATHLIB | 1985 | Use D120 RADMUL
(in part) | |

D703 | RFFT | KERNLIB | 1981 | Use D705 RFSTFT | |

D704 | CFFT | KERNLIB | 1981 | Use D706 CFSTFT | |

V130 | RAN3D | MATHLIB | 1978 | Use V131 RN3DIM | |

V150 | HISRAN | MATHLIB | 1978 | Use V149 RNHRAN | |

V151 | FUNRAN | MATHLIB | 1984 | Use V152 FUNLUX |

The following package was declared obsolete and is finally deleted from the source and binary with this revision:

Code | Package | Library |
Declared obsolete | Notes | |

C307 | CDIGAM | MATHLIB | CNL 221 | Use C317 CPSIPG |

CN Division

Tel. 3363

Thu May 30 20:08:07 METDST 1996