SUBROUTINE dump4(a) INTEGER*4 a(3,2),i,j DO 100 i=1,2 WRITE(*,*) (a(j,i),j=1,3) 100 CONTINUE END SUBROUTINE dump5(a) INTEGER*4 a(3,2) CALL dumpx(a,3,2) END SUBROUTINE dumpx(a,m,n) INTEGER*4 a(m,n),i,j DO 100 i=1,n WRITE(*,*) (a(j,i),j=1,m) 100 CONTINUE END
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.