From 5ba77e27b8ef59a02eeff4888aec21a9bdd59b2b Mon Sep 17 00:00:00 2001 From: Karl Smith Date: Wed, 24 Jun 2020 21:47:20 +0000 Subject: [PATCH] Remove the //'-id' added to feature_idname in list_dsg_data.F; add comment in list_dsg_comma_tab.F git-svn-id: file:///home/users/tmap/svn/repos/ferret/trunk@27188 fdbf22ae-c210-0410-be80-ca943da6b8f8 --- fer/gnl/list_dsg_comma_tab.F | 1 + fer/gnl/list_dsg_data.F | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/fer/gnl/list_dsg_comma_tab.F b/fer/gnl/list_dsg_comma_tab.F index a3021309e..8a7591460 100644 --- a/fer/gnl/list_dsg_comma_tab.F +++ b/fer/gnl/list_dsg_comma_tab.F @@ -387,6 +387,7 @@ SUBROUTINE LIST_DSG_COMMA_TAB (dset, cx_list, mr_list, nvar, * ... have the user's constraints removed this observation? IF (.NOT.process_obs(iobs)) CYCLE +* Appending space just to get rid of a nonsense compiler warning line_buff = id_buff(:ilen)//' ' slen = ilen diff --git a/fer/gnl/list_dsg_data.F b/fer/gnl/list_dsg_data.F index ff542949e..99ac4d0cb 100644 --- a/fer/gnl/list_dsg_data.F +++ b/fer/gnl/list_dsg_data.F @@ -396,7 +396,7 @@ SUBROUTINE LIST_DSG_DATA ( dset, cx_list, mr_list, nvar, IF (orientation .NE. pfeatureType_Point) THEN WRITE ( risc_buff, FMT ) - . vname_buff(:vname_len), feature_idname(:TM_LENSTR1(feature_idname))//'-id' + . vname_buff(:vname_len), feature_idname(:TM_LENSTR1(feature_idname)) IF (.NOT.norow) CALL SPLIT_LIST(pttmode_explct, list_lun, risc_buff, 0) ENDIF