Merged master 8748

2018-08-05 11:33:30 -04:00
parent 8f8772f1bd
commit 62899069bf
1222 changed files with 70382 additions and 406763 deletions
@@ -0,0 +1,18 @@
+program twq
+
+  character*22 msg0,msg
+  integer*1 data0(11)
+
+  open(10,file='wqmsg.txt',status='old')
+  write(*,1000)
+1000 format(4x,'Encoded message',9x,'Decoded as',12x,'itype'/55('-'))
+  
+  do line=1,9999
+     read(10,*,end=999) msg0
+     call wqenc(msg0,itype,data0)
+     call wqdec(data0,msg,ntype)
+     write(*,1100) line,msg0,msg,ntype
+1100 format(i2,'.',1x,a22,2x,a22,i3)
+  enddo
+  
+999 end program twq