disclaimers.F90

Go to the documentation of this file.

module disclaimers
 
  use constants_and_conversions, only  : true
  use logfiles, only                   : logs, log_all
  implicit none
 
contains
 
  subroutine write_provisional_disclaimer()
 
    write(*,"(/,a)") ' Disclaimer'
    write(*,"(a,/)") '============'
    write(*,"(a)") 'This software is preliminary or provisional and is subject to revision. It is'
    write(*,"(a)") 'being provided to meet the need for timely best science. The software has not'
    write(*,"(a)") 'received final approval by the U.S. Geological Survey (USGS). No warranty,'
    write(*,"(a)") 'expressed or implied, is made by the USGS or the U.S. Government as to the'
    write(*,"(a)") 'functionality of the software and related material nor shall the fact of release'
    write(*,"(a)") 'constitute any such warranty. The software is provided on the condition that'
    write(*,"(a)") 'neither the USGS nor the U.S. Government shall be held liable for any damages'
    write(*,"(a,/)") 'resulting from the authorized or unauthorized use of the software.'
 
  end subroutine write_provisional_disclaimer
 
!--------------------------------------------------------------------------------------------------
 
  subroutine log_provisional_disclaimer()
 
    call logs%write( smessage=' Disclaimer', lecho=true)
    call logs%write( smessage='============', lecho=true,ilinesafter=1)
 
    call logs%write( smessage='This software is preliminary or provisional and is subject to revision. It is', lecho=true)
    call logs%write( smessage='being provided to meet the need for timely best science. The software has not', lecho=true)
    call logs%write( smessage='received final approval by the U.S. Geological Survey (USGS). No warranty,', lecho=true)
    call logs%write( smessage='expressed or implied, is made by the USGS or the U.S. Government as to the', lecho=true)
    call logs%write( smessage='functionality of the software and related material nor shall the fact of release', lecho=true)
    call logs%write( smessage='constitute any such warranty. The software is provided on the condition that', lecho=true)
    call logs%write( smessage='neither the USGS nor the U.S. Government shall be held liable for any damages', lecho=true)
    call logs%write( smessage='resulting from the authorized or unauthorized use of the software.', lecho=true, ilinesafter=1)
 
  end subroutine log_provisional_disclaimer
 
end module disclaimers