From: Cezary Czaplewski Date: Fri, 18 Mar 2016 02:12:17 +0000 (+0900) Subject: arcos = 0.5D0*(PI-DSIGN(1.0D0,X)*PI) X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=commitdiff_plain;h=d10d588442ecb22db5021ff05d5d48edef2308f3 arcos = 0.5D0*(PI-DSIGN(1.0D0,X)*PI) --- diff --git a/source/cluster/unres/src/arcos.f b/source/cluster/unres/src/arcos.f index 052a1e4..698f704 100644 --- a/source/cluster/unres/src/arcos.f +++ b/source/cluster/unres/src/arcos.f @@ -2,7 +2,7 @@ implicit real*8 (a-h,o-z) include 'COMMON.GEO' IF (DABS(X).LT.1.0D0) GOTO 1 - ARCOS=0.5D0*(PI+DSIGN(X,1.0D0)*PI) + ARCOS=0.5D0*(PI-DSIGN(X,1.0D0)*PI) RETURN 1 ARCOS=DACOS(X) RETURN diff --git a/source/cluster/wham/src-M/arcos.f b/source/cluster/wham/src-M/arcos.f index 052a1e4..698f704 100644 --- a/source/cluster/wham/src-M/arcos.f +++ b/source/cluster/wham/src-M/arcos.f @@ -2,7 +2,7 @@ implicit real*8 (a-h,o-z) include 'COMMON.GEO' IF (DABS(X).LT.1.0D0) GOTO 1 - ARCOS=0.5D0*(PI+DSIGN(X,1.0D0)*PI) + ARCOS=0.5D0*(PI-DSIGN(X,1.0D0)*PI) RETURN 1 ARCOS=DACOS(X) RETURN diff --git a/source/cluster/wham/src/arcos.f b/source/cluster/wham/src/arcos.f index 052a1e4..698f704 100644 --- a/source/cluster/wham/src/arcos.f +++ b/source/cluster/wham/src/arcos.f @@ -2,7 +2,7 @@ implicit real*8 (a-h,o-z) include 'COMMON.GEO' IF (DABS(X).LT.1.0D0) GOTO 1 - ARCOS=0.5D0*(PI+DSIGN(X,1.0D0)*PI) + ARCOS=0.5D0*(PI-DSIGN(X,1.0D0)*PI) RETURN 1 ARCOS=DACOS(X) RETURN diff --git a/source/wham/src-M/arcos.f b/source/wham/src-M/arcos.f index 69810ea..afc6724 100644 --- a/source/wham/src-M/arcos.f +++ b/source/wham/src-M/arcos.f @@ -2,7 +2,7 @@ implicit real*8 (a-h,o-z) include 'COMMON.GEO' IF (DABS(X).LT.1.0D0) GOTO 1 - ARCOS=0.5D0*(PI+DSIGN(1.0D0,X)*PI) + ARCOS=0.5D0*(PI-DSIGN(1.0D0,X)*PI) RETURN 1 ARCOS=DACOS(X) RETURN diff --git a/source/wham/src/arcos.f b/source/wham/src/arcos.f index 69810ea..afc6724 100644 --- a/source/wham/src/arcos.f +++ b/source/wham/src/arcos.f @@ -2,7 +2,7 @@ implicit real*8 (a-h,o-z) include 'COMMON.GEO' IF (DABS(X).LT.1.0D0) GOTO 1 - ARCOS=0.5D0*(PI+DSIGN(1.0D0,X)*PI) + ARCOS=0.5D0*(PI-DSIGN(1.0D0,X)*PI) RETURN 1 ARCOS=DACOS(X) RETURN diff --git a/source/xdrfpdb/src-M/arcos.f b/source/xdrfpdb/src-M/arcos.f index 69810ea..afc6724 100644 --- a/source/xdrfpdb/src-M/arcos.f +++ b/source/xdrfpdb/src-M/arcos.f @@ -2,7 +2,7 @@ implicit real*8 (a-h,o-z) include 'COMMON.GEO' IF (DABS(X).LT.1.0D0) GOTO 1 - ARCOS=0.5D0*(PI+DSIGN(1.0D0,X)*PI) + ARCOS=0.5D0*(PI-DSIGN(1.0D0,X)*PI) RETURN 1 ARCOS=DACOS(X) RETURN diff --git a/source/xdrfpdb/src/arcos.f b/source/xdrfpdb/src/arcos.f index 69810ea..afc6724 100644 --- a/source/xdrfpdb/src/arcos.f +++ b/source/xdrfpdb/src/arcos.f @@ -2,7 +2,7 @@ implicit real*8 (a-h,o-z) include 'COMMON.GEO' IF (DABS(X).LT.1.0D0) GOTO 1 - ARCOS=0.5D0*(PI+DSIGN(1.0D0,X)*PI) + ARCOS=0.5D0*(PI-DSIGN(1.0D0,X)*PI) RETURN 1 ARCOS=DACOS(X) RETURN