Internal read of real array to a string.

[pecan204]

Can I do an internal read writing real array values to a string like below?

Or is there an intrinsic function for this?

character*80 aatemp

Read(( xread1(k), k=1,nv(1) ),'(a)') aatemp
Write(lin2,*) aatemp

Thanks for any advice.

Ken

[Steven_L_Intel1]

You want an internal write.

Steve

[pecan204]

Steve,

I rewrote and tried but do not see value when viewing aatemp with the debugger.There is a value is the array.

character*80 aatemp
Write( xread1(1),'(a)') aatemp
Write(lin2,*) aatemp

I assumed the full array would look like below.

Write(( xread1(1), k=1,nv(1) ),'(a)') aatemp
Write(lin2,*) aatemp

Do you see anything wrong?

Thanks
Ken

[Steven_L_Intel1]

Think of the character variable as a file. What you want is something like this:

write (aatemp, '(5F10.2)') (xread(k),k=1,nv(1))

Be aware that if you get to the end of the format and still have more elements, it will try to go to the "next record". In internal I/O, that means the next element of an array. Since aatemp is not an array, it will fail.

I suggest reading the Language Reference Manual section on internal write.

Steve

[pecan204]

Thanks