part1a - WRITE(*,*)c WRITE(*,*) "Do you want...

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

View Full Document Right Arrow Icon
PROGRAM part1a IMPLICIT NONE Real::v1, v2, c Character::choice DO WRITE(*,*) "What is the value for free stream velocity?" READ(*,*)v1 WRITE(*,*) "What is the value for total velocity?" READ(*,*)v2 c=1-(v1/v2)**2 WRITE(*,*)"The coefficient of pressure is:"
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: WRITE(*,*)c WRITE(*,*) "Do you want to continue and enter in new values?" READ(*,*) choice IF(choice=='n' .OR. choice=='N')EXIT END DO END PROGRAM part1a...
View Full Document

Ask a homework question - tutors are online