X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-M%2Fopenunits.F;h=5ce02794c9c2506e9c92978471dbf9e991fc653b;hb=34d3ad3987785642be58fb2f26557d3314215577;hp=b9f54b7b717097a9f72ae47a1739bd71a6f5d99e;hpb=f690e8b70bab14132839afebf080d4a28363b226;p=unres.git

diff --git a/source/wham/src-M/openunits.F b/source/wham/src-M/openunits.F
index b9f54b7..5ce0279 100644
--- 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