%externallongrealfnspec MOD       %alias "IMP_MOD"  (%longreal X)
%externallongrealfnspec SIN       %alias "MD_SIN"   (%longreal X)
%externallongrealfnspec COS       %alias "MD_COS"   (%longreal X)
%externallongrealfnspec TAN       %alias "MD_TAN"   (%longreal X)
%externallongrealfnspec COT       %alias "MD_COT"   (%longreal X)
%externallongrealfnspec LOG       %alias "MD_LN"    (%longreal X)
%externallongrealfnspec EXP       %alias "MD_EXP"   (%longreal X)
%externallongrealfnspec SQRT      %alias "MD_SQRT"  (%longreal X)
%externallongrealfnspec ARC TAN 1 %alias "MD_ATAN"  (%longreal X)
%externallongrealfnspec ARC TAN   %alias "MD_ATAN2" (%longreal X, Y)
%externallongrealfnspec LOG TEN   %alias "MD_LOG10" (%longreal X)
%externallongrealfnspec ARC SIN   %alias "MD_ASIN"  (%longreal X)
%externallongrealfnspec ARC COS   %alias "MD_ACOS"  (%longreal X)

%externallongrealspec Pi     %alias "IMP_PI"
%externallongrealspec D To R %alias "IMP_D_TO_R"
%externallongrealspec E      %alias "IMP_E"

!
! Random number package
!
%externalintegerfnspec  RANDOM INTEGER %alias "IMP_RANDOM_INTEGER"
%externallongrealfnspec RANDOM REAL    %alias "IMP_RANDOM_REAL"
%externalroutinespec    RESET RANDOMS  %alias "IMP_RANDOM_RESET"
!
%externalintegerfnspec  MUL DIV(%integer a, b, c)