subroutine my_hash(mycall)

  use packjt77
  character*(*) mycall
  character*13 c13

  c13=mycall//'          '
  call save_hash_call(c13,n10,n12,n22)
  
  return
end subroutine my_hash