From: Paul Sture [p_sture@elias.decus.ch] Sent: Thursday, October 31, 2002 5:18 PM To: Info-VAX@Mvb.Saic.Com Subject: Re: In article , norm.raphael@metso.com writes: > > Good catch! > That might be a useful line to add at the end of the procedure ;-) . Given that VUPOMETER has a date prior to Alphas, I don't think it's valid any more. Here is another I picked up a couple of years ago. It was pretty accurate when applied to my Vaxstation 3100, and seems reasonably good on the Alphas I have tried. I modified it then to do an Alpha/VAX test, but I'll warn you now it is not Itanium compliant :-) $! $ set noon $ orig_privs = f$setprv("ALTPRI") $ process_priority = f$getjpi(0,"PRIB") $ cpu_multiplier = 10 ! VAX = 10 - Alpha/AXP = 40 $ cpu_round_add = 1 ! VAX = 1 - Alpha/AXP = 9 $ if f$edit(f$getsyi("arch_name"),"upcase,trim") .eqs. "ALPHA" $ then $ cpu_multiplier = 40 $ cpu_round_add = 9 $ endif $ cpu_round_divide = cpu_round_add + 1 $ init_counter = cpu_multiplier * 525 $ init_loop_maximum = 205 $ start_cputime = f$getjpi(0,"CPUTIM") $ loop_index = 0 $ 10$: $ loop_index = loop_index + 1 $ if loop_index .ne. init_loop_maximum then goto 10$ $ end_cputime = f$getjpi(0,"CPUTIM") $ init_vups = ((init_counter / (end_cputime - start_cputime) + - cpu_round_add) / cpu_round_divide) * cpu_round_divide $ loop_maximum = (init_vups * init_loop_maximum) / 10 $ base_counter = (init_counter * init_vups) / 10 $ vups = 0 $ times_through_loop = 0 $ 20$: $ start_cputime = f$getjpi(0,"CPUTIM") $ loop_index = 0 $ 30$: $ loop_index = loop_index + 1 $ if loop_index .ne. loop_maximum then goto 30$ $ end_cputime = f$getjpi(0,"CPUTIM") $ new_vups = ((base_counter / (end_cputime - start_cputime) + - cpu_round_add) / cpu_round_divide) * cpu_round_divide $ if new_vups .eq. vups then goto 40$ $ vups = new_vups $ times_through_loop = times_through_loop + 1 $ if times_through_loop .le. 5 then goto 20$ $ 40$: $ new_privs = f$setprv(orig_privs) $ set message /nofacility/noidentification/noseverity/notext $ ASSIGN/SYSTEM/EXEC 'vups' MACHINE_VUPS_RATING $ set message /facility/identification/severity/text $ write sys$output "Approximate System VUPs Rating : ", - vups / 10,".", vups - ((vups / 10) * 10) $ exit Result on my Alpha PWS 600au (598 MHz according to CLUE CONFIG): Approximate System VUPs Rating : 757.0 The 466MHz DS10 at work comes out with over 900 on the same test. -- Paul Sture Switzerland