Unformatted text preview: END IF WRITE(*,'(A,I10,A,I2,A,I2,A,I2,A,I2,A)')"There are ",n(a,b)," paths & &between (",x1," ,",y1," ) and (",x2," ,",y2," )." END PROGRAM RECURSIVE INTEGER FUNCTION n(a,b) RESULT(path) IMPLICIT NONE INTEGER, INTENT(IN)::a,b INTEGER::path IF(a==0 .OR. b==0)THEN path=1 ELSE path=n(a-1,b) + n(a,b-1) END IF END FUNCTION n...
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.
- Spring '10