Thanks,
I tried:
g95 -o lk lk3.f90
But it cannot find lk3.f90, which is in notepad. I was hoping to get an executable file lk or lk.exe.
Beginning of the fortran code. I wrote it 20 years ago!
program lk3
c Programmer: Jim Mullaney, BCSR/703/127/700 area
c Phone : 376-3022
c Date : January 1989
c Revisions : April 1991: Version 3.1 writes selected lines to string.fil
c : April 1991: Version 3.2 gives usage when arguments are needed
c : May 1991: Version 3.3 has enhanced help information (hc etc)
c : May 1991: Version 3.4 enhanced search
c : Aug 1991: Version 3.5 faster re-position (subroutine posit)
c : Sep 1991: Version 3.6 can look at file list ('d' option)
c : Sep 1991: Version 3.7 Added column number option (|)
c : Sep 1991: Version 3.8 Added plot file extractor (p)
c : Oct 1991: Version 3.9 Added explode cabability (!)
c : Oct 1991: Version 4.0 Ctrl-M (CFS) removed from end-of-line
c : Nov 1991: Version 4.1 Minor changes to Version display
c Purpose : provide a way to peruse large files without the
c overhead of an editor
c Features :
c Refer to Menu in subroutine help
common /integers/ kount,ktab1,ktab2,ltarg,keepcol
common / chars / chara,line,target,old,lno,pipe
character chara*1,line*200,target*32,old*32,lno*1,pipe*1
common /colors/ in, f, b, colrstat, colr, color
character in*1, f*2, b*2, colrstat*3, colr*11, color*1
character*1 slash
character inptfil*200, merge*1
character ln*10, tab*10, help*79
logical firstime, endf
data firstime /.TRUE./
data slash /'/'/, endf /.FALSE./
data help /
+'Options: a c d e f g h i k l m n # p q r s t v w x + - / ~ \ | !
+ = page '/
ktab1 = 1
ktab2 = 79
kount = 0
merge = 'N'
lno = 'Y'
pipe = 'N'
endf = .FALSE.
f = 'xx'
in = 'h'
keepcol = 0
open (unit=1,file='tuvwxyz.123')
read (1,800) inptfil
open (unit=3,file=inptfil)
call view(20,endf)
color = 'N'
colrstat = 'OFF'
907 format(1h ,a)
target = ' '
20 write(ln,'(i10)') kount
write(tab,'(i9)') ktab1
ln(1:4) = 'Line'
tab(1:6) = ', Tab '
if (firstime) then
print *,'Version 4.1, Help: hx explains extract; hc -> c
+olor; h -> ALL'
firstime = .FALSE.
else
print *, ' '
endif
print *, help
print *,ln,tab,inptfil(1:lchar(inptfil)),' Highlight: ',colrstat
* write(6,'(t30,a,a)') 'File: ', inptfil
old = target
Jim