From d10d588442ecb22db5021ff05d5d48edef2308f3 Mon Sep 17 00:00:00 2001 From: Cezary Czaplewski Date: Fri, 18 Mar 2016 11:12:17 +0900 Subject: [PATCH] arcos = 0.5D0*(PI-DSIGN(1.0D0,X)*PI) --- source/cluster/unres/src/arcos.f | 2 +- source/cluster/wham/src-M/arcos.f | 2 +- source/cluster/wham/src/arcos.f | 2 +- source/wham/src-M/arcos.f | 2 +- source/wham/src/arcos.f | 2 +- source/xdrfpdb/src-M/arcos.f | 2 +- source/xdrfpdb/src/arcos.f | 2 +- 7 files changed, 7 insertions(+), 7 deletions(-) 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 -- 1.7.9.5