Actual size of a bspline_1d structure in bits.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(bspline_1d), | intent(in) | :: | me |
size of the structure in bits
pure function size_1d(me) result(s) implicit none class(bspline_1d),intent(in) :: me integer(ip) :: s !! size of the structure in bits s = 2_ip*int_size + logical_size + 2_ip*int_size if (allocated(me%bcoef)) s = s + real_size*size(me%bcoef,kind=ip) if (allocated(me%tx)) s = s + real_size*size(me%tx,kind=ip) if (allocated(me%work_val_1)) s = s + real_size*size(me%work_val_1,kind=ip) end function size_1d