mdx: color scale bug fix

LT1AB
juribeparada 2019-02-20 13:05:40 -03:00
parent 8994d6bb5c
commit c9c3e9d3aa
1 changed files with 6 additions and 0 deletions

View File

@ -1768,6 +1768,8 @@ c write(6,*) 'set name = ',a_setname(i_tmp)
else if (a_setname(i_chn) .eq. 'C8-Pha') then else if (a_setname(i_chn) .eq. 'C8-Pha') then
i_setvfmt(i_chn) = 7 i_setvfmt(i_chn) = 7
r_dspwrap(i_chn) = 2.0d0*r_pi r_dspwrap(i_chn) = 2.0d0*r_pi
i_dspaddr = 0
r_dspaddr = 0.
i_dspmode(i_chn) = 6 i_dspmode(i_chn) = 6
a_dspctbl(i_chn) = 'cmy' a_dspctbl(i_chn) = 'cmy'
else if (a_setname(i_chn) .eq. 'C8-I') then 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 else if (a_setname(i_chn) .eq. 'C2-Pha') then
i_setvfmt(i_chn) = 11 i_setvfmt(i_chn) = 11
r_dspwrap(i_chn) = 2.0d0*r_pi r_dspwrap(i_chn) = 2.0d0*r_pi
i_dspaddr = 0
r_dspaddr = 0.
i_dspmode(i_chn) = 6 i_dspmode(i_chn) = 6
a_dspctbl(i_chn) = 'cmy' a_dspctbl(i_chn) = 'cmy'
else if (a_setname(i_chn) .eq. 'C4-Mag') then 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 else if (a_setname(i_chn) .eq. 'C4-Pha') then
i_setvfmt(i_chn) = 13 i_setvfmt(i_chn) = 13
r_dspwrap(i_chn) = 2.0d0*r_pi r_dspwrap(i_chn) = 2.0d0*r_pi
i_dspaddr = 0
r_dspaddr = 0.
i_dspmode(i_chn) = 6 i_dspmode(i_chn) = 6
a_dspctbl(i_chn) = 'cmy' a_dspctbl(i_chn) = 'cmy'
else if (a_setname(i_chn) .eq. 'SRTM-dte') then else if (a_setname(i_chn) .eq. 'SRTM-dte') then