- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
read (xxline,1020) probid,nstat,kexe,kecho,kkpdel,kkenr,uf,ihed
1020 format (2x,a8,3x,i2,4x,i1,3(1x,i1),3x,a1,10x,a40)
if (kecho .eq. 1) write (*,'(1x,a80)') xxline(1:80)
This code is perfect for a punch card system, but it is a pain for the modern text editor, counting columns is a pain.
The sample drain.inp I have had nstat as blank in the line and so it was set to zero in the run.
Sad about Lahey, I remember its early adds.
Link Copied
- « Previous
-
- 1
- 2
- Next »
21 Replies
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Jim:
Thanks, even though I had been reading about reshape on the forum, I had not really thought about it much.
Yes, I will need to go back and overhaul the calls. It just takes a while to get your head around some one else's code.
John
Reply
Topic Options
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page
- « Previous
-
- 1
- 2
- Next »