Merge pull request #357 from njoy/fix/cp-angular

Fix/cp angular
njoy · Jan 28, 2025 · 5db6cab · 5db6cab
2 parents b38a5b7 + da26bc2
commit 5db6cab
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/src/acefc.f90 b/src/acefc.f90
@@ -9585,15 +9585,15 @@ subroutine acelcp(next,matd,nin,za,awr)
                next=next+5
                do ie=1,2
                   xss(next)=2
-                  xss(next+1)=3
-                  xss(next+2)=-1
-                     xss(next+5)=0
-                  xss(next+8)=0
+                  xss(next+1)=3            ! three points in the cosine grid
+                  xss(next+2)=-1           ! three cosine values
                   xss(next+3)=one-one/100
-                  xss(next+6)=0
-                  xss(next+9)=0
                   xss(next+4)=1
+                  xss(next+5)=0            ! three pdf values
+                  xss(next+6)=0
                   xss(next+7)=200
+                  xss(next+8)=0            ! three cdf values
+                  xss(next+9)=0
                   xss(next+10)=1
                   next=next+11
                enddo