I have programmed a cube made out of "atoms" in Fortran. a) I need this cube to move across the screen for an assignment. This is how my code looks right now. I am told that there is only a minor change I need to make. b) I also need to make the cube expand. How could I modify my code to make it do that?

read nside rite Lactice constant? read(a natom-nside write (30,*)natomlfirst line in new st nsidetnside write (30, *) natom !first line write (30, also Write an empty 32 lgive some feedback to stdout -1 3 35 36 37 write ( *,*), Number of atoms in fire: i, n Inow construct the atomic positions do h-l,20 write (30, ) natom write (30,*) write ( * , t dble ( i) do j=i,nside do k-nside z-a*dbie (k endde endde enddo enddo write(* read ( read nside rite Lactice constant? read(a natom-nside write (30,*)natomlfirst line in new st nsidetnside write (30, *) natom !first line write (30, also Write an empty 32 lgive some feedback to stdout -1 3 35 36 37 write ( *,*), Number of atoms in fire: i, n Inow construct the atomic positions do h-l,20 write (30, ) natom write (30,*) write ( * , t dble ( i) do j=i,nside do k-nside z-a*dbie (k endde endde enddo enddo write(* read (