[Nek5000-users] Problem with multiple file inut

[nek5000-users at lists.mcs.anl.gov]

Hi Neks,

just to give a positive feedback to this problem:

Output into single file G1_640.f00001 during production job requires the following loop for post processing 

      IF (istep.eq.1) THEN

       do k=1,1
        WRITE(fldfle,'("G1_640.f",I5.5)')k  
        initc(1) = trim(fldfle)
        call restart(1)

        ….. do analysis with data from G1_640.f00001

       enddo
     ENDIF

Output into multiple files G1_64x.f00001 during production job requires the following loop for post processing 

     character*13  fnames

      IF (istep.eq.1) THEN

       do k=1,1
        WRITE(fldfle,'("G1_64?.f",I5.5)')k  
        fnames = trim(fldfle)
        call chcopy(initc(1),fnames,13) 
        call restart(1)

        ….. do analysis with data from G1_64x.f00001

       enddo
     ENDIF


Thanks once more Aleks and Paul.
Best wishes, Joerg.