Changeset 13 for trunk/src/file_asc_long2mem.pro

Timestamp:

02/18/14 11:03:22 (10 years ago)

Author:

pinsard

Message:

fix thanks to coding rules

File:

• trunk/src/file_asc_long2mem.pro (modified) (2 diffs)

trunk/src/file_asc_long2mem.pro

@@ -21 +21 @@
 ; :examples:
 ;
-; ::
+; .. code-block:: idl
 ;
-;    IDL> filename='/usr/work/incas/fplod/pomme_d/sta.P1L2.asc'
-;    IDL> result=file_asc_long2mem(filename)
+;    filename='/usr/work/incas/fplod/pomme_d/sta.P1L2.asc'
+;    result = file_asc_long2mem(filename)
 ;
-; impression de contrôle : structure, 1re station, toutes les stations ::
+; impression de contrôle : structure, 1re station, toutes les stations :
 ;
-;    IDL> print, result, /structure
-;    IDL> print, result[0].station
-;    IDL> print, result.station
+; .. code-block:: idl
+;
+;    print, result, /structure
+;    print, result[0].station
+;    print, result.station
 ;
 ; :uses:
@@ -62 +64 @@
 ;-
 FUNCTION file_asc_long2mem, filename
-;
-compile_opt idl2, strictarrsubs
-;
-; Return to caller if errors
-ON_ERROR, 2
-;
-usage = 'result=file_asc_long2mem(filename)'
-;
-nparam = N_PARAMS()
-IF (nparam LT 1) THEN BEGIN
-   ras = report(['Incorrect number of arguments.' $
-         + '!C' $
-         + 'Usage : ' + usage])
-   return, -1
-ENDIF
-;
-arg_type = size(filename,/type)
-IF (arg_type NE 7) THEN BEGIN
-   ras = report(['Incorrect arg type filename' $
-         + '!C' $
-         + 'Usage : ' + usage])
-   return, -1
-ENDIF
-;
-arg_dim =  size(filename,/n_elements)
-IF (arg_dim LT 1) THEN BEGIN
-   ras = report(['Incorrect arg dimension filename' $
-         + '!C' $
-         + 'Usage : ' + usage])
-  return, -1
-ENDIF
-;
-; initialize header
-header = STRARR(1)
-;
-resultstruct = { station: 0L $
-                , sonde: 0L $
-                , zmax: 0L $
-                , an: 0L $
-                , mm: 0L $
-                , jj: 0L $
-                , hh_begin: 0L $
-                , mm_begin: 0L $
-                , ss: 0L $
-                , deg_lat_begin : 0L $
-                , mm_lat_begin: 0.0 $
-                , deg_lon_begin: 0L $
-                , mm_lon_begin: 0.0 $
-                , deg_lat_end: 0L $
-                , mm_lat_end: 0.0 $
-                , deg_lon_end: 0L $
-                , mm_lon_end: 0.0 $
-                , hh_end: 0L $
-                , mm_end: 0L }
-;
-nrows = file_lines(filename) - N_ELEMENTS(header)
-result = Replicate(resultstruct, nrows)
-;
-; open file
-OPENR, lun, filename, /GET_LUN
-;++ hanlde error
-;
-; read header
-READF, lun, header
-;
-; read data lines
-READF, lun, result
-;
-; close file
-FREE_LUN, lun
-;
-return, result
-;
+    ;
+    compile_opt idl2, strictarrsubs
+    ;
+    ; Return to caller if errors
+    ON_ERROR, 2
+    ;
+    usage = 'result = file_asc_long2mem(filename)'
+    ;
+    nparam = N_PARAMS()
+    IF (nparam LT 1) THEN BEGIN
+        ras = report(['Incorrect number of arguments.' $
+        + '!C' $
+        + 'Usage : ' + usage])
+        return, -1
+    ENDIF
+    ;
+    arg_type = size(filename,/type)
+    IF (arg_type NE 7) THEN BEGIN
+        ras = report(['Incorrect arg type filename' $
+        + '!C' $
+        + 'Usage : ' + usage])
+        return, -1
+    ENDIF
+    ;
+    arg_dim =  size(filename,/n_elements)
+    IF (arg_dim LT 1) THEN BEGIN
+        ras = report(['Incorrect arg dimension filename' $
+        + '!C' $
+        + 'Usage : ' + usage])
+        return, -1
+    ENDIF
+    ;
+    ; initialize header
+    header = STRARR(1)
+    ;
+    resultstruct = { station: 0L $
+    , sonde: 0L $
+    , zmax: 0L $
+    , an: 0L $
+    , mm: 0L $
+    , jj: 0L $
+    , hh_begin: 0L $
+    , mm_begin: 0L $
+    , ss: 0L $
+    , deg_lat_begin : 0L $
+    , mm_lat_begin: 0.0 $
+    , deg_lon_begin: 0L $
+    , mm_lon_begin: 0.0 $
+    , deg_lat_end: 0L $
+    , mm_lat_end: 0.0 $
+    , deg_lon_end: 0L $
+    , mm_lon_end: 0.0 $
+    , hh_end: 0L $
+    , mm_end: 0L }
+    ;
+    nrows = file_lines(filename) - N_ELEMENTS(header)
+    result = Replicate(resultstruct, nrows)
+    ;
+    ; open file
+    OPENR, lun, filename, /GET_LUN
+    ;++ hanlde error
+    ;
+    ; read header
+    READF, lun, header
+    ;
+    ; read data lines
+    READF, lun, result
+    ;
+    ; close file
+    FREE_LUN, lun
+    ;
+    return, result
+    ;
 END