subroutine WriteHDF5_Lagrange_t(this,fileId)
implicit none
class(Lagrange_t),intent(in) :: this
integer(HID_T),intent(in) :: fileId
call CreateGroup_HDF5(fileId,'/interp')
call WriteArray_HDF5(fileId,'/interp/controlpoints', &
this%controlPoints)
call WriteArray_HDF5(fileId,'/interp/qweights', &
this%qWeights)
call WriteArray_HDF5(fileId,'/interp/dgmatrix', &
this%dgMatrix)
call WriteArray_HDF5(fileId,'/interp/dmatrix', &
this%dMatrix)
call WriteArray_HDF5(fileId,'/interp/bmatrix', &
this%bMatrix)
call WriteArray_HDF5(fileId,'/interp/imatrix', &
this%iMatrix)
endsubroutine WriteHDF5_Lagrange_t