Symbol Description Uses
tcfc 5



File Line number Procedure Code
./pkg/fizhi/fizhi_lwrad.F 3033 CFCKDIS
      subroutine CFCKDIS(m,n,np,k,cfcexp,tcfc,tran)
./pkg/fizhi/fizhi_lwrad.F 3061 CFCKDIS
      _RL tcfc(m,n),tran(m,n)
./pkg/fizhi/fizhi_lwrad.F 3068 CFCKDIS
            tcfc(i,j)=tcfc(i,j)*cfcexp(i,j,k)
./pkg/fizhi/fizhi_lwrad.F 3069 CFCKDIS
            tran(i,j)=tran(i,j)*tcfc(i,j)