[FORTRAN90] Ricerca sottosequenza ordinate in un vettore disordinato

[stino90]

Come da tit
olo: ho un vettore disordinato e voglio sapere se sono presente delle sottosequenze di elementi ordinati, voglio inoltre conoscere la loro lunghezza(la lunghezza di ciascuna sottosequenza ordinata). Non riesco a venirne a capo e non riesco a decifrare l'algoritmo del professore che dovrebbe essere questo:

che tra l'altro non va(forse perché ho sbagliato io a ricopiare) ma comunque vi chiedo gentilmente se potete darmi qualche delucidazione su un algoritmo del genere, mi va bene anche un link a qualcosa che ne parli...

 
i=1 	
DO WHILE(i<riemp)  	
	j=i+1 	
	cont=1 	
	continua=.TRUE
DO WHILE(j<=riemp.AND.continua) 
			IF(v(j)>v(j-1)) THEN 	
			j=j+1 	
			cont=cont+1 
			ELSE 			
	                    continua=.FALSE. 		
	                END IF 		
END DO ! questo ciclo interno ci dice quanto vale cont e quindi quanto è lunga l'eventuale sottosequenza 	 	
	rt=0 		
        IF(cont>=2) THEN 
			rt=rt+1 		
	                seq(rt)=i 		
	                lung(rt)=cont 	
	END IF	 	
		i=j ! i=i+1  
END DO  
	READ(*,*)