comment out straight part

PrincetonUniversity · Apr 6, 2022 · 3a65ad9 · 3a65ad9
1 parent 1717a4f
commit 3a65ad9
Showing 1 changed file with 31 additions and 31 deletions.
diff --git a/sources/saving.f90 b/sources/saving.f90
@@ -243,37 +243,37 @@ subroutine saving
  HWRITERV( 1 , time_optimize , time_optimize )
  HWRITERV( 1 , time_postproc , time_postproc )
 
- do icoil = 1,Ncoils
- select case(icoil)
- case(1)
- HWRITERV( coil(icoil)%NS , curvature_1, coil(icoil)%curvature(1:coil(icoil)%NS ) )
- HWRITERV( coil(icoil)%NS , straight_1, coil(icoil)%straight (1:coil(icoil)%NS ) ) 
- case(2)
- HWRITERV( coil(icoil)%NS , curvature_2, coil(icoil)%curvature(1:coil(icoil)%NS ) )
- HWRITERV( coil(icoil)%NS , straight_2, coil(icoil)%straight (1:coil(icoil)%NS ) ) 
- case(3)
- HWRITERV( coil(icoil)%NS , curvature_3, coil(icoil)%curvature(1:coil(icoil)%NS ) )
- HWRITERV( coil(icoil)%NS , straight_3, coil(icoil)%straight (1:coil(icoil)%NS ) ) 
- case(4)
- HWRITERV( coil(icoil)%NS , curvature_4, coil(icoil)%curvature(1:coil(icoil)%NS ) )
- HWRITERV( coil(icoil)%NS , straight_4, coil(icoil)%straight (1:coil(icoil)%NS ) ) 
- case(5)
- HWRITERV( coil(icoil)%NS , curvature_5, coil(icoil)%curvature(1:coil(icoil)%NS ) )
- HWRITERV( coil(icoil)%NS , straight_5, coil(icoil)%straight (1:coil(icoil)%NS ) ) 
- case(6)
- HWRITERV( coil(icoil)%NS , curvature_6, coil(icoil)%curvature(1:coil(icoil)%NS ) )
- HWRITERV( coil(icoil)%NS , straight_6, coil(icoil)%straight (1:coil(icoil)%NS ) ) 
- case(7)
- HWRITERV( coil(icoil)%NS , curvature_7, coil(icoil)%curvature(1:coil(icoil)%NS ) )
- HWRITERV( coil(icoil)%NS , straight_7, coil(icoil)%straight (1:coil(icoil)%NS ) ) 
- case(8)
- HWRITERV( coil(icoil)%NS , curvature_8, coil(icoil)%curvature(1:coil(icoil)%NS ) )
- HWRITERV( coil(icoil)%NS , straight_8, coil(icoil)%straight (1:coil(icoil)%NS ) ) 
- case(9)
- HWRITERV( coil(icoil)%NS , curvature_9, coil(icoil)%curvature(1:coil(icoil)%NS ) )
- HWRITERV( coil(icoil)%NS , straight_9, coil(icoil)%straight (1:coil(icoil)%NS ) ) 
- end select
- end do
+ ! do icoil = 1,Ncoils
+ !  select case(icoil)
+ !  case(1)
+ !  HWRITERV( coil(icoil)%NS , curvature_1, coil(icoil)%curvature(1:coil(icoil)%NS ) )
+ !  HWRITERV( coil(icoil)%NS , straight_1, coil(icoil)%straight (1:coil(icoil)%NS ) ) 
+ !  case(2)
+ !  HWRITERV( coil(icoil)%NS , curvature_2, coil(icoil)%curvature(1:coil(icoil)%NS ) )
+ !  HWRITERV( coil(icoil)%NS , straight_2, coil(icoil)%straight (1:coil(icoil)%NS ) ) 
+ !  case(3)
+ !  HWRITERV( coil(icoil)%NS , curvature_3, coil(icoil)%curvature(1:coil(icoil)%NS ) )
+ !  HWRITERV( coil(icoil)%NS , straight_3, coil(icoil)%straight (1:coil(icoil)%NS ) ) 
+ !  case(4)
+ !  HWRITERV( coil(icoil)%NS , curvature_4, coil(icoil)%curvature(1:coil(icoil)%NS ) )
+ !  HWRITERV( coil(icoil)%NS , straight_4, coil(icoil)%straight (1:coil(icoil)%NS ) ) 
+ !  case(5)
+ !  HWRITERV( coil(icoil)%NS , curvature_5, coil(icoil)%curvature(1:coil(icoil)%NS ) )
+ !  HWRITERV( coil(icoil)%NS , straight_5, coil(icoil)%straight (1:coil(icoil)%NS ) ) 
+ !  case(6)
+ !  HWRITERV( coil(icoil)%NS , curvature_6, coil(icoil)%curvature(1:coil(icoil)%NS ) )
+ !  HWRITERV( coil(icoil)%NS , straight_6, coil(icoil)%straight (1:coil(icoil)%NS ) ) 
+ !  case(7)
+ !  HWRITERV( coil(icoil)%NS , curvature_7, coil(icoil)%curvature(1:coil(icoil)%NS ) )
+ !  HWRITERV( coil(icoil)%NS , straight_7, coil(icoil)%straight (1:coil(icoil)%NS ) ) 
+ !  case(8)
+ !  HWRITERV( coil(icoil)%NS , curvature_8, coil(icoil)%curvature(1:coil(icoil)%NS ) )
+ !  HWRITERV( coil(icoil)%NS , straight_8, coil(icoil)%straight (1:coil(icoil)%NS ) ) 
+ !  case(9)
+ !  HWRITERV( coil(icoil)%NS , curvature_9, coil(icoil)%curvature(1:coil(icoil)%NS ) )
+ !  HWRITERV( coil(icoil)%NS , straight_9, coil(icoil)%straight (1:coil(icoil)%NS ) ) 
+ !  end select
+ ! end do