! ! REL_VER is used to specify the release version of the application. ! character *(*) function rel_ver () ! ! + + + PURPOSE + + + ! ! To be able to incorporate the actual release version string ! into an application. ! The release version string is replaced by the building program ! at compile time. This function is the application's reference ! to that string. ! ! + + + KEYWORDS + + + ! date, time, build, release, version ! ! + + + ARGUMENT DECLARATIONS + + + ! ! + + + ARGUMENT DEFINITIONS + + + ! ! + + + PARAMETERS + + + ! ! + + + LOCAL VARIABLES + + + ! ! rel_str - Release string ! ! + + + END SPECIFICATIONS + + + ! character*(40) rel_str rel_str = '0' rel_ver = rel_str return end