Expanded Description
| Topic |
Description |
| Name |
showimages |
| Synopsis |
/infobank/programs/html/showimages/showimages.for |
| Description |
Program to create .html page to display a set of images.
|
| AUTHOR |
Clint Steele 12/21/2007
|
| Reads |
read (5, '(q,a)', end = 999) KeyLength, Key(1:KeyLength)
read (90, '(q,a)', end = 99)
* ALineLength, ALine(1:ALineLength)
|
| Writes |
write (91, '(a)') '<table border="3" bgcolor="ffffff
write (91, '(2x,a)') '</t
write (91, '(2x,a)') '<t
write (91, '(4x,a)')
* '<td bgcolor="ccffff" align="center"&
write (91, '(6x,a)')
* '<a href="http:/
* '/walrus.wr.usgs.gov'//
* ALine(1:ALineLength)//
* '">
* '<img src="
* 'http://walrus.wr.usgs.gov'//
* ALine(1:ALineLength)//
* '" width="150" alt="thumbnail">
* '</
write (91, '(6x,a)') '<br&
* ALine(Slash(SlashCount)+1:ALineLength)
write (91, '(4x,a)') '</t
write (91, '(2x,a)') '</t
write (91, '(a)') '</tabl
|
| Opens |
open (unit = 90,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/dbase/listimages/images.all')
open (unit = 91,
* access = 'sequential',
* form = 'formatted',
* status = 'unknown',
* name = '/infobank/programs/html/showimages/'//
* Key(1:KeyLength)//'.images.html')
|
| Calls |
call changecase ('CAPITALS', CapKey)
call stringlen (Title, TitleLength)
call htmlhead (91, Title(1:TitleLength))
call htmlfoot (91, '/infobank/programs/html/showimages/'//
* Key(1:KeyLength)//'.images.html')
|
|
