求一个fortran源程序,求出1到1000的素数.按每行十个素数输出.