Changeset 11 for trunk/ToBeReviewed/UTILITAIRE/routine_name.pro

Timestamp:

04/27/06 11:05:35 (18 years ago)

Author:

pinsard

Message:

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

File:

• trunk/ToBeReviewed/UTILITAIRE/routine_name.pro (moved) (moved from trunk/UTILITAIRE/routine_name.pro) (1 diff)

trunk/ToBeReviewed/UTILITAIRE/routine_name.pro

@@ -52 +52 @@
 FUNCTION routine_name,  remonte
 ;
-   version=strmid(!version.release,0,3)
-   if version EQ '5.2' OR version EQ '5.3' OR version EQ '5.4' OR version EQ '5.5' OR version EQ '5.6' then begin
-      help,  /traceback, output = name
-      name = strtrim(name, 1)   ; on enleve les blancs en debut de ligne
-; on vat mettre les elements du vecteur bout a bout pour former un
+  help,  /traceback, output = name
+  name = strtrim(name, 1)     ; on enleve les blancs en debut de ligne
+; on va mettre les elements du vecteur bout a bout pour former un
 ; unique sring
-      allnames = ''
-      for i = 0, n_elements(name)-1 do allnames = allnames+name[i]
+  allnames = ''
+  for i = 0, n_elements(name)-1 do allnames = allnames+name[i]
 ;
-      name = str_sep(allnames, '%') ; on le redecoupe 
-      name = strtrim(name, 2)   ; on eleve les blancs devant et derriere
-      name = strcompress(name)  ; on compresse les blancs
+  name = str_sep(allnames, '%') ; on le redecoupe 
+  name = strtrim(name, 2)     ; on eleve les blancs devant et derriere
+  name = strcompress(name)      ; on compresse les blancs
 ; on ne retient pas les 2 premiers elements qui sont 1  un vide et la
 ; ligne concernant routine_name 
-      name = name[2: n_elements(name)-1]
+  name = name[2: n_elements(name)-1]
 ; on choisit la ligne qui nous concerne
-      if NOT keyword_set(remonte) then remonte = 0
-      if remonte GE n_elements(name) then return,  '$MAIN$'
-      name = name[remonte]
-      if strpos(name, '$MAIN$') NE -1 then return,  '$MAIN$'
-      name = str_sep(name, ' ')
-      if n_elements(name) LT 3  then name = name[0] ELSE name = 'L.'+name[1]+' '+name[2]
-   ENDIF ELSE BEGIN
-      print, 'attention la fonction routine_name a ete ecrite pour les versions: IDL 5.2, IDL 5.2.1, 5.3 ou 5.4. ou 5.4.1 ou 5.5  ou 5.6 Verifier qu''elle marche bien avec la version '+!version.release
-      return, 'Error'
-   ENDELSE 
-   return, name
+  if NOT keyword_set(remonte) then remonte = 0
+  if remonte GE n_elements(name) then return,  '$MAIN$'
+  name = name[remonte]
+  if strpos(name, '$MAIN$') NE -1 then return,  '$MAIN$'
+  name = str_sep(name, ' ')
+  if n_elements(name) LT 3  then name = name[0] ELSE name = 'L.'+name[1]+' '+name[2]
+;
+  return, name
 end