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 igray(n,is)
+      INTEGER igray,is,n
+      INTEGER idiv,ish
+      if (is.ge.0) then
+        igray=ieor(n,n/2)
+      else
+        ish=-1
+        igray=n
+1       continue
+          idiv=ishft(igray,ish)
+          igray=ieor(igray,idiv)
+          if(idiv.le.1.or.ish.eq.-16)return
+          ish=ish+ish
+        goto 1
+      endif
+      return
+      END