Changeset 69eca8 for pcp/src/ions.c

Timestamp:

Apr 21, 2008, 2:19:25 PM (17 years ago)

Author:

Frederik Heber <heber@…>

Children:

8dd187

Parents:

c5bdb23

git-author:

Frederik Heber <heber@…> (04/18/08 16:15:16)

git-committer:

Frederik Heber <heber@…> (04/21/08 14:19:25)

Message:

CalculateIonForce(): some change

File:

• pcp/src/ions.c (modified) (2 diffs)

pcp/src/ions.c ¶

@@ -597 +597 @@
 
 /** Sum up all forces acting on Ions.
- * IonType::FIon = IonType::FEwald  + IonType::FIonL + IonType::FIonNL for all
+ * IonType::FIon = IonType::FEwald  + IonType::FIonL + IonType::FIonNL + IonType::FMagnetic for all
  * dimensions #NDIM and each Ion of IonType
  * \param *P Problem at hand
@@ -608 +608 @@
     for (j=0; j < I->I[i].Max_IonsOfType; j++)
       for (d=0; d<NDIM;d++)
-                                I->I[i].FIon[d+j*NDIM] = I->I[i].FEwald[d+j*NDIM] + I->I[i].FIonL[d+j*NDIM] + I->I[i].FIonNL[d+j*NDIM];
+                                I->I[i].FIon[d+j*NDIM] = (I->I[i].FEwald[d+j*NDIM] + I->I[i].FIonL[d+j*NDIM] + I->I[i].FIonNL[d+j*NDIM] + I->I[i].FMagnetic[d+j*NDIM]);
 }