C=======================================================================C C C SUBROUTINE IJTOLL( I, J, CM, LTMX, RES, NS, NV, LAT, LNG ) C C C=======================================================================C C C C This subroutine determine the LAT/LNG location in a sinusoidal C C projection having a Central Meridian CM, maximum latitude LTMX, C C RES deg/pixel, NS samples, and was subsampled by a factor of NV C C at map location I,J. C C C C=======================================================================C C C C Version 1.0 T. Duxbury 20 July 2001 C C C C=======================================================================C IMPLICIT NONE C Double precision variables DOUBLE PRECISION * CM, ! Central meridian of sinusoidal projection, deg * LAT, LNG, ! Mars-fixed latitude and longitude, deg * LTMX, ! Maximum latitude of projection, deg * RES ! Projection resolution, deg/pixel C Ingeger variables INTEGER * I, J, ! Projection location of LAT/LNG * NS, ! # Sample in projection * NV ! Factor projection was sub-sampled (normally=1) C Compute the LAT / LNG location associated with I, J LAT = LTMX - DFLOAT( NV*(J-1) ) * RES ! deg LNG = CM + DFLOAT( NV*(I-NS/2-1) ) * RES / DCOSD( LAT ) ! deg C All Done - Return RETURN END