USGS InfoBank banner. USGS, Coastal and Marine Geology, InfoBank banner.
USGS Coastal and Marine Geology banner.   Search InfoBank.
USGS InfoBank program -- addgroup 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
   
Expanded description
Topic Description
Name 
addgroup
Synopsis 
/infobank/programs/plt/naved/addgroup.for
Description 
  Subroutine to add a data group by "hand-digitizing" for NAVED.
Author 
  Clint Steele
Usage 
  "a" = argument, "r" = referenced, "s" = set

  
  call addgroup                         (with the following arguments)
         NumberEdit                  [variable i*4 sr]
         StatusFlag                  [variable char*4 ar]
         FileStatus                  [variable char*11 r]
         WindowNumber                [variable i*4 ar]
         CoastEditCount              [variable i*4 sr]
         TekWest                     [variable i*4 a]
         TekEast                     [variable i*4 a]
         TekSouth                    [variable i*4 a]
         TekNorth                    [variable i*4 a]
         ModifiedData                [variable char*3 s]
         TimeGapEdit                 [variable i*4 r]
         ExpertNovice                [variable char*1 r]
Subroutines 
  dwindo              (external Tektronix)          

  twindo              (external Tektronix)          
  specialmode         (external)                    
  anyprompt           (external)                    
  getkey              (shared DAPS external routine)
  changecase          (shared DAPS external routine)
  cursor              (external)                    
  anykey              (external)                    
  valid               (external)                    
  pointa              (external Tektronix)
Files_used 
  unit=*(read,write)
Reads 
     read (*, ' (q,a17) ', end = 99) Length, 
*         CoastEditLine (CoastEditCount)
Writes 
        write (CoastEditLine (CoastEditCount), '(17x)')
Calls 
 call dwindo (LongWestWindow (WindowNumber),
*             LongEastWindow (WindowNumber),
*             LatSouthWindow (WindowNumber),
*             LatNorthWindow (WindowNumber) )

 call twindo (TekWest, TekEast, TekSouth, TekNorth)
     call specialmode ('TEXT')
     call anyprompt
     call getkey (Key, KeyValue)
     call changecase ('CAPITAL', Key)
     call specialmode ('TEXT')
 call cursor (AsciiCode, 
*             NewLong (UpdateCount), 
*             NewLat  (UpdateCount) )

     call specialmode ('TEXT')
     call anykey
 call specialmode ('POINT')
 call valid (StatusFlag,
*            AsciiCode,
*            NewLong (UpdateCount),
*            NewLat  (UpdateCount),
*            WindowNumber)

     call pointa (NewLong (UpdateCount) ,
*                 NewLat  (UpdateCount) )
     call drawa (NewLong (UpdateCount) , 
*                NewLat  (UpdateCount) ) 
     call specialmode ('TEXT')
     call yesno ('Y[N]', Answer)
        call pointa (NewLong (UpdateCount-1) ,
*                 NewLat  (UpdateCount-1) )
        call drawa (NewLong (UpdateCount) , 
*                NewLat  (UpdateCount) ) 
     call specialmode ('TEXT')

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/plt/naved/addgroup.doc.html
Maintainer: Clint Steele
Last modified: Fri Oct 11 03:10:34 PDT 2002  (wcs)