repo.or.cz
/
maxima.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Support RETURN-FROM in DEF%TR forms
[maxima.git]
/
share
/
hompack
/
fortran
/
f.f
blob
e53a9eb6416092684d6247ca3647469cd2e982d6
1
SUBROUTINE
F
(
X
,
V
)
2
DOUBLE PRECISION
X
(
1
),
V
(
1
)
3
C
4
C EVALUATE F(X) AND RETURN IN THE VECTOR V .
5
C
6
RETURN
7
END