Changeset 13 for trunk/src/dm2dd.pro

Timestamp:

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

Author:

pinsard

Message:

fix thanks to coding rules

File:

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

trunk/src/dm2dd.pro

@@ -23 +23 @@
 ; :examples:
 ;
-; ::
+; .. code-block:: idl
 ;
-;   IDL> degree=45
-;   IDL> minute=30.5
-;   IDL> dd=dm2dd(degree,minute)
-;   IDL> print,dd
-;   45.5083
+;    degree = 45
+;    minute = 30.5
+;    dd = dm2dd(degree,minute)
+;    print,dd
+;
+; .. parsed-literal::
+;
+;    45.5083
 ;
 ; :uses:
@@ -56 +59 @@
 FUNCTION DM2DD, degree, minute
 
-compile_opt idl2, strictarrsubs
+    compile_opt idl2, strictarrsubs
 
-; Return to caller if errors
-ON_ERROR, 2
+    ; Return to caller if errors
+    ON_ERROR, 2
 
-usage = 'result=dms2dss(degree, minute)'
+    usage = 'result = dms2dss(degree, minute)'
 
-; check parameters
-nparam = N_PARAMS()
-IF (nparam LT 2) THEN BEGIN
-   ras = report(['Incorrect number of arguments.' $
-         + '!C' $
-         + 'Usage : ' + usage])
-   return, -1
-ENDIF
+    ; check parameters
+    nparam = N_PARAMS()
+    IF (nparam LT 2) THEN BEGIN
+        ras = report(['Incorrect number of arguments.' $
+        + '!C' $
+        + 'Usage : ' + usage])
+        return, -1
+    ENDIF
 
-arg_type = size(degree,/type)
-IF ((arg_type NE 2) AND (arg_type NE 3)) THEN BEGIN
-   ras = report(['Incorrect arg type degree' $
-         + '!C' $
-         + 'Usage : ' + usage])
-   return, -1
-ENDIF
+    arg_type = size(degree,/type)
+    IF ((arg_type NE 2) AND (arg_type NE 3)) THEN BEGIN
+        ras = report(['Incorrect arg type degree' $
+        + '!C' $
+        + 'Usage : ' + usage])
+        return, -1
+    ENDIF
 
-arg_dim =  size(degree,/n_elements)
-IF (arg_dim GT 1) THEN BEGIN
-   ras = report(['Incorrect arg dimension degree' $
-         + '!C' $
-         + 'Usage : ' + usage])
-   return, -1
-ENDIF
+    arg_dim =  size(degree,/n_elements)
+    IF (arg_dim GT 1) THEN BEGIN
+        ras = report(['Incorrect arg dimension degree' $
+        + '!C' $
+        + 'Usage : ' + usage])
+        return, -1
+    ENDIF
 
-arg_type = size(minute,/type)
-IF (arg_type NE 4) THEN BEGIN
-   ras = report(['Incorrect arg type minute' $
-         + '!C' $
-         + 'Usage : ' + usage])
-   return, -1
-ENDIF
+    arg_type = size(minute,/type)
+    IF (arg_type NE 4) THEN BEGIN
+        ras = report(['Incorrect arg type minute' $
+        + '!C' $
+        + 'Usage : ' + usage])
+        return, -1
+    ENDIF
 
-arg_dim =  size(minute,/n_elements)
-IF (arg_dim GT 1) THEN BEGIN
-   ras = report(['Incorrect arg dimension minute' $
-         + '!C' $
-         + 'Usage : ' + usage])
-   return, -1
-ENDIF
+    arg_dim =  size(minute,/n_elements)
+    IF (arg_dim GT 1) THEN BEGIN
+        ras = report(['Incorrect arg dimension minute' $
+        + '!C' $
+        + 'Usage : ' + usage])
+        return, -1
+    ENDIF
 
-; conversion
-dd = degree + minute/60.d
+    ; conversion
+    dd = degree + minute/60.d
 
-return,dd
+    return, dd
 
 END