subroutine CAL_offsetCorrect(time, eIn, eOut, nodes)
use types
real(kind=double), dimension(:), intent(in) :: time
real(kind=single), dimension(:), intent(in) :: eIn
real(kind=single), dimension(:), pointer :: eOut
integer(kind=int8), dimension(:), intent(in), optional :: &
nodes
end subroutine