Merge branch 'lipid' into AFM

[unres.git] / source / wham / src-M / openunits.F

diff --git a/source/wham/src-M/openunits.F b/source/wham/src-M/openunits.F
index b9f54b7..5200b3e 100644 (file)
--- 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