subroutine fakt(efakt,nn)
	integer efakt
	if(nn.lt.0)then
	print *,"n on neg."
	return
	endif
	if(nn.eq.0)then
	efakt=1
	print 100,efakt
	return
100	format("fakt = ",I9)
	endif
	efakt=1
	do i=1,nn
	efakt=efakt*i
	enddo
	print 100,efakt
	return
	end