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

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