Symbol Description Uses
CC 517


File Line number Procedure Code
./pkg/fizhi/fizhi_lsm.F 704 RCUNST 
     &                  ZK,            CC
./pkg/fizhi/fizhi_lsm.F 737 RCUNST 
      CC =  ( AA + BB*SUNANG(ChNo) ) / SUNANG(ChNo)
./pkg/fizhi/fizhi_lsm.F 739 RCUNST 
      EXTK1 =  CC * SQSCAT(ChNo)
./pkg/fizhi/fizhi_lsm.F 742 RCUNST 
      DUM1 =      PDIR(ChNo)  *   CC
./pkg/fizhi/fizhi_turb.F 3936 TRBDIF 
      _RL AA(irun,nlev), BB(irun,nlev), CC(irun,nlev+1)
./pkg/fizhi/fizhi_turb.F 3947 TRBDIF 
      CC(I,1) = 0.
./pkg/fizhi/fizhi_turb.F 3951 TRBDIF 
        CC(I,L+1) = RHOKDZ(I,L) * FLXFAC(I,L+1)
./pkg/fizhi/fizhi_turb.F 3957 TRBDIF 
        AA(I,L) = 1. + CC(I,L) + BB(I,L)
./pkg/fizhi/fizhi_turb.F 3971 TRBDIF 
      CALL VTRI0(AA,BB,CC,XX1,XX1,NLEV,irun)
./pkg/fizhi/fizhi_turb.F 3977 TRBDIF 
      DXX1G(I) = CC(I,NLEVP1) * ( XX1(I,NLEV)-XX1(I,NLEVP1) )
./pkg/fizhi/fizhi_turb.F 3983 TRBDIF 
      DXX2G(I) = CC(I,NLEVP1) * ( XX2(I,NLEV)-XX2(I,NLEVP1) )
./pkg/fizhi/fizhi_turb.F 3989 TRBDIF 
      IF(ITYPE.EQ.3) CALL VTRI2 (AA,BB,CC,XX2,XX2,NLEV,irun)
./pkg/zonal_filt/fftpack.F 1000 R8ADB3 
            CR2 = CC(I-1,1,K)+TAUR*TR2
./pkg/zonal_filt/fftpack.F 1001 R8ADB3 
            CH(I-1,K,1) = CC(I-1,1,K)+TR2
./pkg/zonal_filt/fftpack.F 1002 R8ADB3 
            TI2 = CC(I,3,K)-CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 1003 R8ADB3 
            CI2 = CC(I,1,K)+TAUR*TI2
./pkg/zonal_filt/fftpack.F 1004 R8ADB3 
            CH(I,K,1) = CC(I,1,K)+TI2
./pkg/zonal_filt/fftpack.F 1005 R8ADB3 
            CR3 = TAUI*(CC(I-1,3,K)-CC(IC-1,2,K))
./pkg/zonal_filt/fftpack.F 1006 R8ADB3 
            CI3 = TAUI*(CC(I,3,K)+CC(IC,2,K))
./pkg/zonal_filt/fftpack.F 1019 R8ADB4 
      SUBROUTINE R8ADB4 (IDO,L1,CC,CH,WA1,WA2,WA3)
./pkg/zonal_filt/fftpack.F 1022 R8ADB4 
      DIMENSION       CC(IDO,4,L1)           ,CH(IDO,L1,4)           ,
./pkg/zonal_filt/fftpack.F 1026 R8ADB4 
         TR1 = CC(1,1,K)-CC(IDO,4,K)
./pkg/zonal_filt/fftpack.F 1027 R8ADB4 
         TR2 = CC(1,1,K)+CC(IDO,4,K)
./pkg/zonal_filt/fftpack.F 1028 R8ADB4 
         TR3 = CC(IDO,2,K)+CC(IDO,2,K)
./pkg/zonal_filt/fftpack.F 1029 R8ADB4 
         TR4 = CC(1,3,K)+CC(1,3,K)
./pkg/zonal_filt/fftpack.F 1040 R8ADB4 
            TI1 = CC(I,1,K)+CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 1041 R8ADB4 
            TI2 = CC(I,1,K)-CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 1042 R8ADB4 
            TI3 = CC(I,3,K)-CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 1043 R8ADB4 
            TR4 = CC(I,3,K)+CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 1044 R8ADB4 
            TR1 = CC(I-1,1,K)-CC(IC-1,4,K)
./pkg/zonal_filt/fftpack.F 1045 R8ADB4 
            TR2 = CC(I-1,1,K)+CC(IC-1,4,K)
./pkg/zonal_filt/fftpack.F 1046 R8ADB4 
            TI4 = CC(I-1,3,K)-CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 1047 R8ADB4 
            TR3 = CC(I-1,3,K)+CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 1067 R8ADB4 
         TI1 = CC(1,2,K)+CC(1,4,K)
./pkg/zonal_filt/fftpack.F 1068 R8ADB4 
         TI2 = CC(1,4,K)-CC(1,2,K)
./pkg/zonal_filt/fftpack.F 1069 R8ADB4 
         TR1 = CC(IDO,1,K)-CC(IDO,3,K)
./pkg/zonal_filt/fftpack.F 1070 R8ADB4 
         TR2 = CC(IDO,1,K)+CC(IDO,3,K)
./pkg/zonal_filt/fftpack.F 1078 R8ADB5 
      SUBROUTINE R8ADB5 (IDO,L1,CC,CH,WA1,WA2,WA3,WA4)
./pkg/zonal_filt/fftpack.F 1081 R8ADB5 
      DIMENSION       CC(IDO,5,L1)           ,CH(IDO,L1,5)           ,
./pkg/zonal_filt/fftpack.F 1086 R8ADB5 
         TI5 = CC(1,3,K)+CC(1,3,K)
./pkg/zonal_filt/fftpack.F 1087 R8ADB5 
         TI4 = CC(1,5,K)+CC(1,5,K)
./pkg/zonal_filt/fftpack.F 1088 R8ADB5 
         TR2 = CC(IDO,2,K)+CC(IDO,2,K)
./pkg/zonal_filt/fftpack.F 1089 R8ADB5 
         TR3 = CC(IDO,4,K)+CC(IDO,4,K)
./pkg/zonal_filt/fftpack.F 1090 R8ADB5 
         CH(1,K,1) = CC(1,1,K)+TR2+TR3
./pkg/zonal_filt/fftpack.F 1091 R8ADB5 
         CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3
./pkg/zonal_filt/fftpack.F 1092 R8ADB5 
         CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3
./pkg/zonal_filt/fftpack.F 109 RADB4 
            TI1 = CC(I,1,K)+CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 1105 R8ADB5 
            TI5 = CC(I,3,K)+CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 1106 R8ADB5 
            TI2 = CC(I,3,K)-CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 1107 R8ADB5 
            TI4 = CC(I,5,K)+CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 1108 R8ADB5 
            TI3 = CC(I,5,K)-CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 1109 R8ADB5 
            TR5 = CC(I-1,3,K)-CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 110 RADB4 
            TI2 = CC(I,1,K)-CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 1110 R8ADB5 
            TR2 = CC(I-1,3,K)+CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 1111 R8ADB5 
            TR4 = CC(I-1,5,K)-CC(IC-1,4,K)
./pkg/zonal_filt/fftpack.F 1112 R8ADB5 
            TR3 = CC(I-1,5,K)+CC(IC-1,4,K)
./pkg/zonal_filt/fftpack.F 1113 R8ADB5 
            CH(I-1,K,1) = CC(I-1,1,K)+TR2+TR3
./pkg/zonal_filt/fftpack.F 1114 R8ADB5 
            CH(I,K,1) = CC(I,1,K)+TI2+TI3
./pkg/zonal_filt/fftpack.F 1115 R8ADB5 
            CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3
./pkg/zonal_filt/fftpack.F 1116 R8ADB5 
            CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3
./pkg/zonal_filt/fftpack.F 1117 R8ADB5 
            CR3 = CC(I-1,1,K)+TR12*TR2+TR11*TR3
./pkg/zonal_filt/fftpack.F 1118 R8ADB5 
            CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3
./pkg/zonal_filt/fftpack.F 111 RADB4 
            TI3 = CC(I,3,K)-CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 112 RADB4 
            TR4 = CC(I,3,K)+CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 113 RADB4 
            TR1 = CC(I-1,1,K)-CC(IC-1,4,K)
./pkg/zonal_filt/fftpack.F 1143 R8ADBG 
      SUBROUTINE R8ADBG (IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA)
./pkg/zonal_filt/fftpack.F 1146 R8ADBG 
      DIMENSION       CH(IDO,L1,IP)          ,CC(IDO,IP,L1)          ,
./pkg/zonal_filt/fftpack.F 114 RADB4 
            TR2 = CC(I-1,1,K)+CC(IC-1,4,K)
./pkg/zonal_filt/fftpack.F 115 RADB4 
            TI4 = CC(I-1,3,K)-CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 1160 R8ADBG 
            CH(I,K,1) = CC(I,1,K)
./pkg/zonal_filt/fftpack.F 1166 R8ADBG 
            CH(I,K,1) = CC(I,1,K)
./pkg/zonal_filt/fftpack.F 116 RADB4 
            TR3 = CC(I-1,3,K)+CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 1173 R8ADBG 
            CH(1,K,J) = CC(IDO,J2-2,K)+CC(IDO,J2-2,K)
./pkg/zonal_filt/fftpack.F 1174 R8ADBG 
            CH(1,K,JC) = CC(1,J2-1,K)+CC(1,J2-1,K)
./pkg/zonal_filt/fftpack.F 1184 R8ADBG 
               CH(I-1,K,J) = CC(I-1,2*J-1,K)+CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1185 R8ADBG 
               CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1186 R8ADBG 
               CH(I,K,J) = CC(I,2*J-1,K)-CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1187 R8ADBG 
               CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1197 R8ADBG 
               CH(I-1,K,J) = CC(I-1,2*J-1,K)+CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1198 R8ADBG 
               CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1199 R8ADBG 
               CH(I,K,J) = CC(I,2*J-1,K)-CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 1200 R8ADBG 
               CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 12 RADB2 
      SUBROUTINE RADB2 (IDO,L1,CC,CH,WA1)
./pkg/zonal_filt/fftpack.F 136 RADB4 
         TI1 = CC(1,2,K)+CC(1,4,K)
./pkg/zonal_filt/fftpack.F 1373 R8ADF2 
      SUBROUTINE R8ADF2 (IDO,L1,CC,CH,WA1)
./pkg/zonal_filt/fftpack.F 1376 R8ADF2 
      DIMENSION       CH(IDO,2,L1)           ,CC(IDO,L1,2)           ,
./pkg/zonal_filt/fftpack.F 1379 R8ADF2 
         CH(1,1,K) = CC(1,K,1)+CC(1,K,2)
./pkg/zonal_filt/fftpack.F 137 RADB4 
         TI2 = CC(1,4,K)-CC(1,2,K)
./pkg/zonal_filt/fftpack.F 1380 R8ADF2 
         CH(IDO,2,K) = CC(1,K,1)-CC(1,K,2)
./pkg/zonal_filt/fftpack.F 1387 R8ADF2 
            TR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
./pkg/zonal_filt/fftpack.F 1388 R8ADF2 
            TI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
./pkg/zonal_filt/fftpack.F 1389 R8ADF2 
            CH(I,1,K) = CC(I,K,1)+TI2
./pkg/zonal_filt/fftpack.F 138 RADB4 
         TR1 = CC(IDO,1,K)-CC(IDO,3,K)
./pkg/zonal_filt/fftpack.F 1390 R8ADF2 
            CH(IC,2,K) = TI2-CC(I,K,1)
./pkg/zonal_filt/fftpack.F 1391 R8ADF2 
            CH(I-1,1,K) = CC(I-1,K,1)+TR2
./pkg/zonal_filt/fftpack.F 1392 R8ADF2 
            CH(IC-1,2,K) = CC(I-1,K,1)-TR2
./pkg/zonal_filt/fftpack.F 1397 R8ADF2 
         CH(1,2,K) = -CC(IDO,K,2)
./pkg/zonal_filt/fftpack.F 1398 R8ADF2 
         CH(IDO,1,K) = CC(IDO,K,1)
./pkg/zonal_filt/fftpack.F 139 RADB4 
         TR2 = CC(IDO,1,K)+CC(IDO,3,K)
./pkg/zonal_filt/fftpack.F 1402 R8ADF3 
      SUBROUTINE R8ADF3 (IDO,L1,CC,CH,WA1,WA2)
./pkg/zonal_filt/fftpack.F 1405 R8ADF3 
      DIMENSION       CH(IDO,3,L1)           ,CC(IDO,L1,3)           ,
./pkg/zonal_filt/fftpack.F 1409 R8ADF3 
         CR2 = CC(1,K,2)+CC(1,K,3)
./pkg/zonal_filt/fftpack.F 1410 R8ADF3 
         CH(1,1,K) = CC(1,K,1)+CR2
./pkg/zonal_filt/fftpack.F 1411 R8ADF3 
         CH(1,3,K) = TAUI*(CC(1,K,3)-CC(1,K,2))
./pkg/zonal_filt/fftpack.F 1412 R8ADF3 
         CH(IDO,2,K) = CC(1,K,1)+TAUR*CR2
./pkg/zonal_filt/fftpack.F 1419 R8ADF3 
            DR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
./pkg/zonal_filt/fftpack.F 1420 R8ADF3 
            DI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
./pkg/zonal_filt/fftpack.F 1421 R8ADF3 
            DR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3)
./pkg/zonal_filt/fftpack.F 1422 R8ADF3 
            DI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3)
./pkg/zonal_filt/fftpack.F 1425 R8ADF3 
            CH(I-1,1,K) = CC(I-1,K,1)+CR2
./pkg/zonal_filt/fftpack.F 1426 R8ADF3 
            CH(I,1,K) = CC(I,K,1)+CI2
./pkg/zonal_filt/fftpack.F 1427 R8ADF3 
            TR2 = CC(I-1,K,1)+TAUR*CR2
./pkg/zonal_filt/fftpack.F 1428 R8ADF3 
            TI2 = CC(I,K,1)+TAUR*CI2
./pkg/zonal_filt/fftpack.F 1439 R8ADF4 
      SUBROUTINE R8ADF4 (IDO,L1,CC,CH,WA1,WA2,WA3)
./pkg/zonal_filt/fftpack.F 1442 R8ADF4 
      DIMENSION       CC(IDO,L1,4)           ,CH(IDO,4,L1)           ,
./pkg/zonal_filt/fftpack.F 1446 R8ADF4 
         TR1 = CC(1,K,2)+CC(1,K,4)
./pkg/zonal_filt/fftpack.F 1447 R8ADF4 
         TR2 = CC(1,K,1)+CC(1,K,3)
./pkg/zonal_filt/fftpack.F 1450 R8ADF4 
         CH(IDO,2,K) = CC(1,K,1)-CC(1,K,3)
./pkg/zonal_filt/fftpack.F 1451 R8ADF4 
         CH(1,3,K) = CC(1,K,4)-CC(1,K,2)
./pkg/zonal_filt/fftpack.F 1458 R8ADF4 
            CR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
./pkg/zonal_filt/fftpack.F 1459 R8ADF4 
            CI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
./pkg/zonal_filt/fftpack.F 1460 R8ADF4 
            CR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3)
./pkg/zonal_filt/fftpack.F 1461 R8ADF4 
            CI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3)
./pkg/zonal_filt/fftpack.F 1462 R8ADF4 
            CR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4)
./pkg/zonal_filt/fftpack.F 1463 R8ADF4 
            CI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4)
./pkg/zonal_filt/fftpack.F 1468 R8ADF4 
            TI2 = CC(I,K,1)+CI3
./pkg/zonal_filt/fftpack.F 1469 R8ADF4 
            TI3 = CC(I,K,1)-CI3
./pkg/zonal_filt/fftpack.F 1470 R8ADF4 
            TR2 = CC(I-1,K,1)+CR3
./pkg/zonal_filt/fftpack.F 1471 R8ADF4 
            TR3 = CC(I-1,K,1)-CR3
./pkg/zonal_filt/fftpack.F 147 RADB5 
      SUBROUTINE RADB5 (IDO,L1,CC,CH,WA1,WA2,WA3,WA4)
./pkg/zonal_filt/fftpack.F 1485 R8ADF4 
         TI1 = -HSQT2*(CC(IDO,K,2)+CC(IDO,K,4))
./pkg/zonal_filt/fftpack.F 1486 R8ADF4 
         TR1 = HSQT2*(CC(IDO,K,2)-CC(IDO,K,4))
./pkg/zonal_filt/fftpack.F 1487 R8ADF4 
         CH(IDO,1,K) = TR1+CC(IDO,K,1)
./pkg/zonal_filt/fftpack.F 1488 R8ADF4 
         CH(IDO,3,K) = CC(IDO,K,1)-TR1
./pkg/zonal_filt/fftpack.F 1489 R8ADF4 
         CH(1,2,K) = TI1-CC(IDO,K,3)
./pkg/zonal_filt/fftpack.F 1490 R8ADF4 
         CH(1,4,K) = TI1+CC(IDO,K,3)
./pkg/zonal_filt/fftpack.F 1494 R8ADF5 
      SUBROUTINE R8ADF5 (IDO,L1,CC,CH,WA1,WA2,WA3,WA4)
./pkg/zonal_filt/fftpack.F 1497 R8ADF5 
      DIMENSION       CC(IDO,L1,5)           ,CH(IDO,5,L1)           ,
./pkg/zonal_filt/fftpack.F 1502 R8ADF5 
         CR2 = CC(1,K,5)+CC(1,K,2)
./pkg/zonal_filt/fftpack.F 1503 R8ADF5 
         CI5 = CC(1,K,5)-CC(1,K,2)
./pkg/zonal_filt/fftpack.F 1504 R8ADF5 
         CR3 = CC(1,K,4)+CC(1,K,3)
./pkg/zonal_filt/fftpack.F 1505 R8ADF5 
         CI4 = CC(1,K,4)-CC(1,K,3)
./pkg/zonal_filt/fftpack.F 1506 R8ADF5 
         CH(1,1,K) = CC(1,K,1)+CR2+CR3
./pkg/zonal_filt/fftpack.F 1507 R8ADF5 
         CH(IDO,2,K) = CC(1,K,1)+TR11*CR2+TR12*CR3
./pkg/zonal_filt/fftpack.F 1509 R8ADF5 
         CH(IDO,4,K) = CC(1,K,1)+TR12*CR2+TR11*CR3
./pkg/zonal_filt/fftpack.F 1517 R8ADF5 
            DR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
./pkg/zonal_filt/fftpack.F 1518 R8ADF5 
            DI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
./pkg/zonal_filt/fftpack.F 1519 R8ADF5 
            DR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3)
./pkg/zonal_filt/fftpack.F 1520 R8ADF5 
            DI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3)
./pkg/zonal_filt/fftpack.F 1521 R8ADF5 
            DR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4)
./pkg/zonal_filt/fftpack.F 1522 R8ADF5 
            DI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4)
./pkg/zonal_filt/fftpack.F 1523 R8ADF5 
            DR5 = WA4(I-2)*CC(I-1,K,5)+WA4(I-1)*CC(I,K,5)
./pkg/zonal_filt/fftpack.F 1524 R8ADF5 
            DI5 = WA4(I-2)*CC(I,K,5)-WA4(I-1)*CC(I-1,K,5)
./pkg/zonal_filt/fftpack.F 152 RADB5 
      DIMENSION       CC(IDO,5,L1)           ,CH(IDO,L1,5)           ,
./pkg/zonal_filt/fftpack.F 1533 R8ADF5 
            CH(I-1,1,K) = CC(I-1,K,1)+CR2+CR3
./pkg/zonal_filt/fftpack.F 1534 R8ADF5 
            CH(I,1,K) = CC(I,K,1)+CI2+CI3
./pkg/zonal_filt/fftpack.F 1535 R8ADF5 
            TR2 = CC(I-1,K,1)+TR11*CR2+TR12*CR3
./pkg/zonal_filt/fftpack.F 1536 R8ADF5 
            TI2 = CC(I,K,1)+TR11*CI2+TR12*CI3
./pkg/zonal_filt/fftpack.F 1537 R8ADF5 
            TR3 = CC(I-1,K,1)+TR12*CR2+TR11*CR3
./pkg/zonal_filt/fftpack.F 1538 R8ADF5 
            TI3 = CC(I,K,1)+TR12*CI2+TR11*CI3
./pkg/zonal_filt/fftpack.F 1555 R8ADFG 
      SUBROUTINE R8ADFG (IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA)
./pkg/zonal_filt/fftpack.F 1558 R8ADFG 
      DIMENSION       CH(IDO,L1,IP)          ,CC(IDO,IP,L1)          ,
./pkg/zonal_filt/fftpack.F 157 RADB5 
         TI5 = CC(1,3,K)+CC(1,3,K)
./pkg/zonal_filt/fftpack.F 158 RADB5 
         TI4 = CC(1,5,K)+CC(1,5,K)
./pkg/zonal_filt/fftpack.F 159 RADB5 
         TR2 = CC(IDO,2,K)+CC(IDO,2,K)
./pkg/zonal_filt/fftpack.F 160 RADB5 
         TR3 = CC(IDO,4,K)+CC(IDO,4,K)
./pkg/zonal_filt/fftpack.F 161 RADB5 
         CH(1,K,1) = CC(1,1,K)+TR2+TR3
./pkg/zonal_filt/fftpack.F 162 RADB5 
         CR2 = CC(1,1,K)+TR11*TR2+TR12*TR3
./pkg/zonal_filt/fftpack.F 163 RADB5 
         CR3 = CC(1,1,K)+TR12*TR2+TR11*TR3
./pkg/zonal_filt/fftpack.F 1675 R8ADFG 
            CC(I,1,K) = CH(I,K,1)
./pkg/zonal_filt/fftpack.F 1681 R8ADFG 
            CC(I,1,K) = CH(I,K,1)
./pkg/zonal_filt/fftpack.F 1688 R8ADFG 
            CC(IDO,J2-2,K) = CH(1,K,J)
./pkg/zonal_filt/fftpack.F 1689 R8ADFG 
            CC(1,J2-1,K) = CH(1,K,JC)
./pkg/zonal_filt/fftpack.F 1700 R8ADFG 
               CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1701 R8ADFG 
               CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1702 R8ADFG 
               CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 1703 R8ADFG 
               CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J)
./pkg/zonal_filt/fftpack.F 1714 R8ADFG 
               CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1715 R8ADFG 
               CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 1716 R8ADFG 
               CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 1717 R8ADFG 
               CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J)
./pkg/zonal_filt/fftpack.F 176 RADB5 
            TI5 = CC(I,3,K)+CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 177 RADB5 
            TI2 = CC(I,3,K)-CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 178 RADB5 
            TI4 = CC(I,5,K)+CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 179 RADB5 
            TI3 = CC(I,5,K)-CC(IC,4,K)
./pkg/zonal_filt/fftpack.F 180 RADB5 
            TR5 = CC(I-1,3,K)-CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 181 RADB5 
            TR2 = CC(I-1,3,K)+CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 182 RADB5 
            TR4 = CC(I-1,5,K)-CC(IC-1,4,K)
./pkg/zonal_filt/fftpack.F 183 RADB5 
            TR3 = CC(I-1,5,K)+CC(IC-1,4,K)
./pkg/zonal_filt/fftpack.F 184 RADB5 
            CH(I-1,K,1) = CC(I-1,1,K)+TR2+TR3
./pkg/zonal_filt/fftpack.F 185 RADB5 
            CH(I,K,1) = CC(I,1,K)+TI2+TI3
./pkg/zonal_filt/fftpack.F 186 RADB5 
            CR2 = CC(I-1,1,K)+TR11*TR2+TR12*TR3
./pkg/zonal_filt/fftpack.F 187 RADB5 
            CI2 = CC(I,1,K)+TR11*TI2+TR12*TI3
./pkg/zonal_filt/fftpack.F 188 RADB5 
            CR3 = CC(I-1,1,K)+TR12*TR2+TR11*TR3
./pkg/zonal_filt/fftpack.F 189 RADB5 
            CI3 = CC(I,1,K)+TR12*TI2+TR11*TI3
./pkg/zonal_filt/fftpack.F 19 RADB2 
      DIMENSION       CC(IDO,2,L1)           ,CH(IDO,L1,2)           ,
./pkg/zonal_filt/fftpack.F 214 RADBG 
      SUBROUTINE RADBG (IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA)
./pkg/zonal_filt/fftpack.F 219 RADBG 
      DIMENSION       CH(IDO,L1,IP)          ,CC(IDO,IP,L1)          ,
./pkg/zonal_filt/fftpack.F 22 RADB2 
         CH(1,K,1) = CC(1,1,K)+CC(IDO,2,K)
./pkg/zonal_filt/fftpack.F 233 RADBG 
            CH(I,K,1) = CC(I,1,K)
./pkg/zonal_filt/fftpack.F 239 RADBG 
            CH(I,K,1) = CC(I,1,K)
./pkg/zonal_filt/fftpack.F 23 RADB2 
         CH(1,K,2) = CC(1,1,K)-CC(IDO,2,K)
./pkg/zonal_filt/fftpack.F 246 RADBG 
            CH(1,K,J) = CC(IDO,J2-2,K)+CC(IDO,J2-2,K)
./pkg/zonal_filt/fftpack.F 247 RADBG 
            CH(1,K,JC) = CC(1,J2-1,K)+CC(1,J2-1,K)
./pkg/zonal_filt/fftpack.F 257 RADBG 
               CH(I-1,K,J) = CC(I-1,2*J-1,K)+CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 258 RADBG 
               CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 259 RADBG 
               CH(I,K,J) = CC(I,2*J-1,K)-CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 260 RADBG 
               CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 270 RADBG 
               CH(I-1,K,J) = CC(I-1,2*J-1,K)+CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 271 RADBG 
               CH(I-1,K,JC) = CC(I-1,2*J-1,K)-CC(IC-1,2*J-2,K)
./pkg/zonal_filt/fftpack.F 272 RADBG 
               CH(I,K,J) = CC(I,2*J-1,K)-CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 273 RADBG 
               CH(I,K,JC) = CC(I,2*J-1,K)+CC(IC,2*J-2,K)
./pkg/zonal_filt/fftpack.F 30 RADB2 
            CH(I-1,K,1) = CC(I-1,1,K)+CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 31 RADB2 
            TR2 = CC(I-1,1,K)-CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 32 RADB2 
            CH(I,K,1) = CC(I,1,K)-CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 33 RADB2 
            TI2 = CC(I,1,K)+CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 40 RADB2 
         CH(IDO,K,1) = CC(IDO,1,K)+CC(IDO,1,K)
./pkg/zonal_filt/fftpack.F 41 RADB2 
         CH(IDO,K,2) = -(CC(1,2,K)+CC(1,2,K))
./pkg/zonal_filt/fftpack.F 450 RADF2 
      SUBROUTINE RADF2 (IDO,L1,CC,CH,WA1)
./pkg/zonal_filt/fftpack.F 455 RADF2 
      DIMENSION       CH(IDO,2,L1)           ,CC(IDO,L1,2)           ,
./pkg/zonal_filt/fftpack.F 458 RADF2 
         CH(1,1,K) = CC(1,K,1)+CC(1,K,2)
./pkg/zonal_filt/fftpack.F 459 RADF2 
         CH(IDO,2,K) = CC(1,K,1)-CC(1,K,2)
./pkg/zonal_filt/fftpack.F 45 RADB3 
      SUBROUTINE RADB3 (IDO,L1,CC,CH,WA1,WA2)
./pkg/zonal_filt/fftpack.F 466 RADF2 
            TR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
./pkg/zonal_filt/fftpack.F 467 RADF2 
            TI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
./pkg/zonal_filt/fftpack.F 468 RADF2 
            CH(I,1,K) = CC(I,K,1)+TI2
./pkg/zonal_filt/fftpack.F 469 RADF2 
            CH(IC,2,K) = TI2-CC(I,K,1)
./pkg/zonal_filt/fftpack.F 470 RADF2 
            CH(I-1,1,K) = CC(I-1,K,1)+TR2
./pkg/zonal_filt/fftpack.F 471 RADF2 
            CH(IC-1,2,K) = CC(I-1,K,1)-TR2
./pkg/zonal_filt/fftpack.F 476 RADF2 
         CH(1,2,K) = -CC(IDO,K,2)
./pkg/zonal_filt/fftpack.F 477 RADF2 
         CH(IDO,1,K) = CC(IDO,K,1)
./pkg/zonal_filt/fftpack.F 481 RADF3 
      SUBROUTINE RADF3 (IDO,L1,CC,CH,WA1,WA2)
./pkg/zonal_filt/fftpack.F 486 RADF3 
      DIMENSION       CH(IDO,3,L1)           ,CC(IDO,L1,3)           ,
./pkg/zonal_filt/fftpack.F 490 RADF3 
         CR2 = CC(1,K,2)+CC(1,K,3)
./pkg/zonal_filt/fftpack.F 491 RADF3 
         CH(1,1,K) = CC(1,K,1)+CR2
./pkg/zonal_filt/fftpack.F 492 RADF3 
         CH(1,3,K) = TAUI*(CC(1,K,3)-CC(1,K,2))
./pkg/zonal_filt/fftpack.F 493 RADF3 
         CH(IDO,2,K) = CC(1,K,1)+TAUR*CR2
./pkg/zonal_filt/fftpack.F 500 RADF3 
            DR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
./pkg/zonal_filt/fftpack.F 501 RADF3 
            DI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
./pkg/zonal_filt/fftpack.F 502 RADF3 
            DR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3)
./pkg/zonal_filt/fftpack.F 503 RADF3 
            DI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3)
./pkg/zonal_filt/fftpack.F 506 RADF3 
            CH(I-1,1,K) = CC(I-1,K,1)+CR2
./pkg/zonal_filt/fftpack.F 507 RADF3 
            CH(I,1,K) = CC(I,K,1)+CI2
./pkg/zonal_filt/fftpack.F 508 RADF3 
            TR2 = CC(I-1,K,1)+TAUR*CR2
./pkg/zonal_filt/fftpack.F 509 RADF3 
            TI2 = CC(I,K,1)+TAUR*CI2
./pkg/zonal_filt/fftpack.F 50 RADB3 
      DIMENSION       CC(IDO,3,L1)           ,CH(IDO,L1,3)           ,
./pkg/zonal_filt/fftpack.F 520 RADF4 
      SUBROUTINE RADF4 (IDO,L1,CC,CH,WA1,WA2,WA3)
./pkg/zonal_filt/fftpack.F 525 RADF4 
      DIMENSION       CC(IDO,L1,4)           ,CH(IDO,4,L1)           ,
./pkg/zonal_filt/fftpack.F 529 RADF4 
         TR1 = CC(1,K,2)+CC(1,K,4)
./pkg/zonal_filt/fftpack.F 530 RADF4 
         TR2 = CC(1,K,1)+CC(1,K,3)
./pkg/zonal_filt/fftpack.F 533 RADF4 
         CH(IDO,2,K) = CC(1,K,1)-CC(1,K,3)
./pkg/zonal_filt/fftpack.F 534 RADF4 
         CH(1,3,K) = CC(1,K,4)-CC(1,K,2)
./pkg/zonal_filt/fftpack.F 541 RADF4 
            CR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
./pkg/zonal_filt/fftpack.F 542 RADF4 
            CI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
./pkg/zonal_filt/fftpack.F 543 RADF4 
            CR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3)
./pkg/zonal_filt/fftpack.F 544 RADF4 
            CI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3)
./pkg/zonal_filt/fftpack.F 545 RADF4 
            CR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4)
./pkg/zonal_filt/fftpack.F 546 RADF4 
            CI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4)
./pkg/zonal_filt/fftpack.F 54 RADB3 
         TR2 = CC(IDO,2,K)+CC(IDO,2,K)
./pkg/zonal_filt/fftpack.F 551 RADF4 
            TI2 = CC(I,K,1)+CI3
./pkg/zonal_filt/fftpack.F 552 RADF4 
            TI3 = CC(I,K,1)-CI3
./pkg/zonal_filt/fftpack.F 553 RADF4 
            TR2 = CC(I-1,K,1)+CR3
./pkg/zonal_filt/fftpack.F 554 RADF4 
            TR3 = CC(I-1,K,1)-CR3
./pkg/zonal_filt/fftpack.F 55 RADB3 
         CR2 = CC(1,1,K)+TAUR*TR2
./pkg/zonal_filt/fftpack.F 568 RADF4 
         TI1 = -HSQT2*(CC(IDO,K,2)+CC(IDO,K,4))
./pkg/zonal_filt/fftpack.F 569 RADF4 
         TR1 = HSQT2*(CC(IDO,K,2)-CC(IDO,K,4))
./pkg/zonal_filt/fftpack.F 56 RADB3 
         CH(1,K,1) = CC(1,1,K)+TR2
./pkg/zonal_filt/fftpack.F 570 RADF4 
         CH(IDO,1,K) = TR1+CC(IDO,K,1)
./pkg/zonal_filt/fftpack.F 571 RADF4 
         CH(IDO,3,K) = CC(IDO,K,1)-TR1
./pkg/zonal_filt/fftpack.F 572 RADF4 
         CH(1,2,K) = TI1-CC(IDO,K,3)
./pkg/zonal_filt/fftpack.F 573 RADF4 
         CH(1,4,K) = TI1+CC(IDO,K,3)
./pkg/zonal_filt/fftpack.F 577 RADF5 
      SUBROUTINE RADF5 (IDO,L1,CC,CH,WA1,WA2,WA3,WA4)
./pkg/zonal_filt/fftpack.F 57 RADB3 
         CI3 = TAUI*(CC(1,3,K)+CC(1,3,K))
./pkg/zonal_filt/fftpack.F 582 RADF5 
      DIMENSION       CC(IDO,L1,5)           ,CH(IDO,5,L1)           ,
./pkg/zonal_filt/fftpack.F 587 RADF5 
         CR2 = CC(1,K,5)+CC(1,K,2)
./pkg/zonal_filt/fftpack.F 588 RADF5 
         CI5 = CC(1,K,5)-CC(1,K,2)
./pkg/zonal_filt/fftpack.F 589 RADF5 
         CR3 = CC(1,K,4)+CC(1,K,3)
./pkg/zonal_filt/fftpack.F 590 RADF5 
         CI4 = CC(1,K,4)-CC(1,K,3)
./pkg/zonal_filt/fftpack.F 591 RADF5 
         CH(1,1,K) = CC(1,K,1)+CR2+CR3
./pkg/zonal_filt/fftpack.F 592 RADF5 
         CH(IDO,2,K) = CC(1,K,1)+TR11*CR2+TR12*CR3
./pkg/zonal_filt/fftpack.F 594 RADF5 
         CH(IDO,4,K) = CC(1,K,1)+TR12*CR2+TR11*CR3
./pkg/zonal_filt/fftpack.F 602 RADF5 
            DR2 = WA1(I-2)*CC(I-1,K,2)+WA1(I-1)*CC(I,K,2)
./pkg/zonal_filt/fftpack.F 603 RADF5 
            DI2 = WA1(I-2)*CC(I,K,2)-WA1(I-1)*CC(I-1,K,2)
./pkg/zonal_filt/fftpack.F 604 RADF5 
            DR3 = WA2(I-2)*CC(I-1,K,3)+WA2(I-1)*CC(I,K,3)
./pkg/zonal_filt/fftpack.F 605 RADF5 
            DI3 = WA2(I-2)*CC(I,K,3)-WA2(I-1)*CC(I-1,K,3)
./pkg/zonal_filt/fftpack.F 606 RADF5 
            DR4 = WA3(I-2)*CC(I-1,K,4)+WA3(I-1)*CC(I,K,4)
./pkg/zonal_filt/fftpack.F 607 RADF5 
            DI4 = WA3(I-2)*CC(I,K,4)-WA3(I-1)*CC(I-1,K,4)
./pkg/zonal_filt/fftpack.F 608 RADF5 
            DR5 = WA4(I-2)*CC(I-1,K,5)+WA4(I-1)*CC(I,K,5)
./pkg/zonal_filt/fftpack.F 609 RADF5 
            DI5 = WA4(I-2)*CC(I,K,5)-WA4(I-1)*CC(I-1,K,5)
./pkg/zonal_filt/fftpack.F 618 RADF5 
            CH(I-1,1,K) = CC(I-1,K,1)+CR2+CR3
./pkg/zonal_filt/fftpack.F 619 RADF5 
            CH(I,1,K) = CC(I,K,1)+CI2+CI3
./pkg/zonal_filt/fftpack.F 620 RADF5 
            TR2 = CC(I-1,K,1)+TR11*CR2+TR12*CR3
./pkg/zonal_filt/fftpack.F 621 RADF5 
            TI2 = CC(I,K,1)+TR11*CI2+TR12*CI3
./pkg/zonal_filt/fftpack.F 622 RADF5 
            TR3 = CC(I-1,K,1)+TR12*CR2+TR11*CR3
./pkg/zonal_filt/fftpack.F 623 RADF5 
            TI3 = CC(I,K,1)+TR12*CI2+TR11*CI3
./pkg/zonal_filt/fftpack.F 640 RADFG 
      SUBROUTINE RADFG (IDO,IP,L1,IDL1,CC,C1,C2,CH,CH2,WA)
./pkg/zonal_filt/fftpack.F 645 RADFG 
      DIMENSION       CH(IDO,L1,IP)          ,CC(IDO,IP,L1)          ,
./pkg/zonal_filt/fftpack.F 66 RADB3 
            TR2 = CC(I-1,3,K)+CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 67 RADB3 
            CR2 = CC(I-1,1,K)+TAUR*TR2
./pkg/zonal_filt/fftpack.F 68 RADB3 
            CH(I-1,K,1) = CC(I-1,1,K)+TR2
./pkg/zonal_filt/fftpack.F 69 RADB3 
            TI2 = CC(I,3,K)-CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 70 RADB3 
            CI2 = CC(I,1,K)+TAUR*TI2
./pkg/zonal_filt/fftpack.F 71 RADB3 
            CH(I,K,1) = CC(I,1,K)+TI2
./pkg/zonal_filt/fftpack.F 72 RADB3 
            CR3 = TAUI*(CC(I-1,3,K)-CC(IC-1,2,K))
./pkg/zonal_filt/fftpack.F 73 RADB3 
            CI3 = TAUI*(CC(I,3,K)+CC(IC,2,K))
./pkg/zonal_filt/fftpack.F 762 RADFG 
            CC(I,1,K) = CH(I,K,1)
./pkg/zonal_filt/fftpack.F 768 RADFG 
            CC(I,1,K) = CH(I,K,1)
./pkg/zonal_filt/fftpack.F 775 RADFG 
            CC(IDO,J2-2,K) = CH(1,K,J)
./pkg/zonal_filt/fftpack.F 776 RADFG 
            CC(1,J2-1,K) = CH(1,K,JC)
./pkg/zonal_filt/fftpack.F 787 RADFG 
               CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 788 RADFG 
               CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 789 RADFG 
               CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 790 RADFG 
               CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J)
./pkg/zonal_filt/fftpack.F 801 RADFG 
               CC(I-1,J2-1,K) = CH(I-1,K,J)+CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 802 RADFG 
               CC(IC-1,J2-2,K) = CH(I-1,K,J)-CH(I-1,K,JC)
./pkg/zonal_filt/fftpack.F 803 RADFG 
               CC(I,J2-1,K) = CH(I,K,J)+CH(I,K,JC)
./pkg/zonal_filt/fftpack.F 804 RADFG 
               CC(IC,J2-2,K) = CH(I,K,JC)-CH(I,K,J)
./pkg/zonal_filt/fftpack.F 86 RADB4 
      SUBROUTINE RADB4 (IDO,L1,CC,CH,WA1,WA2,WA3)
./pkg/zonal_filt/fftpack.F 91 RADB4 
      DIMENSION       CC(IDO,4,L1)           ,CH(IDO,L1,4)           ,
./pkg/zonal_filt/fftpack.F 951 R8ADB2 
      SUBROUTINE R8ADB2 (IDO,L1,CC,CH,WA1)
./pkg/zonal_filt/fftpack.F 954 R8ADB2 
      DIMENSION       CC(IDO,2,L1)           ,CH(IDO,L1,2)           ,
./pkg/zonal_filt/fftpack.F 957 R8ADB2 
         CH(1,K,1) = CC(1,1,K)+CC(IDO,2,K)
./pkg/zonal_filt/fftpack.F 958 R8ADB2 
         CH(1,K,2) = CC(1,1,K)-CC(IDO,2,K)
./pkg/zonal_filt/fftpack.F 95 RADB4 
         TR1 = CC(1,1,K)-CC(IDO,4,K)
./pkg/zonal_filt/fftpack.F 965 R8ADB2 
            CH(I-1,K,1) = CC(I-1,1,K)+CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 966 R8ADB2 
            TR2 = CC(I-1,1,K)-CC(IC-1,2,K)
./pkg/zonal_filt/fftpack.F 967 R8ADB2 
            CH(I,K,1) = CC(I,1,K)-CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 968 R8ADB2 
            TI2 = CC(I,1,K)+CC(IC,2,K)
./pkg/zonal_filt/fftpack.F 96 RADB4 
         TR2 = CC(1,1,K)+CC(IDO,4,K)
./pkg/zonal_filt/fftpack.F 975 R8ADB2 
         CH(IDO,K,1) = CC(IDO,1,K)+CC(IDO,1,K)
./pkg/zonal_filt/fftpack.F 976 R8ADB2 
         CH(IDO,K,2) = -(CC(1,2,K)+CC(1,2,K))
./pkg/zonal_filt/fftpack.F 97 RADB4 
         TR3 = CC(IDO,2,K)+CC(IDO,2,K)
./pkg/zonal_filt/fftpack.F 980 R8ADB3 
      SUBROUTINE R8ADB3 (IDO,L1,CC,CH,WA1,WA2)
./pkg/zonal_filt/fftpack.F 983 R8ADB3 
      DIMENSION       CC(IDO,3,L1)           ,CH(IDO,L1,3)           ,
./pkg/zonal_filt/fftpack.F 987 R8ADB3 
         TR2 = CC(IDO,2,K)+CC(IDO,2,K)
./pkg/zonal_filt/fftpack.F 988 R8ADB3 
         CR2 = CC(1,1,K)+TAUR*TR2
./pkg/zonal_filt/fftpack.F 989 R8ADB3 
         CH(1,K,1) = CC(1,1,K)+TR2
./pkg/zonal_filt/fftpack.F 98 RADB4 
         TR4 = CC(1,3,K)+CC(1,3,K)
./pkg/zonal_filt/fftpack.F 990 R8ADB3 
         CI3 = TAUI*(CC(1,3,K)+CC(1,3,K))
./pkg/zonal_filt/fftpack.F 999 R8ADB3 
            TR2 = CC(I-1,3,K)+CC(IC-1,2,K)
./pkg/cheapaml/cheapaml_coare3_flux.F 146 CHEAPAML_COARE3_FLUX 
      CC=xkar*Ct/Cd            ! z/L vs Rib linear coefficient
./pkg/cheapaml/cheapaml_coare3_flux.F 150 CHEAPAML_COARE3_FLUX 
          zetu=CC*Ribu/(1. _d 0+Ribu/Ribcu)   ! Unstable G and F
./pkg/cheapaml/cheapaml_coare3_flux.F 152 CHEAPAML_COARE3_FLUX 
          zetu=CC*Ribu*(1. _d 0 +27. _d 0/9. _d 0*Ribu/CC) ! Stable
./pkg/cheapaml/cheapaml_coare3_flux.F 65 CHEAPAML_COARE3_FLUX 
      _RL psiu,psit,zot10,Ct10,CC,Ribu