======================================================================= ******************************************************************** ******************************************************************** ******************************************************************** ******************************************************************** ******************************************************************** ----------------------------------------------------------------------- =================================================================== (C) Copr. 1986-92 Numerical Recipes Software '0. =================================================================== ******************************************************************** ******************************************************************** ******************************************************************** ******************************************************************** ******************************************************************** ******************************************************************** ----------------------------------------------------------------------- ******************************************************************** ******************************************************************** ******************************************************************** ----------------------------------------------------------------------- SUBROUTINE sinftm(y,n) SUBROUTINE realftm(data,n) SUBROUTINE four1m(data,nn) SUBROUTINE ludcmp(a,n) SUBROUTINE lubksb(a,n,b) SUBROUTINE PREPARA SUBROUTINE CORREGGI(data2,dataI) SUBROUTINE FRONT_OUT SUBROUTINE INT_F SUBROUTINE NOINT_F SUBROUTINE PO2D(data2,dataI) SUBROUTINE PO2DSS(data2,dataI) SUBROUTINE PO2DST(data2,dataI) SUBROUTINE tridagm(b,r,u,n,work) COMMONS: SUBROUTINES USED: realftm four1m FRONT_OUT INT_F NOINT_F ludcmp lubksb PO2D PO2DST PO2DSS tridagm sinftm micromap-index Mon Jul 17 08:57:40 CEST 2017