part1a - END DO WRITE(*,*) "Column by...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
PROGRAM part1a IMPLICIT NONE INTEGER:: array(3,3), i, j WRITE(*,*) "Please enter nine integer values:" READ(*,*) array WRITE(*,*) "Using a plain write:" WRITE(*,*) array WRITE(*,*) "Row by row:" DO i=1,3 WRITE(*,*) array(i,1:3)
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: END DO WRITE(*,*) "Column by column:" DO i=1,3 WRITE(*,*) array(1:3,i) END DO WRITE(*,*) "Element by element with a nested Do Loop:" DO i=1,3 DO j=1,3 WRITE(*,*) array(i,j) END DO END DO END PROGRAM...
View Full Document

This note was uploaded on 07/22/2010 for the course MAE 112 taught by Professor Freeh during the Spring '10 term at North Country Community College.

Ask a homework question - tutors are online