MSVC patch: F77 syntax error

[Michael Goffioul]

Index: libcruft/blas-xtra/xdnrm2.f
===================================================================
RCS file: /cvs/octave/libcruft/blas-xtra/xdnrm2.f,v
retrieving revision 1.1
diff -c -p -r1.1 xdnrm2.f
*** libcruft/blas-xtra/xdnrm2.f 7 Apr 2007 00:43:09 -0000       1.1
--- libcruft/blas-xtra/xdnrm2.f 18 Apr 2007 11:34:13 -0000
***************
*** 1,6 ****
       subroutine xdnrm2 (n, x, incx, retval)
       double precision dnrm2, x(*), retval
       integer n, incx
!       retval = dnrm2 (n, x, incx);
       return
       end
--- 1,6 ----
       subroutine xdnrm2 (n, x, incx, retval)
       double precision dnrm2, x(*), retval
       integer n, incx
!       retval = dnrm2 (n, x, incx)
       return
       end
Index: libcruft/blas-xtra/xdznrm2.f
===================================================================
RCS file: /cvs/octave/libcruft/blas-xtra/xdznrm2.f,v
retrieving revision 1.1
diff -c -p -r1.1 xdznrm2.f
*** libcruft/blas-xtra/xdznrm2.f        7 Apr 2007 00:43:09 -0000       1.1
--- libcruft/blas-xtra/xdznrm2.f        18 Apr 2007 11:34:13 -0000
***************
*** 2,7 ****
       double precision dznrm2, retval
       double complex x(*)
       integer n, incx
!       retval = dznrm2 (n, x, incx);
       return
       end
--- 2,7 ----
       double precision dznrm2, retval
       double complex x(*)
       integer n, incx
!       retval = dznrm2 (n, x, incx)
       return
       end