It returns an empty bspline_6d type. Note that INITIALIZE still needs to be called before it can be used. Not really that useful except perhaps in some OpenMP applications.
elemental function bspline_6d_constructor_empty() result(me) implicit none type(bspline_6d) :: me end function bspline_6d_constructor_empty