Документ взят из кэша поисковой машины. Адрес оригинального документа : http://xmm.vilspa.esa.es/sas/7.0.0/doc/ssclib/node120.html
Дата изменения: Wed Jun 28 23:12:28 2006
Дата индексирования: Sat Dec 22 09:33:13 2007
Кодировка:
Поисковые слова: http www.astronet.ru db msg 1186753

XMM-Newton Science Analysis System


ssclib (ssclib-3.29) [xmmsas_20060628_1801-7.0.0]

Meta Index / Home Page / Routines which deal with

EllipseT structure definition

A structure definition is provided:

  type, public :: EllipseT
    real(single) ::&
      xAmp,&
      yAmp,&
      phase,&		! radians
      shortSemiAxis,&
      longSemiAxis,&
      rotatedAngle	! radians
    character(10) :: unit	! eg 'pixels', 'detxy', 'tanxy'
    logical(bool) :: isCircle
  end type EllipseT

An overloaded subroutine is also provided to initialize a variable of this type:

  interface initializeEllipseT
    subroutine initializeEllipseTScalar(ellipse)
      type(EllipseT), intent(out) :: ellipse
    end subroutine initializeEllipseTScalar

    subroutine initializeEllipseTVector(ellipse)
      type(EllipseT), intent(out) :: ellipse(:)
    end subroutine initializeEllipseTVector
  end interface

For scalar or vector ellipse the values set are:

  ellipse%xAmp          = 0.0
  ellipse%yAmp          = 0.0
  ellipse%phase         = 0.0
  ellipse%shortSemiAxis = 0.0
  ellipse%longSemiAxis  = 0.0
  ellipse%rotatedAngle  = 0.0
  ellipse%unit          = 'none'
  ellipse%isCircle      = .false.