2 c parameter (maxres22=maxres*(maxres+1)/2)
4 double precision w,d0,DRDG,DD,H,XX
5 integer nbfrag,bfrag,nhfrag,hfrag,bvar_frag,hvar_frag,nhpb0,
6 1 lvar_frag,svar_frag,avar_frag
7 COMMON /c_frag/ nbfrag,bfrag(4,maxres/3),nhfrag,hfrag(2,maxres/3)
8 COMMON /frag/ bvar_frag(mxio,6),hvar_frag(mxio,3),
9 1 lvar_frag(mxio,3),svar_frag(mxio,3),
11 COMMON /WAGI/ w(MAXRES22),d0(MAXRES22)
13 COMMON /POCHODNE/ NX,NY,DRDG(MAXRES22,MAXRES),DD(MAXRES22),
14 1 H(MAXRES,MAXRES),XX(MAXRES)
15 COMMON /frozen/ mask(maxres)