Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- naved

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
naved
Synopsis
/infobank/programs/plt/naved/naved.for
Description
  Interactive navigation editing program for graphic CRT's.

       
SET_UP_REQUIREMENTS
  Need to have terminal modes set to:

       SET TERMINAL/ESCAPE/NOWRAP
  Need to have TEK4105 terminal status set to:
       CODE TEK
       DAENABLE NO
    
OPERATION
  Input is from the keyboard and from crosshair positioning.

  Commands are entered as single key abbreviations.
  When the crosshairs are positioned, hit a "." to indicate the 
    position.  
  A "q" permits you to exit options in which you have the possibility
    of needing to 'abort'.  The "q" takes you back to menu-level, 
    it does not terminate the program.
  An "h" provides help for any of the operations.
  All plots will fill the maximum area possible on the screen.
    
TERMINOLOGY_AND_CONVENTIONS
  The 'Editable' file is the file you can modify 

       (ex: dead-reckoning data).
  The 'Background' file is a file you can't (or don't want to) modify
       (ex: satellite data).
  A 'TIME GAP' is the maximum number of minutes of data which can be
     missing before the track line is not drawn.  
  The Editable file trackline is plotted solid.
  The Background file trackline is plotted dashed.
  Modified sections are plotted dashed until a new map is drawn.
    
INPUT
  You will be:

     prompted for a 'Editable' input file, 
     shown a sample of the data, 
     prompted for time gap which if exceeded will 'pick-up' the 
        pen on plots, 
     shown limits of data (to allow you to abort execution if the 
        limits are abnormal) , 
     prompted for an 'Background' input file (if desired) , 
     if an Background file is desired you are again prompted for
         time gap
  The initial map is then drawn and you control the program by 
     selecting options with the keyboard.
    
OUTPUT
  None of the session plots or commands are saved.

  You will not be allowed to exit the program through normal methods
     until you have either:
           made no modifications to the Editable file, 
           saved the modified Editable file, 
           made no modifiactions to the Editable file since the 
               last time you saved it, or
           explicitly respond that you want to exit even though the
               Editable file has been modified.
    
AUTHOR
  Clint Steele

      10/20/86   complete re-write for raster terminals,
                 changed Edit names, 
                 divided 3-dimension arrays into 1-dimension arrays, 
                 completed convertion to integer time,
                 added extensive online help.  
  JR 		   changed coastdimension from 100K to 300K
      Based on NAVED by Clint Steele and Carolyn Degnan        
  MH  11/17/92
      Now plots edit track on top of back track
  07/31/95, CDegnan - made 'e'xpert the default mode
    
SUBROUTINES
  changesn            (internal)

  specialmode         (internal)                    
  loaddata            (internal)                    
  bell                (external Tektronix)          
  yesno               (internal)
  initt               (external Tektronix)          
  chrsiz              (external Tektronix)          
  setscale            (internal)                    
  grid                (internal)                    
  track               (internal)                    
  merge               (internal)                    
  tsend               (external Tektronix)          
  movabs              (external Tektronix)          
  getkey              (external DRS shareable)
  changecase          (external DRS shareable)
  help                (internal)                    
  erase               (external Tektronix)          
  adjust              (internal)                    
  remove              (internal)                    
  undelete            (internal)                    
  latlong             (internal)                    
  update              (internal)                    
  showdata            (internal)                    
  replace             (internal)                    
  setwindow           (internal)                    
  windown             (internal)                    
  firstwindow         (internal)                    
  jumpbynumber        (internal)                    
  jumpbytile          (internal)                    
  addpoint            (internal)                    
  addgroup            (internal)                    
  closegroup          (internal)                    
  summary             (internal)                    
  egress              (internal)                    
  critical            (internal)                    
  finitt              (external Tektronix)          
    
FUNCTIONS
  ichar               (FORTRAN intrinsic function)  

  char                (FORTRAN intrinsic function)  
  index               (FORTRAN intrinsic function)  
    
FILES_USED
  unit=*(write)


    
Reads
      read (*, '(a)') ExpertNovice
Writes
Opens
Calls
      call specialmode ('INITIALIZE')
      call loaddata (OutputFilename, 
     *   BackFormat,    CrossesDateline,    FileStatus, 
     *   NumberEdit,     NumberBack, 
     *   TimeStartEdit ,   TimeEndEdit,    LatSouthEdit,
     *   LatNorthEdit,    LongWestEdit,   LongEastEdit,
     *   TimeStartBack, TimeEndBack,  LatSouthBack,
     *   LatNorthBack,  LongWestBack, LongEastBack,
     *   TimeGapEdit,    TimeGapBack,
     *   EditFilename,    EditFormat,     BackFileNm  ,
     *   WindowNumber,  CoastEditCount,
     *   CoastEditArea,   CoastBackCount, CoastBackArea, 
     *   AddBack, Year)
          call bell
          call specialmode ('TEXT')
          call yesno ('[Y]N', Answer) 
      call initt (BaudRate / 10) 
      call chrsiz (CharacterSize)
      call specialmode ('GRAPHICS')
      call erase
          call setscale (Scale,
     *                   TekWest,
     *                   TekEast,
     *                   TekSouth,
     *                   TekNorth,
     *                   WindowNumber)
                  call trackback (NumberBack, 
     *                            TimeGapBack ,
     *                            TekWest,          TekEast,
     *                            TekSouth,         TekNorth,
     *                            WindowNumber, FileStatus)
              call trackedit (NumberEdit, 
     *                        TimeGapEdit,        
     *                        TekWest,            TekEast,
     *                        TekSouth,           TekNorth,
     *                        WindowNumber)
              call merge (OutputFilename,
     *                    NumberEdit, 
     *                    EditFilename,
     *                    BackFileNm,
     *                    FileStatus,
     *                    CoastEditArea,
     *                    StatusFlag, Year)
              call specialmode ('GRAPHICS')
              call movabs (0, 750)
              call bell
              call tsend
              call getkey (MenuOption, KeyValue)
              call changecase ('CAPITAL', MenuOption)
                  call help (FileStatus)
                  call specialmode ('GRAPHICS')
                  call erase
                  call grid (Scale,
     *                       TekWest,
     *                       TekEast,
     *                       TekSouth,
     *                       TekNorth,
     *                       WindowNumber)
                      call trackback (NumberBack, 
     *                                TimeGapBack ,
     *                                TekWest,          TekEast,
     *                                TekSouth,         TekNorth,
     *                                WindowNumber, FileStatus)
                  call trackedit (NumberEdit, 
     *                            TimeGapEdit,        
     *                            TekWest,            TekEast,
     *                            TekSouth,           TekNorth,
     *                            WindowNumber)
                  call setscale (Scale,
     *                           TekWest,
     *                           TekEast,
     *                           TekSouth,
     *                           TekNorth,
     *                           WindowNumber)
                  call setscale (Scale,
     *                           TekWest,
     *                           TekEast,
     *                           TekSouth,
     *                           TekNorth,
     *                           WindowNumber)
                          call trackback (
     *                                NumberBack, 
     *                                TimeGapBack ,
     *                                TekWest,        TekEast,
     *                                TekSouth,       TekNorth,
     *                                WindowNumber, FileStatus)
                      call trackedit (NumberEdit, 
     *                                TimeGapEdit,        
     *                                TekWest,        TekEast,
     *                                TekSouth,       TekNorth,
     *                                WindowNumber)
                  call adjust (StatusFlag,
     *                         TekWest,
     *                         TekEast,
     *                         TekSouth,
     *                         TekNorth,
     *                         WindowNumber,      
     *                         ExpertNovice)
                      call trackedit (NumberEdit, 
     *                                TimeGapEdit,        
     *                                TekWest,        TekEast,
     *                                TekSouth,       TekNorth,
     *                                WindowNumber)
                  call remove (StatusFlag,
     *                         TekWest,              TekEast,
     *                         TekSouth,             TekNorth,
     *                         TimeGapEdit,      
     *                         WindowNumber,         
     *                         NumberEdit,
     *                         MenuOption,      ExpertNovice)
                  call remove (StatusFlag,
     *                         TekWest,              TekEast,
     *                         TekSouth,             TekNorth,
     *                         TimeGapEdit,      
     *                         WindowNumber,         
     *                         NumberEdit,
     *                         MenuOption,    ExpertNovice)
                  call specialmode ('GRAPHICS')
                  call erase
                  call setscale (Scale,
     *                           TekWest,
     *                           TekEast,
     *                           TekSouth,
     *                           TekNorth,
     *                           WindowNumber)
                          call trackback (NumberBack, 
     *                                TimeGapBack ,
     *                                TekWest,        TekEast,
     *                                TekSouth,       TekNorth,
     *                                WindowNumber, FileStatus)
                      call trackedit (NumberEdit, 
     *                                TimeGapEdit,        
     *                                TekWest,        TekEast,
     *                                TekSouth,       TekNorth,
     *                                WindowNumber)
                  call undelete (NumberEdit, 
     *                           StatusFlag,
     *                           TekWest,              TekEast,
     *                           TekSouth,             TekNorth,
     *                           WindowNumber,         
     *                           MenuOption)
                  call undelete (NumberEdit, 
     *                           StatusFlag,
     *                           TekWest,              TekEast,
     *                           TekSouth,             TekNorth,
     *                           WindowNumber,         
     *                           MenuOption)
                  call specialmode ('GRAPHICS')
                  call erase
                  call setscale (Scale,
     *                           TekWest,
     *                           TekEast,
     *                           TekSouth,
     *                           TekNorth,
     *                           WindowNumber)
                          call trackback (
     *                                NumberBack, 
     *                                TimeGapBack ,
     *                                TekWest,        TekEast,
     *                                TekSouth,       TekNorth,
     *                                WindowNumber, FileStatus)
                      call trackedit (NumberEdit, 
     *                                TimeGapEdit,        
     *                                TekWest,        TekEast,
     *                                TekSouth,       TekNorth,
     *                                WindowNumber)
                  call latlong (MenuOption,
     *                          TekWest,
     *                          TekEast,
     *                          TekSouth,
     *                          TekNorth,
     *                          WindowNumber)
                  call tracknode (NumberEdit, 
     *                            TekWest,         TekEast,
     *                            TekSouth,        TekNorth,
     *                            WindowNumber)
                  call tracknull (NumberEdit, 
     *                            TimeGapEdit,        
     *                            TekWest,         TekEast,
     *                            TekSouth,        TekNorth,
     *                            WindowNumber)
                  call mergegroup (NumberEdit,     
     *                   StatusFlag,        FileStatus,         
     *                   WindowNumber,      
     *                   TekWest,           TekEast,            
     *                   TekSouth,          TekNorth,
     *                   ModifiedData,      
     *                   TimeGapEdit,       CoastEditCount,
     *                   ExpertNovice)           
                  call settag (FileStatus,         
     *                         TagValue,         
     *                         TagIncrement,
     *                         ExpertNovice)
                  call setincrement (FileStatus,         
     *                               TagValue,         
     *                               TagIncrement,
     *                               ExpertNovice)
                  call taggroup (NumberEdit,     
     *                   StatusFlag,        FileStatus,         
     *                   WindowNumber,      
     *                   TekWest,           TekEast,            
     *                   TekSouth,          TekNorth,
     *                   ModifiedData,      
     *                   TagValue,          TagIncrement,
     *                   KeyValue,
     *                   ExpertNovice)
                  call dividegroup (NumberEdit,     
     *                   StatusFlag,        FileStatus,         
     *                   WindowNumber,      
     *                   TekWest,           TekEast,            
     *                   TekSouth,          TekNorth,
     *                   ModifiedData,      
     *                   TimeGapEdit,  CoastEditCount)
                  call addpoint (NumberEdit,     
     *                       StatusFlag,        FileStatus,         
     *                       WindowNumber,      
     *                       CoastEditCount,    
     *                       TekWest,           TekEast,            
     *                       TekSouth,          TekNorth,
     *                       ModifiedData)
                  call addgroup (NumberEdit,     
     *                           StatusFlag,        FileStatus,         
     *                           WindowNumber,      
     *                           CoastEditCount,    
     *                           TekWest,           TekEast,            
     *                           TekSouth,          TekNorth,
     *                           ModifiedData,      
     *                           TimeGapEdit,       ExpertNovice)
                  call closegroup (NumberEdit,     
     *                       StatusFlag,        FileStatus,         
     *                       WindowNumber,      
     *                       TekWest,           TekEast,            
     *                       TekSouth,          TekNorth,
     *                       ModifiedData,      
     *                       ExpertNovice)           
                      call taggroup (NumberEdit,     
     *                       StatusFlag,        FileStatus,         
     *                       WindowNumber,      
     *                       TekWest,           TekEast,            
     *                       TekSouth,          TekNorth,
     *                       ModifiedData,      
     *                       TagValue,          TagIncrement,
     *                       KeyValue,
     *                       ExpertNovice)
                      call showdata (MenuOption, 
     *                           FileStatus,
     *                           TekWest,         TekEast,
     *                           TekSouth,        TekNorth,
     *                           WindowNumber,
     *                           ModifiedData)
                  call showdata (MenuOption, 
     *                           FileStatus,
     *                           TekWest,              TekEast,
     *                           TekSouth,             TekNorth,
     *                           WindowNumber,
     *                           ModifiedData)
                  call replace (NumberEdit, 
     *                          FileStatus,
     *                          NumberBack, 
     *                          StatusFlag,
     *                          WindowNumber,
     *                          TekWest,             TekEast,
     *                          TekSouth,            TekNorth)
                      call trackedit (NumberEdit, 
     *                                TimeGapEdit,        
     *                                TekWest,        TekEast,
     *                                TekSouth,       TekNorth,
     *                                WindowNumber)
                  call setwindow (MenuOption,
     *                            NumberEdit,    NumberBack, 
     *                            TimeStartEdit , TimeEndEdit,
     *                            WindowNumber,      StatusFlag,
     *                            WindowMode,        TimeIncrement,
     *                            PointIncrement,    LatLongIncrement,
     *                            LastTileWindow,    FileStatus)
                      call specialmode ('GRAPHICS')
                      call erase
                      call setscale (Scale,
     *                               TekWest,
     *                               TekEast,
     *                               TekSouth,
     *                               TekNorth,
     *                               WindowNumber)
                              call trackback (NumberBack, 
     *                                 TimeGapBack ,
     *                                 TekWest,          TekEast,
     *                                 TekSouth,         TekNorth,
     *                                 WindowNumber, FileStatus)
                          call trackedit (NumberEdit, 
     *                                 TimeGapEdit,        
     *                                 TekWest,        TekEast,
     *                                 TekSouth,       TekNorth,
     *                                 WindowNumber)
                  call windown (TekWest,              TekEast,
     *                         TekSouth,             TekNorth,
     *                         MenuOption,
     *                         NumberEdit,       NumberBack, 
     *                         TimeStartEdit ,    TimeEndEdit,
     *                         WindowNumber,         StatusFlag,
     *                         ExpertNovice)
                      call specialmode ('GRAPHICS')
                      call erase
                      call setscale (Scale,
     *                               TekWest,
     *                               TekEast,
     *                               TekSouth,
     *                               TekNorth,
     *                               WindowNumber)
                              call trackback (NumberBack, 
     *                              TimeGapBack ,
     *                              TekWest,          TekEast,
     *                              TekSouth,         TekNorth,
     *                              WindowNumber, FileStatus)
                          call trackedit (NumberEdit, 
     *                              TimeGapEdit,        
     *                              TekWest,            TekEast,
     *                              TekSouth,           TekNorth,
     *                              WindowNumber)
                  call firstwindow (WindowNumber)
                  call specialmode ('GRAPHICS')
                  call erase
                  call setscale (Scale,
     *                           TekWest,
     *                           TekEast,
     *                           TekSouth,
     *                           TekNorth,
     *                           WindowNumber)
                          call trackback (NumberBack, 
     *                                TimeGapBack ,
     *                                TekWest,          TekEast,
     *                                TekSouth,         TekNorth,
     *                                WindowNumber, FileStatus)
                      call trackedit (NumberEdit, 
     *                                TimeGapEdit,        
     *                                TekWest,        TekEast,
     *                                TekSouth,       TekNorth,
     *                                WindowNumber)
                  call specialmode ('GRAPHICS')
                  call erase
                  call setscale (Scale,
     *                           TekWest,
     *                           TekEast,
     *                           TekSouth,
     *                           TekNorth,
     *                           WindowNumber)
                          call trackback (NumberBack, 
     *                                TimeGapBack ,
     *                                TekWest,          TekEast,
     *                                TekSouth,         TekNorth,
     *                                WindowNumber, FileStatus)
                      call trackedit (NumberEdit, 
     *                                TimeGapEdit,        
     *                                TekWest,        TekEast,
     *                                TekSouth,       TekNorth,
     *                                WindowNumber)
                  call jumpbynumber (NumberEdit, NumberBack, 
     *                      WindowNumber, PointIncrement, FileStatus) 
                  call specialmode ('GRAPHICS')
                  call erase
                  call setscale (Scale,
     *                           TekWest,
     *                           TekEast,
     *                           TekSouth,
     *                           TekNorth,
     *                           WindowNumber)
                          call trackback (
     *                                NumberBack, 
     *                                TimeGapBack ,
     *                                TekWest,          TekEast,
     *                                TekSouth,         TekNorth,
     *                                WindowNumber, FileStatus)
                      call trackedit (NumberEdit, 
     *                                TimeGapEdit,        
     *                                TekWest,        TekEast,
     *                                TekSouth,       TekNorth,
     *                                WindowNumber)
                  call jumpbytile (NumberEdit,           NumberBack, 
     *                    WindowNumber,         
     *                    TimeIncrement,        LatLongIncrement,     
     *                    LastTileWindow,       KeyValue,             
     *                    MenuOption,           FileStatus) 
                  call specialmode ('GRAPHICS')
                  call erase
                  call setscale (Scale,
     *                           TekWest,
     *                           TekEast,
     *                           TekSouth,
     *                           TekNorth,
     *                           WindowNumber)
                          call trackback (NumberBack, 
     *                                TimeGapBack ,
     *                                TekWest,          TekEast,
     *                                TekSouth,         TekNorth,
     *                                WindowNumber, FileStatus)
                      call trackedit (NumberEdit, 
     *                                TimeGapEdit,        
     *                                TekWest,        TekEast,
     *                                TekSouth,       TekNorth,
     *                                WindowNumber)
                  call merge (OutputFilename,
     *                        NumberEdit, 
     *                        EditFilename,
     *                        BackFileNm,
     *                        FileStatus,
     *                        CoastEditArea,
     *                        StatusFlag, Year)
                  call summary (FileStatus,
     *                          LatSouthEdit,     LatNorthEdit, 
     *                          LongWestEdit,     LongEastEdit,
     *                          LatSouthBack, LatNorthBack, 
     *                          LongWestBack, LongEastBack,
     *                          TimeGapEdit,      TimeGapBack,
     *                          EditFilename,     BackFileNm, 
     *                          EditFormat,       BackFormat, 
     *                          OutputFilename,
     *                          WindowNumber,
     *                          TimeStartEdit,     TimeEndEdit,
     *                          TimeStartBack, TimeEndBack,
     *                          CoastEditCount,  CoastEditArea,
     *                          CoastBackCount, 
     *                          CoastBackArea,
     *                          NumberEdit,       NumberBack,
     *                          AddBack, Year)
                      call loaddata (OutputFilename, 
     *                    BackFormat, CrossesDateline, FileStatus,     
     *                    NumberEdit,  NumberBack, 
     *                    TimeStartEdit, TimeEndEdit, LatSouthEdit, 
     *                    LatNorthEdit, LongWestEdit, LongEastEdit,    
     *                    TimeStartBack, TimeEndBack, LatSouthBack,
     *                    LatNorthBack, LongWestBack, LongEastBack,
     *                    TimeGapEdit, TimeGapBack, 
     *                    EditFilename, EditFormat,   BackFileNm, 
     *                    WindowNumber,  CoastEditCount, 
     *                    CoastEditArea, CoastBackCount, CoastBackArea,
     *                    AddBack, Year)
                      call specialmode ('GRAPHICS')
                      call erase
                      call grid (Scale,
     *                           TekWest,
     *                           TekEast,
     *                           TekSouth,
     *                           TekNorth,
     *                           WindowNumber)
                          call trackback (NumberBack, 
     *                                TimeGapBack ,
     *                                TekWest,          TekEast,
     *                                TekSouth,         TekNorth,
     *                                WindowNumber, FileStatus)
                      call trackedit (NumberEdit, 
     *                                TimeGapEdit,        
     *                                TekWest,        TekEast,
     *                                TekSouth,       TekNorth,
     *                                WindowNumber)
                      call egress (ModifiedData,
     *                             StatusFlag) 
                      call specialmode ('GRAPHICS')
                  call critical (NumberEdit, 
     *                           WindowNumber,
     *                           TekWest,
     *                           TekEast,
     *                           TekSouth,
     *                           TekNorth)
                  call specialmode ('COMMAND')
      call finitt (FinalX, FinalY)
      call specialmode ('TEXT')

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/plt/naved/naved.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Mon Sep 16 03:39:11 PDT 2013  (chd)