Wrinkly trying to get back into Fortran!

[gandalf458]

Hi. It has been over 35 years since I wrote my last Fortran program and that was in Fortran IV and on punched cards! I have just installed gfortran (Fortran 95) on my Linux box and have written my first simple program:

program f2c2f
! convert degrees C to F and F to C
implicit none
real :: x, c, f
print*, 'Enter a number:'
read*, x
c = (x - 32) * 5 / 9
f = x * 9 / 5 + 32
2010 format(f6.2, ' deg F = ', f6.2, ' deg C.')
2020 format(f6.2, ' deg C = ', f6.2, ' deg F.')
print 2010, x, c
print 2020, x, f
end program f2c2f

It works fine but there's just one thing I would like to change if possible. I would like the prompt on the same line as the entry of the number. I thought it was possible to add a format to the Read statement and I have tried in various ways to do this without success. All the online guides seem to gloss over formats on read statements and I'm not sure if they can contain literals.

Can any kind soul help please?

 

[mikrom]

like this

program f2c2f
 ! convert degrees C to F and F to C
  implicit none
  real :: x, c, f
  !print*, 'Enter a number:'
  [highlight]write(*,'(A)',advance='no') 'Enter a number:'[/highlight]
  read*, x
  c = (x - 32) * 5 / 9
  f = x * 9 / 5 + 32
  2010 format(f6.2, ' deg F = ', f6.2, ' deg C.')
  2020 format(f6.2, ' deg C = ', f6.2, ' deg F.')
  print 2010, x, c
  print 2020, x, f
end program f2c2f

 

[gandalf458]

Cool. Many thanks mikrom

 

[mikrom]

you are welcome

 

[7man]

An alternative solution is to slightly modify the print statement:

print '(a$)', 'Enter a number: '

The $ at the end of the format string will direct screen-printings to continue on the same line, not the beginning of next line.
A space is added after the colon to make the screen-printings less compact.
(I noted that an x at the end of the format had no effect; i.e. '(ax$)' did not add an extra space.)

I compile with g77.

 

[mikrom]

Thanks, I tried it with gfortran and it works.

 

[gandalf458]

Thanks 7man

 

[7man]

What the $ does at the end of the format-string must be that it prevents the addition of a linefeed (LF) character (or CRLF).

 

[gandalf458]

Looks like it's not universal though:

http://computer-programming-forum.com/49-fortran/cef58aacc1ed896b.htm

 

[7man]

Here they try '\':

http://www.tek-tips.com/viewthread.cfm?qid=1752032

For me it doesn't work with: advance='no'

...

 

[gandalf458]

Yes, I think I read in that post that advance="no" was f90/95