Changeset 21 for readTracFiles_mod.f90

Timestamp:

Jul 6, 2022, 4:18:56 PM (2 years ago)

Author:

dcugnet

Message:

Remove useless "TARGET" attributes in getKeyByName_?m functions, because pointers are no longer used.

File:

• readTracFiles_mod.f90 (modified) (3 diffs)

readTracFiles_mod.f90

@@ -1226 +1226 @@
   CHARACTER(LEN=*),                   INTENT(IN)  :: keyn
   CHARACTER(LEN=maxlen), ALLOCATABLE, INTENT(OUT) ::   val(:)
-  CHARACTER(LEN=*), TARGET, OPTIONAL, INTENT(IN)  :: tname(:)
-  TYPE(keys_type),  TARGET, OPTIONAL, INTENT(IN)  ::    ky(:)
+  CHARACTER(LEN=*),         OPTIONAL, INTENT(IN)  :: tname(:)
+  TYPE(keys_type),          OPTIONAL, INTENT(IN)  ::    ky(:)
   TYPE(keys_type),           POINTER :: k(:)
   CHARACTER(LEN=maxlen), ALLOCATABLE :: n(:)
@@ -1257 +1257 @@
 !==============================================================================================================================
 LOGICAL FUNCTION getKeyByName_im(keyn, val, tname, ky) RESULT(lerr)
-  CHARACTER(LEN=*),                   INTENT(IN)  :: keyn
-  INTEGER,               ALLOCATABLE, INTENT(OUT) ::   val(:)
-  CHARACTER(LEN=*), TARGET, OPTIONAL, INTENT(IN)  :: tname(:)
-  TYPE(keys_type),  TARGET, OPTIONAL, INTENT(IN)  ::    ky(:)
+  CHARACTER(LEN=*),           INTENT(IN)  :: keyn
+  INTEGER,       ALLOCATABLE, INTENT(OUT) ::   val(:)
+  CHARACTER(LEN=*), OPTIONAL, INTENT(IN)  :: tname(:)
+  TYPE(keys_type),  OPTIONAL, INTENT(IN)  ::    ky(:)
   TYPE(keys_type),           POINTER :: k(:)
   CHARACTER(LEN=maxlen), ALLOCATABLE :: n(:)
@@ -1290 +1290 @@
 !==============================================================================================================================
 LOGICAL FUNCTION getKeyByName_rm(keyn, val, tname, ky) RESULT(lerr)
-  CHARACTER(LEN=*),                   INTENT(IN)  :: keyn
-  REAL,                  ALLOCATABLE, INTENT(OUT) ::   val(:)
-  CHARACTER(LEN=*), TARGET, OPTIONAL, INTENT(IN)  :: tname(:)
-  TYPE(keys_type),  TARGET, OPTIONAL, INTENT(IN)  ::    ky(:)
+  CHARACTER(LEN=*),           INTENT(IN)  :: keyn
+  REAL,          ALLOCATABLE, INTENT(OUT) ::   val(:)
+  CHARACTER(LEN=*), OPTIONAL, INTENT(IN)  :: tname(:)
+  TYPE(keys_type),  OPTIONAL, INTENT(IN)  ::    ky(:)
   TYPE(keys_type),           POINTER :: k(:)
   CHARACTER(LEN=maxlen), ALLOCATABLE :: n(:)