10 lines
175 B
FortranFixed
10 lines
175 B
FortranFixed
|
TYPE DATUM
|
||
|
|
REAL VALUE
|
||
|
|
REAL SD
|
||
|
|
END TYPE DATUM
|
||
|
|
TYPE POINT
|
||
|
|
TYPE(DATUM) X
|
||
|
|
TYPE(DATUM) Y
|
||
|
|
END TYPE POINT
|
||
|
|
TYPE(POINT) P1,P2
|