| File |
Line number |
Procedure |
Code |
|
./eesupp/src/mds_byteswapi4.F |
25 |
MDS_BYTESWAPI4 |
i32(i) = ishft(i.and. z'ff000000', -24) .or. |
|
./eesupp/src/mds_byteswapi4.F |
26 |
MDS_BYTESWAPI4 |
& ishft(i.and. z'00ff0000', -8) .or. |
|
./eesupp/src/mds_byteswapi4.F |
27 |
MDS_BYTESWAPI4 |
& ishft(i.and. z'0000ff00', 8) .or. |
|
./eesupp/src/mds_byteswapi4.F |
28 |
MDS_BYTESWAPI4 |
& ishft(i.and. z'000000ff', 24) |
|
./eesupp/src/mds_byteswapr4.F |
25 |
MDS_BYTESWAPR4 |
i32(i) = ishft(i.and. z'ff000000', -24) .or. |
|
./eesupp/src/mds_byteswapr4.F |
26 |
MDS_BYTESWAPR4 |
& ishft(i.and. z'00ff0000', -8) .or. |
|
./eesupp/src/mds_byteswapr4.F |
27 |
MDS_BYTESWAPR4 |
& ishft(i.and. z'0000ff00', 8) .or. |
|
./eesupp/src/mds_byteswapr4.F |
28 |
MDS_BYTESWAPR4 |
& ishft(i.and. z'000000ff', 24) |
|
./eesupp/src/mds_byteswapr8.F |
25 |
MDS_BYTESWAPR8 |
i64(i1) = ishft(i1 .and. z'ff00000000000000',-56).or. |
|
./eesupp/src/mds_byteswapr8.F |
26 |
MDS_BYTESWAPR8 |
& ishft(i1 .and. z'00ff000000000000',-40).or. |
|
./eesupp/src/mds_byteswapr8.F |
27 |
MDS_BYTESWAPR8 |
& ishft(i1 .and. z'0000ff0000000000',-24).or. |
|
./eesupp/src/mds_byteswapr8.F |
28 |
MDS_BYTESWAPR8 |
& ishft(i1 .and. z'000000ff00000000', -8).or. |
|
./eesupp/src/mds_byteswapr8.F |
29 |
MDS_BYTESWAPR8 |
& ishft(i1 .and. z'00000000ff000000', 8).or. |
|
./eesupp/src/mds_byteswapr8.F |
30 |
MDS_BYTESWAPR8 |
& ishft(i1 .and. z'0000000000ff0000', 24).or. |
|
./eesupp/src/mds_byteswapr8.F |
31 |
MDS_BYTESWAPR8 |
& ishft(i1 .and. z'000000000000ff00', 40).or. |
|
./eesupp/src/mds_byteswapr8.F |
32 |
MDS_BYTESWAPR8 |
& ishft(i1 .and. z'00000000000000ff', 56) |