Conference decwet::windows-nt

5648.0. "Help to run FORTRAN prog on PWS433a and PWS500a?" by CGOOA::OWONG (SKIWI in Canada (VAO)) Thu Feb 06 1997 11:40

    Crossposted wrksys::xl_personal_workstation, decwet::windows-nt
    
    Could somebody with access to a PWS433a and/or PWS500a try running the
    following Fortran program under Windows NT for me.  It's code that a
    customer has requested be run on the above platforms.  It should
    complete in under 1 minute.  If you could supply the name and version of
    the compiler and Windows NT used and amount of CPU time consumed that
    would be appreciated.
    
    	Owen.
    **************************************************************
C U Vic test program
c Test CPU by doing a simple autocorrelation function calculation.
c
	parameter (n=10000)
c
	real x(n), y(n)
	integer numr(1000)
	do 9 i=1,1000
9	numr(i)=0
	rseed=1234567.
c
c First load up arrays with positions ...
c
	do 1 i=1,n
	x(i)=random(rseed)
1	y(i)=random(rseed)
	write(6,*)'Arrays loaded ...'
c
c Do calculation ...
c
	do 5 i=1,n
	do 5 j=1,n
	r=sqrt((x(i)-x(j))**2+(y(i)-y(j))**2)
	irbin=int(r*100)+1
5	numr(irbin)=numr(irbin)+1
c
	write(6,*)(numr(k),k=1,100)
	write(6,*)'n=',n,' cross-correlation finished.'
	stop
	end

	function random(rseed)
	data rmax/2147483600./, pi/3.14159273/
	random=amod(rseed,rmax)/rmax
	rseed=(random+pi)*rmax
	return
	end
    

    I got help from turris::fortran, note 1171 and based upon the results
    obtained, my customer wil be replacing Sun systems with Alpha.
    
    	Owen.