- Timestamp:
- Sep 5, 2017, 2:52:15 AM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/tools/module_definitions.f90
r1612 r1617 5 5 REAL(r_k), PARAMETER :: oneRK = 1. 6 6 REAL(r_k), PARAMETER :: twoRK = 2. 7 REAL(r_k), PARAMETER :: DegRad = 180.d0/ACOS(-1.) 7 8 CHARACTER(len=100) :: infomsg = 'INFORMATION -- information' // & 8 9 ' -- INFORMATION -- information'
Note: See TracChangeset
for help on using the changeset viewer.