X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Fopenunits.F;h=85830ec8299735fbb927d08691f2b244936c6315;hb=e4ae8a59273dfb32df1fb57382aef393c73b43a5;hp=5200b3edc9bebef51344f0e95125aa14ca53c55b;hpb=48f00408a2e488d2c34fd65d26fc69b214b4fbb2;p=unres.git

diff --git a/source/wham/src-M/openunits.F b/source/wham/src-M/openunits.F
index 5200b3e..85830ec 100644
--- a/source/wham/src-M/openunits.F
+++ b/source/wham/src-M/openunits.F
@@ -50,6 +50,9 @@ C Get parameter filenames and open the parameter files.
       open (isidep1,file=sidepname,status="old")
       call mygetenv('LIPTRANPAR',liptranname)
       open (iliptranpar,file=liptranname,status='old',action='read')
+      call mygetenv('TUBEPAR',tubename)
+      open (itube,file=tubename,status='old')
+
 #ifndef OLDSCP
 C
 C 8/9/01 In the newest version SCp interaction constants are read from a file