subroutine parse77(msg,i3,n3)

  use packjt77
  character msg*37,c77*77

  i3=-1
  n3=-1
  call pack77(msg,i3,n3,c77)

  return
end subroutine parse77