Hello! I am having some trouble with some code and needed help. Below is a sample program that hopefully shows what I would like to know. I want to write a program that will specify a FORMAT statement, that will tell the format statement how many times to repeat the format statement. To do this, I will be reading in "cols" from a file that will be different each time, so I need to be able to somehow tell the format statement how many times to repeat. I would think that I could do this by concatenating, but this dosnt work with ifort or gfortran. Ok, so hopefully this is clear, thanks for any help in advance!
PROGRAM test
Implicit none
INTEGER :: rows,cols
REAL, DIMENSIONS(2),ALLOCATABLE :: VAR
CHARACTER (len=100), DIMENSIONS(1) :: FMT,colsSTR
cols=12345
rows=12345
ALLOCATE(VAR(rows,cols))
WRITE(colsSTR,'(I20)') cols
FMT = "'("//colsSTR//"F10.2"//")'"
100 FORMAT(FMT)
! 100 FORMAT( '(12345F10.2)' ) !FORMAT STATEMENT THAT I WANT TO GET TO
WRITE(*,100) VAR(1,:)
END PROGRAM test
