PRO print_defines

openw,1,'POLDER_prod.txt'
A = {parametre,name:'Ref',size:2,fi_by:4,unit:'%',slope:0.01,offset:0.,satur:999l,unvalid:999l,dummy:999l}
B = {combi,name:'CompColor VIS',p0:2,p1:1,p2:0}

;prod=define_L2TLGA() & print_resu,prod
;prod=define_L2TLGC() & print_resu,prod
;prod=define_L2TOGA() & print_resu,prod
;prod=define_L2TOGB() & print_resu,prod
;prod=define_L2TOGC() & print_resu,prod
;prod=define_L2TRGB() & print_resu,prod
;prod=define_L3TLGA() & print_resu,prod
;prod=define_L3TLGB() & print_resu,prod
;prod=define_L3TLGC() & print_resu,prod
;prod=define_L3TOGB() & print_resu,prod
;prod=define_L3TOGC() & print_resu,prod
;prod=define_L3TRGB() & print_resu,prod
;
;
;prod=define_L2TLGA2() & print_resu,prod
;prod=define_L2TLGC2() & print_resu,prod
;prod=define_L2TOGA2() & print_resu,prod
;prod=define_L2TOGB2() & print_resu,prod
;prod=define_L2TOGC2() & print_resu,prod
;prod=define_L2TRGB2() & print_resu,prod
;prod=define_L3TLGA2() & print_resu,prod
;prod=define_L3TLGB2() & print_resu,prod
;prod=define_L3TLGC2() & print_resu,prod
prod=define_L3TOGB2() & print_resu,prod
;prod=define_L3TOGC2() & print_resu,prod
;prod=define_L3TRGB2() & print_resu,prod

CLOSE,1

END


PRO print_resu,prod

print,'================= ',prod.type,' ===================='
IF prod.Nd_par EQ 0 THEN print,prod.Nbyte_tot,                           format='(" Taille:",I3," octets."                            ,/)' $
                    ELSE print,prod.Nbyte_tot,prod.Nbyte_nd,prod.Nbyte_d,format='(" Taille:",I3," octets.    Non Dir:",i3,"   Dir:",I3,"x14",/)'
FOR i=0,prod.Nu_par-1 DO BEGIN
  par = prod.U_par[i]
  CASE par.size OF
    1: print,par.fi_by+1,'I1',par.slope,par.offset,par.name,par.unit,format='(2x,I3,2x,A4,F9.5,F9.3,2x,A16,"  [",A,"]")'
    2: print,par.fi_by+1,par.fi_by+2,'I2',par.slope,par.offset,par.name,par.unit,format='(I3,"-",I3,A4,F9.5,F9.3,2x,A16,"  [",A,"]")'
   -2: print,par.fi_by+1,par.fi_by+2,'SI2',par.slope,par.offset,par.name,par.unit,format='(I3,"-",I3,A4,F9.5,F9.3,2x,A16,"  [",A,"]")'
  ENDCASE
ENDFOR
IF prod.Nd_par NE 0 THEN BEGIN
  print,'----------------------------------------------'
  FOR i=0,prod.Nd_par-1 DO BEGIN
    par = prod.D_par[i]
    pref = STRING(prod.Nbyte_d,format='(I2)')+'id+'
    dif = prod.Nbyte_nd-prod.Nbyte_d
    CASE par.size OF
      1: print,pref,dif+par.fi_by+1,'I1',par.slope,par.offset,par.name,par.unit,format='(A5,I2,A4,F9.5,F9.3,2x,A16,"  [",A,"]")'
      2: print,pref,dif+par.fi_by+1,'I2',par.slope,par.offset,par.name,par.unit,format='(A5,I2,A4,F9.5,F9.3,2x,A16,"  [",A,"]")'
     -2: print,pref,dif+par.fi_by+1,'SI2',par.slope,par.offset,par.name,par.unit,format='(A5,I2,A4,F9.5,F9.3,2x,A16,"  [",A,"]")'
    ENDCASE
  ENDFOR
ENDIF  
print,'===================================================='
FOR i=0,2 DO print,' '


;printf,1,'================= ',prod.type,' ===================='
;IF prod.Nd_par EQ 0 THEN printf,1,prod.Nbyte_tot,                           format='(" Taille:",I3," octets."                            ,/)' $
;                    ELSE printf,1,prod.Nbyte_tot,prod.Nbyte_nd,prod.Nbyte_d,format='(" Taille:",I3," octets.    Non Dir:",i3,"   Dir:",I3,"x14",/)'
;FOR i=0,prod.Nu_par-1 DO BEGIN
;  par = prod.U_par[i]
;  CASE par.size OF
;    1: printf,1,par.fi_by+1,'I1',par.slope,par.offset,par.name,par.unit,format='(2x,I3,2x,A4,F9.3,F9.3,2x,A16,"  [",A,"]")'
;    2: printf,1,par.fi_by+1,par.fi_by+2,'I2',par.slope,par.offset,par.name,par.unit,format='(I3,"-",I3,A4,F9.3,F9.3,2x,A16,"  [",A,"]")'
;   -2: printf,1,par.fi_by+1,par.fi_by+2,'SI2',par.slope,par.offset,par.name,par.unit,format='(I3,"-",I3,A4,F9.3,F9.3,2x,A16,"  [",A,"]")'
;  ENDCASE
;ENDFOR
;IF prod.Nd_par NE 0 THEN BEGIN
;  printf,1,'----------------------------------------------'
;  FOR i=0,prod.Nd_par-1 DO BEGIN
;    par = prod.D_par[i]
;    pref = STRING(prod.Nbyte_d,format='(I2)')+'id+'
;    dif = prod.Nbyte_nd-prod.Nbyte_d
;    CASE par.size OF
;      1: printf,1,pref,dif+par.fi_by+1,'I1',par.slope,par.offset,par.name,par.unit,format='(A5,I2,A4,F9.3,F9.3,2x,A16,"  [",A,"]")'
;      2: printf,1,pref,dif+par.fi_by+1,'I2',par.slope,par.offset,par.name,par.unit,format='(A5,I2,A4,F9.3,F9.3,2x,A16,"  [",A,"]")'
;     -2: printf,1,pref,dif+par.fi_by+1,'SI2',par.slope,par.offset,par.name,par.unit,format='(A5,I2,A4,F9.3,F9.3,2x,A16,"  [",A,"]")'
;    ENDCASE
;  ENDFOR
;ENDIF  
;
;printf,1,'===================================================='
;FOR i=0,2 DO printf,1,' '

END