Changeset 5171 for branches

Timestamp:

2015-03-25T10:49:24+01:00 (9 years ago)

Author:

pabouttier

Message:

Remove star character to avoid C-style comments inside fortran comments; See Ticket #1501

File:

• branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/EXTERNAL/XMLF90/src/xpath/m_path.f90 (modified) (2 diffs)

branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/EXTERNAL/XMLF90/src/xpath/m_path.f90

@@ -532 +532 @@
 ! //radfunc/data
 ! //data
-! //*/vps/data
-! //job//data      
-! //*
+! ///vps/data
+! //job//data
+! //
 !
 integer :: len_target, len_path, pos_target, pos_path
@@ -562 +562 @@
       search_anchor : do
          pos_target = index(ptarget(1:len_target-1),"/",back=.true.)
-         if (pos_target == 1) then ! Target begins by /.// 
+         if (pos_target == 1) then ! Target begins by /.//
             res_match = .true.
             return