Skip to content

Instantly share code, notes, and snippets.

@zrhans

zrhans/fsc1004-01.f95

Last active August 29, 2015 14:05
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save zrhans/e748bbb58853134ee76d to your computer and use it in GitHub Desktop.
Save zrhans/e748bbb58853134ee76d to your computer and use it in GitHub Desktop.
Download ZIP
Raw
fsc1004-01.f95
function string_concat(s1, s2) ! This is a comment
TYPE (string), INTENT(IN) :: s1, s2
TYPE (string) string_concat
string_concat%string_data = s1%string_data(1:s1%length) // &
s2%string_data(1:s2%length) ! This is a continuation
string_concat%length = s1%length + s2%length
end fuction string_concat
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment