Initial commit

2016-02-03 18:52:05 +00:00
commit d40505e161
507 changed files with 91383 additions and 0 deletions
@@ -0,0 +1,17 @@
+      FUNCTION fmin(x)
+      INTEGER n,NP
+      REAL fmin,x(*),fvec
+      PARAMETER (NP=40)
+      COMMON /newtv/ fvec(NP),n
+      SAVE /newtv/
+CU    USES funcv
+      INTEGER i
+      REAL sum
+      call funcv(n,x,fvec)
+      sum=0.
+      do 11 i=1,n
+        sum=sum+fvec(i)**2
+11    continue
+      fmin=0.5*sum
+      return
+      END