diff options
| author | Thomas Grill <xovo@users.sourceforge.net> | 2003-06-13 02:45:16 +0000 |
|---|---|---|
| committer | Thomas Grill <xovo@users.sourceforge.net> | 2003-06-13 02:45:16 +0000 |
| commit | c0c7359304c7bb54d794c74b260d9b0bd18f02ae (patch) | |
| tree | c16ff1091eb663e4483e6fffe8f2db1abc152d28 /externals/grill/vasp/source/ops_gen.cpp | |
| parent | d1f912c93aef58acb6b69b16576792bbcd608399 (diff) | |
""
svn path=/trunk/; revision=701
Diffstat (limited to 'externals/grill/vasp/source/ops_gen.cpp')
| -rw-r--r-- | externals/grill/vasp/source/ops_gen.cpp | 4 |
1 files changed, 2 insertions, 2 deletions
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; } |