X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M-newcorr%2FCOMMON.HAIRPIN;fp=source%2Funres%2Fsrc_MD-M-newcorr%2FCOMMON.HAIRPIN;h=f10326817216fa45dd89d0c633d160dcbc306202;hb=7308760ff07636ef6b1ee28d8c3a67a23c14b34b;hp=0000000000000000000000000000000000000000;hpb=9a54ab407f6d0d9d564d52763b3e2136450b9ffc;p=unres.git

diff --git a/source/unres/src_MD-M-newcorr/COMMON.HAIRPIN b/source/unres/src_MD-M-newcorr/COMMON.HAIRPIN
new file mode 100644
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