Fortran Bench Mark Tests machine= scalar-mpp.cc.u-tokyo.ac.jp compile with [ f77 ] Date = Wed Jul 29 12:44:48 JST 1998 ------------------------------------------------------------------------------ (1) program = matvec.f f77: compile start : matvec.f *OFORT77 V02-06-/A entered. *program name = MATVEC *program name = MATVC1 MULTIPLY 1023*1023 REAL MATRIX TO VECTOR 3* 2000 TIMES. LARGEST EIGENVALUES= 1023.93053 1022.12165 1021.00563 110.69u 0.01s 1:51 99% 0+0k 70+0io 0pf+0w ------------------------------------------------------------------------------ (2) program = matvecz.f f77: compile start : matvecz.f *OFORT77 V02-06-/A entered. *program name = MTVCZ *program name = MTVCZ1 *program units = 0002, no diagnostics generated. MULTIPLY 723* 723 COMPLEX MATRIX TO VECTOR 3* 1000 TIMES LARGEST EIGENVALUES= 723.98791 722.12717 720.97077 62.53u 0.01s 1:03 98% 0+0k 69+1io 0pf+0w ------------------------------------------------------------------------------ (3) program = jacobi11.f f77: compile start : jacobi11.f *OFORT77 V02-06-/A entered. *program name = JACOB1 *program name = JACOB2 *program name = JACOBI *program units = 0003, no diagnostics generated. DIMENSION= 11 #JACOBI ROT CYC= 5* 200000 EMIN= -0.663815 EMAX= 10.309197 346.38u 0.01s 5:47 99% 0+0k 72+0io 0pf+0w ------------------------------------------------------------------------------ (4) program = jacobi1h.f f77: compile start : jacobi1h.f *OFORT77 V02-06-/A entered. *program name = JACOB1 *program name = JACOB2 *program name = JACOBI *program units = 0003, no diagnostics generated. DIMENSION=101 #JACOBI ROT CYC= 5* 200 EMIN= -3.859769 EMAX= 104.276991 117.59u 0.01s 1:58 99% 0+0k 73+0io 0pf+0w ------------------------------------------------------------------------------ (5) program = leqs4h.f f77: compile start : leqs4h.f *OFORT77 V02-06-/A entered. *program name = LEQS1 *program name = LEQS2 *program name = SLEQS *program units = 0003, no diagnostics generated. DIM= 401 #INV= 78 RESULTS: 0.9989295956 0.9989933805 0.9982736386 67.08u 0.01s 1:07 98% 0+0k 74+1io 0pf+0w ------------------------------------------------------------------------------ (6) program = leqs1k.f f77: compile start : leqs1k.f *OFORT77 V02-06-/A entered. *program name = LEQS1 *program name = LEQS2 *program name = SLEQS *program units = 0003, no diagnostics generated. DIM= 1001 #INV= 5 RESULTS: 0.9983222082 0.9999235137 1.0001292085 54.09u 0.01s 0:54 98% 0+0k 73+1io 0pf+0w ------------------------------------------------------------------------------ (7) program = intosc.f f77: compile start : intosc.f *OFORT77 V02-06-/A entered. *program name = INTOSC *program name = INTOS1 *program units = 0002, no diagnostics generated. I( 1000000000)= -2267 I( 1000000001)= -1233 307.25u 0.01s 5:08 99% 0+0k 69+0io 0pf+0w ------------------------------------------------------------------------------ (8) program = osc.f f77: compile start : osc.f *OFORT77 V02-06-/A entered. *program name = OSC *program name = OSC1 *program units = 0002, no diagnostics generated. I( 1000000000)= 9861.8410 I( 1000000001)= 9426.5602 26.74u 0.01s 0:27 97% 0+0k 69+0io 0pf+0w ------------------------------------------------------------------------------ (9) program = intpi3.f f77: compile start : intpi3.f *OFORT77 V02-06-/A entered. *program name = INTPI3 *program name = INTPI *program units = 0002, no diagnostics generated. PI= 50893811591411064*120/(8*N**5+15*N**3), N= 3000 422.37u 0.01s 7:03 99% 0+0k 69+0io 0pf+0w ------------------------------------------------------------------------------ (10) program = pi3.f f77: compile start : pi3.f *OFORT77 V02-06-/A entered. *program name = PI3 *program name = PI3A *program units = 0002, no diagnostics generated. N= 1500 PI= 3.141594622 101.82u 0.01s 1:42 99% 0+0k 70+1io 0pf+0w ------------------------------------------------------------------------------ (11) program = runge.f f77: compile start : runge.f *OFORT77 V02-06-/A entered. *program name = RUNGE *program name = RUNGE1 *program units = 0002, no diagnostics generated. 4TH-ORDER RUNGE-KUTTA FOR POTENTIAL=LOG(R). INITIAL R= 1.0 0.0 V= 0.0 1.5 TIME= 200000000* 0.00050 R= 1.95711 -1.69674 V= 0.29953 0.50675 128.27u 0.01s 2:09 99% 0+0k 71+1io 0pf+0w ------------------------------------------------------------------------------ (12) program = intgl4.f f77: compile start : intgl4.f *OFORT77 V02-06-/A entered. *program name = INTGL4 *program name = INTG4A *program units = 0002, no diagnostics generated. #PTS= 200**4 A= 0.1000 S= 3.244281965 204.07u 0.01s 3:25 99% 0+0k 69+1io 0pf+0w ------------------------------------------------------------------------------ (13) program = mathfnc1.f f77: compile start : mathfnc1.f *OFORT77 V02-06-/A entered. *program name = MATHF1 *program name = MTHF1B *program units = 0002, no diagnostics generated. INTEGRAL[ 0.1 0.9: 100000000 STEPS](SIN(X)+SQRT(COS(X)))DX= 1.111225554 65.87u 0.01s 1:06 98% 0+0k 73+0io 0pf+0w ------------------------------------------------------------------------------ (14) program = mathfnc2.f f77: compile start : mathfnc2.f *OFORT77 V02-06-/A entered. *program name = MATHF2 *program name = MTHF2B *program units = 0002, no diagnostics generated. INTEGRAL[ 0.1 0.9: 100000000 STEPS]ATAN2(EXP(X),LOG(X+1))DX= 1.081785145 146.95u 0.01s 2:27 99% 0+0k 71+0io 0pf+0w ------------------------------------------------------------------------------ (15) program = permute1.f f77: compile start : permute1.f *OFORT77 V02-06-/A entered. *program name = PERMUT *program name = PERM *program units = 0002, no diagnostics generated. INT*4 ARRAY_SIZE= 1024 #PERMUTATIONS/ARRAY_SIZE= 262144 A= 149 293 506 728 569 228 413 551 883 676 75.65u 0.01s 1:16 98% 0+0k 69+1io 0pf+0w ------------------------------------------------------------------------------ (16) program = permute2.f f77: compile start : permute2.f *OFORT77 V02-06-/A entered. *program name = PERMUT *program name = PERM *program units = 0002, no diagnostics generated. INT*4 ARRAY_SIZE= 32768 #PERMUTATIONS/ARRAY_SIZE= 8192 A= 149 293 16365 22125 2429 5407 28746 12182 14590 11825 102.84u 0.01s 1:43 99% 0+0k 69+0io 0pf+0w ------------------------------------------------------------------------------ (17) program = permute3.f f77: compile start : permute3.f *OFORT77 V02-06-/A entered. *program name = PERMUT *program name = PERM *program units = 0002, no diagnostics generated. INT*4 ARRAY_SIZE= 1048576 #PERMUTATIONS/ARRAY_SIZE= 256 A= 149 293 524435 178798 836951 263828 662616 351174 26552 147396 344.36u 0.01s 5:46 99% 0+0k 69+0io 0pf+0w