program main
	implicit integer(a-z)
#include <mpif.h>
      call MPI_INIT(ierror)
      call MPI_COMM_RANK(MPI_COMM_WORLD, mype, ierror)
      call MPI_COMM_SIZE(MPI_COMM_WORLD, npes, ierror)

	call st(mype, npes)

	print *, mype

	call MPI_FINALIZE(ierror)

	stop
	end