topic Print and Read on a line in Intel® Fortran Compiler

Print and Read on a line

anishtain4 — Wed, 08 Jun 2011 18:28:51 GMT

I want to print something on the screen and then read something while the cursor is at the same line, how should I do this?

Print and Read on a line

Robert_van_Amerongen — Wed, 08 Jun 2011 19:09:54 GMT

Maybe you can use something like

WRITE(*,'("Give a value =>: ")',ADVANCE='NO')
READ(*,*) value

Robert

Print and Read on a line

Steven_L_Intel1 — Wed, 08 Jun 2011 19:25:57 GMT

No, that doesn't work - at least in our implementation. You have to use an extension:

write (*,'($,A)') "Number please: "
read (*,*) number
write (*,*) number, " is your lucky number"
end

There is a feature request in to make the version using non-advancing I/O work as desired here. The standard doesn't require it, but some other implementations do it.

Print and Read on a line

Arjen_Markus — Thu, 09 Jun 2011 10:29:15 GMT

I thought it would work with F2003's flush statement (and output_unit from iso_fortran_env),
but it doesn't. The flush statement "flush( output_unit )"causes the message that unit 6 is not
connected.

Regards,

Arjen

Print and Read on a line

Robert_van_Amerongen — Thu, 09 Jun 2011 14:31:50 GMT

Steve,

I am a little confused by your remark. The "ADVANCE" specifier works fine and is a FORTRAN feature (see Metcalf , par. 9.11, Non-advancing I/O)

[fortran]  PROGRAM adv
  IMPLICIT none
! 
  REAL :: value
!
  WRITE(*,'("Enter a value =>: ")', ADVANCE='NO')
  READ(*,*) value
  WRITE(*,*) "You give the value:", value
!
  WRITE(*,'($,A)') "Enter a value =>: "
  READ(*,*) value
  WRITE(*,*) "You give the value:", value
!
  STOP
  END PROGRAM adv  [/fortran]

Or do I miss the essence of your remark?

Robert

Print and Read on a line

Steven_L_Intel1 — Thu, 09 Jun 2011 15:27:20 GMT

Well, no, I made an error. I was confusing this with the issue where people who want to use non-advancing I/O for a progress bar can't get it working on Intel Fortran. You are correct that it works fine for the "prompt" case. Thanks for picking up on that and I apologize for the mistake.

Print and Read on a line

anishtain4 — Thu, 09 Jun 2011 22:53:35 GMT

Thanks you both. both methods works fine