hold my coffee

MODULE variables
    IMPLICIT NONE

    INTEGER, PARAMETER  :: n = 5
    REAL, DIMENSION(N)   :: a, b

    CONTAINS

    SUBROUTINE print_array_inline(size, arr)
        INTEGER, INTENT(IN) :: size
        REAL, DIMENSION(size), INTENT(IN) :: arr

        INTEGER :: i

        DO i = 1, size
            WRITE(*, "(F12.8)", advance = "no") arr(i)
        END DO

    END SUBROUTINE

    SUBROUTINE print_state()
        CALL print_array_inline(n, a)
        CALL print_array_inline(n, b)

        WRITE(*, *)
    END SUBROUTINE

END MODULE variables


PROGRAM hold_my_coffee
    USE variables

    IMPLICIT NONE
    INTEGER :: i

    DO i = 1, 10
        CALL RANDOM_NUMBER(a)
        CALL RANDOM_NUMBER(b)

        CALL print_state()
    END DO
END PROGRAM hold_my_coffee