Symbol Description Uses
iA 7



File Line number Procedure Code
./model/src/rotate_spherical_polar_grid.F 150 ROTATE_SPHERICAL_POLAR_GRID
          DO iA=1,3
./model/src/rotate_spherical_polar_grid.F 151 ROTATE_SPHERICAL_POLAR_GRID
           XYZgeo(iA) = 0. _d 0
./model/src/rotate_spherical_polar_grid.F 153 ROTATE_SPHERICAL_POLAR_GRID
          DO iA=1,3
./model/src/rotate_spherical_polar_grid.F 155 ROTATE_SPHERICAL_POLAR_GRID
            XYZgeo(iA) = XYZgeo(iA) + Ainv(iA,jA)*XYZrot(jA)
./model/src/rotate_spherical_polar_grid.F 60 ROTATE_SPHERICAL_POLAR_GRID
      INTEGER  I,  J, iA, jA, kA