program ComputationalPhysicist
    implicit none
    character(len=20) :: name
    character(len=30), dimension(4) :: languages 

    name = 'Carlos Raúl'
    languages(1) = 'Spanish (Native C2)' 
    languages(2) = 'English (B2)'        
    languages(3) = 'Portuguese (B1)'
    languages(4) = 'Russian (A2)'

    call say_hi(name)
    call list_languages(languages)

contains

    subroutine say_hi(name)
        implicit none
        character(len=20), intent(in) :: name
        print *, 'Thanks for dropping by,', trim(name) // '. Hope you find some of my work interesting.'
    end subroutine say_hi

end program ComputationalPhysicist