Commit ae79dbd1 authored by Luca Naterop's avatar Luca Naterop

aligned equation numbers with paper

parent a2e558d0
......@@ -119,7 +119,7 @@ CONTAINS
end if
! if depth one and m = 1 use my (59)
! if depth one and m = 1 use (23)
if(size(g) == 1) then
#ifdef DEBUG
if(verb >= 30) print*, 'case depth one and m = 1'
......@@ -135,7 +135,7 @@ CONTAINS
y2 = g(size(g))
m = size(g) ! actually, size(g)-1+1
! if depth one and m > 1 use my (60)
! if depth one and m > 1 use (25)
if(all( abs( g(1:size(g)-1) ) < zero)) then
#ifdef DEBUG
if(verb >= 30) print*, 'case depth one and m > 1'
......@@ -154,7 +154,7 @@ CONTAINS
return
end if
! case of higher depth, s_r at beginning, use my (68)
! case of higher depth, s_r at beginning, use (21)
if(i == 1) then
#ifdef DEBUG
if(verb >= 30) print*, 'case higher depth, sr at beginning'
......@@ -178,7 +178,7 @@ CONTAINS
return
end if
! case higher depth, s_r at the end, use (62)
! case higher depth, s_r at the end, use shuffle algebra to remove from last place
if(i == size(g)) then
#ifdef DEBUG
if(verb >= 30) print*, 's_r at the end under PI, need to shuffle'
......@@ -188,7 +188,7 @@ CONTAINS
return
end if
! case higher depth, s_r in middle, use my (67)
! case higher depth, s_r in middle, use (22)
#ifdef DEBUG
if(verb >= 30) print*, 's_r in the middle under PI'
#endif
......@@ -215,7 +215,7 @@ CONTAINS
END FUNCTION remove_sr_from_last_place_in_G
RECURSIVE FUNCTION make_convergent(a,y2) result(res)
! goes from G-functions to pending integrals and simpler expressions according to (62),(64),(67) and (68)
! goes from G-functions to pending integrals and simpler expressions
type(inum) :: a(:), y2, sr
complex(kind=prec) :: res
......@@ -226,7 +226,7 @@ CONTAINS
sr = a(i)
if(i == size(a)) then
! sr at the end, thus shuffle as in (62)
! sr at the end, thus shuffle
#ifdef DEBUG
if(verb >= 30) print*, 'sr at the end'
#endif
......@@ -236,7 +236,7 @@ CONTAINS
end if
if(i == 1) then
!s_r at beginning, thus use (68)
!s_r at beginning, thus use (18)
#ifdef DEBUG
if(verb >= 30) then
......@@ -259,7 +259,7 @@ CONTAINS
return
end if
! so s_r in middle, use (67)
! so s_r in middle, use (19)
#ifdef DEBUG
if(verb >= 30) then
print*, '--------------------------------------------------'
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment