это подпрограмма, она что-то делает (разберемся по ходу), но смутила запись

IF ((I.EQ.01).AND.(DIF.GE.0)) MINA = INF(INI:FIM) а именно <<< = INF(INI:FIM) >>>

что это такое и как это работает? что за двоеточие?

Вот кусок из этой подпрограммы:

объявлены переменные:
SUBROUTINE PREAFP (ArqENT,Arq001)
CHARACTER *002 MINA,TIPO
...
CHARACTER *1820 INF
INTEGER NLID,NGRA,TAM
INTEGER PV,INI,FIM,DIF,MAPV(184)
REAL *8 DE,ATE,UM25A,UM25B
REAL *8 GRAN(14),QUI1(20),QUIA(70),QUIB(70),DADO(176)
....
90 DO 100 I = 01,09
IF (I.EQ.1) THEN
INI = 1
ELSE
INI = MAPV(I-1) + 1
ENDIF
FIM = MAPV(I) - 1
DIF = FIM - INI
IF ((I.EQ.01).AND.(DIF.GE.0)) MINA = INF(INI:FIM)
IF ((I.EQ.02).AND.(DIF.GE.0)) FURO = INF(INI:FIM)
IF ((I.EQ.03).AND.(DIF.GE.0)) AMOS = INF(INI:FIM)
IF ((I.EQ.04).AND.(DIF.GE.0)) READ (INF(INI:FIM),20) DE
IF ((I.EQ.05).AND.(DIF.GE.0)) READ (INF(INI:FIM),20) ATE
IF ((I.EQ.06).AND.(DIF.GE.0)) CLV = INF(INI:FIM)
IF ((I.EQ.07).AND.(DIF.GE.0)) CLI = INF(INI:FIM)
IF ((I.EQ.08).AND.(DIF.GE.0)) TIPO = INF(INI:FIM)
IF ((I.EQ.09).AND.(DIF.GE.0)) CAMP = INF(INI:FIM)
100 CONTINUE

большое человеческое спасибо! :)