1 !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
4 ! Copyright (C) 1995-2004, Scientific Computing Division,
5 ! University Corporation for Atmospheric Research
6 ! Licensed under the GNU General Public License (GPL)
8 ! Authors: Paul N. Swarztrauber and Richard A. Valent
10 ! $Id: cfftmb.f,v 1.2 2004/06/15 21:08:32 rodney Exp $
12 !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
14 SUBROUTINE CFFTMB (LOT, JUMP, N, INC, C, LENC, WSAVE, LENSAV, &
16 INTEGER LOT, JUMP, N, INC, LENC, LENSAV, LENWRK, IER
18 REAL WSAVE(LENSAV) ,WORK(LENWRK)
23 IF (LENC .LT. (LOT-1)*JUMP + INC*(N-1) + 1) THEN
25 CALL XERFFT ('CFFTMB ', 6)
26 ELSEIF (LENSAV .LT. 2*N + INT(LOG(REAL(N))) + 4) THEN
28 CALL XERFFT ('CFFTMB ', 8)
29 ELSEIF (LENWRK .LT. 2*LOT*N) THEN
31 CALL XERFFT ('CFFTMB ', 10)
32 ELSEIF (.NOT. XERCON(INC,JUMP,N,LOT)) THEN
34 CALL XERFFT ('CFFTMB ', -1)
40 CALL CMFM1B (LOT,JUMP,N,INC,C,WORK,WSAVE,WSAVE(IW1), &