From 3a65ad9fcefad7589ae808de9c7dad02f4f77d87 Mon Sep 17 00:00:00 2001 From: Caoxiang Zhu Date: Wed, 6 Apr 2022 02:00:31 -0400 Subject: [PATCH] comment out straight part --- sources/saving.f90 | 62 +++++++++++++++++++++++----------------------- 1 file changed, 31 insertions(+), 31 deletions(-) diff --git a/sources/saving.f90 b/sources/saving.f90 index cbf33d3..d929bd9 100644 --- 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