Revision 177052d6b8b4127a9d345830fb3d82384e9d5b50 authored by Alexandru Croitor on 08 July 2020, 22:27:25 UTC, committed by Brad King on 09 July 2020, 10:33:03 UTC
1 parent 8adfa16
Raw File
test_module_implementation.f90
FUNCTION TEST_MODULE_FUNCTION(A,B)
  REAL :: TEST_MODULE_FUNCTION
  REAL, INTENT(IN) :: A
  REAL, INTENT(IN) :: B
  TEST_MODULE_FUNCTION = A + B
END FUNCTION TEST_MODULE_FUNCTION
back to top