parameter(pi=3.1415926)
    open(1,file='i.dat')
    write(*,*)'input n,a,d,lamda,phi0,phi1:'
    read(*,*)n,a,d,lamda,phi0,phi1
    phi=phi0
    dphi=(phi1-phi0)/100.
    do 10 j=0,1000
    phi=phi+dphi*float(j)
    u=(pi*a*sin(phi))/lamda
    v=(pi*d*sin(phi))/lamda
    m=sin(u)**2/u**2
    n=sin(n*v)**2/sin(v)**2
    i=m*n
10    write(1,*)phi,i
    end
    
    Microsoft Windows [版本 6.1.7600]


C:\Users\Administrator>D:\fortran\homework\chapter_2\2.8\Debug\2.8.exe
 input n,a,d,lamda,phi0,phi1:
500 0.001 0.002 0.59 .3400 1.0022


run-time error M6201: MATH
- sin: DOMAIN error
Image              PC        Routine            Line        Source
2.8.exe            0040A859  Unknown               Unknown  Unknown

Incrementally linked image--PC correlation disabled.