stdxrinit.f
No OneTemporary
Actions

Size

560 B

Subscribers

None

stdxrinit.f
View Options

	subroutine stdxrinit(filename,ntries,istream,lok)
	c
	c initialize xdr reading
	c
	implicit none
	include "mcfio.inc"
	include "stdlun.inc"
	integer istream,lok,ntries
	character() filename

	logical lfirst
	data lfirst/.TRUE./
	save lfirst
	c
	c Initialization phase.
	c
	C...print version number if this is the first call
	if(lfirst)then
	call stdversn
	lfirst=.FALSE.
	endif
	lok = 0
	call mcfio_init()
	call stdxropen(filename,ntries,istream,lok)
	return
	end