Merge branch 'lipid' of mmka.chem.univ.gda.pl:unres into lipid

[unres.git] / source / unres / src_MD-M-newcorr / COMMON.HAIRPIN

diff --git a/source/unres/src_MD-M-newcorr/COMMON.HAIRPIN b/source/unres/src_MD-M-newcorr/COMMON.HAIRPIN
new file mode 100644 (file)
index 0000000..f103268
--- /dev/null
+++ b/source/unres/src_MD-M-newcorr/COMMON.HAIRPIN
@@ -0,0 +1,5 @@
+      integer nharp_seed(max_seed),nharp_tot,
+     & iharp_seed(4,maxres/3,max_seed),iharp_use(0:4,maxres/3,max_seed),
+     & nharp_use(max_seed)
+      common /spinka/ nharp_seed,nharp_tot,iharp_seed,iharp_use,
+     & nharp_use