Changeset 3182 for palm/trunk/UTIL/inifor/src/control.f90
- Timestamp:
- Jul 27, 2018 1:36:03 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/UTIL/inifor/src/control.f90
r2718 r3182 21 21 ! Current revisions: 22 22 ! ----------------- 23 ! Added version and copyright output 23 24 ! 24 25 ! … … 42 43 43 44 USE defs, & 44 ONLY: LNAME, dp 45 ONLY: LNAME, dp, VERSION, COPYRIGHT 45 46 46 47 USE util, & … … 95 96 96 97 END SUBROUTINE abort 98 99 100 SUBROUTINE print_version() 101 PRINT *, "INIFOR " // VERSION 102 PRINT *, COPYRIGHT 103 END SUBROUTINE print_version 97 104 98 105
Note: See TracChangeset
for help on using the changeset viewer.