|
C*****FORTRAN
FUNCTION FACT
FUNCTION FACT(N)
C*****INITIALISE
FACT FOR N
IF (N .LE. 0) THEN
FACT = 0
WRITE (*,*) 'N <=0 AND FACT = 0'
GO TO 100
ELSE FACT = 1
END IF
DO 50 I=1,N
50
FACT = FACT*I
C***** PRINT RESULTS
WRITE (*,*)'THE FACTORIAL OF NUMBER N=',N,'IS=',FACT
100
RETURN
END
|