hdf5_prepare_data Subroutine

private subroutine hdf5_prepare_data(me)

Type Bound

hdf5_t

Arguments

Type IntentOptional Attributes Name
class(hdf5_t), intent(inout), target :: me

Called by

proc~~hdf5_prepare_data~~CalledByGraph proc~hdf5_prepare_data hdf5_t%hdf5_prepare_data program~reims_p reims_p program~reims_p->proc~hdf5_prepare_data

Source Code

subroutine hdf5_prepare_data(me)
    class(hdf5_t), target, intent(inout) :: me
    integer :: i,j,total,nodes

    allocate(me%tables(size(me%tbl_dsc)))
    do i = 1, size(me%tables); associate(tbl => me%tables(i), dsc => me%tbl_dsc(i))
        total = 0
        do j = 1, size(dsc%comps)
            total = total + size(dsc%comps(j)%p%node_x)
        enddo
        allocate(tbl%data(total,size(dsc%vars)))
        tbl%data = ieee_value(0.0_dp, ieee_quiet_nan)
        total = 0
        do j = 1, size(me%tbl_dsc(i)%comps)
            nodes = size(dsc%comps(j)%p%node_x)
            dsc%comps(j)%p%data => tbl%data(total+1:total+nodes,1:size(dsc%vars))
            total = total + nodes
        enddo
    end associate; enddo
end subroutine hdf5_prepare_data