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

diff --git a/source/wham/src-M/openunits.F b/source/wham/src-M/openunits.F
index b9f54b7..5200b3e 100644
--- a/source/wham/src-M/openunits.F
+++ b/source/wham/src-M/openunits.F
@@ -48,6 +48,8 @@ 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')
 #ifndef OLDSCP
 C
 C 8/9/01 In the newest version SCp interaction constants are read from a file