[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
MSVC patch: F77 syntax error
From: |
Michael Goffioul |
Subject: |
MSVC patch: F77 syntax error |
Date: |
Wed, 18 Apr 2007 13:34:43 +0200 |
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
- MSVC patch: F77 syntax error,
Michael Goffioul <=