---
name: "sblat1.f"
section: "3"
platform: "linux"
package: "lapack-doc"
version: "3.12.1-2"
release: "Arch Linux 2026-11-01"
platforms: ["linux"]
url: "https://new.carta.tech/sblat1.f"
---

# sblat1.f(3)

## NAME

BLAS/TESTING/sblat1.f

## SYNOPSIS

### Functions/Subroutines

program **sblat1**\
 **SBLAT1**  subroutine **header**\
 subroutine **check0** (sfac)\
 subroutine **check1** (sfac)\
 subroutine **check2** (sfac)\
 subroutine **check3** (sfac)\
 subroutine **stest** (len, scomp, strue, ssize, sfac)\
 subroutine **stest1** (scomp1, strue1, ssize, sfac)\
 real function **sdiff** (sa, sb)\
 subroutine **itest1** (icomp, itrue)\
 subroutine **sb1nrm2** (n, incx, thresh)\

## Function/Subroutine Documentation

### subroutine check0 (real sfac)

Definition at line **129** of file **sblat1.f**.

### subroutine check1 (real sfac)

Definition at line **248** of file **sblat1.f**.

### subroutine check2 (real sfac)

Definition at line **367** of file **sblat1.f**.

### subroutine check3 (real sfac)

Definition at line **735** of file **sblat1.f**.

### subroutine header

Definition at line **95** of file **sblat1.f**.

### subroutine itest1 (integer icomp, integer itrue)

Definition at line **1044** of file **sblat1.f**.

### subroutine sb1nrm2 (integer n, integer incx, real thresh)

Definition at line **1088** of file **sblat1.f**.

### program sblat1

**SBLAT1**

**Purpose:**

```
!>
!>    Test program for the REAL Level 1 BLAS.
!>
!>    Based upon the original BLAS test routine together with:
!>    F06EAF Example Program Text
!>
```

**Author**

Univ. of Tennessee

Univ. of California Berkeley

Univ. of Colorado Denver

NAG Ltd.

Definition at line **36** of file **sblat1.f**.

### real function sdiff (real sa, real sb)

Definition at line **1031** of file **sblat1.f**.

### subroutine stest (integer len, real, dimension(len) scomp, real, dimension(len) strue, real, dimension(len) ssize, real sfac)

Definition at line **944** of file **sblat1.f**.

### subroutine stest1 (real scomp1, real strue1, real, dimension(\*) ssize, real sfac)

Definition at line **1003** of file **sblat1.f**.

## Author

Generated automatically by Doxygen for LAPACK from the source code.