I need flowchart for this program // Thanks a lot

PROGRAM IN FORTRAN to Calculate Variance and Standard deviation Known Variation of n of hits on it S2 = sigma i^n = 1^(x1 - 2)^1/2+ REAL MEAN, MD COMMON A(20), N, SD, MD, MEAN WRITE(*, *) enter number of data elements(N) READ(*, *) N WRITE(*, *)' ENTER ELEMENTS' READ(*, *) (A(1), 1 = 1, N) CALL CALC WRITE(*, *) 'MEAN =', MEAN WRITE(*, *) 'STANDARD DEVIATION =', SD WRITE(*, *) 'MEAN DEVIATION =', MD END SUBROUTINE CALC REAL MEAN, MD COMMON A(20), N, SD, MD, MEAN S = 0 DO 10 i = 1, N S = S + A (i) 10 Continue MEAN = S/N WRITE(*, *) MEAN P = 0, Q = 0 DO 20 i = 1, N P = P + ABS (A(i)-MEAN) Q = Q + (A(i) - MEAN) 20 CONTINUE SD = SORT(Q/N) MD = P/N RETURN END PROGRAM IN FORTRAN to Calculate Variance and Standard deviation Known Variation of n of hits on it S2 = sigma i^n = 1^(x1 - 2)^1/2+ REAL MEAN, MD COMMON A(20), N, SD, MD, MEAN WRITE(*, *) enter number of data elements(N) READ(*, *) N WRITE(*, *)' ENTER ELEMENTS' READ(*, *) (A(1), 1 = 1, N) CALL CALC WRITE(*, *) 'MEAN =', MEAN WRITE(*, *) 'STANDARD DEVIATION =', SD WRITE(*, *) 'MEAN DEVIATION =', MD END SUBROUTINE CALC REAL MEAN, MD COMMON A(20), N, SD, MD, MEAN S = 0 DO 10 i = 1, N S = S + A (i) 10 Continue MEAN = S/N WRITE(*, *) MEAN P = 0, Q = 0 DO 20 i = 1, N P = P + ABS (A(i)-MEAN) Q = Q + (A(i) - MEAN) 20 CONTINUE SD = SORT(Q/N) MD = P/N RETURN END