Internal WRITE Specification

[kulachi]

Hi,

I need to write a REAL into a string as INTEGER. The value of REAL may range from 1 to 1000000. My problem is that I don't want any spaces (blanks) in the string. Consider the following code:

---------------------------------------------------
PROGRAM Test
IMPLICIT NONE

REAL :: Y = 500.00
CHARACTER(20) :: Str = ''

write(Str,"('NUM:', I)") INT(Y)

write(*,*) Str

END PROGRAM Test
---------------------------------------------------

This gives me an out of:
NUM: 500

I want it as:
NUM:500

That is, no spaces. In other words I am looking for something that should serve as TRIM() here.

-Kulachi

[GVautier · Accepted solution]

Use the 0 length :

write(Str,"('NUM:', I0)") INT(Y)

It will produce : NUM:xxx

[DavidWhite]

Quoting - gvautier

Use the 0 length :

write(Str,"('NUM:', I0)") INT(Y)

It will produce : NUM:xxx

Or use I7.7 format to get
NUM:0000500

etc.

[kulachi]

Many Thanks!

-Kulachi

[John4]

What about using the ADJUSTL intrinsic (followed by TRIM, if you want), as in:

write(Str,"(I)") INT(Y)
Str = 'NUM:'//ADJUSTL(Str)
write(*,*) TRIM(Str)

This one also works with reals.