!***************************************************************************
! specs for fns in this file IMPREALFN
%realfnspec isqrt(%real x)
%realfnspec itan(%real x)
%realfnspec icos(%real x)
%realfnspec isin(%real x)
%realfnspec iarctan(%real x,y)
%realfnspec iarccos(%real x)
%realfnspec iarcsin(%real x)
!***************************************************************************

%external %real %fn isqrt (%real x)
%externalrealfnspec f77sqrt(%realname x,%integername dum)
%integer d
  d=0
  %result=f77sqrt(x,d)
%end

%external %real %fn itan (%real x)
%externalrealfnspec f77tan(%realname x,%integername dum)
%integer d
  d=0
  %result=f77tan(x,d)
%end

%external %real %fn icos (%real x)
%externalrealfnspec f77cos(%realname x,%integername dum)
%integer d
  d=0
  %result=f77cos(x,d)
%end

%external %real %fn isin (%real x)
%externalrealfnspec f77sin(%realname x,%integername dum)
%integer d
  d=0
  %result=f77sin(x,d)
%end

%external %real %fn iarctan (%real x,y)
%externalrealfnspec f77atan2(%realname x,y,%integername dum)
%integer d
  d=0
  %result=f77atan2(x,y,d)
%end

%external %real %fn iarccos (%real x)
%externalrealfnspec f77acos(%realname x,%integername dum)
%integer d
  d=0
  %result=f77acos(x,d)
%end

%external %real %fn iarcsin (%real x)
%externalrealfnspec f77asin(%realname x,%integername dum)
%integer d
  d=0
  %result=f77asin(x,d)
%end

%endoffile