#5912: %fortran mode is broken in the notebook
----------------------+-----------------------------------------------------
Reporter: was | Owner: boothby
Type: defect | Status: new
Priority: major | Milestone: sage-3.4.2
Component: notebook | Keywords:
----------------------+-----------------------------------------------------
Comment(by was):
Here's how to test the attached patch:
{{{
Untitled
system:sage
{{{id=69|
%fortran
C FILE: FIB1.F
SUBROUTINE FIB(A,N)
C
C CALCULATE FIRST N FIBONACCI NUMBERS
C
INTEGER N
REAL*8 A(N)
DO I=1,N
IF (I.EQ.1) THEN
A(I) = 0.0D0
ELSEIF (I.EQ.2) THEN
A(I) = 1.0D0
ELSE
A(I) = A(I-1) + A(I-2)
ENDIF
ENDDO
END
C END FILE FIB1.F
///
None
}}}
{{{id=70|
import numpy
n = numpy.array(range(10),dtype=float)
fib(n)
///
}}}
{{{id=71|
n
///
array([ 0., 1., 1., 2., 3., 5., 8., 13., 21., 34.])
}}}
--
Ticket URL: <http://trac.sagemath.org/sage_trac/ticket/5912#comment:1>
Sage <http://sagemath.org/>
Sage - Open Source Mathematical Software: Building the Car Instead of
Reinventing the Wheel
--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google Groups
"sage-trac" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/sage-trac?hl=en
-~----------~----~----~----~------~----~------~--~---
