How to convert integer to character type in F90

[Mauro2005]

Hi simple example:
"
integer :: year .....
character:: p1*4, ....
.
.
DO 100 i=fyear, lyear
year = i
p1=trim(year)
write(*,*) p1
..."

Compiling, complaint of course that year is incorrect kind for the function trim.

How to convert an integer to a character ? any suggestions

 

[xwb]

Not sure what you want. At a guess it is something like

 DO 100 i=fyear, lyear
    year = i
    write (p1, '(I4)') year
    ... do whatever with p1
100 continue

Writing to p1 will convert year into character form in p1

 

[Mauro2005]

Thanks at lot,

That's what I was trying to accomplish, basically I am writting a program that open/read several files and compile the data into a single file. The names of files include year, month, etc, that is where the conversion was need it.

thank you again, Mauricio