Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Gebhardt, Albrecht
baykrig
Commits
4f1c083a
Commit
4f1c083a
authored
May 22, 2002
by
alge
Browse files
fehlerstelle gefunden: DGEMM in glsfit. details noch unklar.
parent
7560bcaf
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/glsfit.f
View file @
4f1c083a
...
...
@@ -74,6 +74,7 @@ c debug options
dbglvl
=
0
c
check
for
existence
of
solution
:
IF
(
N
.LE.
NTREND
)
THEN
IERR
=
1
...
...
@@ -108,6 +109,8 @@ c determine CMAT**1/2
CWORK
(
J
,
I
)
=
CMAT
(
I
,
J
)
10
CONTINUE
20
CONTINUE
c
eigenvalue
decomposition
CMAT
=
V
*
D
*
V
':
call DSYEV( '
V
', '
U
', N, CWORK, LDCWRK, CWRK2(1,1), WORK, LWORK,
$ IERR )
...
...
@@ -194,9 +197,15 @@ c calculate covariance for estimator BETA
c
intermediate
step
:
COVBTA
=
FMAT
^
T
*
CMAT
^
-1
*
FMAT
CALL
DGEMM
(
'T'
,
'N'
,
NTREND
,
N
,
N
,
ONE
,
.
FMAT
,
LDF
,
CMINV
,
LDCINV
,
ZERO
,
CWORK
,
LDCWRK
)
ccc
c
goto
123
ccccccc
FEHLER
ccccccccc
:
CALL
DGEMM
(
'N'
,
'N'
,
NTREND
,
NTREND
,
N
,
ONE
,
.
CWORK
,
LDCWRK
,
FMAT
,
LDF
,
ZERO
,
COVBTA
,
LDCVBT
)
ccc
goto
123
DO
130
I
=
1
,
NTREND
DO
120
J
=
1
,
NTREND
IF
(
I
.EQ.
J
)
THEN
...
...
@@ -343,5 +352,8 @@ c final step
COVBTA
(
I
,
J
)
=
COVBTA
(
I
,
J
)
*
SGSQR
180
CONTINUE
190
CONTINUE
123
continue
RETURN
END
src/glsfit.cc
→
src/
octave/
glsfit.cc
View file @
4f1c083a
File moved
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment