module module1
	implicit none
	integer :: i,j,k
	private :: i
	
contains
    subroutine setI(value)
        implicit none
        integer, intent(in) :: value
        i = value
    end subroutine

    integer function getI()
        implicit none
        getI = i
    end function


end module