arcos = 0.5D0*(PI-DSIGN(1.0D0,X)*PI)

[unres.git] / source / cluster / unres / src / COMMON.DBASE

      common /struct/ cart_base(3,maxres_base,maxseq),str_nam(maxseq),
     &     nres_base(3,maxseq),nseq
      character*8 str_nam