unit_check Subroutine

     subroutine unit_check(name,test,message)
     character(len=*),intent(in) :: name
     logical,intent(in)          :: test
     character(len=*),intent(in) :: message
        write(*,'(a)') repeat("=",64)
        write(*,'(a)') sha256(str)
        write(*,'(a)') ref
        if(test)then
           write(*,*)trim(name)," PASSED: ",trim(message)
        else
           write(*,*)trim(name)," FAILED: ",trim(message)
        endif
     end subroutine unit_check