%prim(54)%longrealfnspec Sqrt   %alias "3L_MATHS_SQRT"(%longreal a)
%prim(55)%longrealfnspec Sin    %alias "3L_MATHS_SIN" (%longreal a)
%prim(56)%longrealfnspec Cos    %alias "3L_MATHS_COS"(%longreal a)
%prim(57)%longrealfnspec Ln     %alias "3L_MATHS_LN"  (%longreal a)
%prim(58)%longrealfnspec Exp    %alias "3L_MATHS_EXP" (%longreal a)
%prim(59)%longrealfnspec Arctan %alias "3L_MATHS_ATAN"(%longreal a, b)

%external %long %real %function %spec MOD  %alias "3L_MATHS_FABS" ( %long %real X )
%external %long %real %function %spec TAN  %alias "3L_MATHS_TAN"  ( %long %real X )
%external %long %real %function %spec LOG TEN %alias "3L_MATHS_LOG10"(%long %real X )
%external %long %real %function %spec ARC SIN %alias "3L_MATHS_ARC_SIN" -
                                            ( %long %real X )
%external %long %real %function %spec ARC COS %alias "3L_MATHS_ARC_COS" -
                                            ( %long %real X )
%external %long %real %spec Pi     %alias "3L_MATHS_PI"
%external %long %real %spec D To R %alias "3L_MATHS_D_TO_R"
%external %long %real %spec E      %alias "3L_MATHS_E"

!
! Random number package
!
%external %integer    %function %spec RANDOM INTEGER %alias "3L_MATHS_RANDOM_INTEGER"
%external %long %real %function %spec RANDOM REAL    %alias "3L_MATHS_RANDOM_REAL"
%external             %routine  %spec RESET RANDOMS  %alias "3L_MATHS_RANDOM_RESET"