! !$Author$ !$Date$ !$Revision$ !$HeadURL$ ! ! Test the build date, bd_date(), and release/version, rel_ver() ! functions. ! Fri Jun 9 13:17:18 CDT 2000 - LEW character*(64) bdate_str ! build date string character*(64) rel_str ! release version string character*(64) bd_date ! function declaration character*(64) rel_ver ! function declaration bdate_str = bd_date() rel_str = rel_ver() write(*,*) 'The build date is: ', trim(bdate_str), '|' write(*,*) 'The release version is: ', trim(rel_str), '|' stop end