TYPE distance
real::meter,centimeter,inch
END TYPE distance
! 換算，...表示換算比例，妳自己搜壹下吧。。我忘了
real::dist
TYPE(distance)::dist1
read(*,*)dist
dist1%meter=dist*...
dist1%centimeter=dist*...
dist1%inch=dist*...
! 程序其它部分忽略