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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
! result/recursive broken
MODULE approx
interface
recursive function arcsin (angle, terms) ! no result keyword
double precision arcsin1
double precision angle
integer terms
end function arcsin
recursive function arcsin1 (angle, terms) result (value) ! no explicit type
double precision angle
integer terms
double precision value
end function arcsin1
double precision recursive function arcsin2 (angle, terms) result (value) ! type + recurs
double precision angle
integer terms
end function arcsin2
! only this function seems to be found
recursive double precision function arcsin3 (angle, terms) result (value ) ! recurs + type
double precision angle
integer terms
end function arcsin3
end interface
double precision :: y
integer :: parts
END MODULE
MODULE approx2
interface
double precision recursive function as (angle, terms) result (value) ! type + recurs
double precision angle
integer terms
end function as
recursive double precision function as1 (angle, terms) result (value ) ! recurs + type
double precision angle
integer terms
end function as1
! but now I can see this one
recursive function as2 (angle, terms) ! no result keyword
double precision arcsin1
double precision angle
integer terms
end function as2
! .. and this one!
recursive function as3 (angle, terms) result (value) ! no explicit type
double precision angle
integer terms
double precision value
end function as3
end interface
double precision :: z
integer :: parts2
END MODULE
|
