Commit 443a89c3 authored by Gregor Michalicek's avatar Gregor Michalicek
Browse files

Solved some compilation problems

The problems were caused caused by by some accidental changes
in commit 8ae64a64.
parent 248825ec
......@@ -122,7 +122,7 @@ MODULE m_xmlOutput
TYPE IS(LOGICAL)
WRITE(charAttributeValues(i),'(l1)') attributeValues(i)
#ifndef __PGI
TYPE IS(CHARACTER(LEN=30))
TYPE IS(CHARACTER(LEN=*))
WRITE(charAttributeValues(i),'(a)') TRIM(ADJUSTL(attributeValues(i)))
CLASS DEFAULT
STOP 'Type of attributeValues not allowed'
......@@ -140,7 +140,7 @@ MODULE m_xmlOutput
TYPE IS(LOGICAL)
WRITE(charContentList(i),'(l1)') contentList(i)
#ifndef __PGI
TYPE IS(CHARACTER(LEN=30))
TYPE IS(CHARACTER(LEN=*))
WRITE(charContentList(i),'(a)') TRIM(ADJUSTL(contentList(i)))
CLASS DEFAULT
STOP 'Type of contentList not allowed'
......@@ -353,7 +353,7 @@ MODULE m_xmlOutput
TYPE IS(LOGICAL)
WRITE(charAttributeValues(i),'(l1)') attributeValues(i)
#ifndef __PGI
TYPE IS(CHARACTER(LEN=30))
TYPE IS(CHARACTER(LEN=*))
WRITE(charAttributeValues(i),'(a)') TRIM(ADJUSTL(attributeValues(i)))
CLASS DEFAULT
STOP 'Type of attributeValues not allowed'
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment