#!/usr/bin/bash
#
PGPLOT_TYPE=pgxdmp#.xwd/wd;PGPLOT_WD_WIDTH=800;PGPLOT_WD_HEIGHT=600
export PGPLOT_TYPE PGPLOT_WD_WIDTH PGPLOT_WD_HEIGHT
#
rm -f fort.91
/exosd/jdt/sms_darts/fsp_pg <<EOF
/exosd/sms_archive/y1993/m01/
s3013108.esr
93,01,31
23,59,19
93,02,01
01,32,27
3585


0
0
4
2
0
2a
32
0
0
yyyyyyy
EOF
#for n in 1 2 3 4 5 6;do PGF=pgxdmp$n.xwd;if [ -f $PGF ]; then i=`grep ^$n fort.91|cut -b 3-8,10-13`;mv $PGF $i.xwd;rm -f $PGF; echo -n "$i.jpg ">>$INDEX;grep ^$n fort.91>>$INDEX;rm -f $PGF;fi;done
#rm -f fort.91