INTEGER :: n=0 INTEGER, ALLOCATABLE :: CC(:) DO WHILE(n<=0) PRINT*, "ÊäÈëNÖµ" READ*, n END DO ALLOCATE(CC(n+1)) CALL COEF(CC,n) PRINT *, CC END RECURSIVE SUBROUTINE COEF(C,N) INTEGER :: C(1:N+1),N,I IF(N==1) THEN C(1)=1 C(2)=1 ELSE CALL COEF(C,N-1) C(N+1)=1 DO I=N,2,-1 C(I)=C(I)+C(I-1) END DO C(1)=1 END IF END