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

diff --git a/source/wham/src-M/openunits.F b/source/wham/src-M/openunits.F
index b9f54b7..85830ec 100644
--- a/source/wham/src-M/openunits.F
+++ b/source/wham/src-M/openunits.F
@@ -48,6 +48,11 @@ C Get parameter filenames and open the parameter files.
       open (isidep,file=sidename,status='old')
       call mygetenv('SIDEP',sidepname)
       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