AN502 Block Data

  1. FM500.f
  2. AN502

* 00140502 00180502 * DECLARATION OF VARIABLES IN COMMON BLOCKS 00200502 00470502 * 00530502 * 00710502


Contents

Common Blocks

Variables


Common Blocks

common /BLK1/

Type AttributesNameInitial
real :: FXVI
real :: HX2I(2,2)
integer :: IXVI
integer :: KX1I(2)
integer :: MX2I(2,2)

common /BLK2/

Type AttributesNameInitial
real :: AXVS
real :: BXVS
real :: CX2S(2,2)
real :: DZ3S(2,2,2)
real :: EZVS
integer :: JX1S(2)

common /BLK3/

Type AttributesNameInitial
real :: AX1D(2)
real :: BX4D
real :: RXVD

common /BLK4/

Type AttributesNameInitial
real :: AXVC
real :: BX1C(2)
real :: CZ5C(2,2,2,2,2)

common /BLK5/

Type AttributesNameInitial
real :: AXVB
real :: BZ1B(2)
real :: CX6B

common /BLK6/

**** DECLARATION OF VARIABLES FOR EQUIVALENCE STATEMENTS 00400502

Type AttributesNameInitial
real :: A1XVK
real :: B1X1K(2)
real :: C1X7K(2,2,2,2,2,2,2)
real :: D2Z1K(2)
real :: E4XVK
real :: G4X2K(2,2)
integer :: I10XVK
real :: S2XVK

Variables

Type AttributesNameInitial
character(len=1) :: A1XVK
character(len=2) :: A2Y1K(2)
character(len=1), parameter:: APK = "0"
double precision :: AX1D
logical :: AXVB
complex :: AXVC
logical :: AY1B(2)
complex :: AY5C(2,2,2,2,2)
character(len=1) :: B1X1K
complex :: BX1C
double precision, dimension(kpi, kpi, kpi, kpi):: BX4D
logical :: BZ1B
character(len=1) :: C1X7K
logical :: CX6B(2,2,2,2,2,2)
complex :: CZ5C
character(len=2) :: D2Z1K
character(len=4) :: E4XVK
integer :: FXVI
character(len=4) :: G4X2K
character(len=LPI) :: I10XVK

**** 00320502
real :: JX1S