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

diff --git a/source/cluster/wham/src-NEWSC/include_unres/COMMON.NAMES b/source/cluster/wham/src-NEWSC/include_unres/COMMON.NAMES
new file mode 100644
index 0000000..a266339
--- /dev/null
+++ b/source/cluster/wham/src-NEWSC/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)