arcos = 0.5D0*(PI-DSIGN(1.0D0,X)*PI)
[unres.git] / source / xdrfpdb / src / COMMON.HEADER
1       character*80 titel
2       common /header/ titel