Old Drain Code

[JohnNichols]

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. 

[JohnNichols]

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