update

[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..5ce0279 100644 (file)
--- a/source/wham/src-M/openunits.F
+++ b/source/wham/src-M/openunits.F
@@ -29,25 +29,27 @@ C Get the names and open the input files
       open (1,file=prefix(:ilen(prefix))//'.inp',status='old')
 C Get parameter filenames and open the parameter files.
       call mygetenv('BONDPAR',bondname)
-      open (ibond,file=bondname,status='old')
+c      open (ibond,file=bondname,status='old')
       call mygetenv('THETPAR',thetname)
-      open (ithep,file=thetname,status='old')
+c      open (ithep,file=thetname,status='old')
       call mygetenv('ROTPAR',rotname)
-      open (irotam,file=rotname,status='old')
+c      open (irotam,file=rotname,status='old')
       call mygetenv('TORPAR',torname)
-      open (itorp,file=torname,status='old')
+c      open (itorp,file=torname,status='old')
       call mygetenv('TORDPAR',tordname)
-      open (itordp,file=tordname,status='old')
+c      open (itordp,file=tordname,status='old')
       call mygetenv('FOURIER',fouriername)
-      open (ifourier,file=fouriername,status='old')
+c      open (ifourier,file=fouriername,status='old')
       call mygetenv('SCCORPAR',sccorname)
-      open (isccor,file=sccorname,status='old')
+c      open (isccor,file=sccorname,status='old')
       call mygetenv('ELEPAR',elename)
-      open (ielep,file=elename,status='old')
+c      open (ielep,file=elename,status='old')
       call mygetenv('SIDEPAR',sidename)
-      open (isidep,file=sidename,status='old')
+c      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