%external %long %real %function %spec MOD  %alias "IMP_MOD"  ( %long %real X )
%external %long %real %function %spec SIN  %alias "IMP_SIN"  ( %long %real X )
%external %long %real %function %spec COS  %alias "IMP_COS"  ( %long %real X )
%external %long %real %function %spec TAN  %alias "IMP_TAN"  ( %long %real X )
%external %long %real %function %spec LOG  %alias "IMP_LOG"  ( %long %real X )
%external %long %real %function %spec EXP  %alias "IMP_EXP"  ( %long %real X)
%external %long %real %function %spec SQRT %alias "IMP_SQRT" ( %long %real X )

%external %long %real %function %spec ARC TAN 1 %alias "IMP_ATAN1" -
                                            ( %long %real X )

%external %long %real %function %spec ARC TAN %alias "IMP_ARC_TAN" -
                                            ( %long %real X, Y )

%external %long %real %function %spec LOG TEN %alias "IMP_LOG10" -
                                            ( %long %real X )

%external %long %real %function %spec ARC SIN %alias "IMP_ARC_SIN" -
                                            ( %long %real X )

%external %long %real %function %spec ARC COS %alias "IMP_ARC_COS" -
                                            ( %long %real X )

%external %long %real %spec Pi     %alias "IMP_PI"
%external %long %real %spec D To R %alias "IMP_D_TO_R"
%external %long %real %spec E      %alias "IMP_E"

!
! Random number package
!
%external %integer    %function %spec RANDOM INTEGER %alias "IMP_RANDOM_INTEGER"
%external %long %real %function %spec RANDOM REAL    %alias "IMP_RANDOM_REAL"
%external             %routine  %spec RESET RANDOMS  %alias "IMP_RANDOM_RESET"