Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-04 - decus/20-0110/fort.sai
There are 2 other files named fort.sai in the archive. Click here to see a list.
entry ;
comment file: FORT.SAI[50,752];
COMMENT
.SEC(FORT.SAI - numerical routines from FORT lib)
.index(FORT.SAI - numerical routines from FORT lib)
                        Richard Gordon
                     Image Processing Unit
                   National Cancer Institute
                 National Institutes of Health
                     Building 36 Room 4D28
                 Bethesda, Maryland 20014 USA

                      phone 301-496-2394


FORT.SAI imitates a number of standard Fortran Procedures.
.;


begin "FORT.SAI"



  real Internal Procedure RSIGN(  real arg1;
				 real arg2  );
  begin "SIGN"
    if arg1>0
    then return(abs(arg1))
    else return(-abs(arg1));
  end "SIGN";



  real Internal Procedure TAND(  real angle  );
  begin "TAND"
    if angle mod 90 neq 0
    then return(sind(angle)/cosd(angle))
    else return(RSIGN(angle,1.7@38));
  end "TAND";



  Integer Internal Procedure IFIX(  real a  );
  begin "IFIX"
    return(a);
  end "IFIX";



  Integer Internal Procedure INT(  real a  );
  begin "INT"
    return( if a geq 0
	    then a
	    else
    -IFIX(abs(a)));
  end "INT";



  real Internal Procedure ASIND(  real a  );
  begin "ASIND"
    return(180*asin(a)/3.14159265);
  end "ASIND";



  real Internal Procedure ALOG10(  real arg  );
  begin "ALOG10"
    return(.4342944819*log(arg));
  end "ALOG10";

end "FORT.SAI";