포트란 문자, 숫자간 변환방법

문자를 숫자로

str='123456 txt'

read(str,'(i6)') i

print *,i+1

결과 : 123457

************* 응용 ***************

cdum='6:15:25' 또는 cdum='18:15:25'

if (len(trim(cdum)).eq.7) then
read(cdum(1:1),'(i2)')sh
read(cdum(3:4),'(i2)')sm
read(cdum(6:7),'(i2)')ss
else
read(cdum(1:2),'(i2)')sh
read(cdum(4:5),'(i2)')sm
read(cdum(7:8),'(i2)')ss
endif
c
write(21,1111)x,y,spd,dirdeg,sh,sm,ss
===================================

숫자를 문자로

i=123

write(str,'("abc",i6)') i

print *,str

결과 : abc123