USGS InfoBank program -- contents2views

contents2views

  Program to generate floor plans of groups (contents) for analog items.

       

  Clint Steele


    

          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)

      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)

      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')

      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.tem
          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',
     *  '<TABLE><TR VALIGN=
     *  '<TD ALIGN="RIGHT">&
     *  'Area '//Area(1:AreaLength)//' - by ID,<BR><FONT SIZE
     *  '<A HREF="/infobank/infobank/programs/html/contents2views/
     *  Building(1:BuildingLength)//'_'//Area(1:AreaLength)//
     *  '_items.html">(show by item #)</A></FONT&g
     *  '<TD>&
     *  '<A HREF="/infobank/infobank/programs/html/items2areas/
     *  'marfac_reefer.html">Core Refrigerator</A> at <
     *  '<TD>&
     *  '<A HREF="/infobank/infobank/programs/html/items2areas/
     *  'marfac.html">MARFAC</A></H2></
                    call analoghtmlhead (92, 
     *  'Area '//Area(1:AreaLength)//', Core Refrigerator at MARFAC',
     *  '<TABLE><TR VALIGN=
     *  '<TD ALIGN="RIGHT">&
     *  'Area '//Area(1:AreaLength)//
     *  ' - by Item #,<BR><FONT SIZE
     *  '<A HREF="/infobank/infobank/programs/html/contents2views/
     *  Building(1:BuildingLength)//'_'//Area(1:AreaLength)//
     *  '_ids.html">(show by ID)</A></FONT&g
     *  '<TD>&
     *  '<A HREF="/infobank/infobank/programs/html/items2areas/
     *  'marfac_reefer.html">Core Refrigerator</A> at <
     *  '<TD>&
     *  '<A HREF="/infobank/infobank/programs/html/items2areas/
     *  'marfac.html">MARFAC</A></H2></
                     call analoghtmlhead (91, 
     *  'Area '//Area(1:AreaLength)//
     *  ', Rm. 1133 in Bldg. 1 on Main Campus',
     *  '<TABLE><TR VALIGN=
     *  '<TD ALIGN="RIGHT">&
     *  'Area '//Area(1:AreaLength)//' - by ID,'//
     *   '<BR><FONT SIZE
     *   '<A HREF="/infobank/infobank/programs/html/contents2views/
     *   Building(1:BuildingLength)//'_'//Area(1:AreaLength)//
     *   '_items.html">(show by item #)</A></FONT&g
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'bldg1_1133.html">Rm. 1133</A> in <
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'bldg1_first.html">Bldg. 1</A> at <
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'campus.html">Main Campus</A></H2></
                    call analoghtmlhead (92, 
     *   'Area '//Area(1:AreaLength)//
     *   ', Rm. 1133 in Bldg. 1 on Main Campus',
     *   '<TABLE><TR VALIGN=
     *   '<TD ALIGN="RIGHT">&
     *   'Area '//Area(1:AreaLength)//' - by Item #,'//
     *   '<BR><FONT SIZE
     *   '<A HREF="/infobank/infobank/programs/html/contents2views/
     *   Building(1:BuildingLength)//'_'//Area(1:AreaLength)//
     *   '_ids.html">(show by ID)</A></FONT&g
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'bldg1_1133.html">Rm. 1133</A> in <
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'bldg1_first.html">Bldg. 1</A> at <
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'campus.html">Main Campus</A></H2></
                     call analoghtmlhead (91, 
     *   'Area '//Area(1:AreaLength)//
     *   ', Rm. 1214 in Bldg. 1 on Main Campus',
     *   '<TABLE><TR VALIGN=
     *   '<TD ALIGN="RIGHT">&
     *   'Area '//Area(1:AreaLength)//' - by ID,'//
     *   '<BR><FONT SIZE
     *   '<A HREF="/infobank/infobank/programs/html/contents2views/
     *   Building(1:BuildingLength)//'_'//Area(1:AreaLength)//
     *   '_items.html">(show by item #)</A></FONT&g
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'bldg1_1214.html">Rm. 1214</A> in <
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'bldg1_second.html">Bldg. 1</A> at <
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'campus.html">Main Campus</A></H2></
                    call analoghtmlhead (92, 
     *   'Area '//Area(1:AreaLength)//
     *   ', Rm. 1214 in Bldg. 1 on Main Campus',
     *   '<TABLE><TR VALIGN=
     *   '<TD ALIGN="RIGHT">&
     *   'Area '//Area(1:AreaLength)//' - by Item #,'//
     *   '<BR><FONT SIZE
     *   '<A HREF="/infobank/infobank/programs/html/contents2views/
     *   Building(1:BuildingLength)//'_'//Area(1:AreaLength)//
     *   '_ids.html">(show by ID)</A></FONT&g
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'bldg1_1214.html">Rm. 1214</A> in <
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'bldg1_second.html">Bldg. 1</A> at <
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'campus.html">Main Campus</A></H2></
                     call analoghtmlhead (91, 
     *   'Area '//Area(1:AreaLength)//
     *   ', 1030 O''Brien',
     *   '<TABLE><TR VALIGN=
     *   '<TD ALIGN="RIGHT">&
     *   'Area '//Area(1:AreaLength)//' - by ID,'//
     *   '<BR><FONT SIZE
     *   '<A HREF="/infobank/infobank/programs/html/contents2views/
     *   Building(1:BuildingLength)//'_'//Area(1:AreaLength)//
     *   '_items.html">(show by item #)</A></FONT&g
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'obrien_north.html">1030 O''Brien</A> at <
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'obrien.html">O''Brien Warehouses</A></H2></
                    call analoghtmlhead (92, 
     *   'Area '//Area(1:AreaLength)//
     *   ', 1030 O''Brien',
     *   '<TABLE><TR VALIGN=
     *   '<TD ALIGN="RIGHT">&
     *   'Area '//Area(1:AreaLength)//' - by Item #,'//
     *   '<BR><FONT SIZE
     *   '<A HREF="/infobank/infobank/programs/html/contents2views/
     *   Building(1:BuildingLength)//'_'//Area(1:AreaLength)//
     *   '_ids.html">(show by ID)</A></FONT&g
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'obrien_north.html">1030 O''Brien</A> at <
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'obrien.html">O''Brien Warehouses</A></H2></
                     call analoghtmlhead (91, 
     *   'Area '//Area(1:AreaLength)//
     *   ', 1040 O''Brien',
     *   '<TABLE><TR VALIGN=
     *   '<TD ALIGN="RIGHT">&
     *   'Area '//Area(1:AreaLength)//' - by ID,'//
     *   '<BR><FONT SIZE
     *   '<A HREF="/infobank/infobank/programs/html/contents2views/
     *   Building(1:BuildingLength)//'_'//Area(1:AreaLength)//
     *   '_items.html">(show by item #)</A></FONT&g
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'obrien_central.html">1040 O''Brien</A> at <
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'obrien.html">O''Brien Warehouses</A></H2></
                    call analoghtmlhead (92, 
     *   'Area '//Area(1:AreaLength)//
     *   ', 1040 O''Brien',
     *   '<TABLE><TR VALIGN=
     *   '<TD ALIGN="RIGHT">&
     *   'Area '//Area(1:AreaLength)//' - by Item #,'//
     *   '<BR><FONT SIZE
     *   '<A HREF="/infobank/infobank/programs/html/contents2views/
     *   Building(1:BuildingLength)//'_'//Area(1:AreaLength)//
     *   '_ids.html">(show by ID)</A></FONT&g
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'obrien_central.html">1040 O''Brien</A> at <
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'obrien.html">O''Brien Warehouses</A></H2></
                     call analoghtmlhead (91, 
     *   'Area '//Area(1:AreaLength)//
     *   ', 1050 O''Brien',
     *   '<TABLE><TR VALIGN=
     *   '<TD ALIGN="RIGHT">&
     *   'Area '//Area(1:AreaLength)//' - by ID,'//
     *   '<BR><FONT SIZE
     *   '<A HREF="/infobank/infobank/programs/html/contents2views/
     *   Building(1:BuildingLength)//'_'//Area(1:AreaLength)//
     *   '_items.html">(show by item #)</A></FONT&g
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'obrien_south.html">1050 O''Brien</A> at <
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'obrien.html">O''Brien Warehouses</A></H2></
                    call analoghtmlhead (92, 
     *   'Area '//Area(1:AreaLength)//
     *   ', 1050 O''Brien',
     *   '<TABLE><TR VALIGN=
     *   '<TD ALIGN="RIGHT">&
     *   'Area '//Area(1:AreaLength)//' - by Item #,'//
     *   '<BR><FONT SIZE
     *   '<A HREF="/infobank/infobank/programs/html/contents2views/
     *   Building(1:BuildingLength)//'_'//Area(1:AreaLength)//
     *   '_ids.html">(show by ID)</A></FONT&g
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'obrien_south.html">1050 O''Brien</A> at <
     *   '<TD>&
     *   '<A HREF="/infobank/infobank/programs/html/items2areas/
     *   'obrien.html">O''Brien Warehouses</A></H2></
      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)