O amor em FORTRAN 90

subroutine love

character*30 :: moralstate, lifestate
integer*4 :: pastsuffering

do while (lifestate == alive)

call fall_in_love
call unanswered_love

moralstate = disillusion

call distance
call time

moralstate = normal
pastsuffering = pastsuffering + 1

endo do

end subroutine love