Returns code for parameter variable declarations specifying the size of each
    dimension in the specified parameter.

def _ctypes_indices(parameter):
    """Returns code for parameter variable declarations specifying the size of each
    dimension in the specified parameter.
    """
    if (parameter.dimension is not None and ":" in parameter.dimension):
        splice = _ctypes_splice(parameter)
        if "out" in parameter.direction:
            #Even for pure out variables, the ctypes pointer is passed in and will
            #have a value already.
            return ("integer, intent(inout) :: {}".format(splice), False)
        else:
            return ("integer, intent(in) :: {}".format(splice), False)