Changeset 122 for trunk/SRC/ForOldVersion/keep_compatibility.pro

Timestamp:

07/05/06 16:37:26 (18 years ago)

Author:

pinsard

Message:

Add svn:keyword Id ForOldVersion/?*.pro

File:

• trunk/SRC/ForOldVersion/keep_compatibility.pro (modified) (7 diffs, 2 props)

trunk/SRC/ForOldVersion/keep_compatibility.pro

@@ -1 +1 @@
 ;+
-; @file_comments 
+; @file_comments
 ;   1) define key_forgetold = 1b - keyword_set(flag)
 ;   2) remove all oldcm_used.pro found in !path
@@ -8 +8 @@
 ; @categories compatibility with old version
 ;
-; @examples
-; IDL> keep_compatibility [, flag]
-;
 ; @param flag {in}{optional} 1 or 0 to keep or forget the compatibility
 ;
-; uses cm_general
+; @uses cm_general
 ;
-; @restrictions copy oldcm_full or oldcm_empty must be found in the
-; !path. dir must also be in the !path
+; @restrictions
+; copy oldcm_full or oldcm_empty must be found in the !path.
+; dir must also be in the !path
+;
+; @examples
+; IDL> keep_compatibility,0
 ;
 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr)
 ;                      June 2005
+;
+; @version $Id$
 ;
 ;-
@@ -31 +34 @@
 ; version should be at least 6.0
 ;
-  IF fix(strmid(!version.release, 0, 1)) LT 6 THEN BEGIN 
+  IF fix(strmid(!version.release, 0, 1)) LT 6 THEN BEGIN
     print, '                   *** ***** ***'
     print, '                   *** ERROR ***'
@@ -48 +51 @@
     !path = !path+ ':' + expand_path(myuniquetmpdir)
     return
-  ENDIF 
+  ENDIF
 ;
-  if n_elements(flag) eq 0 then flag = 1b - keyword_set(key_forgetold) 
+  if n_elements(flag) eq 0 then flag = 1b - keyword_set(key_forgetold)
 ; 1) automatic definition of key_forgetold
-  key_forgetold = 1b - keyword_set(flag) 
+  key_forgetold = 1b - keyword_set(flag)
 ;
 ; 2) remove all oldcm_used.pro found in !path
@@ -65 +68 @@
 ; 4) copy oldcm_full(_empty) to myuniquetmpdir+'oldcm_used.pro'
 ; select which file should be copied to oldcm_used.pro
-    IF key_forgetold THEN BEGIN 
+    IF key_forgetold THEN BEGIN
       oldcm = find('oldcm_empty')
       print, 'We forget the compatibility with the old version'
-    ENDIF ELSE BEGIN 
-      oldcm = find('oldcm_full') 
+    ENDIF ELSE BEGIN
+      oldcm = find('oldcm_full')
       print, 'We keep the compatibility with the old version'
-    ENDELSE 
+    ENDELSE
 ;
     oldcm = oldcm[0]
@@ -88 +91 @@
 ;  make sure that the common variables are correctly initialized.
 ;
-  IF size(ccmeshparameters, /type) NE 8 THEN BEGIN 
+  IF size(ccmeshparameters, /type) NE 8 THEN BEGIN
     computegrid, 1, 1, 1, 1, 1, 1, /fullcgrid
-@cm_4data    
+@cm_4data
     varname = ''
     vargrid = 'T'
@@ -98 +101 @@
     valmask = 1.e20
   ENDIF
-;  
+;
   return
 END