diff options
| author | allen <allen@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2003-03-20 11:21:02 +0000 |
|---|---|---|
| committer | allen <allen@89daf98e-ef62-4674-b946-b8ff9de2216c> | 2003-03-20 11:21:02 +0000 |
| commit | c63b1ba1241c33b6cec0b3f5d6826bff99fa2bff (patch) | |
| tree | 077a8f284e6ba5328724b204eaeb916a7a9da8c0 | |
| parent | 30a24b5a6b572257327c01d3c5ab577d4669722b (diff) | |
Move comments to remove warnings with intel compiler
git-svn-id: http://svn.einsteintoolkit.org/cactus/EinsteinAnalysis/AHFinder/trunk@331 89daf98e-ef62-4674-b946-b8ff9de2216c
| -rw-r--r-- | src/AHFinder_fun.F | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/src/AHFinder_fun.F b/src/AHFinder_fun.F index 0af446c..2790e56 100644 --- a/src/AHFinder_fun.F +++ b/src/AHFinder_fun.F @@ -287,8 +287,8 @@ ! the recursion relations requires 2 starting values. do m=1,lmax-2 - - legen_base = -legen_base*aux2*lm_factor3(m) ! L=M +! L=M + legen_base = -legen_base*aux2*lm_factor3(m) aux1 = aux1 + legen_base*cc_cosa(m,m) @@ -297,7 +297,8 @@ end if local_legen_old_old = legen_base - local_legen_old = cost*lm_factor3(m+1) ! L=M+1 +! L=M+1 + local_legen_old = cost*lm_factor3(m+1) . *legen_base aux1 = aux1 + local_legen_old*cc_cosa(m+1,m) @@ -306,7 +307,8 @@ aux1 = aux1 + local_legen_old*cs_sina(m+1,m) end if - do l=m+2,lmax ! L=M+2,lmax +! L=M+2,lmax + do l=m+2,lmax local_legen = cost*lm_factor1(l,m)*local_legen_old . - lm_factor2(l,m)*local_legen_old_old @@ -326,7 +328,8 @@ if (lmax.gt.1) then - m=lmax-1 ! L=lmax-1 +! L=lmax-1 + m=lmax-1 legen_base = -legen_base*aux2*lm_factor3(m) aux1 = aux1 + legen_base*cc_cosa(m,m) @@ -334,7 +337,8 @@ aux1 = aux1 + legen_base*cs_sina(m,m) end if - local_legen = cost*lm_factor3(lmax)* ! L=lmax +! L=lmax + local_legen = cost*lm_factor3(lmax)* . legen_base aux1 = aux1 + local_legen*cc_cosa(lmax,m) @@ -346,7 +350,8 @@ ! And finally do M=lmax. - m=lmax ! L=lmax +! L=lmax + m=lmax legen_base = -legen_base*aux2*lm_factor3(m) aux1 = aux1 + legen_base*cc_cosa(m,m) |