FUNCTION factorial(x)
	INTEGER :: x
	INTEGER :: i
	
	IF (x<=0) THEN 
		factorial=-1
	ELSE
		factorial=0
		DO i=2,x
			factorial=i
		END DO
	END IF

 END FUNCTION factorial