目标子程序.for

以前一个高人的程序

	SUBROUTINE MUBIAO(XX,F)!目标函数子程序
	REAL XX(100)!基因数组
	REAL A
	REAL B
	REAL F
	
	A=(XX(1)**2)*XX(2)*(XX(3)**2)
	B=2*(XX(1)**3)*(XX(3)**2)+3*(XX(1)**2)*(XX(2)**2)
     $    +2*(XX(2)**2)*(XX(3)**3)+(XX(1)**3)*(XX(2)**2)*(XX(3)**3)	
	 F=A/B
	RETURN
	END