www.pudn.com > Fortran.zip > LRBSR0.FOR, change:1994-06-09,size:530b

 
 
	INTEGER B,C,P(100) 
	DIMENSION A(100) 
	R=5.0 
	N=100 
	MM=30 
	NN=80 
	B=1 
	C=100 
	CALL NRABS(R,B,C,N,P) 
	DO 5 I=1,100 
5	A(I)=P(I) 
	WRITE(*,*) 
	WRITE(*,10) 
10	FORMAT(1X,'R:') 
	WRITE(*,20) (A(I),I=1,N) 
20	FORMAT(1X,10F6.1) 
	WRITE(*,*) 
	CALL LRSHL(A,N,MM,NN) 
	WRITE(*,30) 
30	FORMAT(1X,'A:') 
	WRITE(*,20) (A(I),I=1,N) 
	WRITE(*,*) 
	X=23.0 
	CALL LRBSR(A,N,MM,NN,X,K) 
	WRITE(*,40) X,K 
40	FORMAT(1X,'X=',F6.1,3X,'K=',I4) 
	WRITE(*,*) 
	X=46.0 
	CALL LRBSR(A,N,MM,NN,X,K) 
	WRITE(*,40) X,K 
	WRITE(*,*) 
	END