![Open Source Love](https://camo.githubusercontent.com/0cf313ab46098035a587f63ea79c0699f4a9bf5020894a64876e0762548cd79c/68747470733a2f2f6261646765732e66726170736f66742e636f6d2f6f732f76322f6f70656e2d736f757263652e7376673f763d313033)
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
![](https://camo.githubusercontent.com/c9bafd98a416203e0777c627a52559a6ae6fbd80b5b28b0b42ab7c5a03f78cdf/68747470733a2f2f696d672e736869656c64732e696f2f62616467652f546f6f6c732d41492d696e666f726d6174696f6e616c3f7374796c653d666c6174266c6f676f3d6169266c6f676f436f6c6f723d776869746526636f6c6f723d366161366638)