all_FFsrcLink_allocation Subroutine

public subroutine all_FFsrcLink_allocation(me)

Arguments

Type IntentOptional Attributes Name
type(FFsrcLink_t), intent(inout) :: me

Called by

proc~~all_ffsrclink_allocation~~CalledByGraph proc~all_ffsrclink_allocation all_FFsrcLink_allocation proc~ffsrclink_init_part2 FFsrcLink_init_part2 proc~ffsrclink_init_part2->proc~all_ffsrclink_allocation program~reims_p reims_p program~reims_p->proc~ffsrclink_init_part2

Source Code

subroutine all_FFsrcLink_allocation(me)
    type(FFsrcLink_t), intent(inout) :: me

    allocate(me%lk(2,me%sizeNodes))
    
    allocate(me%DerSedOther(Nb_VarC,2,me%sizeNodes),me%DerSrdOther(Nb_VarC,2,me%sizeNodes))
    allocate(me%Matrix(Nb_VarC,2,2,me%sizeNodes))
    allocate(me%MxUp(8,me%sizeNodes),me%MxDown(8,me%sizeNodes))
    me%DerSedOther=0.0_dp; me%DerSrdOther=0.0_dp; me%Matrix=0.0_dp

end subroutine all_FFsrcLink_allocation