www.pudn.com > Fortran.zip > MBSL30.FOR, change:1995-04-01,size:250b

 
	DOUBLE PRECISION X,Y,MBSL3 
	WRITE(*,*) 
	DO 10 N=0,5 
	  X=0.05 
	  DO 20 I=1,4 
	    Y=MBSL3(N,X) 
	    WRITE(*,100) N,X,Y 
	    X=X*10.0 
20	  CONTINUE 
10	CONTINUE 
100	FORMAT(1X,'N=',I2,2X,'X=',F7.3,3X,'I(n,x)=',D13.6) 
	WRITE(*,*) 
	END