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: r1f2kf.f,v 1.2 2004/06/15 21:29:20 rodney Exp $
12 !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
14 SUBROUTINE R1F2KF (IDO,L1,CC,IN1,CH,IN2,WA1)
15 REAL CH(IN2,IDO,2,L1) ,CC(IN1,IDO,L1,2) , WA1(IDO)
18 CH(1,1,1,K) = CC(1,1,K,1)+CC(1,1,K,2)
19 CH(1,IDO,2,K) = CC(1,1,K,1)-CC(1,1,K,2)
21 IF (IDO-2) 107,105,102
26 CH(1,I,1,K) = CC(1,I,K,1)+(WA1(I-2)*CC(1,I,K,2)- &
27 & WA1(I-1)*CC(1,I-1,K,2))
28 CH(1,IC,2,K) = (WA1(I-2)*CC(1,I,K,2)-WA1(I-1)* &
29 & CC(1,I-1,K,2))-CC(1,I,K,1)
30 CH(1,I-1,1,K) = CC(1,I-1,K,1)+(WA1(I-2)*CC(1,I-1,K,2)+ &
31 & WA1(I-1)*CC(1,I,K,2))
32 CH(1,IC-1,2,K) = CC(1,I-1,K,1)-(WA1(I-2)*CC(1,I-1,K,2)+ &
33 & WA1(I-1)*CC(1,I,K,2))
36 IF (MOD(IDO,2) .EQ. 1) RETURN
38 CH(1,1,2,K) = -CC(1,IDO,K,2)
39 CH(1,IDO,1,K) = CC(1,IDO,K,1)