Symbol Description Uses
kA 7



File Line number Procedure Code
./model/src/rotate_spherical_polar_grid.F 122 ROTATE_SPHERICAL_POLAR_GRID
        DO kA=1,3
./model/src/rotate_spherical_polar_grid.F 123 ROTATE_SPHERICAL_POLAR_GRID
         CB  (iA,jA) = CB  (iA,jA) + Cinv(iA,kA)*Binv(kA,jA)
./model/src/rotate_spherical_polar_grid.F 129 ROTATE_SPHERICAL_POLAR_GRID
        DO kA=1,3
./model/src/rotate_spherical_polar_grid.F 130 ROTATE_SPHERICAL_POLAR_GRID
         Ainv(iA,jA) = Ainv(iA,jA) + Dinv(iA,kA)*CB(kA,jA)
./model/src/rotate_spherical_polar_grid.F 61 ROTATE_SPHERICAL_POLAR_GRID
      INTEGER  I,  J, iA, jA, kA