1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
integer function fschur(lsize,alpha,beta,s,p)
c!purpose
c interface for external fortran or C --> schur function
c!
include '../stack.h'
integer lsize,folhp,find,ii
double precision alpha,beta,s,p
c
character*6 namef,name1
common/cschur/namef
c
fschur=0
call majmin(6,namef,name1)
c
c insert your code here
c+
if(name1.eq.'c'.or.name1.eq.'cont') then
fschur=folhp(lsize,alpha,beta,s,p)
return
endif
if(name1.eq.'d'.or.name1.eq.'disc') then
fschur=find(lsize,alpha,beta,s,p)
return
endif
c+
c dynamic link
call tlink(namef,0,it1)
if(it1.le.0) goto 2000
call dyncall(it1-1,lsize,alpha,beta,s,p,ii)
fschur=ii
cc end
return
c error
c
2000 buf=namef
call error(50)
return
end
|
