|
forums.silverfrost.com Welcome to the Silverfrost forums
|
View previous topic :: View next topic |
Author |
Message |
Kenneth_Smith
Joined: 18 May 2012 Posts: 697 Location: Hamilton, 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: 2388 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: 697 Location: Hamilton, 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 |
|
|
|
|
You cannot post new topics in this forum You cannot reply to topics in this forum You cannot edit your posts in this forum You cannot delete your posts in this forum You cannot vote in polls in this forum
|
Powered by phpBB © 2001, 2005 phpBB Group
|