From 934a06f403371f8d8dbe06a514b64813b1b3d360 Mon Sep 17 00:00:00 2001 From: Cezary Czaplewski Date: Thu, 10 Mar 2016 16:03:16 +0900 Subject: [PATCH] wham src-M correction to make it working --- source/wham/src-M/enecalc1.F | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/source/wham/src-M/enecalc1.F b/source/wham/src-M/enecalc1.F index 0137fe6..9d03cee7 100644 --- a/source/wham/src-M/enecalc1.F +++ b/source/wham/src-M/enecalc1.F @@ -45,7 +45,7 @@ double precision fT(6),quot,quotl,kfacl,kfac /2.4d0/,T0 /3.0d2/ double precision tt integer snk_p(MaxR,MaxT_h,Max_parm) - integer scount_(MaxProcs) + integer scount_(0:MaxProcs) logical lerr character*64 bprotfile_temp call opentmp(islice,ientout,bprotfile_temp) -- 1.7.9.5