MODULE Mang
  REAL, ALLOCATABLE :: X(:),R(:,:)
  INTEGER N,M,I,J,K
CONTAINS
  FUNCTION TB(N)
  !  ALLOCATE(X(N))
	T=0
	DO I=1,N
	   T=T+X(I)
	ENDDO
	TB=T/N   
  END FUNCTION

END MODULE