Changeset 39 for trunk/ToBeReviewed/PLOTS/LABEL/label.pro

Timestamp:

05/02/06 17:05:06 (18 years ago)

Author:

pinsard

Message:

upgrade of PLOTS/LABEL according to cerbere.lodyc.jussieu.fr: /usr/home/smasson/SAXO_RD/ : files

File:

• trunk/ToBeReviewed/PLOTS/LABEL/label.pro (copied) (copied from trunk/PLOTS/LABEL/label.pro) (7 diffs)

trunk/ToBeReviewed/PLOTS/LABEL/label.pro

@@ -30 +30 @@
 ;       ncontour=nombre de contour a tracer
 ;       level_z2d=vecteur contenant les valeurs des contours que l'on trace
-; (rq couleur est definit ds le common:
-;       c'est un vecteur contenant le numero des couleurs qui serviront a
+;       colnumb: un vecteur contenant le numero des couleurs qui serviront a
 ;               remplir entre les contours)
 ;
@@ -49 +48 @@
 ;------------------------------------------------------------
 ;------------------------------------------------------------
-pro label,cas,min,max,ncontour,level_z2d,NLEVEL=nlevel $
+pro label, cas, min, max, ncontour, level_z2d, colnumb, NLEVEL = nlevel $
           ,INTERVALLE=intervalle, STRICTFILL = strictfill
 @common
@@ -74 +73 @@
          ncontour = 1 > ncontour
          level_z2d  = min + (max-min)*(findgen(Ncontour)/Ncontour)
-         couleur    = ncoul*(findgen(Ncontour))/Ncontour+ncoul/(2*ncontour)
+         colnumb    = ncoul*(findgen(Ncontour))/Ncontour+ncoul/(2*ncontour)
          intervalle = level_z2d[1]-level_z2d[0]
       end
@@ -83 +82 @@
          ncontour = 1 > ncontour
          level_z2d = min + intervalle*findgen(Ncontour) 
-         couleur   = ncoul*(findgen(Ncontour))/Ncontour+ncoul/(2*ncontour)
+         colnumb   = ncoul*(findgen(Ncontour))/Ncontour+ncoul/(2*ncontour)
          max=level_z2d(Ncontour-1)+intervalle
       end
@@ -92 +91 @@
          level_z2d  = [20, 25, 30, 31, 32, 33, 33.5, 34+.25*findgen(16)]
          ncontour=23
-         couleur    = findgen(23)+1
+         colnumb    = findgen(23)+1
          masx = 37.75
          intervalle = -1
@@ -100 +99 @@
 ; lecture intervalles + palette dans fichier GMT
 
-         label_gmt, min, max, intervalle, ncoul, ncontour, level_z2d, couleur
+         label_gmt, min, max, intervalle, ncoul, ncontour, level_z2d, colnumb
 
       end
       else: begin
-         ras = report('Le numero de label demande n''existe pas', /error)
+         ras = report('Le numero de label demande n''existe pas')
       end
    ENDCASE
@@ -110 +109 @@
       ncontour = ncontour+1
       level_z2d = [level_z2d, max]
-      couleur = [couleur, ncoul-1]
+      colnumb = [colnumb, ncoul-1]
    endif
    return