program batgen
	open(unit=10,file='run1.bat',status='unknown')
    do i=1,4
      do j=1,4
        do k=1,4