test_cat_ungridded_dim_names Subroutine

public subroutine test_cat_ungridded_dim_names()

Arguments

None

Calls

proc~~test_cat_ungridded_dim_names~~CallsGraph proc~test_cat_ungridded_dim_names test_cat_ungridded_dim_names proc~make_ungridded_dims make_ungridded_dims proc~test_cat_ungridded_dim_names->proc~make_ungridded_dims

Source Code

    subroutine test_cat_ungridded_dim_names()
       type(UngriddedDims) :: dims
       character(len=8), parameter :: NAMES(3) = [character(len=8) :: 'Alice', 'Bob', 'Mallory']

       dims = make_ungridded_dims(NAMES)

    end subroutine test_cat_ungridded_dim_names