FinalizeReadVMEC Subroutine

SUBROUTINE FinalizeReadVMEC()
  USE MODgvec_Globals,ONLY:MPIroot
  IMPLICIT NONE
!-----------------------------------------------------------------------------------------------------------------------------------
! INPUT/OUTPUT VARIABLES
!-----------------------------------------------------------------------------------------------------------------------------------
! LOCAL VARIABLES
!===================================================================================================================================
  IF(.NOT. MPIroot)RETURN
  SDEALLOCATE( xm       )
  SDEALLOCATE( xn       )
  SDEALLOCATE( xm_nyq   )
  SDEALLOCATE( xn_nyq   )
  SDEALLOCATE( iotaf   )
  SDEALLOCATE( presf   )
  SDEALLOCATE( phi     )
  SDEALLOCATE( chi     )
  SDEALLOCATE( rmnc    )
  SDEALLOCATE( rmns    )
  SDEALLOCATE( zmnc    )
  SDEALLOCATE( zmns    )
  SDEALLOCATE( lmnc    )
  SDEALLOCATE( lmns    )

  SDEALLOCATE(gmnc)
  SDEALLOCATE(bmnc)
  SDEALLOCATE(gmns)
  SDEALLOCATE(bmns)
END SUBROUTINE FinalizeReadVMEC