Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Fix #478: Fix search delimiters in medium data file. #503

Merged
merged 1 commit into from
Jan 13, 2020
Merged

Fix #478: Fix search delimiters in medium data file. #503

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 3 additions & 3 deletions HEN_HOUSE/src/get_inputs.mortran
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -219,9 +219,9 @@ COMIN/GetInput,EGS-IO/;
CHARACTER*$STRING256 TEXT; "Used to read in each line of the input file "
CHARACTER*$STRING256 KEEPTEXT; "Used to keep an old line of TEXT "
CHARACTER*$STRING256 ORIGTEXT; "The text without conversion to upper case "
CHARACTER*$STRING256 TEXTPIECE; "Used to read a piece of TEXT "
CHARACTER*$STRING40 DELIM_START;"Start of the delimeter "
CHARACTER*$STRING40 DELIM_END; "End of the delimeter "
CHARACTER*$STRING256 TEXTPIECE; "Used to read a piece of TEXT "
CHARACTER*$STRING80 DELIM_START;"Start of the delimeter "
CHARACTER*$STRING80 DELIM_END; "End of the delimeter "
CHARACTER*$STRING32 VNAME; "The name of the variable being extracted. "
CHARACTER*$STRING32 VNAME1; "The name of the variable being extracted. "
$INTEGER CURSOR; "Used to read one of the TEXT letters "
Expand Down
8 changes: 4 additions & 4 deletions HEN_HOUSE/src/get_media_inputs.mortran
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -48,9 +48,9 @@ CHARACTER*$STRING256 TEXT; "Used to read in each line of the input file "
CHARACTER*$STRING256 KEEPTEXT; "Used to keep an old line of TEXT "
CHARACTER*$STRING256 ORIGTEXT; "The text without conversion to upper case "
CHARACTER*$STRING256 TEXTPIECE; "Used to read a piece of TEXT "
CHARACTER*$STRING40 DELIM_START;"Start of the delimeter "
CHARACTER*$STRING40 DELIM_END; "End of the delimeter "
CHARACTER*$STRING40 ENDSTRING; "string at which to terminate search "
CHARACTER*$STRING80 DELIM_START;"Start of the delimeter "
CHARACTER*$STRING80 DELIM_END; "End of the delimeter "
CHARACTER*$STRING80 ENDSTRING; "string at which to terminate search "
CHARACTER*$STRING32 VNAME; "The name of the variable being extracted. "
CHARACTER*$STRING32 VNAME1; "The name of the variable being extracted. "
$INTEGER CURSOR; "Used to read one of the TEXT letters "
Expand Down Expand Up @@ -702,7 +702,7 @@ character*24 medium_name,med_tmp,sterncid_tmp;
character*256 density_file,material_file,tmp_string,
spoutput_file($MXMED);
character*80 text_string, text_save, title;
character*40 delim_start,delim_end;
character*80 delim_start,delim_end;
character*1 blank;
character*512 toUpper;

Expand Down