Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- plan2workplan

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
plan2workplan
Synopsis
/infobank/programs/html/plan2workplan/plan2workplan.for
Description
  Program to convert .element information into a Project Workplan.

       
AUTHOR
  Clint Steele     8/27/98


    
Reads
      read (5, '(a7)') ElementFile
Writes
      write (91, '(a)') '<TABLE BORDER="0"><TR WIDT
      write (91, '(a)') '<TD ALIGN="RIGHT" WIDTH="400
      write (91, '(a)') '<I>Project number:
      write (91, '(a)') '</TD>
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '</TD></TR&
      write (91, '(a)') '<
      write (91, '(a)') '<TABLE BORDER="0">
      write (91, '(a)') '<TD ALIGN="CENTER" WIDTH="500
      write (91, '(a)') '<B>USGS Geologic Divisio
      write (91, '(a)') '</TD></TR><TR><TD ALIGN="
      write (91, '(a)') '<B>Continuing Project Work Plan - FY 199
      write (91, '(a)') '</TD></TR&
      write (91, '(a)') '<
      write (91, '(a)') '<TABLE BORDER="0"><TR WIDTH="5
      write (91, '(a)') '<B>IDENTIFICATION INFORMATIO
      write (91, '(a)') '</TD></TR&
      write (91, '(a)') '<B>Project title
      write (91, '(a)') '</TD>
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '</TD></TR&
      write (91, '(a)') '<B>Geographic area
      write (91, '(a)') '</TD>
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '</TD></TR&
      write (91, '(a)') '<B>Project start date
      write (91, '(a)') '</TD>
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '</TD></TR&
      write (91, '(a)') '<B>Project end date
      write (91, '(a)') '</TD>
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '</TD>
      write (91, '(a)') '<TD><
      write (91, '(a)') '<TR>
      write (91, '(a)') '<B>Project chief
      write (91, '(a)') '</TD>
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '</TD></TR&
      write (91, '(a)') '<B>Region/Division/Team/Section
      write (91, '(a)') '</TD>
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '</TD></TR&
      write (91, '(a)') '<B>Email
      write (91, '(a)') '</TD>
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '</TD></TR&
      write (91, '(a)') '<B>Phone
      write (91, '(a)') '</TD>
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '</TD></TR&
      write (91, '(a)') '<B>Fax
      write (91, '(a)') '</TD>
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '</TD></TR&
      write (91, '(a)') '<B>Mail Address
      write (91, '(a)') '</TD>
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '</TD>
      write (91, '(a)') '<TD><
      write (91, '(a)') '<TR>
      write (91, '(a)') '<B>Program(s)
      write (91, '(a)') '</TD>
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '</TD>
      write (91, '(a)') '<TD><
      write (91, '(a)') '<TR>
      write (91, '(a)') '<B>Program element/task(s)
      write (91, '(a)') '</TD>
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '</TD></TR&
      write (91, '(a)') '<P>&l
      write (91, '(a)') '<B>BACKGROUND NARRATIVE
      write (91, '(a)') '<B
      write (91, '(a)') '<B>Project summary:
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '<
      write (91, '(a)') '<B>Project objectives and strategy:
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '<
      write (91, '(a)') '<B>Potential impacts and major products:
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '<
      write (91, '(a)') '<B>Collaborators, clients:
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '<P>&l
      write (91, '(a)') '<B>WORK PLA
      write (91, '(a)') '<B
      write (91, '(a)') '<B>Time line (FY 1999 to project end)
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '<
      write (91, '(a)') '<B>FY 1999 activities:
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '<
      write (91, '(a)') '<B>FY 1999 deliverables/products
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '<
      write (91, '(a)') '<B>FY 1999 outreach
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '<
      write (91, '(a)') '<B>New directions or major chang
     *                  'for FY 1999:</
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '<P>&l
      write (91, '(a)') '<B>ACCOMPLISHMENTS, OUTCOME
     *                     'PRODUCTS, OUTREACH</
      write (91, '(a)') '<B
      write (91, '(a)') '<B>FY 1998 accomplishments and outcome
     *                     'including outreach:</
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '<
      write (91, '(a)') '<B>FY 1998 deliverable
     *                     'products completed:</
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '<P>&l
      write (91, '(a)') '<B>PROJECT SUPPORT REQUIREMENT
      write (91, '(a)') '<B
      write (91, '(a)') '<B>Names and expertise of k
     *                     'project staff:</
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '<
      write (91, '(a)') '<B>Other required expertise for which 
     *                    'individual has been identified:</
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '<
      write (91, '(a)') '<B>Major equipment/facility needs
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '<P>&l
      write (91, '(a)') '<B>FY 1999 FUNDIN
      write (91, '(a)') '<B
      write (91, '(a)') '<B>FY 1999 project budget request:
      write (91, '(a)') 'unspecified'
      write (91, '(a)') '<P>&l
      write (91, '(a)') '<TABLE BORDER="0"><
      write (91, '(a)') '<B>Approval
      write (91, '(a)') '</TD><TD WIDTH="60%" VALIGN="
      write (91, '(a)') '<H
      write (91, '(a)') '</TD>
      write (91, '(a)') '<B>Date:
      write (91, '(a)') '</TD><TD WIDTH="20%" VALIGN="
      write (91, '(a)') '<H
      write (91, '(a)') '</TD>
      write (91, '(a)') '<TD><
      write (91, '(a)') '<TR>
      write (91, '(a)') '<B>Approval
      write (91, '(a)') '</TD><TD WIDTH="60%" VALIGN="
      write (91, '(a)') '<H
      write (91, '(a)') '</TD>
      write (91, '(a)') '<B>Date:
      write (91, '(a)') '</TD><TD  WIDTH="20%" VALIGN="
      write (91, '(a)') '<H
      write (91, '(a)') '</TD>
      write (91, '(a)') '<TD><
      write (91, '(a)') '<TR>
      write (91, '(a)') '<B>Approval
      write (91, '(a)') '</TD><TD WIDTH="60%" VALIGN="
      write (91, '(a)') '<H
      write (91, '(a)') '</TD>
      write (91, '(a)') '<B>Date:
      write (91, '(a)') '</TD><TD WIDTH="20%" VALIGN="
      write (91, '(a)') '<H
      write (91, '(a)') '</TD></TR&
Opens
      open (unit   = 90,
     *      access = 'sequential',
     *      status = 'old',
     *      form   = 'formatted',
     *      name   = '/infobank/programs/html/facs/'//
     *               ElementFile//'.elements')
      open (unit   = 91,
     *      access = 'sequential',
     *      status = 'unknown',
     *      form   = 'formatted',
     *      name   = '/infobank/programs/html/facs/'//
     *               ElementFile//'.workplan.html')
Calls
      call htmlhead (91, 'Project Workplan')
      call htmlfoot (91, 'http://"walrus.wr.usgs.gov/infobank'//
     *               '/programs/html/facs/'//
     *               ElementFile//'.workplan.html')

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/plan2workplan/plan2workplan.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Nov 4 03:40:47 PST 2013  (chd)