Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- breakchar

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
breakchar
Synopsis
/infobank/programs/edit/breakchar/breakchar.for
Description
  Program to break lines at every occurrance of a specified character.

       
COMMENTS
  The specified character is not output, 

    nulls are converted to blanks,
    blank lines are removed, and
    maximum line length is 1000.
    
PROMPTS
  Enter input file name:

  Enter output file name:
  Enter ASCII decimal number of line delimiter.
      Ex: 10 = <LF>  12 = <FF>
    
SUBROUTINES
  openem   (shared external)

  howlong  (shared external)
    
AUTHOR
  Clint Steele          10/31/84           .for


    
Reads
      read (5, *, err = 11) inum
40        read (90, 1, err = 40, end = 99) 
     *                   length, (aline(i), i = 1,length)
Writes
                      write (91, 2) (bline(i), i=1,kcount)
                  write (91, 2) (bline(i), i=1,kcount)
Opens
Calls
      call openem (1,1)
      call howlong (90, iprcnt)
          call percentage (90)
      call percentage (0)

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