diff --git a/src/conex_mod.F b/src/conex_mod.F
index b2aeaa8b6dc521728e62dd11dda79905ddb2b518..29decc9a048469d15691282aa462d9a5a30e132d 100644
--- a/src/conex_mod.F
+++ b/src/conex_mod.F
@@ -31121,7 +31121,7 @@ c reading cross sections from the file
        inquire(file=DATDIR(1:INDEX(DATDIR,' ')-1)//'qgsdat-II-04.bz2'
      *        ,exist=lcalc)
        lcanRead = 0
-       CorDataCanDeCompress(lcanRead)
+       call CorDataCanDeCompress(lcanRead)
        if (lcalc.and.lcanRead.ne.0) then
           luseCompress=1
        else
@@ -32678,7 +32678,7 @@ c nuclear cross sections
        inquire(file=DATDIR(1:INDEX(DATDIR,' ')-1)//'sectnu-II-04.bz2'
      *        ,exist=lcalc)
        lcanRead = 0
-       CorDataCanDeCompress(lcanRead)
+       call CorDataCanDeCompress(lcanRead)
        if (lcalc.and.lcanRead.ne.0) then
           luseCompress=1
        else