all_strand_allocation Subroutine

subroutine all_strand_allocation(me)
    type(strand_t), intent(inout) :: me
    integer :: NbCells

    allocate(me%ct(me%NbConst))
      
    NbCells=me%SC_Prop%NbCells
    allocate(me%StVar%SCtemp(NbCells))
    allocate(me%StVarOld%SCtemp(NbCells))
    allocate(me%StVarOld2%SCtemp(NbCells))
    allocate(me%StVarOld3%SCtemp(NbCells))
    allocate(me%StVarOld4%SCtemp(NbCells))
    allocate(me%StVarOld5%SCtemp(NbCells))
    allocate(me%StVarOld6%SCtemp(NbCells))
    allocate(me%flxS%wire(0:NbCells))
    allocate(me%flxS%wire_DerdTR(0:NbCells))
    allocate(me%flxS%wire_DerdTL(0:NbCells))
    allocate(me%scen%Q_ext(NbCells))
    allocate(me%scen%Bfield(NbCells))
    allocate(me%scen%dBfield(NbCells))
    allocate(me%big%amS(NbCells-1))
    allocate(me%big%cmS(NbCells-1))
    allocate(me%big%bmS(NbCells))
      
    me%StVar%SCtemp=0.0_dp; me%StVarOld%SCtemp=0.0_dp
    me%StVarOld2%SCtemp=0.0_dp; me%StVarOld3%SCtemp=0.0_dp
    me%StVarOld4%SCtemp=0.0_dp; me%StVarOld5%SCtemp=0.0_dp; me%StVarOld6%SCtemp=0.0_dp
    me%flxS%wire=0.0_dp
    me%flxS%wire_DerdTR=0.0_dp; me%flxS%wire_DerdTL=0.0_dp
    me%scen%Q_ext=0.0_dp;me%scen%Bfield=0.0_dp;me%scen%dBfield=0.0_dp
    me%big%amS=0.0_dp;me%big%bmS=0.0_dp;me%big%cmS=0.0_dp
end subroutine all_strand_allocation