| View previous topic :: View next topic |
| Author |
Message |
Kenneth_Smith
Joined: 18 May 2012
Posts: 198
Location: Hamilton, 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: 2005
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: 198
Location: Hamilton, 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 |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
