Документ взят из кэша поисковой машины. Адрес
оригинального документа
: http://xmm.vilspa.esa.es/sas/8.0.0/doc/ssclib/node120.html
Дата изменения: Wed Jul 2 03:52:42 2008 Дата индексирования: Fri Sep 5 19:38:04 2008 Кодировка: Поисковые слова: релятивистское движение |
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.