vs2.10无法启动cmd.exe

啦啦啦三土

各位大佬们求助一下关于vs2010的问题。显示无法启动cmd.exe，已经检验过cmd.exe是没有损坏的，可以正常运行。
以下是Fortran的代码：
            program sx03        integer,PARAMETER::N=22
        real x(N),Y(N),col
        real Rrandom
        call random_seed
        do i=1,N
        call random_number (Rrandom)
        X(i)=Rrandom
        Y(i)=X(i)
        end do
        call correlation(X,Y,N,col)
        do i=1,N
        write(*,'(i4,2x,i2,x,2f6.1)'),1227,i,X(i),Y(i)
        end do        
        write(*,'(a20,x,f6.3)')"maweiyao",col
        end



        subroutine correlation(x1,x2,N,out)
        implicit none
        integer N
        real x1(N),x2(N)
        real Xnormalization1(N),Xnormalization2(N)
        real out
        real confidence_level,temp,sum
        integer i
        call normalization(X1,N,Xnormalization1)
        call normalization(X2,N,Xnormalization2)
        out=0.0
        do i=1,N
        out=out+Xnormalization1(i)*Xnormalization2(i)
        enddo
        out=out/N
        endsubroutine correlation
        subroutine normalization(Xin,N,Xout)
        implicit none
        integer N
        real Xin(N),xout(N)
        real sum
        integer i
        sum=0.0
        do i=1,N
        sum=sum+Xin(i)
      end do
        sum=sum/N
        do i=1,N
        Xout(i)=Xin(i)-sum
        enddo
        sum=0.0
        do i=1,n
        sum=sum+Xout(i)**2
        end do
        if (sum.eq.0.) return
        sum=sum/n
        sum=sqrt(sum)
        do i=1,N
        Xout(i)=Xout(i)/sum
        enddo
        endsubroutine normalization