USGS InfoBank banner. USGS, Coastal and Marine Geology, InfoBank banner.
USGS Coastal and Marine Geology banner.   Search InfoBank.
USGS InfoBank program -- contents2views Skip navigational links
    ________   ________   ______________   ________   _________   _______________   ________  
  tab edge  Home  tab edge  Data  tab edge  Activities  tab edge  FACS  tab edge  Atlas  tab edge  Definitions  tab edge  More  tab edge  
   
InfoBank Programs: by Name   by Data Type   General Tools   GIS   Plotting   Web   USGS Disclaimer   InfoBank Programs   Boothill  
   
Expanded description
Topic Description
Name 
contents2views
Synopsis 
/infobank/programs/html/contents2views/contents2views.for
Description 
  Program to generate floor plans of groups (contents) for analog items.
Author 
  Clint Steele
Opens 
 open (unit   = 99,
*      file   = '/infobank/programs/keep/regions.colors.keep',
*      form   = 'formatted',
*      status = 'old',
*      access = 'sequential')

 open (unit   = 82,
*      file   = '/infobank/programs/keep/'//
*               'buildings.keep',
*      form   = 'formatted',
*      status = 'old',
*      access = 'sequential')

 open (unit = 80,
*      access = 'sequential',
*      form = 'formatted',
*      status = 'old',
*      file = '/infobank/programs/html/contents2views/items.temp')

 open (unit = 70,
*      access = 'sequential',
*      form = 'formatted',
*      status = 'old',
*      file = '/infobank/programs/html/contents2views/ids.temp')

     open (unit = 75,
*        access = 'sequential',
*        form = 'formatted',
*        status = 'old',
*    file = '/infobank/programs/html/contents2views/id_count.temp')
     open (unit   = 71,
*          file   = '/infobank/programs/html/contents2views/'//
*                   Building(1:BuildingLength)//'/'//
*                   ItemsName(1:ItemsNameLength),
*          form   = 'formatted',
*          status = 'old',
*          access = 'sequential')

             open (unit   = 91,
*              file   = '/infobank/programs/html/contents2views/'//
*                         Building(1:BuildingLength)//'_'//
*                         Area(1:AreaLength)//
*                         '_ids.html',
*                form   = 'formatted',
*                status = 'unknown',
*                access = 'sequential')

             open (unit   = 92,
*              file   = '/infobank/programs/html/contents2views/'//
*                         Building(1:BuildingLength)//'_'//
*                         Area(1:AreaLength)//
*                         '_items.html',
*                form   = 'formatted',
*                status = 'unknown',
*                access = 'sequential')

 open (unit = 81,
*      access = 'sequential',
*      file = '/infobank/programs/keep/htmlhead.keep',
*      form = 'formatted',
*      status = 'old')
Reads 
     read (99, '(a2,1x,a6)', end = 61) 
*         Region(ColorCount), Color(ColorCount)
 read (82, '(q,a)', end = 994) BuildingLength,
*      Building(1:BuildingLength)
     read (80, '(q,a)', end = 990) 
*        ItemsPathLength, ItemsPath(1:ItemsPathLength)
     read (70, '(q,a)', end = 995) 
*        ItemsPathLength, ItemsPath(1:ItemsPathLength)
     read (75, '(i8)') IDTotal
     read (ItemsName(1:ItemsNameLength), '(a,1x,i2,1x,i2)') 
*             Area(1:AreaLength), Column, Row

         read (71, '(q,a)', end = 299) ShortIDLength, ShortID
     read (81, '(q,a)', end = 99)
*                   Length, ALine(1:Length)
Writes 
 write (Building, '(80x)')
     write (ItemsPath, '(255x)')
     write (ItemsName, '(255x)')
     write (Command, '(512x)')
     write (Command, 101) Building(1:BuildingLength),
*                         ItemsName(1:ItemsNameLength),
*                         Building(1:BuildingLength),
*                         ItemsName(1:Dot)
     write (ItemsPath, '(255x)')
     write (ItemsName, '(255x)')
     write (Command, '(512x)')
     write (Command, 766) ItemsPath(1:ItemsPathLength)
         write (ShortID, '(255x)')
         write (LongID,  '(255x)')
             write (LongID, 201) ShortID(1:1),
*               ShortID(2:2), ShortID(3:4), ShortID(5:6)
             write (LongID, 201) ShortID(1:1),
*               ShortID(2:3), ShortID(4:5), ShortID(6:7)
                 write (91, 76)
                 write (92, 76)
                 write (91, 9)
                 write (92, 9)
            write (91, 30)
            write (92, 230)
            write (91, 76)
            write (92, 76)
             write (91, 78) Row
             write (92, 78) Row
                 write (91, 454)
                 write (92, 454)
                     write (91, 45) 
*                       Color(ActivityCount),
*                       SmallShortID(1:1),
*                       SmallShortID(1:ShortIDLength),
*                       SmallLongID(1:LongIDLength),
*                       ShortID(1:ShortIDLength)
                 write (91, 44) 
*                       Color(ActivityCount),
*                       Building(1:BuildingLength),
*                       Area(1:AreaLength), Column, Row,
*                       ShortID(1:ShortIDLength)
             write (92, 44) 
*                   Color(ActivityCount),
*                   Building(1:BuildingLength),
*                   Area(1:AreaLength), Column, Row,
*                   ShortID(1:ShortIDLength)

                 write (91, 79) Row
                 write (92, 79) Row
 write (Command, '(512x)')
 write (Command, 567) Building(1:BuildingLength)
     write (ALine, '(255x)')
                 write (OutputUnit, '(a)')ALine(1:Length)
                 write (OutputUnit, '(a)')Title1(1:Title1Length)
                 write (OutputUnit, '(a)')ALine(1:Length)
                 write (OutputUnit, '(a)')Title2(1:Title2Length)
         write (OutputUnit, '(a)') ALine(1:Length)
Calls 
 call system ('ls -1 /infobank/programs/html/items2contents/'//
*             Building(1:BuildingLength)//'/*.items > '//
*             '/infobank/programs/html/contents2views/items.temp')

     call stringlen (ItemsName, ItemsNameLength)
     call stringlen (Command, CommandLength)
     call system (Command(1:CommandLength))
 call system ('ls -1 /infobank/programs/html/contents2views/'//
*             Building(1:BuildingLength)//'/*.ids'//
*             ' > /infobank/programs/html/contents2views/ids.temp')

     call stringlen (ItemsName, ItemsNameLength)
     call stringlen (Command, CommandLength)
     call system (Command(1:CommandLength))
         call changecase ('SMALLS', SmallShortID)
         call changecase ('SMALLS', SmallLongID)
                 call htmlfoot (91, 
*                   '/infobank/programs/html/contents2views/'//
*                   Building(1:BuildingLength)//'_'//
*                   Area(1:AreaLength)//
*                   '_ids.html')

                 call htmlfoot (92, 
*                   '/infobank/programs/html/contents2views/'//
*                   Building(1:BuildingLength)//'_'//
*                   Area(1:AreaLength)//
*                   '_items.html')

                call analoghtmlhead (91, 
*  'Area '//Area(1:AreaLength)//', Core Refrigerator at MARFAC',
*  ''//
*  ''//
*  ''//
*  '
'//
*  'Area '//Area(1:AreaLength)//' - by ID,
'//
*  '(show by item #)
'//
*  'Core Refrigerator at 
'//
*  'MARFAC
')

               call analoghtmlhead (92, 
*  'Area '//Area(1:AreaLength)//', Core Refrigerator at MARFAC',
*  ''//
*  ''//
*  ''//
*  '
'//
*  'Area '//Area(1:AreaLength)//
*  ' - by Item #,
'//
*  '(show by ID)
'//
*  'Core Refrigerator at 
'//
*  'MARFAC
')

                call analoghtmlhead (91, 
*  'Area '//Area(1:AreaLength)//
*  ', Rm. 1133 in Bldg. 1 on Main Campus',
*  ''//
*  ''//
*   ''//
*   ''//
*   '
'//
*  'Area '//Area(1:AreaLength)//' - by ID,'//
*   '
'//
*   '(show by item #)
'//
*   'Rm. 1133 in 
'//
*   'Bldg. 1 at 
'//
*   'Main Campus
')

               call analoghtmlhead (92, 
*   'Area '//Area(1:AreaLength)//
*   ', Rm. 1133 in Bldg. 1 on Main Campus',
*   ''//
*   ''//
*   ''//
*   ''//
*   '
'//
*   'Area '//Area(1:AreaLength)//' - by Item #,'//
*   '
'//
*   '(show by ID)
'//
*   'Rm. 1133 in 
'//
*   'Bldg. 1 at 
'//
*   'Main Campus
')

                call analoghtmlhead (91, 
*   'Area '//Area(1:AreaLength)//
*   ', Rm. 1214 in Bldg. 1 on Main Campus',
*   ''//
*   ''//
*   ''//
*   ''//
*   '
'//
*   'Area '//Area(1:AreaLength)//' - by ID,'//
*   '
'//
*   '(show by item #)
'//
*   'Rm. 1214 in 
'//
*   'Bldg. 1 at 
'//
*   'Main Campus
')

               call analoghtmlhead (92, 
*   'Area '//Area(1:AreaLength)//
*   ', Rm. 1214 in Bldg. 1 on Main Campus',
*   ''//
*   ''//
*   ''//
*   ''//
*   '
'//
*   'Area '//Area(1:AreaLength)//' - by Item #,'//
*   '
'//
*   '(show by ID)
'//
*   'Rm. 1214 in 
'//
*   'Bldg. 1 at 
'//
*   'Main Campus
')

                call analoghtmlhead (91, 
*   'Area '//Area(1:AreaLength)//
*   ', 1030 O''Brien',
*   ''//
*   ''//
*   ''//
*   '
'//
*   'Area '//Area(1:AreaLength)//' - by ID,'//
*   '
'//
*   '(show by item #)
'//
*   '1030 O''Brien at 
'//
*   'O''Brien Warehouses
')

               call analoghtmlhead (92, 
*   'Area '//Area(1:AreaLength)//
*   ', 1030 O''Brien',
*   ''//
*   ''//
*   ''//
*   '
'//
*   'Area '//Area(1:AreaLength)//' - by Item #,'//
*   '
'//
*   '(show by ID)
'//
*   '1030 O''Brien at 
'//
*   'O''Brien Warehouses
')

                call analoghtmlhead (91, 
*   'Area '//Area(1:AreaLength)//
*   ', 1040 O''Brien',
*   ''//
*   ''//
*   ''//
*   '
'//
*   'Area '//Area(1:AreaLength)//' - by ID,'//
*   '
'//
*   '(show by item #)
'//
*   '1040 O''Brien at 
'//
*   'O''Brien Warehouses
')

               call analoghtmlhead (92, 
*   'Area '//Area(1:AreaLength)//
*   ', 1040 O''Brien',
*   ''//
*   ''//
*   ''//
*   '
'//
*   'Area '//Area(1:AreaLength)//' - by Item #,'//
*   '
'//
*   '(show by ID)
'//
*   '1040 O''Brien at 
'//
*   'O''Brien Warehouses
')

                call analoghtmlhead (91, 
*   'Area '//Area(1:AreaLength)//
*   ', 1050 O''Brien',
*   ''//
*   ''//
*   ''//
*   '
'//
*   'Area '//Area(1:AreaLength)//' - by ID,'//
*   '
'//
*   '(show by item #)
'//
*   '1050 O''Brien at 
'//
*   'O''Brien Warehouses
')

               call analoghtmlhead (92, 
*   'Area '//Area(1:AreaLength)//
*   ', 1050 O''Brien',
*   ''//
*   ''//
*   ''//
*   '
'//
*   'Area '//Area(1:AreaLength)//' - by Item #,'//
*   '
'//
*   '(show by ID)
'//
*   '1050 O''Brien at 
'//
*   'O''Brien Warehouses
')

 call htmlfoot (91, 
*       '/infobank/programs/html/contents2views/'//
*       Building(1:BuildingLength)//'_'//
*       Area(1:AreaLength)//
*       '_ids.html')

 call htmlfoot (92, 
*       '/infobank/programs/html/contents2views/'//
*       Building(1:BuildingLength)//'_'//
*       Area(1:AreaLength)//
*       '_items.html')

 call stringlen (Command, CommandLength)
 call system (Command(1:CommandLength))
 call stringlen (Title1, Title1Length)
 call stringlen (Title2, Title2Length)

Skip footer navigational links
InfoBank   Menlo Park Center   Santa Cruz Center   St. Petersburg Center   Woods Hole Center   Coastal and Marine Geology Program  
 
U. S. Department of the Interior   U. S. Geological Survey   Geologic Information   Ask-A-Geologist   USGS privacy statement   Disclaimer  

URL: /infobank/programs/html/contents2views/contents2views.doc.html
Maintainer: Clint Steele
Comments: e-mail
Last modified: Wed Nov 20 15:02:46 PST 2002  (wcs)