Error in writing strings

Hi all,

I get a "forrtl: severe (66): output statement overflows record, unit -5" in this code, which tries to write a matrix to a CSV file with ";" separator:
 

CHARACTER(255) kterm,scrK
REAL*8 kcond(6,6)
...

OPEN(UNIT=200,FILE="K.CSV",STATUS="REPLACE",ACTION='WRITE')
do i=1,size(kcond,1)
do j=1,size(kcond,2)
    write(kterm,*)kcond(i,j)
    write(scrK,*)trim(adjustl(scrK))//';'//trim(adjustl(kterm)) ! error in this line
enddo
write(200,*)scrK
enddo
CLOSE(200)

any clue?
It seems that the string scrK cannot hold the concat strings because they are too long. why trim(adjustl( don't do the magic? initially, scrK is empty.
thanks in advance