get_legend.c

Go to the documentation of this file.

#include "prototypes_new.h"
 
void get_legend()
 
{
 
extern int isom;
extern int pbase[];
extern unsigned long qmap[16],xmap[16];
extern unsigned long dmap[16],rmap[16];
extern int change_pcpn_flag;
extern int change_rpcpn_flag;
extern int change_diff_flag;
extern int change_frz_flag;
extern int change_maxmin_flag;
extern float delim[15][16];
extern int maxkscale;
extern int kscale;
extern int qlegend_save;
extern int zscale;
extern int tscale;
extern int maxzscale;
extern int maxtscale;
 
int i,j;
float ielim[][16]= {{-6.0,-4.0,-2.0,-1.5,-1.0,-0.5,-0.2,-0.1,
                      0.1, 0.2, 0.5, 1.0, 1.5, 2.0, 4.0, 6.0}};
                      
float zelim[][16]= {{0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15}};
 
float telim[][16]= 
  {{0.01,0.1,0.2,0.3,0.4,0.5,0.6,0.7,0.8,0.9,1.0, 1.1, 1.2, 1.3, 1.4, 1.5},
   {0.01,0.2,0.4,0.6,0.8,1.0,1.2,1.4,1.6,1.8,2.0, 2.2, 2.4, 2.6, 2.8, 3.0},
   {0.01,0.3,0.6,0.9,1.2,1.5,1.8,2.1,2.4,2.7,3.0, 3.3, 3.6, 3.9, 4.2, 4.5},
   {0.01,0.3,0.6,1.2,1.8,2.4,3.0,3.6,4.2,4.8,5.4, 6.0, 6.6, 7.2, 7.8, 8.4},
   {0.01,0.3,1.2,1.2,2.4,3.6,4.8,6.0,7.2,8.4,9.6,10.8,12.0,13.2,14.4,15.6}};
                    
float relim[][16]= {{ 0.01, 0.25, 0.5, 1.0, 1.5, 0.01, 0.25, 0.5, 1.0, 1.5, -99,-99,-99,-99, -99, -99},
                    { 0.01, 0.50, 1.0, 2.0, 3.0, 0.01, 0.50, 1.0, 2.0, 3.0, -99,-99,-99,-99, -99, -99},
                    { 0.01, 1.00, 2.0, 4.0, 6.0, 0.01, 1.00, 2.0, 4.0, 6.0, -99,-99,-99,-99, -99, -99},
            { 0.01, 2.00, 4.0, 8.0,12.0, 0.01, 2.00, 4.0, 8.0,12.0, -99,-99,-99,-99, -99, -99}};
 
float mnelim[3][16];
  
kscale=0;
zscale=0;
tscale=1;
 
qlegend_save=0;
 
for(j=0;j<5;j++) {
 
    for(i=0;i<16;i++)
                     delim[j][i]=telim[j][i];
           
     }
 
for(i=0; i < 15;i++)    
                     xmap[i]=qmap[i];
 
maxkscale=5;
 
if(change_frz_flag==1) {
 
           for(i=0;i<16;i++)
                     delim[0][i]=zelim[0][i];
           
           for(i=0; i < 15;i++)    
                              xmap[i]=qmap[i];
 
           maxzscale=1;
 
 
}
 
if(change_diff_flag==1) {           
 
           for(i=0;i<16;i++)
                     delim[0][i]=ielim[0][i];
           
           for(i=0; i < 15;i++)    
                              xmap[i]=dmap[i];
 
           maxkscale=1;
 
     }
 
       
if(change_rpcpn_flag==1) { 
          
    for(j=0;j<4;j++) {
 
           for(i=0;i<16;i++)
                     delim[j][i]=relim[j][i];
           
     }
                      
           for(i=0; i < 15;i++)    
                              xmap[i]=rmap[i];
 
           maxkscale=4;
 
     }
     
if(change_maxmin_flag==1) { 
          
    for(j=0;j<3;j++) {
 
           for(i=0;i<16;i++)
                     delim[j][i]=i*5+pbase[isom]+(j-1)*10;
           
     }
                      
           for(i=0; i < 15;i++)    
                              xmap[i]=qmap[i];
 
           maxtscale=3;
 
     }
 
      
 
}