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 icrc1(crc,onech,ib1,ib2,ib3)
+      INTEGER icrc1,ib1,ib2,ib3
+      INTEGER i,ichr,ireg
+      CHARACTER*1 onech,crc(4),creg(4)
+      EQUIVALENCE (creg,ireg)
+      ireg=0
+      creg(ib1)=crc(ib1)
+      creg(ib2)=char(ieor(ichar(crc(ib2)),ichar(onech)))
+      do 11 i=1,8
+        ichr=ichar(creg(ib2))
+        ireg=ireg+ireg
+        creg(ib3)=char(0)
+        if(ichr.gt.127)ireg=ieor(ireg,4129)
+11    continue
+      icrc1=ireg
+      return
+      END