Душегуб ты читаешь строку фиксированной длинны, в которой находится нужная тебе строка с параметрами.
тебе надо сравнить ее с заданной, в которой пробелов нет.
то есть надо отрезать пробелы и сравнить без них.
А теперь вопросы.
1) что делает функция трим?
2) что такое функция и как ее написать самому?

нет. Задаёшь цикл для N-го количества символов в строке. В цикле делаешь чтение числа Х, скажем, с форматом 'а1', при этом, благодаря указанному для файла формата (опять же, не помню параметр), чтение происходит символа следующего от предыдущего, т.е. ПОСЛЕДОВАТЕЛЬНО.

и что получится? Не понял.

armadillo
Ну Trim, на сколько я понял, отрезает пробелы справа. Но она возврашает значение Integer! И как мне ее использовать?(Будь этот фортран неладен )
А функция это как процедура, только с возвратом значения.

так вот напиши функцию, которая принимает строку и возращает ее же без пробелов.

armadillo
Дак а как мне после того как я Trim сделаю опять символьное значение получить??

Минуту. Есть введённое значение шифра. Прибавим к нему пробел, выясним его длину. Далее, что нам мешает считать в строке 1-е "слово" с такой же длинной и сравнить его с исходным?

Все равно потребуется работать с нормальным значением и отрезать у него пробелы. Не надо искать костыли, не вижу разницы в сложности, отрезать пробелы или прибавить. 100 раз можно уже было это сделать.

Кажется у меня получилось! Поздравьте меня!
Вот код:
program test
character*50 a
character*15 b
character*15 c
integer samp1,samp2,Ierr,i,L_samp,L_name,L_T
character*15 sample(5)
Character*5 shifr_op(2)
Character*80 Mes_Ier
COMMON /BLPASP/
* T2(21), T3(21),T4(21),T5(21),T6(21),
* T7(21),T8(21),T9(21),T10(21),T11(21),
* T12(21),T13(21)

nfrez=3

open(nfrez,file='frez.dat')
nfdat=2
open(nfdat,file='prob.txt')
* read(nfdat,'(a94)') a
* write(nfrez,'(a94)') a
* read(nfdat,*) Nrow,Ncol
* write(nfrez,*) 'îïîðû ÂË 35 êâ '
* write(nfrez,*) 'Nrow, Ncol', Nrow ,Ncol
* do i=1,2

* read(nfdat,'(a5)') Shifr_op(i)
* * T2(i), T3(i),T4(i),T5(i),T6(i),
* * T7(i),T8(i),T9(i),T10(i),T11(i),T12(i),T13(i)
* write(nfrez,'(a5)') Shifr_op(i)
* * T2(i), T3(i),T4(i),T5(i),T6(i),
* * T7(i),T8(i),T9(i),T10(i),T11(i),T12(i),T13(i)
* enddo
*
*
do i=1,2
read(nfrez,*) shifr_op(i)
write(*,*) shifr_op(i)
enddo
print '(a20)','vvedite marku opori'
read(*,'(a5)') a

do i=1,2
L_samp=Len_Trim(a)
L_T=Len_trim(shifr_op(i))
if(L_samp.eq.0)then
print'(a30)' ,'OSHBKA'
endif
* åñòü ïðîáåë?
L_name=index(a,' ' )
if(L_Name.lt.1.or.L_Name.eq.L_samp)then
* ìîæåò áûòü åñòü - ?
L_Name=index(a,'-')
if(L_Name.lt.1.or.L_Name.eq.L_samp)then
print'(b20)','OSHIBKA'
endif
endif
*

* ïîèñê íîìåðà ñòðîêè â òàáëèöå (Nom) = îáðàçöó
if (L_samp.eq.L_T) then
samp1=index(a,shifr_op(i))
if (samp1.eq.1) then
write(*,*) shifr_op(i)
endif
endif
enddo
end