Спецификации оператора FORMAT

2 format (5(i3))

   REAL :: c = 100.0
   INTEGER :: N = 8, M = 3
   CHARACTER(LEN=20) FMT
 
   WRITE(FMT,'("(F", I0, ".", I1, ")")') N, M  ! создаем строку (F8.3) в переменной FMT (I0 - первое целое в списке, I1 - второе целое)
   WRITE(*, '(A20)') FMT ! проверяем, та ли строка получилась
   WRITE(*, FMT) c ! и выводим переменную в полученном выше формате

   WRITE(FMT,'("(",I0,"I3)")') N ! N = 5, создаем строку "(5I3)"
   WRITE(*, FMT) A, B, C

program test
REAL :: c(5)
INTEGER :: S, N, M 
CHARACTER(LEN=20) FMT
 
data c/1,2,3,4,5/ 
 
S=5; N=12; M=3 
 
WRITE(FMT,'(", I0, (f", I1, ".", I2, ", " 1X ")")') S, N, M 
 
     !S - число повторов
     !N - общее количнство знаков под выводимое число
     !M - число знаков после запятой
     !1X - один пробел
 
WRITE(*, '(A20)') FMT 
WRITE(*, FMT) c
end

WRITE(FMT,'("(",I0,"(f",I0,".",I0,"), 1X)")') S, N, M

program test
implicit none
REAL :: c(5)
INTEGER :: S 
data c/1,2,3,4,5/ 
 
do S  =1, 5
    WRITE(*,'(<i>(1X, F12.3))') c(1:i)
end do
 
read (*,*)
 
end

WRITE(FMT,"('(',I4,'(f',I0,'.',I0,'), 1X)')") S, N, M

program test
REAL :: c(5)
INTEGER :: S, N, M 
CHARACTER(LEN=20) FMT
data c/1,2,3,4,5/ 
    
    S=5; N=12; M=3 
    WRITE(FMT,'("(",I0,"(f",I0,".",I0,"), 1X)")') S, N, M
 
write (*,*) c
WRITE(*, '(A20)') FMT 
WRITE(*, FMT) c
end

WRITE(FMT,'("(",I0,"(f",I0,".",I0,1X,")') S, N, M

 WRITE(FMT,'("(",I0,"(f",I0,".",I0,",10X))")') S, N, M

WRITE(FMT,'("(",I0,"(g",I0,".",I0,", 10X))")') S, N, M