Symbol Description Uses
x3 31


File Line number Procedure Code
./pkg/fizhi/fizhi_lwrad.F 2517 TABLUP 
      _RL x1,x2,x3,we,pe,fw,fp,pa,pb,pc,ax,ba,bb,t1,ca,cb,t2
./pkg/fizhi/fizhi_lwrad.F 2529 TABLUP 
        x3=(stem(i,j,k2)-stem(i,j,k1))/x1
./pkg/fizhi/fizhi_lwrad.F 2571 TABLUP 
        tran(i,j)= (ax + (t1+t2*x3) * x3)*tran(i,j)
./pkg/exf/exf_set_uv.F 172 EXF_SET_UV 
                           x3=xG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 176 EXF_SET_UV 
                           if ((x3-x1).gt.180) x3=x3-360
./pkg/exf/exf_set_uv.F 177 EXF_SET_UV 
                           if ((x1-x3).gt.180) x3=x3+360
./pkg/exf/exf_set_uv.F 184 EXF_SET_UV 
                           dx=0.5*(x3+x4-x1-x2)
./pkg/exf/exf_set_uv.F 189 EXF_SET_UV 
                           dx=0.5*(x2+x4-x1-x3)
./pkg/exf/exf_set_uv.F 263 EXF_SET_UV 
                           x3=xG(i,j+1,bi,bj)
./pkg/exf/exf_set_uv.F 267 EXF_SET_UV 
                           if ((x3-x1).gt.180) x3=x3-360
./pkg/exf/exf_set_uv.F 268 EXF_SET_UV 
                           if ((x1-x3).gt.180) x3=x3+360
./pkg/exf/exf_set_uv.F 275 EXF_SET_UV 
                           dx=0.5*(x3+x4-x1-x2)
./pkg/exf/exf_set_uv.F 280 EXF_SET_UV 
                           dx=0.5*(x2+x4-x1-x3)
./pkg/exf/exf_set_uv.F 89 EXF_SET_UV 
      _RL     fac, x1, x2, x3, x4, y1, y2, y3, y4, dx, dy