Changeset 495 for trunk/SRC/ReadWrite/readoldopadistcoast.pro

Timestamp:

04/17/14 10:49:43 (10 years ago)

Author:

pinsard

Message:

fix thanks to coding rules; typo; dupe empty lines; trailing blanks

File:

• trunk/SRC/ReadWrite/readoldopadistcoast.pro (modified) (4 diffs)

trunk/SRC/ReadWrite/readoldopadistcoast.pro

@@ -18 +18 @@
 ; @returns
 ; a structure that contains two elements: tdistcoast (the
-; distance for the t-points) and fdiscoast (the distance for the
+; distance for the t-points) and fdistcoast (the distance for the
 ; f-points).
 ;
@@ -75 +75 @@
                             , IBLOC=ibloc, JPBYT=jpbyt, NUMREC=numrec
 ;
-;
   compile_opt idl2, strictarrsubs
 ;
@@ -86 +85 @@
    openr,numcost , iname_file, /get_lun, /swap_if_little_endian
 ; check the size of the file
-   filepamameters = fstat(numcost)
+   fileparameters = fstat(numcost)
 ; default parameter definition for ORCA2
    IF keyword_set(ibloc) THEN ibloc = long(ibloc) ELSE ibloc = 4096L
@@ -97 +96 @@
 ; number of records
    IF keyword_set(numrec) THEN numrec = long(numrec) ELSE numrec = 3L*jpk
-; difference between the record length and the size of the contened
+; difference between the record length and the size of the contained
 ; array.
    toomuch = reclen-jpiglo*jpjglo*jpbyt
 ; expected size computation
    size = numrec*reclen-toomuch
-   if size NE filepamameters.size then begin
+   if size NE fileparameters.size then begin
       ras = report(['The size of the file is not the expected one!', $
       'Check your file or the values of ibloc, jpiglo,', $