FORTRAN!!!

Write an array-returning function FindOrder(A,n) which returns an integer array ordering the elements of the integer array A[1 : n], i.e., which returns such an array : n], that: For example, if A-: [I, 3, 6, 3, 2, 6, 5] , the returned array is [1, 5, 2, 4, 7, 3, 6], i.e., the sequence AIR], AR[2]],.. is ordered. Write also a Fortran program which reads the data, invokes FindOrder and prints the results. Write an array-returning function FindOrder(A,n) which returns an integer array ordering the elements of the integer array A[1 : n], i.e., which returns such an array : n], that: For example, if A-: [I, 3, 6, 3, 2, 6, 5] , the returned array is [1, 5, 2, 4, 7, 3, 6], i.e., the sequence AIR], AR[2]],.. is ordered. Write also a Fortran program which reads the data, invokes FindOrder and prints the results