Multiple variable input <URGENT>

[sr00014]

Hi. Im stuck and I dunno what to do. Basicaly i need to creat a program that will convert temperature, between C,K, and F, depending on what i input. its fairly simple however it needs to be input in the form XU,

where x is the temperature and U the units, ie in the form 26C or 45F or 269K

its not a problem when i read units and temperature seperately but i ideally need to read it when its input as either say 26k or 26 k (i can have a space between the values if it makes it easier)

thanks

 

[xwb]

1) Input the line as a character string

character*80:: tempbase
read (*,*) tempbase

2) Read the value

integer:: temp
read (tempbase, *) temp

3) Work out what the unit is

integer, parameter:: UNKNOWN=0, CELSIUS=1, FARENHEIT=2, KELVIN=3
integer:: base
character*1:: ch
base = UNKNOWN
do ii = 1, 80
   ch = temp(ii:ii)
   if (ch .eq. 'K') base = KELVIN
   if (ch .eq. 'F') base = FARENHEIT
   if (ch .eq. 'C') base = CELSIUS
   if (base .ne. UNKNOWN) goto 999
enddo
999 continue

Now do your conversion based on base.

 

[xwb]

Think I got a bit of this wrong. Do part 3 before part 2 and change the loop to

base = UNKNOWN
do ii = 1, 80
   ch = tempbase(ii:ii)
   if (ch .eq. 'K') base = KELVIN
   if (ch .eq. 'F') base = FARENHEIT
   if (ch .eq. 'C') base = CELSIUS
   if (base .ne. UNKNOWN) then
       tempbase(ii:ii) = ' '
       exit
   end if
enddo