Test program for the coretran library
| Type | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|
| character(len=100) | :: | fName | ||||
| character(len=128) | :: | sa | ||||
| character(len=:), | allocatable | :: | cTest | |||
| logical | :: | lTest | ||||
| integer(kind=i32) | :: | iTest | ||||
| integer(kind=i32) | :: | istat | ||||
| integer(kind=i32) | :: | N | ||||
| integer(kind=i32) | :: | nIterations | ||||
| real(kind=r32) | :: | ar | ||||
| real(kind=r32) | :: | br | ||||
| real(kind=r32) | :: | cr | ||||
| real(kind=r32), | allocatable | :: | ar1D(:) | |||
| real(kind=r32), | allocatable | :: | br1D(:) | |||
| real(kind=r32), | allocatable | :: | cr1D(:) | |||
| real(kind=r32), | allocatable | :: | ar2D(:,:) | |||
| real(kind=r32), | allocatable | :: | br2D(:,:) | |||
| real(kind=r32), | allocatable | :: | ar3D(:,:,:) | |||
| real(kind=r32), | allocatable | :: | br3D(:,:,:) | |||
| real(kind=r64) | :: | a | ||||
| real(kind=r64) | :: | b | ||||
| real(kind=r64) | :: | c | ||||
| real(kind=r64), | allocatable | :: | a1D(:) | |||
| real(kind=r64), | allocatable | :: | b1D(:) | |||
| real(kind=r64), | allocatable | :: | c1D(:) | |||
| real(kind=r64), | allocatable | :: | a2D(:,:) | |||
| real(kind=r64), | allocatable | :: | b2D(:,:) | |||
| real(kind=r64), | allocatable | :: | a3D(:,:,:) | |||
| real(kind=r64), | allocatable | :: | b3D(:,:,:) | |||
| integer(kind=i32) | :: | ia | ||||
| integer(kind=i32) | :: | ib | ||||
| integer(kind=i32) | :: | ic | ||||
| integer(kind=i32) | :: | id | ||||
| integer(kind=i32) | :: | ie | ||||
| integer(kind=i32), | allocatable | :: | ia1D(:) | |||
| integer(kind=i32), | allocatable | :: | ib1D(:) | |||
| integer(kind=i32), | allocatable | :: | ic1D(:) | |||
| integer(kind=i32), | allocatable | :: | ia2D(:,:) | |||
| integer(kind=i32), | allocatable | :: | ib2D(:,:) | |||
| integer(kind=i32), | allocatable | :: | ia3D(:,:,:) | |||
| integer(kind=i32), | allocatable | :: | ib3D(:,:,:) | |||
| integer(kind=i64) | :: | iad | ||||
| integer(kind=i64) | :: | ibd | ||||
| integer(kind=i64) | :: | icd | ||||
| integer(kind=i64), | allocatable | :: | iad1D(:) | |||
| integer(kind=i64), | allocatable | :: | ibd1D(:) | |||
| integer(kind=i64), | allocatable | :: | icd1D(:) | |||
| integer(kind=i64), | allocatable | :: | iad2D(:,:) | |||
| integer(kind=i64), | allocatable | :: | ibd2D(:,:) | |||
| integer(kind=i64), | allocatable | :: | iad3D(:,:,:) | |||
| integer(kind=i64), | allocatable | :: | ibd3D(:,:,:) | |||
| complex(kind=r32) | :: | x | ||||
| complex(kind=r32) | :: | y | ||||
| complex(kind=r32) | :: | z | ||||
| complex(kind=r32), | allocatable | :: | za1D(:) | |||
| complex(kind=r32), | allocatable | :: | zb1D(:) | |||
| complex(kind=r32), | allocatable | :: | za2D(:,:) | |||
| complex(kind=r32), | allocatable | :: | zb2D(:,:) | |||
| complex(kind=r32), | allocatable | :: | za3D(:,:,:) | |||
| complex(kind=r32), | allocatable | :: | zb3D(:,:,:) | |||
| complex(kind=r64), | allocatable | :: | zza1D(:) | |||
| complex(kind=r64), | allocatable | :: | zzb1D(:) | |||
| complex(kind=r64), | allocatable | :: | zza2D(:,:) | |||
| complex(kind=r64), | allocatable | :: | zzb2D(:,:) | |||
| complex(kind=r64), | allocatable | :: | zza3D(:,:,:) | |||
| complex(kind=r64), | allocatable | :: | zzb3D(:,:,:) | |||
| logical | :: | la | ||||
| logical | :: | lb | ||||
| logical | :: | lc | ||||
| logical, | allocatable | :: | la1D(:) | |||
| logical, | allocatable | :: | lb1D(:) | |||
| logical, | allocatable | :: | la2D(:,:) | |||
| logical, | allocatable | :: | lb2D(:,:) | |||
| logical, | allocatable | :: | la3D(:,:,:) | |||
| logical, | allocatable | :: | lb3D(:,:,:) | |||
| integer(kind=i32) | :: | passCount | = | 0 | ||
| integer(kind=i32) | :: | testTotal | = | 0 | ||
| type(Stopwatch) | :: | clk | ||||
| type(ProgressBar) | :: | P | ||||
| type(KdTree) | :: | tree | ||||
| type(KdTreeSearch) | :: | search | ||||
| integer(kind=i32) | :: | iunit | ||||
| integer(kind=i32) | :: | maxSize | = | 25 | ||
| integer(kind=i32), | parameter | :: | nSizes | = | 6 | |
| integer(kind=i32) | :: | sizes(nSizes) | ||||
| real(kind=r64) | :: | times(nSizes) |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| logical | :: | l | ||||
| character(len=*) | :: | msg |