Coastal & Marine Geology InfoBank

USGS InfoBank program -- fixaloha

**Expanded description**
Topic	Description
Name	fixaloha
Synopsis	/infobank/programs/refmt/fixaloha/fixaloha.for
Description	Program to convert lat/long values with ASCII-extended values to decimal degrees.
Author	Clint Steele 12/11/2006
Reads	read (90, '(q,a)', end = 99) * ALineLength, ALine(1:ALineLength) read (ALine(NComma-10:NComma-9), '(i)') DLat read (ALine(NComma-7:NComma-2), '(f)') MLat read (ALine(NComma+3:NComma+5), '(i)') DLong read (ALine(NComma+7:NComma+12), '(f)') MLong
Writes	write (91, '(a)') ALine(1:ALineLength) write (91, '(a)') ALine(1:ALineLength) write (91, '(f9.5,1x,f10.5,a,1x,a)') * Lat, Long, * ALine(NComma+15:ALineLength), * ALine(1:NComma-11)
Calls	call openem (1,-1)

Accessibility FOIA Privacy Policies and Notices

U.S. Department of the Interior | U.S. Geological Survey
URL: http://walrus.wr.usgs.gov/infobank/programs/refmt/fixaloha/fixaloha.doc.html
Page Contact Information: Clint Steele
Page Last Modified: Tue Dec 12 04:00:41 PST 2006 (wcs)

Accessibility FOIA Privacy Policies and Notices
U.S. Department of the Interior \| U.S. Geological Survey URL: http://walrus.wr.usgs.gov/infobank/programs/refmt/fixaloha/fixaloha.doc.html Page Contact Information: Clint Steele Page Last Modified: Tue Dec 12 04:00:41 PST 2006 (wcs)