| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=*), | private, | parameter | :: | fmtx | = | '(A,I4,1x,A,1x,6f16.8)' | |
| character(len=*), | private, | parameter | :: | fmty | = | '(A,1x,6f16.8)' | |
| integer, | private | :: | MaxNumOfZoneSurfaces | 
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=r64), | intent(in), | DIMENSION(:) | :: | SurfaceTemp | ||
| integer, | intent(in) | :: | SurfIterations | |||
| real(kind=r64), | intent(inout), | DIMENSION(:) | :: | NetLWRadToSurf | ||
| integer, | intent(in), | optional | :: | ZoneToResimulate | ||
| character(len=*), | optional | :: | calledfrom | 
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | ZoneName | |||
| integer, | intent(in) | :: | N | |||
| real(kind=r64), | intent(out), | DIMENSION(N,N) | :: | F | ||
| integer, | intent(in), | DIMENSION(N) | :: | SPtr | ||
| logical, | intent(out) | :: | NoUserInputF | |||
| logical, | intent(inout) | :: | ErrorsFound | 
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | ZoneName | |||
| integer, | intent(in) | :: | N | |||
| real(kind=r64), | intent(out), | DIMENSION(N,N) | :: | F | ||
| integer, | intent(in), | DIMENSION(N) | :: | SPtr | ||
| logical, | intent(out) | :: | NoUserInputF | |||
| logical, | intent(inout) | :: | ErrorsFound | 
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | N | |||
| real(kind=r64), | intent(in), | DIMENSION(N) | :: | A | ||
| real(kind=r64), | intent(in), | DIMENSION(N) | :: | Azimuth | ||
| real(kind=r64), | intent(in), | DIMENSION(N) | :: | Tilt | ||
| real(kind=r64), | intent(out), | DIMENSION(N,N) | :: | F | ||
| integer, | intent(in), | DIMENSION(N) | :: | SPtr | 
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | N | |||
| real(kind=r64), | intent(in), | DIMENSION(N) | :: | A | ||
| real(kind=r64), | intent(inout), | DIMENSION(N,N) | :: | F | ||
| integer, | intent(in) | :: | ZoneNum | |||
| real(kind=r64), | intent(inout) | :: | OriginalCheckValue | |||
| real(kind=r64), | intent(inout) | :: | FixedCheckValue | |||
| real(kind=r64), | intent(inout) | :: | FinalCheckValue | |||
| integer, | intent(inout) | :: | NumIterations | |||
| real(kind=r64), | intent(inout) | :: | RowSum | 
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| integer, | intent(in) | :: | N | |||
| real(kind=r64), | intent(in), | DIMENSION(N) | :: | A | ||
| real(kind=r64), | intent(in), | DIMENSION(N,N) | :: | F | ||
| real(kind=r64), | intent(inout), | DIMENSION(N) | :: | EMISS | ||
| real(kind=r64), | intent(out), | DIMENSION(N,N) | :: | ScriptF | 
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=r64), | intent(inout), | DIMENSION(:,:) | :: | Matrix | ||
| real(kind=r64), | intent(inout), | DIMENSION(:,:) | :: | InvMatrix |