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

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