Commit c9360c04 authored by Stefan's avatar Stefan
Browse files

print header in setup subroutine

parent 635a901b
write(6,'(20(A,/))')
write(6,'(14(A,/))')
& '/----------------------------------------------------------\\'
&,'| _ __ ______ __ __ ______ ____ ____ ____ |'
&,'| / | / // ____// //_/ / ____/ / __ \\/ __ \\/ __ \\ |'
......@@ -13,4 +13,3 @@
&,'| Web: https://nek5000.mcs.anl.gov |'
&,'| |'
&,'\\----------------------------------------------------------/'
&,' '
......@@ -156,8 +156,6 @@ c---------------------------------------------------------------------
endif
endif
if (nid.eq.nio) call printHeader
if (wdsize .eq. 4)
$ call exitti('Single precision mode not supported!',wdsize)
......@@ -190,14 +188,6 @@ C Test timer accuracy
enddo
edif = edif/10.
if (nid.eq.nio) then
write(6,*) 'Number of processors:',np
WRITE(6,*) 'REAL wdsize :',WDSIZE
WRITE(6,*) 'INTEGER wdsize :',ISIZE
WRITE(6,'(A,1pE9.2)') ' Timer accuracy : ',edif
WRITE(6,*) ' '
endif
call fgslib_crystal_setup(cr_h,nekcomm,np) ! set cr handle to new instance
return
end
......@@ -688,7 +678,15 @@ c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
subroutine printHeader
INCLUDE 'HEADER'
include 'SIZE'
include 'PARALLEL'
include 'HEADER'
write(6,*) 'Number of MPI ranks :', np
c WRITE(6,*) 'REAL wdsize :',WDSIZE
c WRITE(6,*) 'INTEGER wdsize :',ISIZE
c WRITE(6,*) 'INTEGER8 wdsize :',ISIZE8
WRITE(6,*) ' '
return
end
......
......@@ -60,6 +60,8 @@ c COMMON /SCRCG/ DUMM10(LX1,LY1,LZ1,LELT,1)
iglobalcomm = newcommg ! across all sessions
call iniproc()
if (nid.eq.nio) call printHeader
etimes = dnekclock()
istep = 0
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment