bug fix after Ana and cluster lipid (still in progress)
[unres.git] / source / cluster / wham / src-M / COMMON.IOUNITS
index c97090d..d171ae0 100644 (file)
@@ -10,10 +10,12 @@ C-----------------------------------------------------------------------
 C General I/O units & files
       integer inp,iout,igeom,intin,ipdb,imol2,ipdbin,ithep,irotam,
      &        itorp,itordp,ifourier,ielep,isidep,iscpp,icbase,istat,
-     &        ientin,ientout,isidep1,ibond,isccor,jrms,jplot
+     &        ientin,ientout,isidep1,ibond,isccor,jrms,jplot,
+     &        iliptranpar
       common /iounits/ inp,iout,igeom,intin,ipdb,imol2,ipdbin,ithep,
      &        irotam,itorp,itordp,ifourier,ielep,isidep,iscpp,icbase,
-     &        istat,ientin,ientout,isidep1,ibond,isccor,jrms,jplot
+     &        istat,ientin,ientout,isidep1,ibond,isccor,jrms,jplot,
+     &        iliptranpar
       character*256 outname,intname,pdbname,mol2name,statname,intinname,
      &        entname,restartname,prefix,scratchdir,sidepname,pdbfile,
      &        sccorname,rmsname,prefintin,prefout
@@ -35,9 +37,9 @@ C CSA I/O units & files
      & icsa_bank_reminimized,icsa_native_int,icsa_in
 C Parameter files
       character*256 bondname,thetname,rotname,torname,tordname,
-     &       fouriername,elename,sidename,scpname,patname
+     &       fouriername,elename,sidename,scpname,patname,liptranname
       common /parfiles/ thetname,rotname,torname,tordname,bondname,
-     &       fouriername,elename,sidename,scpname,patname
+     &       fouriername,elename,sidename,scpname,patname,liptranname
       character*3 pot
 C-----------------------------------------------------------------------
 C INP    - main input file