Commit 6ca39b83 authored by Daniel Wortmann's avatar Daniel Wortmann

Made long lines shorter as gfortran has a default 132 characters limit

parent ae2739e7
......@@ -222,7 +222,8 @@ MODULE m_xmlOutput
ALLOCATE(contentLineList(contentLineListSize))
CALL fillContentLineList(contentList,contentLineList,contentLineLength)
IF(SIZE(contentLineList).LE.1) THEN
outputString = TRIM(ADJUSTL(outputString))//'>'//contentLineList(1)//'</'//TRIM(ADJUSTL(elementName))//'>'
outputString = TRIM(ADJUSTL(outputString))//'>'//contentLineList(1)//'</'//&
TRIM(ADJUSTL(elementName))//'>'
ELSE
outputString = TRIM(ADJUSTL(outputString))//'>'
END IF
......@@ -289,7 +290,8 @@ MODULE m_xmlOutput
IF((i-1)*contentLineLength+j.GT.SIZE(contentList)) THEN
RETURN
END IF
WRITE(contentLineList(i),'(a,a20)') TRIM(ADJUSTL(contentLineList(i))), TRIM(ADJUSTL(contentList((i-1)*contentLineLength+j)))
WRITE(contentLineList(i),'(a,a20)') TRIM(ADJUSTL(contentLineList(i))),&
TRIM(ADJUSTL(contentList((i-1)*contentLineLength+j)))
END DO
END DO
END SUBROUTINE fillContentLineList
......
......@@ -280,7 +280,8 @@
write(fn,"('Total execution time: ',i0,'sec')") int(globaltimer%time)
CALL priv_writetimes_longest(globaltimer,fid=fn)
WRITE(fn,"('Total execution time: ',i0,'sec, minimal timing printed:',i0,'sec')") int(globaltimer%time),int(min_time*globaltimer%time)
WRITE(fn,"('Total execution time: ',i0,'sec, minimal timing printed:',i0,'sec')") &
int(globaltimer%time),int(min_time*globaltimer%time)
#ifdef CPP_MPI
CALL MPI_COMM_SIZE(MPI_COMM_WORLD,isize,err)
WRITE(fn,*) "Program used ",isize," PE"
......
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