SSPStructure Derived Type
type, public :: SSPStructure
Inherits
Components
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public | :: | NPts | ||||
| integer, | public | :: | Nr | ||||
| integer, | public | :: | Nx | ||||
| integer, | public | :: | Ny | ||||
| integer, | public | :: | Nz | ||||
| real(kind=8), | public | :: | z(MaxSSP) | ||||
| real(kind=8), | public | :: | rho(MaxSSP) | ||||
| complex(kind=8), | public | :: | c(MaxSSP) | ||||
| complex(kind=8), | public | :: | cz(MaxSSP) | ||||
| complex(kind=8), | public | :: | n2(MaxSSP) | ||||
| complex(kind=8), | public | :: | n2z(MaxSSP) | ||||
| complex(kind=8), | public | :: | cSpline(4,MaxSSP) | ||||
| complex(kind=8), | public | :: | cCoef(4,MaxSSP) | ||||
| complex(kind=8), | public | :: | CSWork(4,MaxSSP) | ||||
| real(kind=8), | public, | ALLOCATABLE | :: | cMat(:,:) | |||
| real(kind=8), | public, | ALLOCATABLE | :: | czMat(:,:) | |||
| real(kind=8), | public, | ALLOCATABLE | :: | cMat3(:,:,:) | |||
| real(kind=8), | public, | ALLOCATABLE | :: | czMat3(:,:,:) | |||
| type(rxyz_vector), | public | :: | Seg | ||||
| character(len=1), | public | :: | Type | ||||
| character(len=2), | public | :: | AttenUnit |
Source Code
TYPE SSPStructure INTEGER :: NPts, Nr, Nx, Ny, Nz REAL (KIND=8) :: z( MaxSSP ), rho( MaxSSP ) COMPLEX (KIND=8) :: c( MaxSSP ), cz( MaxSSP ), n2( MaxSSP ), n2z( MaxSSP ), cSpline( 4, MaxSSP ) COMPLEX (KIND=8) :: cCoef( 4, MaxSSP ), CSWork( 4, MaxSSP ) ! for PCHIP coefs. REAL (KIND=8), ALLOCATABLE :: cMat( :, : ), czMat( :, : ), cMat3( :, :, : ), czMat3( :, :, : ) TYPE ( rxyz_vector ) :: Seg CHARACTER (LEN=1) :: Type CHARACTER (LEN=2) :: AttenUnit END TYPE SSPStructure