part1a - fib0 = 0; fib1 = 1; WRITE(14,*)"The...

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

View Full Document Right Arrow Icon
PROGRAM part1a IMPLICIT NONE INTEGER::fib0, fib1, fib2, ierror, i IF(ierror /=0) STOP "Error opening file"
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: fib0 = 0; fib1 = 1; WRITE(14,*)"The fibonacci numbers are:" WRITE(14,*)fib0 WRITE(14,*)fib1 DO i=3,40 fib2=fib1+fib0 WRITE(14,*)fib2 fib0=fib1 fib1=fib2 END DO END PROGRAM...
View Full Document

Ask a homework question - tutors are online