working cluster for nano parameters

[unres.git] / source / cluster / wham / src-M / COMMON.IOUNITS

diff --git a/source/cluster/wham/src-M/COMMON.IOUNITS b/source/cluster/wham/src-M/COMMON.IOUNITS
index d171ae0..8c2fae8 100644 (file)
--- a/source/cluster/wham/src-M/COMMON.IOUNITS
+++ b/source/cluster/wham/src-M/COMMON.IOUNITS
@@ -11,11 +11,11 @@ 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,
-     &        iliptranpar
+     &        iliptranpar,itube
       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,
-     &        iliptranpar
+     &        iliptranpar,itube
       character*256 outname,intname,pdbname,mol2name,statname,intinname,
      &        entname,restartname,prefix,scratchdir,sidepname,pdbfile,
      &        sccorname,rmsname,prefintin,prefout
@@ -37,9 +37,11 @@ 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,liptranname
+     &       fouriername,elename,sidename,scpname,patname,liptranname,
+     &       tubename
       common /parfiles/ thetname,rotname,torname,tordname,bondname,
-     &       fouriername,elename,sidename,scpname,patname,liptranname
+     &       fouriername,elename,sidename,scpname,patname,liptranname,
+     &       tubename
       character*3 pot
 C-----------------------------------------------------------------------
 C INP    - main input file