1 2 3 4 5 6 7 8 9 10 11 |
! Wrapper for the ll2r3_rotate subroutine in femtools/Coordinates.F90 subroutine rotate_ll2cart(longitude, latitude, u, v, r3u, r3v, r3w) use Coordinates implicit none real, intent(in):: longitude, latitude, u, v real, intent(out):: r3u, r3v, r3w call ll2r3_rotate(longitude, latitude, u, v, r3u, r3v, r3w) end subroutine |