Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- getid

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name 
getid
Synopsis 
/infobank/programs/dbase/validnav/getid.for
Description 
  Subroutine to obtain an non-hyphenated ID and convert it into

  a hypenated ID.
Reads 
      read (5, '(q,a)', end = 99) IDLength, ID(1:IDLength)
Writes 
      write (ID, '(255x)')
      write (LongID, '(255x)')
Opens 

 

 Calls
  
      call changecase ('SMALLS', ID(1:IDLength))







      

      
      

        

          
            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/dbase/validnav/getid.doc.html
    

    Page Contact Information:
    InfoBank staff
    
    

    Page Last Modified: 
Thu Mar 22 03:04:17 PDT 2012 
     (chd)