X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-NEWSC-NEWCORR%2Finclude_unres%2FCOMMON.FRAG;fp=source%2Fwham%2Fsrc-NEWSC-NEWCORR%2Finclude_unres%2FCOMMON.FRAG;h=ee151f5568f50260a1519655ea6cbf4d568f9e21;hb=ba3ea24615556f941a400995233bfa4d81201e7c;hp=0000000000000000000000000000000000000000;hpb=e74a1da46f47c86b0c46679481b757c425642977;p=unres.git

diff --git a/source/wham/src-NEWSC-NEWCORR/include_unres/COMMON.FRAG b/source/wham/src-NEWSC-NEWCORR/include_unres/COMMON.FRAG
new file mode 100644
index 0000000..ee151f5
--- /dev/null
+++ b/source/wham/src-NEWSC-NEWCORR/include_unres/COMMON.FRAG
@@ -0,0 +1,5 @@
+      integer nbfrag,bfrag,nhfrag,hfrag,bvar_frag,hvar_frag,nhpb0,
+     & nh310frag,h310frag
+      COMMON /c_frag/ nbfrag,bfrag(4,maxres/3),nhfrag,hfrag(2,maxres/3),
+     & nh310frag,h310frag(2,maxres/2)
+      COMMON /frag/ bvar_frag(mxio,6),hvar_frag(mxio,3)