Документ взят из кэша поисковой машины. Адрес
оригинального документа
: 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 Кодировка: Поисковые слова: п п п п п п п п п п п п п п п п п п |
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.