program mktitles
c
      dimension iasf(13)
      data iasf/13*1/
c
      call opngks
      call gsclip(0)
      call gsasf(iasf)
      call gsfais(1)
c      
c See mktitles.inp:
c
c Note middle of 3 values on input cards is time (sec) to hold title
c but this assumes 24 fr/sec, whereas the cgm's will be written to
c tape at 10 fr/sec. So if we want 8 secs (8 x 10 = 80 frames), use
c 80 / 24 = 3.3 for the input value to ftitle:
c 8s (at 10f/s) = 3.3s (at 24f/s)
c 10s           = 4.16
c
      read(5,"(2i5,f5.1)") itest,ncall,tm2
      write(6,"('mktitles: itest=',i4,' ncall=',i4,' tm2=',f4.1)") 
     +  itest,ncall,tm2
c
c Note FIN and FOU are in secs, assuming 24 fr/sec. So 1.sec = 24 fr
c Since we will record at 10 f/s, the 1.sec = 24 fr will be 2.4 secs
c
      call pcsetc('FC','#')
      call gslwsc(2.0)
      call slsetr('FIN',1.0)
      call slsetr('FOU',1.0)
      call slsetr('TM2',tm2)
      call slsetr('FGR',.6)
      call slsetr('FGG',.6)
      call slsetr('FGB',.94)
      do i=1,ncall
        call ftitle(itest)
      enddo
c
      call clsgks
      stop
      end