PROGRAM Blob IMPLICIT NONE PRINT*, Triangular_Nos(23) ! etc CONTAINS FUNCTION Triangular_Nos(n) INTEGER, INTENT(IN) :: n INTEGER, DIMENSION(n) :: Triangular_Nos INTEGER :: i Triangular_Nos(1) = 1 DO i = 2, n Triangular_Nos(i) = Triangular_Nos(i-1) + i END DO END FUNCTION Triangular_Nos END PROGRAM Blob