 |
forums.silverfrost.com
Welcome to the Silverfrost forums
|
| View previous topic :: View next topic |
| Author |
Message |
Kenneth_Smith
Joined: 18 May 2012
Posts: 335
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: 2127
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: 335
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
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
