Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- slideshow

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
slideshow
Synopsis
/infobank/programs/html/slideshow/slideshow.for
Description
  Program to generate a .html slideshow.

       
AUTHOR
  Clint Steele     5/5/2003


    
Reads
      read (5, '(q,a)') NameLength, ShowName(1:NameLength)
      read (5, '(i)') Duration
          read (90, '(a1)', end = 98) ALine(1:1)
          read (90,  '(q,a)', end = 99)
     *    Length, ALine(1:Length)
                  read (93, '(q,a)', end = 97)
     *                OldLength, OldLine(1:OldLength)
                  read (93, '(q,a)', end = 97)
     *                OldLength, OldLine(1:OldLength)
Writes
          write (OutLine, '(a,i5.5,a)') 
     *        '/infobank/programs/html/slideshow/'//
     *        ShowName(1:NameLength)//'/',
     *        Count,'.html'
          write (91, '(a)')
     *        '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 
     *        'Transitional//EN" '//
     *        '"http://www.w3.org/TR/html4/loose.dtd"&g
          write (91, '(a)') '<html lang="en
          write (91, '(a)') '<hea
          write (91, '(a)')
     *        '<meta http-equiv="content-type" 
     *        'content="text/html;charset=iso-8859-1"&g
              write (91, '(a,i5.5,a,i5.5,a)')
     *            '<meta http-equiv="Refresh" 
     *            'content="',Duration,
     *            ';url=http://walrus.wr.usgs.gov'//
     *            '/infobank/programs/html/slideshow/'//
     *            ShowName(1:NameLength)//
     *            '/',Count+1,'.html"&g
              write (91, '(a,i5.5,a)')
     *            '<meta http-equiv="Refresh" 
     *            'content="',Duration,
     *            ';url=http://walrus.wr.usgs.gov'//
     *            '/infobank/programs/html/slideshow/'//
     *            ShowName(1:NameLength)//
     *            '/00001.html">
          write (91, '(a)')
     *        '<title>USGS:InfoBank SlideShow 
     *        ShowName(1:NameLength)//'</titl
          write (91, '(a)') '</hea
              write (91, '(a)') '<body bgcolor="#ffffff"
              write (91, '(a)') '<map name="map
              write (91, '(a)') '<area shape="rect"
     *            'href="http://walrus.wr.usgs.gov/infobank/" '//
     *            'coords="0,100 0,100"&g
              write (91, '(a)') '</area
              write (91, '(a,i5.5,a)') 
     *            '<img alt="image "',Cou
     *            ' src="http://walrus.wr.usgs.gov'//
     *            ALine(1:Length)//'" height="100%" '//
     *            ' usemap="#map"&g
              write (91, '(a)') '</bod
              write (91, '(a)') '</htm
              write (OldLine, '(1024x)')
                  write (91, '(a)') OldLine(1:OldLength)
          write (91, '(a)') '</bod
          write (91, '(a)') '</htm
      write (OutLine, '(a)')
     *        '/infobank/programs/html/slideshow/'//
     *        ShowName(1:NameLength)//'/'//
     *        '00001.html '//
     *        '/infobank/programs/html/slideshow/'//
     *        ShowName(1:NameLength)//'/00000.html'
Opens
          open (  unit = 91,
     *          access = 'sequential',
     *            form = 'formatted',
     *          status = 'unknown',
     *            name = OutLine(1:OutLength))
              open (unit = 93,
     *              access = 'sequential',
     *              form = 'formatted',
     *              status = 'unknown',
     *              name = ALine(1:Length))
Calls
      call openem (1,0)
          call stringlen (OutLine, OutLength)
      call stringlen (OutLine, OutLength) 
      call system ('/bin/cp '//OutLine(1:OutLength))

Skip footer navigational links

Coastal and Marine Science Centers:  Pacific   St. Petersburg   Woods Hole  
InfoBank   Coastal and Marine Geology Program   Geologic Information   Ask-A-Geologist   USGS Disclaimer  


Accessibility FOIA Privacy Policies and Notices

Take Pride in America logo USA.gov logo U.S. Department of the Interior | U.S. Geological Survey
URL: http://walrus.wr.usgs.gov/infobank/programs/html/slideshow/slideshow.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Nov 4 03:40:35 PST 2013  (chd)