Uncommented the Fortran getcompress test

bmribler · Feb 6, 2024 · 1188e45 · 1188e45
1 parent 678b33a
commit 1188e45
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 14 deletions.
diff --git a/mfhdf/fortran/mfsdf.c b/mfhdf/fortran/mfsdf.c
@@ -1575,7 +1575,7 @@ nsfsflmd(intf *id, intf *fillmode)
 
 /*-------------------------------------------------------------------------
  * Name:    scgichnk
- * Puporse: Call SDgetchunkinfo
+ * Purpose: Call SDgetchunkinfo
  * Inputs:  id: SDS access id
  * Outputs: dim_length: chunk dimensions
  *          flags:            -1 - SDS is nonchunked
@@ -1750,7 +1750,7 @@ nscscchnk(intf *id, intf *maxcache, intf *flags)
 
 /*-------------------------------------------------------------------------
  * Name:    scschnk
- * Puporse: Call SDsetchunk
+ * Purpose: Call SDsetchunk
  * Inputs:  id: SDS access id
  *          dim_length: chunk dimensions
  *          comp_type:  type of compression
@@ -1935,7 +1935,7 @@ nscwcchnk(intf *id, intf *start, _fcd char_data)
 
 /*-------------------------------------------------------------------------
  * Name:    scscompress
- * Puporse: Call SDsetcompress
+ * Purpose: Call SDsetcompress
  * Inputs:  id: SDS access id
  *          comp_type:  type of compression
  *                      COMP_CODE_NONE = 0
@@ -2001,7 +2001,7 @@ nscscompress(intf *id, intf *comp_type, intf *comp_prm)
 
 /*-------------------------------------------------------------------------
  * Name:    scgcompress
- * Puporse: Call SDgetcompress
+ * Purpose: Call SDgetcompinfo
  * Inputs:  id: SDS access id
  * Outputs: comp_type:  type of compression
  *                      COMP_CODE_NONE = 0

diff --git a/mfhdf/fortran/tszip.f b/mfhdf/fortran/tszip.f
@@ -277,17 +277,12 @@ program test_szip
      .                compressed dataset'
                 err_szip = err_szip + 1
                 endif
-C            write(*,*) comp_arg(1), comp_prm_out(1)
-C            write(*,*) comp_arg(2), comp_prm_out(2)
-C            write(*,*) comp_prm_out(3)
-C            write(*,*) comp_prm_out(4)
-C            write(*,*) comp_prm_out(5)
 
-C                if ((comp_arg(1) .ne. comp_prm_out(1)) .or.
-C     .              (comp_arg(2) .ne. comp_prm_out(2))) then
-C            print *, 'wrong compression parameter'
-C                err_szip = err_szip + 1
-C                endif
+        if ((comp_arg(1) .ne. comp_prm_out(1)) .or.
+     .       (comp_arg(2) .ne. comp_prm_out(2))) then
+            print *, 'wrong compression parameter'
+                err_szip = err_szip + 1
+                endif
 
 C
 C   Read part of the data back using sfrdata function