Coastal & Marine Geology InfoBank

Home FACS Activities Atlas Geology School Related Sites More

USGS InfoBank program -- timetics

Skip navigational links
Loading
InfoBank Programs: by Name   by Topic  
Expanded Description
Topic Description
Name
timetics
Synopsis
/infobank/programs/plt/timeprof/src/timetics.for
Description
  Subroutine to label the x axis with time values.

       
USAGE
    call timetics (XOrigin, YOrigin, YLength, XScale, 

                   DataStartTime, DataEndTime, AscendingXAxis)
    
SUBROUTINES
  plot      (external calcomp)

  symbol    (external calcomp)
  number    (external calcomp)
  numlength (internal)
    
AUTHOR
  Ed Maple  5/13/86 .for

  Clint Steele           8/16/90      Cleanup

    
Reads
Writes
Opens
Calls
      call converttime ('EXPAND', StartDay, StartHour, StartMinute,
     *                  StartSecond, StartTenths, 
     *                  StartTime, TimeErrorFlag)
      call converttime ('EXPAND', EndDay, EndHour, EndMinute,
     *                  EndSecond, EndTenths, EndTime,
     *                  TimeErrorFlag)
              call converttime ('EXPAND', Day, Hour, Minute, Second,
     *                          Tenth, TimeInTenths, TimeErrorFlag)
              call plot (XAxisLocation, YOrigin + YHeight, 3)
                  call plot (XAxisLocation, YOrigin - TicSize, 2)
                  call plot (XAxisLocation,
     *                       YOrigin + YLength + TicSize, 2)
                      call number (XAxisLocation - LabelCenter,
     *                             YAxisLocation, SmallLetter, Label,
     *                             0., -1)
                      call number (XAxisLocation - LabelCenter,
     *                             YAxisLocation, SmallLetter / 2., 
     *                             Label, 0., -1)
                      call daylabel (EndDay, Hour, 0, LeftSideTime,
     *                      XScale, XOrigin, YOrigin, YHeight,
     *                      AscendingXAxis)
                      call daylabel (StartDay, Hour, 0,
     *                    LeftSideTime,
     *                    XScale, XOrigin, YOrigin, YHeight,
     *                    AscendingXAxis)
                      call daylabel (EndDay, Hour, 0, LeftSideTime,
     *                    XScale, XOrigin, YOrigin, YHeight, 
     *                    AscendingXAxis)
                      call daylabel (Day - 1, Hour, 0, 
     *                    LeftSideTime,
     *                    XScale, XOrigin, YOrigin, YHeight,
     *                    AscendingXAxis)
                  call daylabel (EndDay, Hour, 0, LeftSideTime,
     *                XScale, XOrigin, YOrigin, YHeight,
     *                AscendingXAxis)
                  call converttime ('EXPAND', MidDay, MidHour, 
     *                  MidMinute, MidSecond, MidTenths, 
     *                  ifix (DataMidTime), TimeErrorFlag)
                  call daylabel (MidDay, MidHour, MidMinute, 
     *                LeftSideTime,
     *                XScale, XOrigin, YOrigin, YHeight,
     *                AscendingXAxis)
                  call daylabel (StartDay, Hour, 0, LeftSideTime,
     *                XScale, XOrigin, YOrigin, YHeight,
     *                AscendingXAxis)
                  call daylabel (EndDay, Hour, 0, LeftSideTime,
     *                XScale, XOrigin, YOrigin, YHeight,
     *                AscendingXAxis)
                  call converttime ('EXPAND', Day, Hour, 0, 
     *                              Second, Tenth, TimeInTenths,
     *                              TimeErrorFlag)
                      call daylabel (Day, 12, 0, LeftSideTime,
     *                    XScale, XOrigin, YOrigin, YHeight,
     *                    AscendingXAxis)
                          call daylabel (Day - 1, 24, 0, 
     *                        LeftSideTime,
     *                        XScale, XOrigin, YOrigin, YHeight,
     *                        AscendingXAxis)
                          call daylabel (Day, 0, 0, LeftSideTime,
     *                        XScale, XOrigin, YOrigin, YHeight,
     *                        AscendingXAxis)

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