From 0d44086c0e2e455e4f51c87c344fd13888b7f9ad Mon Sep 17 00:00:00 2001
From: ralfulrich <ralf.ulrich@kit.edu>
Date: Thu, 16 Jul 2020 10:56:40 +0200
Subject: [PATCH] added call
---
src/conex_mod.F | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/conex_mod.F b/src/conex_mod.F
index b2aeaa8..29decc9 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
--
GitLab