KJ135
/
ISCE_INSAR
mirror of http://172.16.0.12:5000/WBJY/ISCE_INSAR.git
4
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #8 from juribeparada/devel 

mdx: color scale bug fix
LT1AB
piyushrpt 2019-02-20 11:07:51 -08:00 committed by GitHub
parent 8994d6bb5c c9c3e9d3aa
commit b2b1a2197e
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
contrib/mdx/src/mdx_subs.F
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