!
!   TITLE:  adia.mac (CALCULATION)
!
!
! Calculate the area of a circle given its diameter
!
!     A = pi/4 * d^2
!   
!
! adia,ParResult,dia
!
!   where "dia" is the diameter of the circle.
!         "ParResult" is the parameter name the result is assigned to.
!
! Example:  adia,'foo',1.5
!
!   The parameter "foo" is a assigned the area of a 1.5 diameter circle.
!

*get,prkey_,active,0,prkey
/nopr

%arg1%=pi*arg2**2/4

*if,prkey_,eq,1,then
    /go
*endif