fortran - Do loop not working, request your solutions - i think silly ask, but, loop isn't working seems. can take time re-check code ? here's code: program hexagonal implicit none integer::i,j,info integer::n1,n2 real::a,e0,ts,tsp,es,ep real, parameter :: pi = 3.1415927 real, allocatable :: kx(:,:) real, allocatable ::ky(:,:) real, allocatable :: epos(:,:) real, allocatable :: eneg(:,:) namelist /model_parameters/ a,e0,ts,tsp namelist /lattice_size/ n1,n2 open(unit=10, file='hexinput.txt',action="read", iostat=i) read(unit=10,nml=lattice_size,iostat=info) read(unit=10,nml=model_parameters,iostat=info) close(10) write(*,*) "n1=", n1, "n2=", n2, a, e0, ts, tsp ! allocate arrays if (allocated(kx)) deallocate(kx) allocate(kx(n1,n2)) if (allocated(ky)) deallocate(ky) allocate(ky(n1,n2)) if (allocated(epos)) deallocate(epos) allocate(epos(n1,n2)) if (allocated(eneg)) deallocate(eneg) a...