crew2chiefs
/infobank/programs/dbase/crew2chiefs/crew2chiefs.for
Program to extract CHIEF SCIENTIST .CHIEF info from .CREW files.
Clint Steele 2/23/2000
open (unit = 90, * access = 'sequential', * form = 'formatted', * status = 'old', * name = '/tmp/crewlist.tmp')
read (90, '(q,a)', end = 99) * FileLength, AFile(1:FileLength)
call system ('ls -1 /infobank/?/*/meta/*.crew '// * ' > /tmp/crewlist.tmp') call system ('/bin/grep "CHIEF SCIENTIST" '// * AFile(1:FileLength)//' > '// * AFile(1:FileLength-4)//'chief')