Updated to r8541

2018-03-05 14:49:51 -05:00
parent a4fa5b9988
commit a32fe6a4dc
200 changed files with 20394 additions and 4957 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