col_constructor_complex Subroutine

private subroutine col_constructor_complex(this, dcol)

Type Bound

column

Arguments

Type IntentOptional Attributes Name
class(column), intent(inout) :: this
complex(kind=rk), intent(in), dimension(:) :: dcol

Source Code

    subroutine col_constructor_complex(this, dcol)
        class(column), intent(inout) :: this
        complex(rk), dimension(:), intent(in) :: dcol

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

        this % dtype = COMPLEX_NUM
        this % n = size(dcol, dim=1)
        allocate (this % ccol(this % n))
        this % ccol = dcol

    end subroutine col_constructor_complex