From c0c7359304c7bb54d794c74b260d9b0bd18f02ae Mon Sep 17 00:00:00 2001 From: Thomas Grill Date: Fri, 13 Jun 2003 02:45:16 +0000 Subject: "" svn path=/trunk/; revision=701 --- externals/grill/vasp/source/ops_gen.cpp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'externals/grill/vasp/source/ops_gen.cpp') diff --git a/externals/grill/vasp/source/ops_gen.cpp b/externals/grill/vasp/source/ops_gen.cpp index fb354468..73aaab5c 100644 --- a/externals/grill/vasp/source/ops_gen.cpp +++ b/externals/grill/vasp/source/ops_gen.cpp @@ -147,7 +147,7 @@ BL VecOp::d_phasor(OpParam &p) register R ph = p.gen.ph,phinc = p.gen.phinc; if(p.revdir) ph -= (p.frames-1)*(phinc = -phinc); - for(; p.frames--; ph += phinc,p.rddt += p.rds) *p.rddt = fmod(ph,1.F); + for(; p.frames--; ph += phinc,p.rddt += p.rds) *p.rddt = fmod((F)ph,1.F); return true; } @@ -158,7 +158,7 @@ BL VecOp::d_mphasor(OpParam &p) register R ph = p.gen.ph,phinc = p.gen.phinc; if(p.revdir) ph -= (p.frames-1)*(phinc = -phinc); - for(; p.frames--; ph += phinc,p.rddt += p.rds,p.rsdt += p.rss) *p.rddt = *p.rsdt * fmod(ph,1.F); + for(; p.frames--; ph += phinc,p.rddt += p.rds,p.rsdt += p.rss) *p.rddt = *p.rsdt * fmod((F)ph,1.F); return true; } -- cgit v1.2.1