anchor.diff:       precision = 'unknown'
      end if
      
  -   call date_and_time(compile_date, compile_time, zone) 
  -   compile_time = trim(compile_time)//trim(zone)
  -   
   end subroutine GetProgramMetadata
   
   !----------------------------------------------------------------------------------------------------------------------------------
  
positive.code:    CALL DispCopyrightLicense( ThisProgVer )
     
     ! Display the program metadata
     call GetProgramMetadata(ThisProgVer, name, version, git_commit, architecture, precision, compile_date, compile_time)
     
     call wrscr(trim(name)//' '//trim(version)//'-'//trim(git_commit))
     call wrscr('Compile Info:')
    !  call wrscr(' - Date: '//trim(compile_date(5:6)//'/'//compile_date(7:8)//'/'//compile_date(1:4)))
    !  call wrscr(' - Time: '//trim(compile_time(1:2)//':'//compile_time(3:4)//':'//compile_time(5:)))
     call wrscr(' - Architecture: '//trim(architecture))
     call wrscr(' - Precision: '//trim(precision))
     ! call wrscr(' - Compiler: '//trim(compiler_version()))
     ! call wrscr(' - Options: '//trim(compiler_options()))
     ! use iso_fortran_env for compiler_version() and compiler_options()
  
     call date_and_time(execution_date, execution_time, execution_zone) 
     execution_time = trim(execution_time)//trim(execution_zone)
     call wrscr('Execution Info:')
     call wrscr(' - Date: '//trim(execution_date(5:6)//'/'//execution_date(7:8)//'/'//execution_date(1:4)))
     call wrscr(' - Time: '//trim(execution_time(1:2)//':'//execution_time(3:4)//':'//execution_time(5:)))
     
    !  CALL WrScr( ' Running '//TRIM(GetVersion(ThisProgVer))//NewLine//' linked with '//TRIM( GetNVD( NWTC_Ver ))//NewLine )
     
  
negative.code: !! displays the copyright notice, and displays some version information (including addressing scheme and precision).
  SUBROUTINE FAST_ProgStart(ThisProgVer)
     TYPE(ProgDesc), INTENT(IN) :: ThisProgVer     !< program name/date/version description
     character(200) :: name, version, date
     character(200) :: git_commit, architecture, precision
     character(200) :: execution_date, execution_time, execution_zone
     
     ! ... Initialize NWTC Library (open console, set pi constants) ...
     ! sets the pi constants, open console for output, etc...
  