c=============================================================================== c COM_Bs.INC c=============================================================================== c the magnetic fields: real B_TD, B_Helm COMMON /BFields/ B_TD, B_Helm