New changes from l2g

w
2022-09-12 16:40:28 +00:00
parent 78eb7147d0
commit d713d4f61a
110 changed files with 87672 additions and 1098 deletions
@@ -73,7 +73,7 @@
      do i=1,6
        grad(i)=grad6(i)
      enddo
-      call gradsigmoidfunc(0.0,a2,b2,c2,x02,x,grad6)
+      call gradsigmoidfunc(0.0d0,a2,b2,c2,x02,x,grad6)
      grad(6)=grad(6)-grad6(6)
      do i=1,4
        grad(6+i)=-grad6(i)