subroutine nom_subrutina(arguments)
    ! Declaracions de variables locals
    ! Cos de la subrutina
end subroutine nom_subrutina

subroutine saluda()
    print *, "Hola, món!"
end subroutine saluda

program exemple_subrutina
    call saluda()
end program exemple_subrutina

subroutine suma(a, b, resultat)
    integer, intent(in) :: a, b
    integer, intent(out) :: resultat
    resultat = a + b
end subroutine suma

program exemple_suma
    integer :: x, y, z
    x = 5
    y = 10
    call suma(x, y, z)
    print *, "La suma és: ", z
end program exemple_suma

program area_rectangle
    real :: llargada, amplada, area

    ! Assignació de valors
    llargada = 5.0
    amplada = 3.0

    ! Crida a la subrutina
    call calcula_area(llargada, amplada, area)

    ! Mostra el resultat
    print *, "L'àrea del rectangle és: ", area
end program area_rectangle

subroutine calcula_area(l, a, resultat)
    real, intent(in) :: l, a
    real, intent(out) :: resultat
    resultat = l * a
end subroutine calcula_area

program perimetre_rectangle
    real :: llargada, amplada, perimetre

    ! Assignació de valors
    llargada = 5.0
    amplada = 3.0

    ! Crida a la subrutina
    call calcula_perimetre(llargada, amplada, perimetre)

    ! Mostra el resultat
    print *, "El perímetre del rectangle és: ", perimetre
end program perimetre_rectangle

subroutine calcula_perimetre(l, a, resultat)
    real, intent(in) :: l, a
    real, intent(out) :: resultat
    resultat = 2 * (l + a)
end subroutine calcula_perimetre

program intercanvi_valors
    integer :: x, y

    ! Assignació de valors
    x = 10
    y = 20

    ! Mostra els valors abans de l'intercanvi
    print *, "Abans de l'intercanvi: x =", x, ", y =", y

    ! Crida a la subrutina
    call intercanvia(x, y)

    ! Mostra els valors després de l'intercanvi
    print *, "Després de l'intercanvi: x =", x, ", y =", y
end program intercanvi_valors

subroutine intercanvia(a, b)
    integer, intent(inout) :: a, b
    integer :: temp

    temp = a
    a = b
    b = temp
end subroutine intercanvia