This preview shows page 1. Sign up to view the full content.
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
- Spring '10