Commit 1a2f7642 authored by thomas.forbriger's avatar thomas.forbriger
Browse files

nlnmtab [FIX]: get rid of Hollerith constants

parent 2bc92c63
...@@ -52,6 +52,7 @@ c REVISIONS and CHANGES ...@@ -52,6 +52,7 @@ c REVISIONS and CHANGES
c 06/06/2005 V1.0 Thomas Forbriger c 06/06/2005 V1.0 Thomas Forbriger
c 26/06/2013 V1.1 check definition of PSD values c 26/06/2013 V1.1 check definition of PSD values
c 04/12/2014 V1.2 fix: declare return type of function fnlnm c 04/12/2014 V1.2 fix: declare return type of function fnlnm
c 11/04/2019 V1.3 fixes: get rid of Hollerith constants
c c
c ============================================================================ c ============================================================================
c c
...@@ -79,9 +80,9 @@ c commandline ...@@ -79,9 +80,9 @@ c commandline
c debugging c debugging
logical debug, verbose logical debug, verbose
c here are the keys to our commandline options c here are the keys to our commandline options
data optid/2h-d, 2h-v, 2h-p, 2h-s, 2h-e, 2h-n, 2h-l/ data optid/'-d', '-v', '-p', '-s', '-e', '-n', '-l'/
data opthasarg/3*.FALSE.,3*.TRUE.,.FALSE./ data opthasarg/3*.FALSE.,3*.TRUE.,.FALSE./
data optarg/3*1h-,5h1.e-4,3h10.,3h100,1h-/ data optarg/3*'-','1.e-4','10.','100','-'/
c c
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c basic information c basic information
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment