arcos = 0.5D0*(PI-DSIGN(1.0D0,X)*PI)
[unres.git] / source / wham / src / COMMON.CONTROL.org
1       integer iscode,indpdb,outpdb,outmol2,icomparfunc,pdbint,
2      & ensembles
3       logical refstr,pdbref,punch_dist,print_rms,caonly,verbose,
4      & merge_helices,bxfile,cxfile,histfile,entfile,zscfile,
5      & rmsrgymap
6       common /cntrl/ iscode,indpdb,refstr,pdbref,outpdb,outmol2,
7      & punch_dist,print_rms,caonly,verbose,icomparfunc,pdbint,
8      & merge_helices,bxfile,cxfile,histfile,entfile,zscfile,rmsrgymap,
9      & ensembles