From c9c3e9d3aad58fa2b8a7bff3c3149aedaba865f1 Mon Sep 17 00:00:00 2001 From: juribeparada Date: Wed, 20 Feb 2019 13:05:40 -0300 Subject: [PATCH] mdx: color scale bug fix --- contrib/mdx/src/mdx_subs.F | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/contrib/mdx/src/mdx_subs.F b/contrib/mdx/src/mdx_subs.F index 0d96230..a571f82 100644 --- a/contrib/mdx/src/mdx_subs.F +++ b/contrib/mdx/src/mdx_subs.F @@ -1768,6 +1768,8 @@ c write(6,*) 'set name = ',a_setname(i_tmp) else if (a_setname(i_chn) .eq. 'C8-Pha') then i_setvfmt(i_chn) = 7 r_dspwrap(i_chn) = 2.0d0*r_pi + i_dspaddr = 0 + r_dspaddr = 0. i_dspmode(i_chn) = 6 a_dspctbl(i_chn) = 'cmy' else if (a_setname(i_chn) .eq. 'C8-I') then @@ -1783,6 +1785,8 @@ c write(6,*) 'set name = ',a_setname(i_tmp) else if (a_setname(i_chn) .eq. 'C2-Pha') then i_setvfmt(i_chn) = 11 r_dspwrap(i_chn) = 2.0d0*r_pi + i_dspaddr = 0 + r_dspaddr = 0. i_dspmode(i_chn) = 6 a_dspctbl(i_chn) = 'cmy' else if (a_setname(i_chn) .eq. 'C4-Mag') then @@ -1790,6 +1794,8 @@ c write(6,*) 'set name = ',a_setname(i_tmp) else if (a_setname(i_chn) .eq. 'C4-Pha') then i_setvfmt(i_chn) = 13 r_dspwrap(i_chn) = 2.0d0*r_pi + i_dspaddr = 0 + r_dspaddr = 0. i_dspmode(i_chn) = 6 a_dspctbl(i_chn) = 'cmy' else if (a_setname(i_chn) .eq. 'SRTM-dte') then