Придумать алгоритм

[Serjuk]

Здравствуйте,возникла проблемка - не могу никак продумать легкий алгоритм.
Суть такова. Есть определенное условие. Если точка удовлетворяет этому условию, то количество таких точек увеличивается на 1. Количество точек, удовлетворяющих условию записывается в переменную N. Далее есть два параметра P1 = 1 и P2 = 10. Эти два параметра образуют функцию - линейно возрастающую. Интервалы возрастания зависят от N. Т.е. если N = 2, то будет просто P1 = 1 и P2 = 10, если N=3,то уже будет P1=1 , P3 = 5.5 , P2=10. , ну и так далее при N=4 уже P будет 4 штуки
Код такой:

    
 DO 10 I=1,NP // NP - количество всех точек
IF ( (X1.EQ.70) .AND. (Y1.GE.0) .AND. (Y1.LE.30) ) THEN // удовлетворяют условию
           N=N+1 //количество таких точек
                      ENDIF
            IF ((YT.LE.30).AND.(ABS(XT-DB).LT.0.01) ) THEN //еще одно условие, но количество точек N остается тоже

                N=N+1 
                TEMP = (P2-P1) / N  // тут N изменяется постоянно, поэтому не получается сделать одинаковым TEMP
             
                A(D*(I-1)+1)= P1
                P1 = P1 + TEMP     
ENDIF
CONTINUE 10

из за того что N постоянно меняется, не получается сделать TEMP константой, чтобы разбивать отрезок 1 - 10 на равные части.. Помогите кто нибудь. Код написан на фортране.