Merge branch 'master' of mmka.chem.univ.gda.pl:unres
[unres.git] / source / xdrfpdb / src / COMMON.VAR
1 C Store the geometric variables in the following COMMON block.
2       integer ntheta,nphi,nside,nvar,Origin,nstore,ialph,ivar,
3      &        mask_theta,mask_phi,mask_side
4       double precision theta,phi,alph,omeg,varsave,esave,varall,vbld,
5      &          thetaref,phiref,costtab,sinttab,cost2tab,sint2tab,
6      &          xxtab,yytab,zztab,xxref,yyref,zzref
7       common /var/ theta(maxres),phi(maxres),alph(maxres),omeg(maxres),
8      &          vbld(2*maxres),thetaref(maxres),phiref(maxres),
9      &          costtab(maxres), sinttab(maxres), cost2tab(maxres),
10      &          sint2tab(maxres),xxtab(maxres),yytab(maxres),
11      &          zztab(maxres),xxref(maxres),yyref(maxres),zzref(maxres),
12      &          ialph(maxres,2),ivar(4*maxres2),ntheta,nphi,nside,nvar