X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc%2Finclude_unres%2FCOMMON.NAMES;fp=source%2Fcluster%2Fwham%2Fsrc%2Finclude_unres%2FCOMMON.NAMES;h=a266339b40c63246c12a449dbf1d7226642514b6;hb=0a11a2c4ccee14ed99ae44f2565b270ba8d4bbb6;hp=0000000000000000000000000000000000000000;hpb=5eb407964903815242c59de10960f42761139e10;p=unres.git

diff --git a/source/cluster/wham/src/include_unres/COMMON.NAMES b/source/cluster/wham/src/include_unres/COMMON.NAMES
new file mode 100644
index 0000000..a266339
--- /dev/null
+++ b/source/cluster/wham/src/include_unres/COMMON.NAMES
@@ -0,0 +1,7 @@
+      character*3 restyp
+      character*1 onelet
+      common /names/ restyp(ntyp+1),onelet(ntyp+1)
+      character*10 ename,wname
+      integer nprint_ene,print_order
+      common /namterm/ ename(max_ene),wname(max_ene),nprint_ene,
+     &   print_order(max_ene)