program ComputationalPhysicist
implicit none
character(len=20) :: name
character(len=30), dimension(4) :: languages
name = 'Carlos Raúl'
languages(1) = 'Spanish (Native)'
languages(2) = 'Portuguese (C1)'
languages(3) = 'English (B2)'
languagea(4) = 'Italian (B1)'
languages(5) = '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
- Personal website and blog: https://c4rlosr4ul.github.io/
