diff --git a/README.md b/README.md index 93a6226..ae6d25b 100644 --- a/README.md +++ b/README.md @@ -1 +1,7 @@ -# SIESTA \ No newline at end of file +# SIESTA + +This repository is part of the +[Stellarator-Tools](https://github.com/ORNL-Fusion/Stellarator-Tools.git) suite +of codes. To build this code, clone the +[Stellarator-Tools](https://github.com/ORNL-Fusion/Stellarator-Tools.git) +repository and enable the SIESTA project. diff --git a/Sources/siesta_force.f90 b/Sources/siesta_force.f90 index dbdab95..94a4514 100644 --- a/Sources/siesta_force.f90 +++ b/Sources/siesta_force.f90 @@ -84,7 +84,7 @@ SUBROUTINE update_force REAL (dp), DIMENSION(:,:,:), ALLOCATABLE :: KxBuij REAL (dp), DIMENSION(:,:,:), ALLOCATABLE :: KxBvij REAL (dp), DIMENSION(:,:), ALLOCATABLE :: pardamp - INTEGER :: istat ,m,n + INTEGER :: istat INTEGER :: n1 INTEGER :: n2 REAL (dp) :: ton