Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  ricseq.f90
Language: FORTRAN
Code:
subroutine ricseq (A, N, NUM, POS)
integer:: N, i, POS
real:: A(N), NUM
POS=-1
I=0
DO
I=I+1
IF (A(I) == NUM) then
POS=I
endif
if (i==N  .OR.  POS/=-1) EXIT
ENDDO
END
     
Comments: