Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- device

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
device
Synopsis
/infobank/programs/plt/naved/device.for
Description
  Subroutine to define terminal specific characteristics.

       
COMMENTS
  ArrayLength = 0 if no definition was established

   
  ResponseType = "real", "integer", or "ascii"
   
  if Characteristic = "help", then known devices will be listed.
    
AUTHOR
  Clint Steele

    
USAGE
  "a" = argument, "r" = referenced, "s" = set

  
  call device                           (with the following arguments)
         TerminalType                [variable char*1 ar]
         Characteristic              [variable char*1 ar]
         ResponseType                [variable char*1 r]
         AsciiArray                  [array char*1 s]
         IntegerArray                [array i*4 s]
         RealArray                   [array r*4 s]
         ArrayLength                 [variable i*4 sr]
    
SUBROUTINES
  opener1              (internal)                    

  parser              (internal)                    
  stringlen           (external DRS shareable routine)
    
FUNCTIONS
  index               (FORTRAN intrinsic function)  

  char                (FORTRAN intrinsic function)  
    
INCLUDE_FILES
  'drsystem'

    
FILES_USED
  unit=*(write)

  unit=(l)definitionunit(read,close)

    
Reads
          read (DefinitionUnit, ' (a) ', end = 92) ARecord
          read (DefinitionUnit, ' (a) ', end = 90) ARecord
          read (DefinitionUnit, ' (a) ', end = 93) ARecord
              read (ParsedString, *) RealArray (ArrayLength)
              read (ParsedString, *) IntegerArray (ArrayLength)
              read (ParsedString, *) AsciiValue
Writes
Opens
Calls
      call stringlen (TerminalType, TypeLength)
      call stringlen (Characteristic, CharacterLength)
          call opener1 (DefinitionUnit,
     *                 TermDef,
     *                 'FORMATTED',
     *                 'OLD',
     *                 StatusFlag)
          call parser (ARecord, 
     *                 PositionStart, 
     *                 PositionEnd,
     *                 ParsedString)

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