singlmesh.F90

Go to the documentation of this file.

!-----------------------------------------------------------------------
subroutine get_session_info(intracomm)
  use mpif, only : mpi_comm_world
  use size_m, only : nid
  use input, only : session, path, series, ifneknek
  use parallel, only : csize
  implicit none

  integer :: mpi_is_initialized
  integer :: ierr, intracomm

!   Find out the session name:
  call mpi_initialized(mpi_is_initialized, ierr) !  Initialize MPI
  if ( mpi_is_initialized == 0 ) call mpi_init(ierr)

  call mpi_comm_dup(mpi_comm_world,intracomm,ierr)
  call iniproc(intracomm)

  CALL blank(session,132)
  CALL blank(path   ,132)
  CALL blank(series,132)

  ierr = 0
  IF(nid == 0) THEN
      OPEN (unit=8,file='SESSION.NAME',status='OLD',err=24)
      READ(8,10) session
      READ(8,10) path
      READ(8,10, iostat=ierr) series
      if (ierr < 0) call chcopy(series, session, 132)
      ierr = 0
      10 FORMAT(a132)
      CLOSE(unit=8)
      goto 23
      24 CONTINUE
      write(6,*) 'No file SESSION.NAME; using defaults of '
      write(6,*) 'PATH=. and SESSION=NEK.'
      path='.'
      session='NEK'
  ENDIF
  23 continue

  call err_chk(ierr,' Cannot open SESSION.NAME!$')
     
  call bcast(session,132*csize)
  call bcast(path,132*csize)
  call bcast(series,132*csize)

  ifneknek  = .false. 

  return
end subroutine get_session_info

!-----------------------------------------------------------------------
subroutine userchk_set_xfer
  return
end subroutine userchk_set_xfer

!-----------------------------------------------------------------------
subroutine setintercomm(nekcommtrue,nptrue)
  implicit none
  integer :: nekcommtrue, nptrue
  return
end subroutine setintercomm

!-----------------------------------------------------------------------
subroutine unsetintercomm(nekcommtrue,nptrue)
  implicit none
  integer :: nekcommtrue, nptrue
  return
end subroutine unsetintercomm
!------------------------------------------------------------------------
subroutine uglmin(a,n)
  use kinds, only : dp
  implicit none
  real(DP) :: a
  integer :: n
  return
end subroutine uglmin
!------------------------------------------------------------------------
subroutine happy_check(iflag)
  implicit none
  integer :: iflag
  return
end subroutine happy_check
!------------------------------------------------------------------------