From a7dcb8f118070628921b6f4eba4658917dceb36c Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Wed, 10 Mar 2010 19:26:56 +0000
Subject: [PATCH] Fixed more typos
---
src/create_surfaces.f90 | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/src/create_surfaces.f90 b/src/create_surfaces.f90
index fba1afba..b6344bd1 100644
--- a/src/create_surfaces.f90
+++ b/src/create_surfaces.f90
@@ -630,11 +630,11 @@ select case(surface_type)
if (x(i).le.x1a) then
zx=sp01
elseif (x(i).le.x1b) then
- zx=sp01-((x(i)-x1a)/(-sp06/m))*sp06)
+ zx=sp01-(((x(i)-x1a)/(-sp06/m))*sp06)
elseif (x(i).le.x2a) then
zx=sp01-sp06
elseif (x(i).le.x2b) then
- zx=sp01-(1.d0+((x(i)-x2a)/(-sp06/m))*sp06)
+ zx=sp01-(1.d0+(((x(i)-x2a)/(-sp06/m))*sp06))
!zx=sp01-((1.d0-((x(i)-x2a)/(sp06/m)))*sp06)
else
zx=sp01
@@ -642,11 +642,11 @@ select case(surface_type)
if (y(i).le.y1a) then
z(i)=sp01
elseif (y(i).le.y1b) then
- z(i)=min(sp01-((y(i)-y1a)/(-sp06/m))*sp06),zx)
+ z(i)=min(sp01-(((y(i)-y1a)/(-sp06/m))*sp06),zx)
elseif (y(i).le.y2a) then
z(i)=min(sp01-sp06,zx)
elseif (y(i).le.y2b) then
- z(i)=min(sp01-(1.d0+((y(i)-y2a)/(-sp06/m))*sp06),zx)
+ z(i)=min(sp01-(1.d0+(((y(i)-y2a)/(-sp06/m))*sp06)),zx)
else
z(i)=sp01
endif
--
GitLab