=> call corners(nlon_src, nlat_src,
ncrn_src,
$ src_lon,
src_lat,
$ src_name,
cdgrdtyp, id_sper, cd_sper,
$
src_corner_lon, src_corner_lat)
=> call corners(nlon_dst, nlat_dst, ncrn_dst,
$ dst_lon,
dst_lat,
$ dst_name,
cl_tgt, id_tper, cd_tper,
$
dst_corner_lon, dst_corner_lat)
Endif
=> call grid_init(map_method, rst_type, n_srch_bins,
$
src_size, dst_size, src_dims, dst_dims,
$
src_rank, dst_rank, ncrn_src, ncrn_dst,
$
sou_mask, tgt_mask, src_name, dst_name,
$
src_lat, src_lon, dst_lat, dst_lon,
$
src_corner_lat, src_corner_lon,
$
dst_corner_lat, dst_corner_lon,
$
src_area_origin, dst_area_origin)
=> call scrip(crmpfile, cmapping, map_method, normalize_opt,
$
lextrapdone, rl_varmul, id_scripvoi)
=> call init_remap_vars