Skip to content

Navigation Menu

Explore
By company size
By use case
By industry
View all solutions
Topics
- AI
- DevOps
- Security
- Software Development
- View all
Explore
- GitHub Sponsors
  Fund open source developers
- The ReadME Project
  GitHub community articles
Repositories
- Enterprise platform
  AI-powered developer platform
Available add-ons
Pricing

Search code, repositories, users, issues, pull requests...

Search

Clear

Search syntax tips

Provide feedback

We read every piece of feedback, and take your input very seriously.

Include my email address so I can be contacted

Saved searches

Use saved searches to filter your results more quickly

Name

Query

To see all available qualifiers, see our documentation.

You signed in with another tab or window. Reload to refresh your session. You signed out in another tab or window. Reload to refresh your session. You switched accounts on another tab or window. Reload to refresh your session.

Dismiss alert

sdliuyuzhi / HOTRG Public

Notifications You must be signed in to change notification settings
Fork 0
Star 1

Code
Issues
Pull requests
Actions
Projects
Wiki
Security
Insights

Additional navigation options

Code
Issues
Pull requests
Actions
Projects
Wiki
Security
Insights

Breadcrumbs

HOTRG

/

set_precisions.f90

Copy path

Latest commit

History

8 lines (8 loc) · 309 Bytes

Breadcrumbs

HOTRG

/

set_precisions.f90

File metadata and controls

8 lines (8 loc) · 309 Bytes

1

2

3

4

5

6

7

8

MODULE set_precisions

IMPLICIT NONE

!PRIVATE

INTEGER, PARAMETER :: SGL = SELECTED_REAL_KIND(p=6, r=37)

!integer, parameter :: DBL = SELECTED_REAL_KIND(p=6, r=37)

INTEGER, PARAMETER :: DBL = SELECTED_REAL_KIND(p=15, r=307)

INTEGER, PARAMETER :: QPL = SELECTED_REAL_KIND(p=33, r=4931)

END MODULE set_precisions

Footer

© 2025 GitHub, Inc.

Footer navigation

Terms
Privacy
Security
Status
Docs
Contact

You can’t perform that action at this time.