	SUBROUTINE EASE2SF(iopt,ascale,bscale,fmap_scale,bcols,brows,fr0,fs0)
C
C return selected EASE2 grid information (external interface)
C
C  inputs (integer)
C    iopt: projection type 8=EASE2 N, 9-EASE2 S, 10=EASE2 T/M
C    (note: ascale, bscale should be integer valued)
C    ascale:  scale factor 0..5 grid size is (basesize(ind))/2^isc
C    bscale:  base grid size index   (map units per cell in m)
C 
C    for definitions of ind and isc see EASE2_MAP_INFO
C
C  outputs (real)
C    fmap_scale               EASE2 map projection pixel size (km)
C    bcols, brows,            EASE2 grid size in pixels
C    fr0, fs0                 EASE2 base projection size in pixels
C
      integer iopt, bcols, brows
      real ascale, bscale, fmap_scale, fr0, fs0
c
      integer isc, ind
      double precision map_equatorial_radius_m, map_eccentricity
      double precision e2, map_reference_latitude
      double precision map_reference_longitude
      double precision map_second_reference_latitude
      double precision sin_phi1, cos_phi1, kz
      double precision map_scale, r0, s0, epsilon 

      isc=int(ascale)
      ind=int(bscale)

      call ease2_map_info(iopt,isc,ind,
     1     map_equatorial_radius_m, map_eccentricity,
     2     e2, map_reference_latitude, map_reference_longitude,
     3     map_second_reference_latitude, sin_phi1, cos_phi1, kz, 
     4     map_scale, bcols, brows, r0, s0, epsilon)

      fmap_scale=map_scale
      fr0=r0
      fs0=s0
      return
      end
