HERE IS MY FUNCTION
subroutine second(array,row,column,theRow,theColumn)
  integer , intent(in):: array(4,4)
  integer ,intent(in):: row
  integer ,intent(in):: column
  integer ,intent(out) :: theRow(4)
  integer ,intent(out) :: theColumn(4)

  theRow= array(row,1:4)
  theColumn= (/ array(1,column), array(2,column), array(3,column), array(4,column) /)
  return
end subroutine second




THIS IS MY PROGRAMME

  integer tempArray(4,4)
  integer theMatrix(4,4)
  integer p,q,i,j,r
  integer myRow(4)
  integer myColumn(4)

call second(theMatrix,q,r,myRow,myColumn)