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,20 @@
+subroutine unpackname(n1,n2,name,len)
+
+  character*9 name
+  real*8 dn
+
+  dn=32768.d0*n1 + n2
+  len=0
+  do i=9,1,-1
+     j=mod(dn,27.d0)
+     if(j.ge.1) then
+        name(i:i)=char(64+j)
+        len=len+1
+     else
+        name(i:i)=' '
+     endif
+     dn=dn/27.d0
+  enddo
+
+  return
+end subroutine unpackname