C Collection of code snippets by Arne Vajhøj C posted to eksperten.dk, usenet and other places (2002-now) 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