کد مورد نظر به صورت subroutine  نوشته شده است.

(SUBROUTINE DTRM (A,N,D,INDX