#
# QSUB -eo
# QSUB -s /bin/csh
# QSUB -r tpscan -q prem -lT 300

ja
cd $TMPDIR
assign -F f77 -N ieee fort.11


cat << 'EOF' > tsrc.f
      program r
      dimension val(73,73)
      character alvl*6,ahr*12,name*4
	character infil(100)*6
	ilun=11
	nfil=1
	read(*,*) nn
	do n=1,nn
	  read(*,16) infil(n)
16	  format(a6)
	enddo
1	call mssin(ilun,infil(nfil))
    5 read(ilun,end=90)iyr,imo,ahr,alvl,name,val
      write(*,'(2i5,3(1x,a),2x,e15.7)')iyr,imo,ahr,alvl,name,val(37,37)
      go to 5
   90 continue
	nfil=nfil+1
	if (nfil .le. nn) then
	  call ishell('rm fort.11')
	  goto 1
	endif
      end
*********************************************************************
	subroutine mssin(lun,ifil)
c
c this subroutine reads the input file from its location on the MSS.
c
	character ifil*(*)
	character loc_flnm*7,errbuf*80
	character mshead*9,mss_flnm*25
c
	mshead='    /DSS/'
	if (ichar(ifil(1:1)) .lt. 65 .or. ichar(ifil(1:1)) .gt. 90)
     + mshead='/DATTORE/'
	mss_flnm=mshead//ifil
c
	if (lun .lt. 10) then
	  write(loc_flnm,399) lun
399	  format('fort.',i1,1x)
	else
	  write(loc_flnm,400) lun
400	  format('fort.',i2)
	endif
	call msread(nerr1,loc_flnm,mss_flnm," "," ")
	write(*,401) nerr1,mshead,ifil,lun
401	format(1x,'mssin msread status =',i3,' on file ',a9,a,
     +' to fort.',i2)
	if (nerr1 .eq. 0) then
	  write(*,*) '  msread successful'
	else
	  write(*,*) '  msread failure'
	  call mserror(errbuf)
	  write(*,*) '  ',errbuf
	endif
c
	return
	end
'EOF'
cat << 'EOF' > tsrc.f
1
Y24451
'EOF'

cft77 -e h tsrc.f

segldr tsrc.o -L /lib,/usr/lib,/usr/local/lib -l ncarm,ncaro,mss
a.out < data

ja -s