Changeset 3188 for branches/2011/DEV_r2739_STFC_dCSE

Timestamp:

2011-11-28T18:13:00+01:00 (12 years ago)

Author:

spickles2

Message:

Stephen Pickles, 28 Nov 2011, DCSE NEMO branch.
Changed variable name "len" to "lenin" in function
fill_buffer() in EXTERNAL/XMLF90/src/sax/m_reader.f90

The clash with the fortran intrinsic of the same name
confuses the PGI compiler (pgi/11.9.0), which generates
erroneous code when key_iomput is enabled. The symptom
is a segmentation fault at run-time while parsing iodef.xml.

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/EXTERNAL/XMLF90/src/sax/m_reader.f90 (modified) (4 diffs)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/EXTERNAL/XMLF90/src/sax/m_reader.f90

@@ -137 +137 @@
 character(len=41)  :: str       ! 40 seems like a good compromise?
                                 ! (1 extra for added newline, see below)
-integer            :: len
-!
-read(unit=fb%lun,iostat=iostat,advance="no",size=len,fmt="(a40)") str
+integer            :: lenin
+!
+read(unit=fb%lun,iostat=iostat,advance="no",size=lenin,fmt="(a40)") str
 
 if (iostat == io_eof) then
@@ -156 +156 @@
 !
  if (fb%debug) then
-   print *, "Buffer: len, iostat", len, iostat
+   print *, "Buffer: len, iostat", lenin, iostat
    print *, trim(str)
  endif
@@ -166 +166 @@
       !  Normal read, with more stuff left on the line
       !
-      fb%buffer = str(1:len) 
-      fb%nchars = len
+      fb%buffer = str(1:lenin) 
+      fb%nchars = lenin
 
    else         ! (end of record)
@@ -173 +173 @@
       !  End of record. We mark it with an LF, whatever it is the native marker.
       !
-!!      fb%buffer = str(1:len) // char(10)
-      fb%buffer = str(1:len)             !! Avoid allocation of string
-      len = len + 1                      !! by compiler
-      fb%buffer(len:len) = char(10)   
-      fb%nchars = len
+!!      fb%buffer = str(1:lenin) // char(10)
+      fb%buffer = str(1:lenin)             !! Avoid allocation of string
+      lenin = lenin + 1                      !! by compiler
+      fb%buffer(lenin:lenin) = char(10)   
+      fb%nchars = lenin
       iostat = 0
    endif