Commit 1aa785af authored by Matthias Redies's avatar Matthias Redies

remove unnecessary format

parent 22884882
......@@ -214,7 +214,7 @@ MODULE m_judft_xmlOutput
INTEGER, ALLOCATABLE :: bigLengths(:,:)
INTEGER :: i, j, contentLineLength, contentLineListSize
CHARACTER(LEN=150) :: format
CHARACTER(LEN=1000) :: outputString
CHARACTER(LEN=:), allocatable :: outputString
INTEGER :: contentListSize, overallListSize, numContentLineChars
INTEGER :: lengthsShape(2)
......@@ -240,13 +240,8 @@ MODULE m_judft_xmlOutput
outputString = '<'//TRIM(ADJUSTL(elementName))
DO i = 1, SIZE(attributeNames)
WRITE(format,'(a)') "(a,a,a"
IF (bigLengths(i,1).GT.0) WRITE(format,'(a,i0)') TRIM(ADJUSTL(format)),bigLengths(i,1)
WRITE(format,'(a,a)') TRIM(ADJUSTL(format)),",a,a"
IF (bigLengths(i,2).GT.0) WRITE(format,'(a,i0)') TRIM(ADJUSTL(format)),bigLengths(i,2)
WRITE(format,'(a,a)') TRIM(ADJUSTL(format)),",a)"
WRITE(outputString,format) TRIM(ADJUSTL(outputString)), ' ', TRIM(ADJUSTL(attributeNames(i))),&
'="', TRIM(ADJUSTL(attributeValues(i))), '"'
outputString = TRIM(ADJUSTL(outputString)) // ' ' // TRIM(ADJUSTL(attributeNames(i))) //&
'="' // TRIM(ADJUSTL(attributeValues(i))) // '"'
END DO
WRITE(format,'(a,i0,a)') "(a",3*(currentElementIndex+1),",a)"
IF (PRESENT(contentList)) THEN
......
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