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,23 @@
+subroutine packname(name,len,n1,n2)
+
+  character*9 name
+  real*8 dn
+
+  dn=0
+  do i=1,len
+     n=ichar(name(i:i))
+     if(n.ge.97 .and. n.le.122) n=n-32
+     dn=27*dn + n-64
+  enddo
+  if(len.lt.9) then
+     do i=len+1,9
+        dn=27*dn
+     enddo
+  endif
+
+  n2=mod(dn,32768.d0)
+  dn=dn/32768.d0
+  n1=dn
+
+  return
+end subroutine packname