Yµn ^…^ ƒ(x) yunusemrejr

dev ∎ // from circuits ⇌ software // professional problem creator ↭ solver // ▓

Machine listens to data, data listens to machine, I just observe their little game.

Hi! I'm Yunus Emre Vurgun, a software developer and your average IT guy specializing in web and industrial stuff.

__ Reach me at: yunus@yunusemrevurgun.com

Here is a crazy obfuscated Fortran code and I won't tell you what is does and I already forgot what it does:

MODULE X1M0D IMPLICIT NONE CONTAINS SUBROUTINE S1(A, B, C) IMPLICIT NONE REAL, INTENT(IN) :: A(:,:), B(:) REAL, INTENT(OUT) :: C(SIZE(B)) INTEGER :: I1 C = 0.0 DO I1 = 1, SIZE(B) C(I1) = SUM(A(I1, :) * B(:)) END DO END SUBROUTINE S1 END MODULE X1M0D PROGRAM Z4 USE X1M0D IMPLICIT NONE REAL, DIMENSION(3,3) :: Q REAL, DIMENSION(3) :: P, W REAL :: E, F INTEGER :: J Q = RESHAPE([0.0, 0.5, 0.5,  & 0.33, 0.0, 0.67, & 0.33, 0.33, 0.34], SHAPE=[3, 3]) P = [1.0, 1.0, 1.0] E = 1.0E-5 DO CALL S1(Q, P, W) W = W / 3.0 F = SUM(ABS(W - P)) P = W IF (F <= E) EXIT END DO PRINT *, "Z:" PRINT *, P END PROGRAM Z4