col_constructor_logical Subroutine

private subroutine col_constructor_logical(this, dcol)

Type Bound

column

Arguments

Type IntentOptional Attributes Name
class(column), intent(inout) :: this
logical, intent(in), dimension(:) :: dcol

Source Code

    subroutine col_constructor_logical(this, dcol)
        class(column), intent(inout) :: this
        logical, dimension(:), intent(in) :: dcol

        if (this % initialized) call this % destroy()
        this % initialized = .true.

        this % dtype = LOGICAL_NUM
        this % n = size(dcol, dim=1)
        allocate (this % lcol(this % n))
        this % lcol = dcol

    end subroutine col_constructor_logical