View previous topic :: View next topic |
Author |
Message |
Kenneth_Smith
Joined: 18 May 2012 Posts: 818 Location: Lanarkshire, Scotland.
|
Posted: Sat Oct 13, 2018 9:48 am Post subject: %tl tab locations |
|
|
Can somebody tell me what's wrong with line 12 in the following code, which generates a run time error "Invalid tabulation error".
Code: | program test
implicit none
include<windows.ins>
integer i
integer, parameter :: dp=kind(1.d0)
real(kind=dp):: x=2.d0
i = winio@('%1tl&',30) ! This works
i = winio@('%ws%ta%rf&','Input',x)
i = winio@('%nl%cn%bt[OK]')
i = winio@('%2tl&',15,15) ! This does not work
i = winio@('%ws%2ta%rf&','Input',x)
i = winio@('%nl%cn%bt[OK]')
end program test |
Thanks
Ken |
|
Back to top |
|
 |
LitusSaxonicum
Joined: 23 Aug 2005 Posts: 2403 Location: Yateley, Hants, UK
|
Posted: Sat Oct 13, 2018 12:35 pm Post subject: |
|
|
Possibly because 15 is the same as 15?
(They are not 15 and 15+15)
Eddie |
|
Back to top |
|
 |
Kenneth_Smith
Joined: 18 May 2012 Posts: 818 Location: Lanarkshire, Scotland.
|
Posted: Sat Oct 13, 2018 2:16 pm Post subject: |
|
|
Thanks Eddie, been starting at this one for a few hours and never saw the blindingly obvious (again). Ken |
|
Back to top |
|
 |
|