codekingpro/portable-devtools

1module data
2   real(8) :: shift
3contains
4   subroutine set_shift(in_shift)
5      real(8), intent(in) :: in_shift
6      shift = in_shift
7   end subroutine set_shift
8end module data
9