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