fortranで童貞捨てたいんですが、、、、